COBOL Debugging Programs › Resume Program Execution › Resume Execution from a Specific Location

Resume Execution from a Specific Location

To resume program execution from the breakpoint location where your program is stopped, the source listing screen must be displayed. Press PF3 from any CA InterTest screen until the breakpoint screen redisplays.

Press PF5 to continue from the current breakpoint. Execution continues until the program is halted at another breakpoint or the task completes.

If you are stopped at an automatic breakpoint, you must first correct the error that triggered the breakpoint before continuing execution from that point. Or, you can go around the error and continue execution from another location.

To resume program execution from another location, perform the following steps:

1. Display the statement where you want to resume execution. For more information, see Displaying Your Source Listing.
2. Type go read‑dataset in the command line or g to the left of that statement.
3. Press Enter.

   Program execution resumes from that statement.

The following example shows how to resume execution from a location prior to an automatic breakpoint. This might be useful if you corrected a record or dynamically modified an incorrect file name and now want the program to re‑read the record or file.

   CA InterTest for CICS V9.1   - PROTSYM FILE  ABEND DETECTED BREAKPOINT      
COMMAND ===>                                                                    
Program= COBDEMO  Option #       Stmt #                             Margin= 01  
                                        Search=                                 
------------------------------------------------------------------------------- 
 _____ RECORD-KEY                      | 00000000000000000000000000000000000000 
---------+--------------------------------------------------------------------- 
 _ 000695         GO TO SEND-REWRITE-RETURN.                                    
 _ 000696     IF  TASK-SWITCH3 EQUAL 'A'                                        
 _ 000697         GO TO READ-DATASET                                            
 _ 000698     ELSE                                                              
 _ 000699         GO TO SEND-MAP00.                                             
 g 000700 READ-DATASET.                                                         
   000701*EXEC CICS HANDLE CONDITION                                            
   000702*          DSIDERR                                                     
   000703*          NOTOPEN(NOT-OPEN)                                           
   000704*          END-EXEC.                                                   
 _ 000705     Call 'DFHEI1' using by content x'0204800007130c00000000000000     
 _ 000706-    '0000000000000000f0f0f3f8f7404040' end-call  
.
.
.                                           

When you press Enter, execution resumes from READ‑DATASET, the location you identified with g.