IMS and Language Environment

If the CEEEXTAN LE abnormal termination exit (IDIXCEE) has not been installed, then either TERMTHDACT(UATRACE), TERMTHDACT(UADUMP), TERMTHDACT(UAONLY), or TERMTHDACT(UAIMM) must be passed through to LE in order to have Fault Analyzer invoked for the IMS™ abend.

Below is a COBOL/IMS example that illustrates how LE options can be passed by linking a CEEUOPT CSECT into the load module being executed:

//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 *
//*