COBOL Advanced Monitoring Features › Statement Trace Facility › Navigate the Statement Trace Table

Navigate the Statement Trace Table

When at a breakpoint, and statement tracing is in effect, you can use the PREV and ADVANCE commands to determine the execution path of the program prior to this point. Use the PREV command to cause the display to back up one statement. Consider the following breakpoint:

   CA InterTest for CICS V9.1   - PROTSYM FILE  ABEND DETECTED BREAKPOINT       
COMMAND ===>                                                                    
Program= COBDEMO  Option #       Stmt #                             Margin= 01  
                                        Search=                                 
------------------------------------------------------------------------------- 
 _____ TASKNUM                         | ?00000.                                
---------+--------------------------------------------------------------------- 
 _ 000477 CONTINUE-TASK.                                                        
   000478**** TASKNUM *NOTE* FIELD MUST BE INITIALIZED                          
 A    ==>     ADD +1 TO TASKNUM.                                                
     ==>                                                                        
     ==> ASRA ABEND (0C7) detected and prevented. Caused by invalid decimal     
     ==> arithmetic data format.                                                
     ==>                                                                        
     ==>      Press PF1 for a detailed description.                             
     ==>                                                                        
 _ 000480     IF TASKNUM = 1                                                    
 _ 000481         MOVE 'DMAPASR'  TO MAPNAME.                                   
 _ 000482     IF TASKNUM = 2                                                    
 _ 000483         MOVE 'DMAPSUM'  TO MAPNAME.                                   
 _ 000484     IF TASKNUM GREATER 2                                              
 _ 000485         GO TO SEND-END-MSG.                                           
 _ 000486     GO TO REWRITE-TSQ.                                                
 _ 000487 REWRITE-TSQ.                                                  

Using the PREV command on the previous screen results in the next screen:

   CA InterTest for CICS V9.1   - PROTSYM FILE  ABEND DETECTED BREAKPOINT       
COMMAND ===>                                                                    
Program= COBDEMO  Option #       Stmt #                             Margin= 01  
                                        Search=                                 
OPTS 1 Proc div  2 Work-stor 3 Link sect  4 D-map      5 Clst/Pmap More:   +    
     6 Data xref 7 Proc xref 8 Err msgs   9 Srch fwd  10 Srch bwd               
PFKS 1 Help      2           3 Det Bkpt   4 Profile    5 RESUME     6 Menu      
     7 Backward  8 Forward   9           10 001 Verb  11 Backtrace 12 Status    
------------------------------------------------------------------------------- 
 _ 000468     Call 'DFHEI1' using by content x'0402000007000000140000400000     
 _ 000469-    '00f0f0f2f0f9404040' end-call.                                    
 _ 000470     IF EIBAID = DFHENTER GO TO CONTINUE-TASK.                         
 _ 000471     IF EIBAID = DFHCLEAR GO TO SEND-END-MSG.                          
 _ 000472     IF EIBAID = DFHPF3   GO TO SEND-END-MSG.                          
 _ 000473     IF EIBAID = DFHPF15  GO TO SEND-END-MSG.                          
 _ 000474     IF EIBAID = DFHPF2   GO TO EXPANDED-DEMO.                         
 _ 000475     IF EIBAID = DFHPF14  GO TO EXPANDED-DEMO.                         
 _ 000476     GO TO SEND-FIRST-SCREEN.                                          
 _ 000477 CONTINUE-TASK.                                                        
   000478**** TASKNUM *NOTE* FIELD MUST BE INITIALIZED                          
 A    ==>     ADD +1 TO TASKNUM.                                                
 _ 000480     IF TASKNUM = 1                                                    
 _ 000481         MOVE 'DMAPASR'  TO MAPNAME.                                   
 _ 000482     IF TASKNUM = 2                                                    
 _ 000483         MOVE 'DMAPSUM'  TO MAPNAME.                                  

Statement number 470 was the statement executed just before the abend at the statement number 479. Similarly the ADVANCE command advances the statement trace pointer.