図 1. CICS 異常終了出口サンプル*ASM CICS(NOPROLOG NOEPILOG NOEDF SYSEIB)
**********************************************************************
* *
* Do a transaction DUMP whenever an unhandled condition occurs. *
* *
**********************************************************************
SAMPDAT2 CEEENTRY PPA=ASMPPA,MAIN=NO,AUTO=STORLEN
USING DFHEISTG,DFHEIPLR
*************************************************************************
* Ask CICS to produce a transaction dump.
*************************************************************************
EXEC CICS ADDRESS EIB(DFHEIBR)
EXEC CICS DUMP TRANSACTION DUMPCODE('4039') TASK NOHANDLE
**************************************************************************
* To see if the dump was successful, add code here to check field EIBRESP.
**************************************************************************
CEETERM All done, return to Language Environment
ASMPPA CEEPPA
CEEDSA
CEECAA
DFHEISTG Extended save area for CICS
STORLEN EQU *-DFHEISTG
COPY DFHEIBLK
EXTRN DFHEAI
DFHEIPLR EQU 13
DFHEIBR EQU 10
END SAMPDAT2