Resume and Execution Options › Control and Resume Execution from a Breakpoint › Jump to Another Location › Example

Example

The following screen shows how to resume execution from a statement.

              CA InterTest  PROTDEM FILE SOURCE LISTING 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   
     7 Backward  8 Forward   9           10 001 Verb  11 Backtrace 12 Status  
-----------------------------------------------------------------------------
    g 01279 READDATASET.                                                     
      01280*    EXEC CICS HANDLE CONDITION                                     
      01281*              DSIDERR                                              
      01282*              NOTOPEN(NOTOPEN)                                    
      01283*              ENDEXEC.                                           
    _ 01284      MOVE '                  ' TO DFHEIV0 CALL 'DFHEI1' USING      
    _ 01285      DFHEIV0 GO TO NOTOPEN DEPENDING ON DFHEIGDI.                
      01286                                                                    
      01287                                                                    
    _ 01288     MOVE ZEROES TO RECORDKEY.                                   
      01289**** NOTE * DATASET NAME IS WRONG ****                             
      01290*    EXEC CICS STARTBR                                              
      01291*              DATASET('PROTH')                                     
      01292*              RIDFLD(RECORDKEY)                                   
      01293*              ENDEXEC.                                           
    A   ==>      MOVE 'PROTH' TO DFHEIV3 MOVE '         ' TO DFHEIV0 CALL  

Notes:

• Use this option with caution in COBOL and Assembler programs and optimized code. Certain uses trigger difficulties in getting proper addressability.
• When an error occurs in a paragraph containing a CICS command, resume program execution at the paragraph‑name rather than at the specific instruction, because some CICS internal processing might have occurred prior to that command.
• In PL/I programs, do not resume execution at a new location if it results in a jump between PROCS/BLOCKS.

For more information:

CNTL Commands and Menus