CA InterTest for CICS now halts the demo program at an unconditional breakpoint you set at procedure name AFTER‑REWRITE in the Demo Preliminaries section.
CA InterTest for CICS V9.1 - PROTSYM FILE UNCOND BEFORE BREAKPOINT COMMAND ===> Program= COBDEMO Option # Stmt # Margin= 01 Search= ------------------------------------------------------------------------------- _____ TASK-TEXT OF TASK-STRUCTURE | .. THIS IS A MESSAGE 12/25/99 ---------+--------------------------------------------------------------------- 000922 U 000923 AFTER-REWRITE. U ==> 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 _ 000931- '0000000000000000f0f0f5f3f5404040' end-call _ 000932 Service label _ 000933 Go to OPENFIL depending on dfheigdi. 000934 _ 000935 OPENFIL. _ 000936 IF TASK-SWITCH3 = 'B' GO TO SEND-MAP00. _ 000937 MOVE 'B' TO TASK-SWITCH3. _ 000938 MOVE 'PROTCPF NOT OPEN' TO ERRORO.
Because a procedure name does not have executable code, the unconditional breakpoint halts execution before the first verb—in this case, the highlighted MOVE command.
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.
CA InterTest for CICS displays the Breakpoint Primary Option Menu.
CA InterTestv displays the Primary Option Menu.
CA InterTest for CICS displays the Auxiliary Storage Menu.
‑‑‑‑‑‑‑‑‑‑‑‑‑ CA InterTest for CICS V9.1 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_ ________ ________ ________ ________ ________ ________ ________ . .
CA InterTest for CICS displays the File Selection menu.
CA InterTest for CICS displays the initial File Facility screen.
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 V9.1 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
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.
|
Copyright © 2014 CA Technologies.
All rights reserved.
|
|