MACRO                                                          00001000
 IKQEXLST &DSECT=YES                                                    00002000
         PUSH  PRINT                                                    00002100
         AIF   ('&SYSPARM' NE 'SUP').ACC01                              00002200
         PRINT OFF,NOGEN                                                00002300
.ACC01   ANOP                                                           00002400
* VSAM - IKQEXLST - 5745-SC-VSM - REL. 31.0  INTERNAL VERSION 2.26      00003000
         AIF   ('&DSECT' EQ 'NO').EXLNODS                               00004000
IKQEXLST DSECT                          EXLST EXIT LIST BLOCK           00005000
         AGO   .EXLDSCT                                                 00006000
.EXLNODS ANOP                                                           00007000
IKQEXLST DS    0F                       EXLST EXIT LIST BLOCK           00008000
.EXLDSCT ANOP                                                           00009000
*                       FORMAT OF EXLST ENTRY                         * 00010000
EXENFL   DS    XL1                      FLAGBYTE                        00011000
EXENADDR DS    AL4                      EXIT ADDRESS                    00012000
*                                                                     * 00013000
         ORG  *-5                       REPOSITION ON BEGIN LIST        00014000
EXLSTST  EQU   *                        START EXLST 20.04.74            00015000
EXLID    DS    XL1                      EXLST IDENTIFIER '81'           00016000
EXLIDD   EQU   X'81'                    EXLST ID EQUATE                 00017000
EXLSTYP  DS    XL1                      SUBTYPE FIELD                   00018000
EXLLEN   DS    H                        LENGTH OF LIST                  00019000
EXLACT   DS    XL1                      ACTIVE TEST & SET BYTE          00020000
EXLEOD   DS    0CL5                     EODAD ENTRY                     00021000
EXLEODF  DS    XL1                      ENTRY DESCRIPTION BITS          00022000
EXLEODP  DS    AL4                      EODAD POINTER                   00023000
EXLSYN   DS    0CL5                     SYNAD ENTRY                     00024000
EXLSYNF  DS    XL1                      ENTRY DESCRIPTION BITS          00025000
EXLSYNP  DS    AL4                      SYNAD POINTER                   00026000
EXLLER   DS    0CL5                     LERAD ENTRY                     00027000
EXLLERF  DS    XL1                      ENTRY DESCRIPTION BITS          00028000
EXLLERP  DS    AL4                      LERAD POINTER                   00029000
EXLIOEX  DS    0CL5                     EXCPAD ENTRY                    00030000
EXLIOEXF DS    XL1                      ENTRY DESCRIPTION BITS          00031000
EXLIOEXP DS    AL4                      EXCPAD POINTER                  00032000
EXLJRN   DS    0CL5                     JRNAD ENTRY                     00033000
EXLJRNF  DS    XL1                      ENTRY DESCRIPTION BITS          00034000
EXLJRNP  DS    AL4                      JRNAD POINTER                   00035000
*              BITS USED IN INDIVIDUAL EXIT FLAGS                     * 00036000
EXENEXB  EQU   X'80'                    ENTRY PRESENT BIT               00037000
EXENACTB EQU   X'40'                    ENTRY ACTIVE BIT                00038000
EXENLEB  EQU   X'20'                    LOAD BIT                        00039000
*              MIN LENGTH EXLST FOR SPECIFIED ENTRY                   * 00040000
EXLEODL  EQU   10                       MIN LENGTH IF EODAD             00041000
EXLSYNL  EQU   15                       MIN LENGTH IF SYNAD             00042000
EXLLERL  EQU   20                       MIN LENGTH IF LERAD             00043000
EXLIOEXL EQU   25                       MIN LENGTH IF EXCPAD            00044000
EXLJRNL  EQU   30                       MIN LENGTH IF JRNAD             00045000
*                   MIN AND MAX SIZE OF EXLST                         * 00046000
EXLMINL  EQU   10                       MIN LENGTH EXIST LIST           00047000
EXLMAXL  EQU   30                       MAX LENGTH EXIST LIST           00048000
*                                                                     * 00049000
EXLSTEND DS    0F                       END OF EXLST                    00050000
*                            END OF VSAM EXLST                        * 00051000
         POP   PRINT                                                    00051100
         MEND                                                           00052000