Use FILE to Inspect the Record

Advanced Demo Session › Option 03: Prevent a Program from Updating a File › Use FILE to Inspect the Record

Use FILE to Inspect the Record

CA InterTest for CICS halts ASMDEMO at an unconditional breakpoint that you specified in the Startup section, and displays the following screen.

CA InterTest for CICS Release 9.1.00   - PROTSYM FILE  UNCOND  BEFORE BREAKPOINT         
COMMAND ===>                                                                    
Program= ASMDEMO  Option #       Stmt #        Displacement=        Margin= 28  
                                        Search=                                 
------------------------------------------------------------------------------- 
    00068                      ,(CHA4,CNTLTRAN),(______RF,NUPOFF),(FB_2,NUPOLEN)
                                                                                
     Loc  Object Code    Addr1 Addr2  Stmt        Source Statement              
 U 001FD2   ==>          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)                             
 _ 00201E  2707          MVC   UNPCK,=CL4'    '                                 
           2708 *        EXEC CICS READNEXT SET(R6) RIDFLD(RECKEY)              
           2709 *              LENGTH(RECLEN) DATASET('PROTH')                  
           2710          DFHECALL =X'060EF400080100B000',(CHA8,=CL8'PROTH'),(P  
    00068                      6),(FB_2__RF,RECLEN),(______RF,RECKEY),,(FB_2,=A(

To demonstrate that CA InterTest for CICS prevented ASMDEMO from updating the file, you halted the program after the REWRITE command was executed. Now use the powerful CA InterTest for CICS FILE facility to determine whether or not ASMDEMO updated the file.

Press PF6 Menu.
The Breakpoint Primary Option Menu appears.
Select option 1 Main Menu.
CA InterTest for CICS displays the Primary Option Menu.

Select 4 Auxiliary storage.

The Auxiliary Storage Menu appears.

‑‑‑‑‑‑‑‑‑‑ CA InterTest for CICS Release 9.1.00 AUXILIARY STORAGE MENU ‑‑‑‑‑‑‑‑‑‑‑‑‑‑ OPTION ===> 1 Select an auxiliary storage type, specifying optional criteria below. 1 Files ‑ Display/select files for access 2 DB2 database ‑ Invoke DB2 SQL interface facility 3 DL/I database ‑ Access DL/I database 4 TD queues ‑ Display/select transient data queues for access 5 TS queues ‑ Display/select temporary storage queues for access Type specific or generic file/queue name(s): protcpf_ ________ ________ ________ ________ ________ ________ ________ . .

Type a 1 in the Option field and protcpf for the file name.
Press Enter.
CA InterTest for CICS displays the File Selection menu.

Type an s next to the file name and press Enter.

The initial File Facility screen appears.

DATATYPE= FC FILEID= PROTCPF MODE= LOG=OFF TODEST= PASSWORD= FUNC= SUBFUNC= RETMETH= ARGTYP= SRCHTYP= MESSAGE= RETNRCID= CHGLEN= RCID= DATA= SIZE= 0000 FORMAT= D 00112233 44556677 8899AABB CCDDEEFF *0123456789ABCDEF* LOC 0000 ........ ........ ........ ........ ................ CA InterTest for CICS Release 9.1.00 Copyright © 2014 CA. All rights reserved. ‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑ 1 Help 2 Format C 3 End 4 BEGB 5 6 DataType DL 7 Page bwd 8 Page fwd 9 Caps Off 10 Top 11 Bottom 12

Press PF4 to begin browsing the file.

The first record in the PROTCPF file is displayed.

Note: Your version of this screen might differ slightly.

DATATYPE= FC FILEID= PROTCPF MODE=BROWSELOG=ON TODEST= PASSWORD= FUNC= NEXT SUBFUNC= RETMETH= ARGTYP= SRCHTYP= MESSAGE= CAIN0601 RECORD OBTAINED FOR VIEWING RETNRCID=404040404040404040 CHGLEN= RCID= DATA= SIZE= 02A9 FORMAT= D 00112233 44556677 8899AABB CCDDEEFF *0123456789ABCDEF* LOC 0000 ........ ........ ........ ........ ................ 0000 40404040 40404040 4040405C 5C5C4040 *** DSORG=VSKS 0010 404040D9 C5C3D6D9 C440E3D6 40D7D9C9 RECORD TO PRI RECFM=FB 0020 D4C540E3 C8C540C3 C8C5C3D2 D7D6C9D5 ME THE CHECKPOIN LRECL=02A9 0030 E340C6C9 D3C54040 405C5C5C 5C404040 T FILE **** BLKSIZE=0000 0040 40404040 40404040 F0F3F1F4 F0F0F0F0 03140000 KEYPOS=0000 0050 00000000 00000000 00000000 00000000 ................ KEYLEN=09 0060 00000000 00000000 00000000 00000000 ................ STRNO=02 0070 00000000 00000000 00000000 00000000 ................ 0080 00000000 00000000 00000000 00000000 ................ READ 0090 00000000 00000000 00000000 00000000 ................ ADD 00A0 00000000 00000000 00000000 00000000 ................ UPDATE 00B0 00000000 00000000 00000000 00000000 ................ BROWSE 00C0 00000000 00000000 00000000 00000000 ................ DELETE ‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑ 1 Help 2 Format C 3 End 4 ENDB 5 PREV 6 DataType DL 7 Page bwd 8 Page fwd 9 Caps Off 10 Top 11 Bottom 12

The previous screen displays the contents of the first record in both hexadecimal and character formats. It is clear from looking at the character display that the data string THIS IS NOT A NAME was not moved into this record.

Setting the No File Updating option prevented ASMDEMO from updating this file
Before returning to ASMDEMO, we will discuss the capabilities of FILE