Question & Answer
Question
Can you take a look at a dump and tell me why the AICA abend is not being recorded in the CICS transaction dump table? Also there is no audit trail of the abend, the CICS system recovery module got involved and I am not sure why the abend is not being picked up.
Answer
From the snap dump, when I use IPCS command VERBX DFHPD690 'KE=1' (where "710" is for CICS TS 5.4), I see the following in Kernel Error Table for the task getting the abendAICA:
ERR_NUM ERR_TIME KE_NUM ERROR TYPE ERR_CODE MODULE OFFSET
======= ======== ====== ========== ======== ====== ======
00000007 16:45:52 003B ABEND ---/0999 DFHKETIX 00000B24
00000008 16:45:52 003B TRAN_ABEND_ ---/AICA DFHSR1 000006EC
There is no dump because the program handles the abend with the EXEC CICS HANDLE ABEND LABEL command. But, the program got into a loop causing the abend AICA. Since the program asked to be given control on an abend, CICS gives control to the label specified on the EXEC CICS HANDLE ABEND LABEL command. Then, the program chooses to continue without abending.
You could add some code to the ERROR-PROC to check for an AICA abend. For example, in a COBOL program you could include the following code:
EXEC CICS HANDLE ABEND
LABEL(ERROR-PROC)
END-EXEC.
ERROR-PROC.
EXEC CICS ASSIGN ABCODE(WS-ABCODE)
END-EXEC.
IF WS-ABCODE = 'AICA'
EXEC CICS ABEND ABCODE('AICA') CANCEL
END-EXEC
END-IF.
In working storage you would define WS-ABCODE as PIC XXXX
Product Synonym
CICS/TS CICSTS CICS TS CICS Transaction Server
Was this topic helpful?
Document Information
Modified date:
27 September 2018
UID
dwa1441428