Use FILE to Inspect the Record

PL/I 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 now halts the demo program at an unconditional breakpoint that you set in the Demo Preliminaries section.

CA InterTest for CICS Release 9.1.00 - PROTSYM FILE UNCOND BEFORE BREAKPOINT COMMAND ===> Program= PLIDEMO Option # Stmt # Margin= 01 Search= ------------------------------------------------------------------------------- _____ CKPTNAME | PROTCPF _____ NUP_AREA | THIS IS NOT A NAME PRIME THE _____ REC_LEN | +00681. ---------+--------------------------------------------------------------------- _ 1305.1 00 03 00 00 50 00 F0 F4 F1 F1 F0 F0 F0 F0 'X */,DFHEID0 _ 1306.1 NTLTRAN,NUPOFFCM,NUPONLEN); U ==>.1 1 1 END; _ 1308.1 1 GOTO SENDMP00; _ 1309.1 _ 1310.1 1 READATA: _ 1311.1 /* EXEC CICS HANDLE CONDITION DSIDERR _ 1312.1 ERROR (GENERR) _ 1313.1 NOTOPEN (NOPEN) * _ 1314.1 DO; . . .

You set the breakpoint at the paragraph immediately following the REWRITE command so you could use the CA InterTest for CICS FILE facility to confirm that the demo program did not, in fact, update the file.

Press PF6.
The Breakpoint Primary Option Menu appears.
Select option 1 Main Menu.
The Primary Option Menu appears.
Select 4 Auxiliary storage.
The Auxiliary Storage Menu appears.

Type a 1 in the Option field and protcpf for the file name.

‑‑‑‑‑‑‑‑‑‑‑‑‑ 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): (Valid mask characters are * and/or +) protcpf_ ________ ________ ________ ________ ________ ________ ________ . . .

Press Enter.
The File Selection menu appears.

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

The initial File Facility screen appears.

DATATYPE= FC FILEID= PROTCPF MODE= LOG=ON 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 a browse of the file.

CA InterTest for CICS displays the first record in the PROTCPF file.

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

Note: Your version of this screen might differ slightly.

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 has not been moved to the beginning of this record.

Note: Setting the No File Updating option prevented the demo program from updating this file, without affecting the demo program's source code.

Before returning to the demo program, we will discuss some of FILE's capabilities.