Rational Developer for System z
Enterprise COBOL for z/OS バージョン 4.1 コンパイラーおよびランタイム 移行ガイド


異常終了出口 (CICS)

図 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

ご利用条件 | フィードバック

このインフォメーション・センターでは Eclipse テクノロジーが採用されています。(http://www.eclipse.org)