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