An example of the next screen follows. CA InterTest for CICS halted ASMDEMO at an automatic breakpoint (note the A) before an AEIL abend could occur. The abend would have resulted from the EXEC CICS STARTBR command. CA InterTest for CICS highlighted the MVC instruction, the first instruction after the EXEC CICS STARTBR command.
Note: If the screen you see does not match the following example, then someone else is probably trying to perform this part of the demo session. In this case, press Enter to continue with the demo session or Clear to end the session. You can return to the Replace File Control ID option later.
CA InterTest for CICS Release 9.1.00 - PROTSYM FILE ABEND DETECTED BREAKPOINT COMMAND ===> Program= ASMDEMO Option # Stmt # Displacement= Margin= 28 Search= ------------------------------------------------------------------------------- 00068 )),(______RF,RECKEY) A 00201E ==> MVC UNPCK,=CL4' ' ==> ==> CICS abend intercepted. Abend code = AEIL. EXEC CICS request was ==> STARTBR. Now stopped AFTER the CALL. ==> ==> Press PF1 for a detailed description. ==> 2707 * EXEC CICS READNEXT SET(R6) RIDFLD(RECKEY) 2708 * LENGTH(RECLEN) DATASET('PROTH') 2709 DFHECALL =X'060EF400080100B000',(CHA8,=CL8'PROTH'),(P 00068 6),(FB_2__RF,RECLEN),(______RF,RECKEY),,(FB_2,=A( _ 00205C 2729 MOVEREC DS _ 00205C 2730 LH R14,RECLEN _ 002060 2731 CVD R14,CVDAREA _ 002064 2732 UNPK UNPCK,CVDAREA+4(4)
Page backward to see the data set name in the EXEC CICS STARTBR command.
The following screen appears.
CA InterTest for CICS Release 9.1.00 - PROTSYM FILE ABEND DETECTED BREAKPOINT COMMAND ===> Program= ASMDEMO Option # Stmt # Displacement= Margin= 28 Search= ----------+-------------------------------------------------------------------- Loc Object Code Addr1 Addr2 Stmt Source Statement 2638 DFHECALL =X'0606E0000800004000',(CHA8,CKPTNAME),(____ 00068 REA),(FB_2,RECLEN) _ 001FA4 2653 NUPDTE DS 0H 2654 * EXEC CICS START TRANSID(CNTLTRAN) 2655 * FROM(NUPOFF) LENGTH(NUPOLEN) REQID(=X'9999') 2656 DFHECALL =X'1008F8000800005400',(___4,=PL4'0'),(CHA8, 00068 ,(CHA4,CNTLTRAN),(______RF,NUPOFF),(FB_2,NUPOLEN) U 001FD2 2672 B SENDMP00 _ 001FD6 2674 READATA DS 0H 2675 * EXEC CICS HANDLE CONDITION 2676 * DSIDERR 2677 * NOTOPEN (NOPEN) 2678 DFHECALL =X'0204800008130C000000000000000000000000000 00068 ,NOPEN) _ 001FF0 2689 MVC RECKEY,=CL10'0000000000' 2690 * EXEC CICS STARTBR RIDFLD(RECKEY) DATASET('PROTH') 2691 DFHECALL =X'060CB000080020A000',(CHA8,=CL8'PROTH'),,( 00068 )),(______RF,RECKEY)
The abend occurred because the data set name PROTH is wrong. The correct name is PROTHLF.
|
Copyright © 2014 CA Technologies.
All rights reserved.
|
|