Set the No File Updating Option

Advanced Demo Session › Option 03: Prevent a Program from Updating a File › Set the No File Updating Option

Set the No File Updating Option

To set the No File Updating Option, do the following:

Type the SO option in the command field
Press Enter.
The Special Options menu appears.
Tab to the NUP field.

Type an x, and press Enter.

CA InterTest MONITORING COMMAND BUILDER ‑ SPECIAL OPTIONS 22 SET one or more options to override the default monitoring rules in: PROG=ASMDEMO Enter X next to each option desired: Source Listing Breakpoint (SLB) _ No file updating (NUP) x Reentrancy check (RNT) _ Follow monitoring (ON, name, NOPPT) (FOL) ________ Number of times to be monitored (MUS) _____ Limit total size of CICS storage (MXS) _______ Limit total number of CICS requests (MXR) _______ Set local automatic breakpoint ('*', TERMID, .ANY, OFF) ____ Limit monitoring to your TERMINAL ‑ '*' or TERMID: ____ User ID (or .ANY) who will execute the program: .ANY PF1 Help 2 3 End 4 Return 5 6 PF7 8 9 10 11 12

CA InterTest for CICS sets this option for the demo program.

Press PF4 until you return to the Source Listing Breakpoint screen.

Before resuming program execution, look at the MVC instruction immediately before the EXEC CICS REWRITE command where ASMDEMO halts.

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)

The MVC instruction specifies that the data string THIS IS NOT A NAME be moved to the data field NUPNME. If ASMDEMO updates the file, that data string will appear in the record.

Press PF5 to continue program execution.
ASMDEMO resumes execution.