MACRO                                                          02000000
&NAME    IKJEGSPL &RTRY=,&ABNTB=,&MODNM=,&TNM=*                         04000000
.********************************************************************** 06000000
.*                                                                    * 08000000
.*  IKJEGSPL IS USED TO GENERATE A LIST OF INFORMATION TO BE USED BY  * 10000000
.*  THE ESTAE EXIT ROUTINE IN AN ABEND SITUATION.  THIS LIST WILL     * 12000000
.*  CONTAIN THE FOLLOWING INFORMATION:                                * 14000000
.*       RETRY ROUTINE ADDRESS;                                       * 16000000
.*       ABEND IC TABLE ADDRESS;                                      * 18000000
.*       MODULE ENTRY POINT;                                          * 20000000
.*       MODULE NAME;                                                 * 22000000
.*       MODULE TEXT NAME.                                            * 24000000
.*                                                                    * 26000000
*   STATUS -- VERSION NO. 1 - OS/VS2 RELEASE NO. 02                   * 28000000
*   CHANGE LEVEL -- 01 - DATE 1-1-73                                  * 30000000
.*                                                                    * 32000000
.********************************************************************** 34000000
         SPACE 1                                                        36000000
         LCLA  &LENTNM                                                  38000000
         LCLC  &A1                                                      40000000
&LENTNM  SETA  K'&TNM                                                   42000000
&A1      SETC  '*'                                                      44000000
         AIF   (T'&RTRY EQ 'O').MSG1                                    46000000
         AIF   (T'&ABNTB EQ 'O').MSG2                                   48000000
         AIF   (T'&MODNM EQ 'O').MSG3                                   50000000
         AIF   (T'&MODNM NE 'J').MSG3                                   52000000
&NAME    DS    0F                 EXIT ROUTINE PARAM LIST               54000000
         DC    A(&RTRY)           RETRY ROUTINE ADDRESS                 56000000
         DC    A(&ABNTB)          ABEND IC TABLE ADDRESS                58000000
         DC    A(&MODNM)          ENTRY POINT FOR THIS MODULE           60000000
         DC    CL8'&MODNM'        MODULE NAME                           62000000
         DS    0X   **THE FOLLOWING IS AN INSERT FOR THE EXIT RTN MSG** 64000000
         DC    AL2(&LENTNM+5)     LENGTH OF MODULE TEXT NAME + 5        66000000
         DC    AL2(0)             THIS FIELD IS REQUIRED BY I/O         68000000
         DC    C'&TNM '      MODULE TEXT NAME                           70000000
         MEXIT                                                          72000000
.MSG1    MNOTE 12,'SET ***RTRY&A1 EQUAL TO YOUR RETRY RTN  ADDR'        74000000
         MEXIT                                                          76000000
.MSG2    MNOTE 12,'SET ***ABNTB&A1 EQUAL TO YOUR ABEND TABLE ADDR'      78000000
         MEXIT                                                          80000000
.MSG3    MNOTE 12,'SET ***MODNM&A1 EQUAL TO YOUR MODULE CSECT NAME'     82000000
.END     MEND                                                           84000000