Jobs to generate and modify CEEEXTAN CSECT

You can use three source files to generate CEEEXTAN CSECT, one for CICS®, one for non-CICS, and one for AMODE 64 applications. The following source files are provided in the SCEESAMP data set:

CEECXTAN: Source to generate CEEEXTAN CSECT for CICS
CEEEXTAN: Source to generate CEEEXTAN CSECT for non-CICS
CELQXTAN: Source to generate CEEEXTAN CSECT for AMODE 64

You can use the following two jobs to replace CEEEXTAN CSECT:

CEEWCEXT: Replaces CEEEXTAN CSECT for CICS
CEEWDEXT: Replaces CEEEXTAN CSECT for non-CICS
CEEWQEXT: Replaces CEEEXTAN CSECT for AMODE 64

Figure 1 contains the source for the IBM-supplied CEEEXTAN:

Figure 1. Default CEEEXTAN

         TITLE 'LE/370 Abnormal Termination User exit CSECT'
         CEEXAHD        ,User exit header
*
*********************************************************************
* To specify an abnormal termination exit, change the line
* where CEEXART is specified:
*  - change the XXXXXXXX to the name of the abnormal termination exit
*  - change the '*' in column 1 to a blank
*********************************************************************
*        CEEXART  TERMXIT=XXXXXXXX
*
         CEEXAST        ,Terminate the list

If you want to add your own abnormal termination exit called WHODIDIT, then the code should look like the following example:

Figure 2. Updated CEEEXTAN

         TITLE 'LE/370 Abnormal Termination User exit CSECT'
         CEEXAHD        ,User exit header
*
*********************************************************************
* To specify an abnormal termination exit, change the line
* where CEEXART is specified:
*  - change the XXXXXXXX to the name of the abnormal termination exit
*  - change the '*' in column 1 to a blank
*********************************************************************
         CEEXART  TERMXIT=WHODIDIT
*
         CEEXAST        ,Terminate the list