COBOL 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 has 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.

   CA InterTest for CICS V9.1   - PROTSYM FILE  SOURCE LISTING BREAKPOINT       
COMMAND ===>                                                                    
Program= COBDEMO  Option #       Stmt #                             Margin= 01  
                                        Search=                                 
------------------------------------------------------------------------------- 
 _____ TASK-PROTCPF                    | PROTCPF                                
 _____ VSAM-AREA                       |          THIS IS NOT A NAME  PRIME THE 
 _____ REC-LEN                         | +00681.                                
---------+--------------------------------------------------------------------- 
   000916*     LENGTH(REC-LEN)                                                  
   000917*     END-EXEC.                                                        
 R    ==>     Call 'DFHEI1' using by content x'0606e0000700004000f0f0f5f2f4     
 _ 000919-    '404040' by reference TASK-PROTCPF by reference VSAM-AREA by      
 _ 000920     reference REC-LEN end-call.                                       
   000921                                                                       
   000922                                                                       
 U 000923 AFTER-REWRITE.                                                        
 _ 000924     MOVE 'THIS IS AFTER REWRITE' TO TASK-TEXT                         
 _ 000925           OF TASK-STRUCTURE.                                          
 _ 000926     GO TO SEND-MAP00.                                                 
 _ 000927 SET-UP-READ.                                                          
 _ 000928     MOVE 681 TO REC-LEN.                                              
   000929*EXEC CICS HANDLE CONDITION NOTOPEN(OPENFIL) END-EXEC.                 
 _ 000930     Call 'DFHEI1' using by content x'0204800007130000000000000000    

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.

1. Scroll backward to look at the EXEC CICS REWRITE command.
2. Press PF7.

   CA InterTest for CICS displays the following screen.

      CA InterTest for CICS V9.1   - PROTSYM FILE  SOURCE LISTING BREAKPOINT       
   COMMAND ===>                                                                    
   Program= COBDEMO  Option #       Stmt #                             Margin= 01  
                                           Search=                                 
   ------------------------------------------------------------------------------- 
    _____ TASK-PROTCPF                    | PROTCPF                                
    _____ VSAM-AREA                       |          THIS IS NOT A NAME  PRIME THE 
    _____ REC-LEN                         | +00681.                                
   ---------+--------------------------------------------------------------------- 
    _ 000902         GO TO SEND-REWRITE-RETURN.                                    
    _ 000903 NUP-READ.                                                             
    _ 000904     PERFORM SET-UP-READ.                                              
      000905*EXEC CICS READ DATASET(TASK-PROTCPF) INTO(VSAM-AREA) EQUAL            
      000906*     LENGTH(REC-LEN) RIDFLD(REC-RBA) UPDATE                           
      000907*     END-EXEC.                                                        
    _ 000908     Call 'DFHEI1' using by content x'0602f0000700008400f0f0f5f1f9     
    _ 000909-    '404040' by reference TASK-PROTCPF by reference VSAM-AREA by      
    _ 000910     reference REC-LEN by reference REC-RBA end-call.                  
    _ 000911 VSAM-REWRITE.                                                         
    _ 000912     MOVE 'THIS IS NOT A NAME  ' TO VSAM-NAME.                         
      000913*EXEC CICS REWRITE                                                     
      000914*     DATASET(TASK-PROTCPF)                                            
      000915*     FROM(VSAM-AREA)                                                  
      000916*     LENGTH(REC-LEN)                                                               
   

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

   Note: If you do not have the AutoKeep Display facility running, to view the contents of DATASET(TASK-PROTCPF), you can enter Search=TASK-PROTCPF to position the listing where it is defined, and add it to the Keep window (type k next to the line defining TASK-PROTCPF, position the cursor in the field name, and press Enter).

   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.