Advanced Demo Session › Option 01: Replace a File Control ID › Resume Execution

Resume Execution

Now you can resume execution of ASMDEMO at the MVC instruction prior to the EXEC CICS STARTBR command by entering a g to the left of that instruction.

1. Tab the cursor to the MVC RECKEY,=CL10'0000000000' instruction.
2. Type g to the left of the instruction.
3. Press Enter to resume task execution.

   CA InterTest for CICS  Release 9.1.00    - PROTSYM FILE  ABEND DETECTED BREAKPOINT         
   COMMAND ===>                                                                    
   Program= ASMDEMO  Option #       Stmt #        Displacement=        Margin= 28  
                                           Search=                                 
   ----------+-------------------------------------------------------------------- 
        Loc  Object Code    Addr1 Addr2  Stmt        Source Statement              
              2638          DFHECALL =X'0606E0000800004000',(CHA8,CKPTNAME),(____  
       00068                      REA),(FB_2,RECLEN)                               
    _ 001FA4  2653 NUPDTE   DS    0H                                               
              2654 *        EXEC CICS START TRANSID(CNTLTRAN)                      
              2655 *              FROM(NUPOFF) LENGTH(NUPOLEN) REQID(=X'9999')     
              2656          DFHECALL =X'1008F8000800005400',(___4,=PL4'0'),(CHA8,  
       00068                      ,(CHA4,CNTLTRAN),(______RF,NUPOFF),(FB_2,NUPOLEN)
    U 001FD2  2672          B     SENDMP00                                         
    _ 001FD6  2674 READATA  DS    0H                                               
              2675 *        EXEC CICS HANDLE CONDITION                             
              2676 *             DSIDERR                                           
              2677 *             NOTOPEN (NOPEN)                                   
              2678          DFHECALL =X'0204800008130C000000000000000000000000000  
       00068                      ,NOPEN)                                          
    g 001FF0  2689          MVC   RECKEY,=CL10'0000000000'                         
              2690 *        EXEC CICS STARTBR  RIDFLD(RECKEY) DATASET('PROTH')     
              2691          DFHECALL =X'060CB000080020A000',(CHA8,=CL8'PROTH'),,(  
       00068                      )),(______RF,RECKEY)
   

   Note: You must back up to the instruction before the EXEC CICS STARTBR command with the incorrect file name. This allows ASMDEMO to read the correct file.

   ASMDEMO successfully completes execution and displays the record it read.