Advanced Demo Session › Option 03: Prevent a Program from Updating a File › Halt ASMDEMO at a Request Breakpoint

Halt ASMDEMO at a Request Breakpoint

CA InterTest for CICS halted ASMDEMO prior to the first File Control REWRITE command as you specified during startup. The highlighted instruction is part of the generated EXEC CICS REWRITE command.

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

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. Page backward to look at the EXEC CICS REWRITE command.
2. Press PF7.

   The following screen appears.

   CA InterTest for CICS Release 9.1.00   - PROTSYM FILE  SOURCE LISTING BREAKPOINT         
   COMMAND ===>                                                                    
   Program= ASMDEMO  Option #       Stmt #        Displacement=        Margin= 28  
                                          Search=                                 
   ----------+-------------------------------------------------------------------- 
        Loc  Object Code    Addr1 Addr2  Stmt        Source Statement              
    _ 001F14  2594          MVC   FT,EIBTRMID                                      
              2595 *        EXEC CICS START TRANSID(CNTLTRAN)                      
              2596 *              FROM(NUPON) LENGTH(NUPONLEN) REQID(=X'9999')     
              2597          DFHECALL =X'1008F8000800005400',(___4,=PL4'0'),(CHA8,  
       00068                      ,(CHA4,CNTLTRAN),(______RF,NUPON),(FB_2,NUPONLEN)
    _ 001F48  2614 NUPREAD  DS    0H                                               
    _ 001F48  2615          MVC   RECLEN,=X'2A9'                                   
              2616 *        EXEC CICS READ DATASET(CKPTNAME)                       
              2617 *              INTO(NUPAREA) LENGTH(RECLEN)                     
              2618 *              RIDFLD(NUPKEY) UPDATE                            
              2619          DFHECALL =X'0602F0000800008400',(CHA8,CKPTNAME),(____  
       00068                      REA),(FB_2__RF,RECLEN),(______RF,NUPKEY)         
    _ 001F78  2635 NUPWRITE DS    0H                                               
    _ 001F78  2636          MVC   NUPNME,=CL18'THIS IS NOT A NAME'                 
              2637 *        EXEC CICS REWRITE DATASET(CKPTNAME) FROM(NUPAREA)      
              2638 *              LENGTH(RECLEN)                                   
              2639          DFHECALL =X'0606E0000800004000',(CHA8,CKPTNAME),(____  
       00068                      REA),(FB_2,RECLEN)
   

   According to the EXEC CICS REWRITE command, ASMDEMO will update the file PROTCPF (contained in the CKPTNAME field as specified in the DATASET parameter of the EXEC CICS REWRITE command).

   In this case, you want to set the No File Updating option to prevent ASMDEMO from updating PROTCPF. Do this by accessing the Special Options menu.