Halt the Demo Program at a Request Breakpoint

PL/I Advanced Demo Session › Option 03: Prevent a Program from Updating a File › Halt the Demo Program at a Request Breakpoint

Halt the Demo Program at a Request Breakpoint

CA InterTest for CICS halted the demo program prior to the first File Control REWRITE command as you specified during the Demo Preliminaries section. The highlighted CALL instruction is part of the generated EXEC CICS REWRITE command. Setting request breakpoints lets you inspect the values of program variables and set options prior to all or specified CICS commands and macros and other program calls.

The following screen shows CA InterTest for CICS halting the program prior to a REWRITE Statement.

CA InterTest for CICS Release 9.1.00   - PROTSYM FILE   STEP  BEFORE  BREAKPOINT         
COMMAND ===>                                                                    
Program= PLIDEMO  Option #       Stmt #                             Margin= 01  
                                        Search=                                 
------------------------------------------------------------------------------- 
 _____ CKPTNAME                        | PROTCPF                                
 _____ NUP_AREA                        |          THIS IS NOT A NAME  PRIME THE 
 _____ REC_LEN                         | +00681.                                
---------+--------------------------------------------------------------------- 
 _  1289.1                                        FROM(NUP_AREA)                
 _  1290.1                                        LENGTH(REC_LEN) */            
 _  1291.1     1             DO;                                                
 _  1292.1     1  1          DCL DFHENTRY_BF6577CC_B2AB522B BASED(ADDR(DFHEI0)  
 _  1293.1             ASSEMBLER) ENTRY(*,CHAR(8),*,FIXED BIN(15));             
 R   ==>.1     1  1          CALL DFHENTRY_BF6577CC_B2AB522B('  \. .. .0423000  
 _  1295.1             00 03 00 00 40 00 F0 F4 F2 F3 F0 F0 F0 F0 'X */,CKPTNAM  
 _  1296.1     1  1   LEN);  END;                                               
 _   ==>.1     1      REMBKPT: 
.
.
.

Scroll backward to look at the EXEC CICS REWRITE command.

Press PF7.

The following screen appears.

CA InterTest for CICS Release 9.1.00 - PROTSYM FILE STEP BEFORE BREAKPOINT COMMAND ===> Program= PLIDEMO Option # Stmt # Margin= 01 Search= ------------------------------------------------------------------------------- _____ CKPTNAME | PROTCPF _____ NUP_AREA | THIS IS NOT A NAME PRIME THE _____ REC_LEN | +00681. ---------+--------------------------------------------------------------------- _ 1282.1 1 1 CALL DFHENTRY_BF6577CC_B2A39FEB(' 0. ..d.0416000 _ 1283.1 00 03 00 00 84 00 F0 F4 F1 F6 F0 F0 F0 F0 'X */,CKPTNAM _ 1284.1 LEN,NUP_KEY); _ 1285.1 1 1 END; _ 1286.1 1 NUPWRITE: _ 1287.1 NUP_NAME = 'THIS IS NOT A NAME'; _ 1288.1 /* EXEC CICS REWRITE DATASET(CKPTNAME) _ 1289.1 FROM(NUP_AREA) _ 1290.1 LENGTH(REC_LEN) */ _ 1291.1 1 DO; _ 1292.1 1 1 DCL DFHENTRY_BF6577CC_B2AB522B BASED(ADDR(DFHEI0) . . .

According to the EXEC CICS REWRITE command, the demo program updates the file PROTCPF (specified in the DATASET parameter of the EXEC CICS REWRITE command).

Important! If you do not have the AutoKeep Display function running, to view the contents of DATASET(CKPTNAME), you can type Search=ckptname to scroll to where it is defined, and then add it to the Keep window (type k next to the line defining CKPTNAME and press Enter). The Keep window shows the current value of CKPTNAME is indeed PROTCPF. To return to a breakpoint location, press Clear.

However, you are going to set the No File Updating option to prevent the demo program from updating the file. To do so, access the Special Options menu as explained in the following section.