CA InterTest for CICS provides the information you need to diagnose and correct errors. When CA InterTest for CICS detects an error, it halts the program before the error occurs. This temporary halt in program execution is called an automatic breakpoint. CA InterTest for CICS then displays a screen of diagnostic information indicating the statement or instruction triggering the breakpoint, and CA InterTest for CICS explains why the error occurred. Lets see what a display looks like when an error is detected.
The breakpoint display explains why CA InterTest for CICS halted the program. In the following case, CA InterTest for CICS prevented an ASRA abend caused by an invalid data format. The program instruction that triggered the breakpoint is highlighted. Now you can use all of the CA InterTest for CICS facilities to find and correct the error without analyzing a dump.
CA InterTest for CICS r8.5 ‑ PROTDMO FILE SOURCE LISTING BREAKPOINT COMMAND ===> Program= COB2DEMO Option # Stmt # Margin= 01 Search= ‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑ _ TASKNUM | 000000 ‑‑‑‑‑‑‑‑‑+‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑ | COUNTER |‑‑ _ 00932 CONTINUE‑TASK. | 0000000 | 00933**** TASKNUM *NOTE* FIELD MUST BE INITIALIZED | | A ==> ADD +1 TO TASKNUM. | 0000000 | ==> ==> ASRA ABEND (0C7) detected and prevented. Caused by invalid decimal ==> arithmetic data format. ==> ==> Press PF1 for a detailed description. ==> _ 00935 IF TASKNUM = 1 | 0000000 | _ 00936 MOVE 'DMAPASR' TO MAPNAME. | 0000000 | _ 00937 IF TASKNUM = 2 | 0000000 | _ 00938 MOVE 'DMAPSUM' TO MAPNAME. | 0000000 | _ 00939 IF TASKNUM GREATER 2 | 0000000 | _ 00940 GO TO SEND‑END‑MSG. | 0000000 | _ 00941 GO TO REWRITE‑TSQ. | 0000000 | _ 00942 REWRITE‑TSQ. | 0000000 |
|
Copyright © 2012 CA.
All rights reserved.
|
|