Resume Execution

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

Resume Execution

Now that you have dynamically corrected the file name, you are ready to resume program execution. However, you must back up to and execute the statement that contains the EXEC CICS STARTBR command with the incorrect file name, rather than resume execution at the statement that triggered the breakpoint.

On the Source Listing Breakpoint screen, tab to the DO statement following the EXEC CICS STARTBR command and type g (go).

Press Enter to resume program execution.

CA InterTest for CICS Release 9.1.00   - PROTSYM FILE  ABEND DETECTED BREAKPOINT         
COMMAND ===>                                                                    
Program= PLIDEMO  Option #       Stmt #                             Margin= 01  
                                        Search=                                 
---------+--------------------------------------------------------------------- 
 _  1321.1     1             RECKEY = '0000000000';                             
 _  1322.1                   /* EXEC CICS STARTBR DATASET('PROTH') RIDFLD(RECK  
 g   ==>.1     1             DO;                                              
 _  1324.1     1  1          DCL DFHENTRY_BF6577CC_B2C81A6B BASED(ADDR(DFHEI0)  
 _  1325.1             ASSEMBLER) ENTRY(*,CHAR(8),*,FIXED BIN(15),*);           
 _  1326.1     1  1          CALL DFHENTRY_BF6577CC_B2C81A6B(' .^. . µ.0433000  
 _  1327.1             00 03 00 20 A0 00 F0 F4 F3 F3 F0 F0 F0 F1 'X */,'PROTH'  
 _  1328.1            FHEIB0,RECKEY);                                           
 _  1329.1     1  1          END;                                               
 _  1330.1     1             REC_LEN = 0;                                       
 _  1331.1                   /* EXEC CICS READNEXT DATASET('PROTH')             
 _  1332.1                                     SET(REC_PTR)                     
 _  1333.1                                     RIDFLD(RECKEY)                   
 _  1334.1                                     LENGTH(REC_LEN) */               
 _  1335.1     1             DO;                                                
 _  1336.1     1  1          DCL DFHENTRY_BF6577CC_B2D0406B BASED(ADDR(DFHEI0)  
 _  1337.1             ASSEMBLER) ENTRY(*,CHAR(8),POINTER,FIXED BIN(15),*,*,FI  
 _  1338.1     1  1          CALL DFHENTRY_BF6577CC_B2D0406B('0000011000001110  
 _  1339.1            00000001100000001000000001011000000000000111100001111010

The program resumes execution and displays the record it has read on your screen as shown in the following screen.

The demo program has succeeded in reading a record from file PROTHLF (the CA InterTest for CICS Help file). The demo program displays the first record in that file.

********************************************************************** **** **** **** CA InterTest Demo Session **** **** Replace File Control Identifications **** **** **** ********************************************************************** Record retrieved: * 0000000000 VE0301InterTest ZELP Facil * * ity Master Menu * * * * * Record length = 0960 You have now successfully utilized the REPLACE option Press ENTER to continue or CLEAR to terminate