The following screen shows that CA InterTest for CICS halted the demo program at an automatic breakpoint (note the A in column 1) before an AEIL abend could occur.
CA InterTest for CICS r8.5 - PROTSYM FILE ABEND DETECTED BREAKPOINT COMMAND ===> Program= PLIDEMO Option # Stmt # Margin= 01 Search= ---------+--------------------------------------------------------------------- _ 1321.1 1 RECKEY = '0000000000'; _ 1322.1 /* EXEC CICS STARTBR DATASET('PROTH') RIDFLD(RECK A ==>.1 1 DO; ==> ==> CICS abend intercepted. Abend code = AEIL. EXEC CICS request was ==> STARTBR. Now stopped AFTER the CALL. ==> ==> Press PF1 for a detailed description. ==> _ 1324.1 1 1 DCL DFHENTRY_BF6577CC_B2C81A6B BASED(ADDR(DFHEI0) _ 1325.1 ASSEMBLER) ENTRY(*,CHAR(8),*,FIXED BIN(15),*); _ 1326.1 1 1 CALL DFHENTRY_BF6577CC_B2C81A6B(' .^. . ยต.0433000 _ 1327.1 00 03 00 20 A0 00 F0 F4 F3 F3 F0 F0 F0 F1 'X */,'PROTH' _ 1328.1 FHEIB0,RECKEY); _ 1329.1 1 1 END; _ 1330.1 1 REC_LEN = 0; _ 1331.1 /* EXEC CICS READNEXT DATASET('PROTH') _ 1332.1 SET(REC_PTR) _ 1333.1 RIDFLD(RECKEY)
What's the problem?
The data set name PROTH is wrong; it should be PROTHLF.
How can it be fixed?
CA InterTest for CICS lets you dynamically correct the file name and continue testing. The following section explains how.
| Copyright © 2009 CA. All rights reserved. | Email CA about this topic |