Rational Developer for System z
Enterprise COBOL for z/OS, Version 4.1, Compiler and Runtime Migration Guide


Abnormal termination exit (CICS)

Figure 1. CICS abnormal termination exit sample
*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

Terms of use | Feedback

This information center is powered by Eclipse technology. (http://www.eclipse.org)