IMS および言語環境プログラム

CEEEXTAN LE 異常終了出口 (IDIXCEE) がインストールされていない場合は、Fault Analyzer を IMS™ 異常終了時に起動させるために、TERMTHDACT(UATRACE)、TERMTHDACT(UADUMP)、TERMTHDACT(UAONLY)、または TERMTHDACT(UAIMM) のいずれかを LE に渡す必要があります。

実行されるロード・モジュールに CEEUOPT CSECT をリンクすることにより、LE オプションを渡す方法を示す COBOL/IMS の例は、次のとおりです。

//IMSLE1 JOB ...
//*
//*        STEP  1: ASSEMBLE CEEUOPT CSECT
//*
//HLASM    EXEC PGM=ASMA90,PARM='LINECOUNT(0)'
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DISP=(,PASS),UNIT=SYSALLDA,SPACE=(TRK,(1,5))
//SYSLIN   DD DISP=(,PASS),UNIT=SYSALLDA,SPACE=(TRK,(1,5,1)),DSN=&TEMP(CEEUOPT)
//SYSLIB   DD DSN=CEE.SCEEMAC,DISP=SHR
//         DD DSN=SYS1.MACLIB,DISP=SHR
//SYSIN    DD *
         TITLE 'CEEUOPT'
CEEUOPT  CSECT
CEEUOPT  AMODE ANY
CEEUOPT  RMODE ANY
         CEEXOPT TERMTHDACT=(UADUMP)
         END
//*
//*        STEP  2: COMPILE COBOL PROGRAM
//*
//COBCOMP  EXEC IMSCOBOL
//COB.SYSIN    DD DSN=DA.IMSSAMP.COBOL(BATCHJ2),DISP=SHR
//COB.SYSPRINT DD DSN=DA.LISTING.COBOL(BATCHJ2),DISP=SHR
//LKED.FRED    DD DSN=*.HLASM.SYSLIN,DISP=OLD
//LKED.SYSIN   DD *
  Include FRED(CEEUOPT)
  NAME    BATCHJ2(R)
/*
//*
//*        STEP  3: RUN THE PROGRAM
//*
//PROGRUN  EXEC PROC=DLIBATCH,MBR=BATCHJ2,PSB=PSB1,COND=(4,LT),
//         DBRC=Y,MON=Y,FMTO=D,TIME=5
//            UNIT=3390,
//            DCB=BLKSIZE=6144
//SYSPRINT DD SYSOUT=*
//DFSIVD1  DD DISP=SHR,DSN=IMS.DFSIVD1
//DFSIVD1I DD DISP=SHR,DSN=IMS.DFSIVD1I
//DFSCTL   DD DISP=SHR,
//            DSN=IMS.PROCLIB(DFSSBPRM)
//IDIREPRT DD SYSOUT=*
//SYSTSIN  DD *
//*