*%GOTO EXLST1 ; 00092138 * /* 00092238 MACRO 00092338 IFGEXLST &DSECT=YES,&AM= 00103838 AGO .EXLDESC 00115538 * */ 00127038 .EXLDESC ANOP */ 00210038 * /******************************************************************/ 00260038 * /* */ 00310038 * /* EXIT LIST (EXLST) */ 00360038 * /* */ 00410038 * /* THE EXIT LIST CONTAINS ADDRESSES OF USER EXIT ROUTINES */ 00460038 * /* ASSOCIATED WITH A PARTICULAR VSAM DATA SET OR VTAM */ 00470038 * /* APPLICATION, TOGETHER WITH FLAGS GIVING INFORMATION */ 00472038 * /* ABOUT EACH EXIT ROUTINE. THE INFORMATION IS SUPPLIED */ 00480038 * /* BY THE USER IN THE EXLST MACRO. THE EXIT LIST IS */ 00490038 * /* ACCESSED VIA THE ACBEXLST FIELD IN THE ACB(ACCESS METHOD */ 00492038 * /* CONTROL BLOCK) IN VSAM AND VTAM OR VIA THE NIBEXLST */ 00494038 * /* FIELD IN THE NIB(NODE INFORMATION BLOCK) IN VTAM */ 00494438 * /* FOR A CONNECTION EXIT LIST. */ 00494838 * /* */ 00496038 * /* VTAM EXITS ARE GENERATED ONLY IF AM=VTAM IS CODED IN THE */ 00496438 * /* EXLST MACRO. */ 00496838 * /* */ 00497238 * /* THE LENGTH OF THE EXIT LIST VARIES ACCORDING TO THE */ 00498038 * /* EXITS SPECIFIED. THE FOLLOWING TABLE GIVES ITS MINIMUM */ 00498438 * /* LENGTH WHEN THE CORRESPONDING EXIT IS SPECIFIED AND THE */ 00498838 * /* PURPOSE OF EACH EXIT: */ 00499238 * /* */ 00499638 * /* EODAD 10 BYTES FOR SPECIAL PROCESSING WHEN */ 00499738 * /* THE END OF A DATA SET IS */ 00499838 * /* REACH BY SEQUENTIAL ACCESS */ 00499938 * /* SYNAD 15 BYTES FOR ANALYZING PHYSICAL ERRORS */ 00526638 * /* LERAD 20 BYTES FOR ANALYZING LOGICAL ERRORS */ 00528638 */* UPAD(VSAM) 25 BYTES FOR SYNCHRONOUS PROCESSING -- */ 00528738 */* THIS FIELD OVERLAYS SCIP */ 00529040 * /* SCIP(VTAM) 25 BYTES FOR PROCESSING WHEN SESSION */ 00529140 * /* CONTROL INPUT IS RECEIVED */ 00529438 * /* LOGON(VTAM) 30 BYTES FOR PROCESSING USER LOGON */ 00530638 * /* REQUESTS TO AN APPLICATION */ 00531038 * /* JRNAD(VSAM) 35 BYTES FOR JOURNALLING AS DATA */ 00532638 * /* RECORDS ARE PROCESSED */ 00533038 * /* DFASY(VTAM) 35 BYTES FOR PROCESSING WHEN DATA FLOW */ 00535038 * /* ASYNCHRONOUS INPUT IS RECEIVED */ 00535438 * /* OPENAD 40 BYTES FOR SPECIAL PROCESSING WHEN */ 00536638 * /* THE ACB IS BEING OPENED */ 00541638 * /* RESP(VTAM) 40 BYTES FOR PROCESSING WHEN A RESPONSE */ 00541738 * /* IS RECEIVED */ 00541838 * /* LOSTERM(VTAM) 45 BYTES FOR SPECIAL PROCESSING WHEN */ 00542038 * /* A TERMINAL IS LOST BY AN */ 00545638 * /* APPLICATION */ 00549238 * /* RELREQ(VTAM) 50 BYTES FOR SPECIAL PROCESSING WHEN */ 00552838 * /* A TERMINAL HELD BY AN APPLICA- */ 00556438 * /* TION IS REQUIRED BY ANOTHER */ 00560038 * /* APPLICATION */ 00563638 * /* ATTN(VTAM) 60 BYTES FOR HANDLING AN UNSOLICITED */ 00578038 * /* ATTENTION INTERRUPT COMING */ 00581638 * /* FROM A TERMINAL HELD BY AN */ 00585238 * /* APPLICATION */ 00588838 * /* TPEND(VTAM) 65 BYTES FOR SPECIAL PROCESSING BY AN */ 00592438 * /* APPLICATION WHEN VTAM IS */ 00596038 * /* CLOSING DOWN */ 00599638 * /* NSEXIT(VTAM) 70 BYTES FOR SPECIAL PROCESSING BY AN */ 00603640 * /* APPLICATION WHEN VTAM IS */ 00607640 * /* CLOSING DOWN G40AKCM */ 00611640 * /* */ 00617638 * /* */ 00618240 * /* CHANGE LEVEL = 10 @ZA34940*/ 00618340 * /* */ 00618440 * /* DATE OF LAST CHANGE = 13 NOV 78 ( 78*314 ) @ZA34940*/ 00618540 * /* */ 00618940 * /* CHANGE ACTIVITY */ 00619038 * /* C25460,26140,28500,29500 @XM07756 */ 00620038 * /* D25760,26220,28569,31021 @XM07756 */ 00621038 * /* CBMM SPLIT SUPPORT @ZA34940*/ 00661040 * /******************************************************************/ 00710038 * /* 00720038 AGO .EXLBAL */ 00730038 * /* */ 00740038 * /* EXLST DIAGRAM */ 00750038 * /* */ 00760038 * /* 1 BYTE 1 BYTE 2 BYTES 1 BYTE */ 00770038 * /* ____________________________________________________________ */ 00780038 * /* | | | | | */ 00790038 * /* | EXLID | EXLSTYP | EXLLEN | * | */ 00792038 * /* |_____________|____________|_____________________|___________| */ 00800038 * /* | | | */ 00860038 * /* | EXLEODF | EXLEODP | */ 00900038 * /* |_____________|______________________________________________| */ 00950038 * /* | | | */ 01000038 * /* | EXLSYNF | EXLSYNP | */ 01050038 * /* |_____________|______________________________________________| */ 01100038 * /* | | | */ 01150038 * /* | EXLLERF | EXLLERP | */ 01200038 * /* |_____________|______________________________________________| */ 01250038 * /* | EXLUPADF | EXLUPADP | */ 01300040 * /* | EXLSCIPF | EXLSCIPP | */ 01350038 * /* |_____________|______________________________________________| */ 01400038 * /* | | | */ 01450038 * /* | EXLLGNF | EXLLGNP | */ 01500038 * /* |_____________|______________________________________________| */ 01550038 * /* | EXLJRNF/ | EXLJRNP/ | */ 01600038 * /* | EXLDFASF | EXLDFASP | */ 01650038 * /* |_____________|______________________________________________| */ 01700038 * /* | EXLOPNF/ | EXLOPNP/ | */ 01702038 * /* | EXLRESPF | EXLRESPP | */ 01704038 * /* |_____________|______________________________________________| */ 01706038 * /* | | | */ 01708038 * /* | EXLNLGNF | EXLNLGNP | */ 01708438 * /* |_____________|______________________________________________| */ 01708838 * /* | | | */ 01709238 * /* | EXLRLRQF | EXLRLRQP | */ 01709638 * /* |_____________|______________________________________________| */ 01709738 * /* | | | */ 01709838 * /* | * | * | */ 01709938 * /* |_____________|______________________________________________| */ 01723238 * /* | | | */ 01733238 * /* | EXLATTNF | EXLATTNP | */ 01735238 * /* |_____________|______________________________________________| */ 01735638 * /* | | | */ 01736038 * /* | EXLTPNDF | EXLTPNDP | */ 01736438 * /* |_____________|______________________________________________| */ 01736538 * /* | | | */ 01738540 * /* | EXLTNSEF | EXLTNSEP | */ 01740540 * /* |_____________|______________________________________________| */ 01742540 * /* ___________________________ 5 BYTES ________________________ */ 01745638 * /* */ 01750038 * /* EXLST DECLARATION */ 01800021 * /* */ 01850038 *%EXLST1: ; 01900021 * DCL 1 IFGEXLST BASED , /* LEVEL ONE DECLARE */ 01950038 * 2 EXLCOMN, /* EXLST COMMON SECTION 01960038 * X03004*/ 01970038 * 4 EXLID PTR(8), /* EXLST IDENTIFIER '81'*/ 02000038 * 4 EXLSTYP PTR(8), /* EXLST SUBTYPE */ 02050038 * % EXLSVSAM = '''10''X'; /* VSAM SUBTYPE @X04SVHS*/ 02060038 * % EXLSVRP = '''11''X'; /* VRP SUBTYPE @X04SVHS*/ 02070038 * % EXLSVTAM = '''20''X'; /* VTAM SUBTYPE @X04SVHS*/ 02080038 * 4 EXLLEN FIXED(15), /* LENGTH OF LIST */ 02100038 * 5 EXLLEN2 FIXED(15), /* LENGTH OF LISTX03004 */ 02110038 * 4 * BIT(8), /* RESERVED FLAGS */ 02150038 * 4 EXLEODF BIT(8), /* EODAD ENTRY 02200038 * DESCRIPTION */ 02202038 * 5 EXLEODS BIT(1), /* EXIT SPECIFIED */ 02210038 * 5 EXLEODA BIT(1), /* EXIT ACTIVE */ 02220038 * 5 EXLEODK BIT(1), /* ENTRY ADDRESS POINTS 02230038 * TO EXIT ROUTINE NAME */ 02232038 * 5 * BIT(5), /* RESERVED */ 02240038 * 4 EXLEODP PTR(31) BDY(BYTE), /* POINTER TO EODAD 02250038 * EXIT */ 02260038 * 4 EXLSYNF BIT(8), /* SYNAD ENTRY 02300038 * DESCRIPTION */ 02302038 * 5 EXLSYNS BIT(1), /* EXIT SPECIFIED */ 02310038 * 5 EXLSYNA BIT(1), /* EXIT ACTIVE */ 02320038 * 5 EXLSYNK BIT(1), /* ENTRY ADDRESS POINTS 02330038 * TO EXIT ROUTINE NAME */ 02332038 * 5 * BIT(5), /* RESERVED */ 02340038 * 4 EXLSYNP PTR(31) BDY(BYTE), /* POINTER TO 02350038 * SYNAD EXIT */ 02360038 * 4 EXLLERF BIT(8), /* LERAD ENTRY 02400038 * DESCRIPTION */ 02402038 * 5 EXLLERS BIT(1), /* EXIT SPECIFIED */ 02410038 * 5 EXLLERA BIT(1), /* EXIT ACTIVE */ 02420038 * 5 EXLLERK BIT(1), /* ENTRY ADDRESS POINTS 02432038 * TO EXIT ROUTINE NAME */ 02434038 * 5 * BIT(5), /* RESERVED */ 02440038 * 4 EXLLERP PTR(31) BDY(BYTE), /* POINTER TO LERAD 02450038 * EXIT */ 02460038 * 4 EXLSCIPF BIT(8), /* SCIP ENTRY */ 02470040 * 5 EXLUPADF BIT(8), /* UPAD ENTRY @ZA07549*/ 02479040 * 6 EXLSCIPS BIT(1), /* EXIT SPECIFIEDX3004BH*/ 02489040 * 7 EXLUPADS BIT(1), /* EXIT SPECIFIED @ZA07549*/ 02498040 * 6 EXLSCIPA BIT(1), /* EXIT ACTIVE X3004BH*/ 02507040 * 7 EXLUPADA BIT(1), /* EXIT ACTIVE @ZA07549*/ 02516040 * 6 EXLSCIPK BIT(1), /* RESERVED X3004BH*/ 02525040 * 7 EXLUPADK BIT(1), /* ENTRY ADDRESS POINTS TO 02534040 * EXIT ROUTINE NAME @ZA07549*/ 02543040 * 6 * BIT(5), /* RESERVED @XM07756*/ 02552040 * 4 EXLSCIPP PTR(31) BDY(BYTE), /* POINTER TO SCIP 02561040 * EXIT X3004BH*/ 02569040 * 5 EXLUPADP PTR(31) BDY(BYTE), /* POINTER TO UPAD 02577040 * EXIT @ZA07549*/ 02587038 * 4 EXLLGNF BIT(8), /* LOGON ENTRY 02600038 * DESCRIPTION X03004*/ 02600438 * 5 EXLLGNS BIT(1), /* EXIT SPECIFIED X03004*/ 02602038 * 5 EXLLGNA BIT(1), /* EXIT ACTIVE X03004*/ 02610038 * 5 EXLLGNK BIT(1), /* RESERVED X03004*/ 02612038 * 5 * BIT(5), /* RESERVED @XM07756*/ 02614038 * 4 EXLLGNP PTR(31) BDY(BYTE), /* POINTER TO LOGON 02650038 * EXIT X03004*/ 02660038 * 4 EXLJRNF BIT(8), /* JRNAD ENTRY 02700038 * DESCRIPTION */ 02702038 * 5 EXLJRNS BIT(1), /* EXIT SPECIFIED */ 02710038 * 5 EXLJRNA BIT(1), /* EXIT ACTIVE */ 02720038 * 5 EXLJRNK BIT(1), /* ENTRY ADDRESS POINTS 02730038 * TO EXIT ROUTINE NAME */ 02732038 * 5 * BIT(5), /* RESERVED */ 02740038 * 4 EXLJRNP PTR(31) BDY(BYTE), /* POINTER TO JRNAD 02750038 * EXIT */ 02752038 * 4 EXLOPNF BIT(8), /* OPENAD ENTRY 02760038 * DESCRIPTION */ 02760438 * 5 EXLOPNS BIT(1), /* EXIT SPECIFIED */ 02762038 * 5 EXLOPNA BIT(1), /* EXIT ACTIVE */ 02764038 * 5 EXLOPNK BIT(1), /* ENTRY ADDRESS POINTS 02766038 * TO EXIT ROUTINE NAME */ 02766438 * 5 * BIT(5), /* RESERVED */ 02768038 * 4 EXLOPNP PTR(31) BDY(BYTE), /* POINTER TO 02768440 * OPENAD EXIT */ 02778440 * 02788440 * %INCLUDE SYSLIB(IFGEXLVS);/* GET VSAM EXTENSION @ZA34940*/ 02798440 * 02808440 * DCL 1 IFGEXLEF BASED, /* GENERAL ENTRY FORMAT */ 02838038 * 2 EXLENTRY CHAR(5), /* ENTRY DESCRIPTION 02840038 * X03004*/ 02840438 * 3 EXLFLAG BIT(8), /* FLAG BYTE */ 02842038 * 4 EXLENFL BIT(8), /* FLAG BYTE X03004*/ 02844038 * 5 EXLSPEC BIT(1), /* EXIT SPECIFID */ 02846038 * 5 EXLACTM BIT(1), /* EXIT ACTIVE */ 02846438 * 5 EXLLNK BIT(1), /* ENTRY ADDRESS POINTS 02846838 * TO EXIT ROUTINE NAME */ 02847838 * 5 * BIT(5), /* RESERVED @XM07756*/ 02850038 * 3 EXLEXITP PTR(31) BDY(BYTE), /* POINTER TO EXIT*/ 02872938 * 4 EXLEADDR PTR(31) BDY(BYTE); /* EXIT ADDRESS 02873338 * X03004*/ 02873438 *%/* */ 02873638 * /* THE FOLLOWING DECLARATIONS DEFINE THE BITS IN THE */ 02886838 * /* INDIVIDUAL EXIT FLAGS. */ 02900021 * DCL (EXLPRES,EXLACTV,EXLLINK) CHAR; /* @XM07756*/ 02950038 *% EXLPRES = '1'; /* ENTRY PRESENT BIT */ 03000021 *% EXLACTV = '2'; /* ENTRY ACTIVE BIT */ 03050038 *% EXLLINK = '3'; /* POINTER TO NAME OF 03100038 * EXIT ROUTINE */ 03100138 *%/* THE FOLLOWING DECLARATIONS DEFINE THE MINIMUM LENGTH OF THE*/ 03110021 * /* EXLST IF THE CORRESPONDING EXIT IS SPECIFIED */ 03120021 * DCL (EXLEODL,EXLSYNL,EXLLERL,EXLLGNL,EXLJRNL,EXLOPNL)CHAR; 03130038 *% DCL (EXLNLGNL,EXLRLRQL,EXLATTNL,EXLTPNDL,EXLTNSEL)CHAR; /* 03132040 * @G40AKCM*/ 03134040 *% DCL (EXLSCIPL,EXLDFASL,EXLRESPL,EXLDFSYL,EXLUPADL)CHAR; /* 03136040 * @ZA07549 */ 03138040 *% EXLEODL = '10'; /* MIN LENGTH IF EODAD */ 03140021 *% EXLSYNL = '15'; /* MIN LENGTH IF SYNAD */ 03142021 *% EXLLERL = '20'; /* MIN LENGTH IF LERAD */ 03144021 *% EXLSCIPL = '25'; /* MIN LENGTH IF SCIP 03146038 * X3004BH*/ 03146438 *% EXLUPADL = '25'; /* MIN LENGTH IF UPAD 03146938 * @ZA07549*/ 03147540 *% EXLLGNL = '30'; /* MIN LENGTH IF LOGON 03148038 * X03004*/ 03148138 *% EXLJRNL = '35'; /* MIN LENGTH IF JRNAD */ 03148421 *% EXLDFASL = '35'; /* MIN LENGTH IF DFASY 03153238 * X3004BH*/ 03158538 *% EXLOPNL = '40'; /* MIN LENGTH IF OPNAD */ 03158838 *% EXLRESPL = '40'; /* MIN LENGTH IF RESP 03165338 * X3004BH*/ 03168838 *% EXLNLGNL = '45'; /* MIN LENGTH IF LOGOFF 03169038 * X03004*/ 03170838 *% EXLRLRQL = '50'; /* MIN LENGTH IF RELREQ 03173238 * X03004*/ 03178038 *% EXLATTNL = '60'; /* MIN LENGTH IF ATTN 03192438 * X03004*/ 03197238 *% EXLTPNDL = '65'; /* MIN LENGTH IF TPEND 03202038 * X03004*/ 03206838 *% EXLTNSEL = '70'; /* MIN LENGTH IF NSEXIT 03210840 * G40AKCM*/ 03214840 *%/* THE FOLLOWING DECLARATIONS DEFINE THE EXLST ID AND SUBTYPE */ 03221238 * DCL (EXLIDD,EXLSUB) CHAR; 03226038 *% EXLIDD = '129'; /* ID OF EXLST 129='81'X*/ 03230838 *% EXLSUB = '0'; /* SUBTYPE ID OF EXLST */ 03235638 *%GOTO EXLST2 ; 03240438 * /* */ 03245238 * /* ASSEMBLER DSECT FOR EXLST 03250021 * 03300021 .EXLBAL ANOP 03310038 AIF ('&DSECT' EQ 'NO').EXLNODS MAPPING ONLY REQUESTED 03450021 IFGEXLST DSECT EXIT LIST CONTROL BLOCK 03500038 AGO .EXLDSCT BRANCH AROUND MAP ONLY 03550021 .EXLNODS ANOP 03600021 IFGEXLST DS 0F EXIT LIST CONTROL BLOCK 03650038 .EXLDSCT ANOP 03700021 EXLID DS XL1 EXIT LIST IDENTIFIER 03750038 EXLIDD EQU X'81' IDENTIFIER VALUE - X'81' 03760038 EXLSTYP DS XL1 EXIT LIST SUBTYPE 03800038 EXLSUB EQU X'00' SUBTYPE VALUE - X'00' 03810038 EXLSVSAM EQU X'10' VSAM SUBTYPE X04SVHS 03812038 EXLSVRP EQU X'11' VRP SUBTYPE X04SVHS 03814038 EXLSVTAM EQU X'20' VTAM SUBTYPE X04SVHS 03816038 EXLLEN DS 0H LENGTH OF EXIT LIST 03820038 EXLLEN2 DS H ALTERNATE NAME FOR 03850038 * EXLLEN X03004 03860038 DS XL1 RESERVED FLAGS 03900021 EXLEODF DS XL1 EODAD ENTRY DESCRIPTION 03950038 EXLEODS EQU X'80' EODAD EXIT PRESENT 03970038 EXLEODA EQU X'40' EODAD EXIT ACTIVE 03980038 EXLEODK EQU X'20' EXLEODP POINTS TO THE NAME 03990038 * OF THE EODAD EXIT ROUTINE 03992038 EXLEODP DS AL4 EODAD EXIT ADDRESS 04000038 EXLEODL EQU 10 LENGTH OF LIST TO HERE - 04010038 * 10 BYTES (EQUATED VALUE; 04020038 * NO BITS ACTUALLY SET) 04030038 EXLSYNF DS XL1 SYNAD ENTRY DESCRIPTION 04050038 EXLSYNS EQU X'80' SYNAD EXIT PRESENT 04070038 EXLSYNA EQU X'40' SYNAD EXIT ACTIVE 04080038 EXLSYNK EQU X'20' EXLSYNP POINTS TO THE NAME 04090038 * OF THE SYNAD EXIT ROUTINE 04092038 EXLSYNP DS AL4 SYNAD EXIT ADDRESS 04100038 EXLSYNL EQU 15 LENGTH OF LIST TO HERE - 04110038 * 15 BYTES (EQUATED VALUE; 04120038 * NO BITS ACTUALLY SET) 04130038 EXLLERF DS XL1 LERAD ENTRY DESCRIPTION 04150038 EXLLERS EQU X'80' LERAD EXIT PRESENT 04170038 EXLLERA EQU X'40' LERAD EXIT ACTIVE 04180038 EXLLERK EQU X'20' EXLLERP POINTS TO THE NAME 04190038 * OF THE LERAD EXIT ROUTINE 04192038 EXLLERP DS AL4 LERAD EXIT ADDRESS 04200038 EXLLERL EQU 20 LENGTH OF LIST TO HERE - 04210038 * 20 BYTES (EQUATED VALUE; 04220038 * NO BITS ACTUALLY SET) 04230038 AIF ('&AM' EQ 'VTAM').VTSCIP THIS OVERLAYS SCIP FIELD 04233038 * AND IS VSAM ONLY @ZA07549 04233140 EXLUPADF DS XL1 UPAD ENTRY 04236140 * DESCRIPTION @ZA07549 04239140 EXLUPADS EQU X'80' UPAD EXIT PRESENT @ZA07549 04242140 EXLUPADA EQU X'40' UPAD EXIT ACTIVE @ZA07549 04245140 EXLUPADK EQU X'20' RESERVED @ZA07549 04248140 EXLUPADP DS AL4 UPAD EXIT ADDRESS @ZA07549 04251140 EXLUPADL EQU 25 LENGTH OF LIST TO HERE - 04254140 * 25 BYTES (EQUATED VALUE; NO 04257140 * BITS ACTUALLY SET) @ZA07549 04260140 AGO .VSLGN SKIP VTAM EXPANSION@ZA07549 04263140 .VTSCIP ANOP VTAM OVRLAY OF UPAD@ZA07549 04269140 EXLSCIPF DS XL1 SCIP ENTRY 04280038 * DESCRIPTION X3004BH 04330038 EXLSCIPS EQU X'80' SCIP EXIT PRESENT X3004BH 04340038 EXLSCIPA EQU X'40' SCIP EXIT ACTIVE X3004BH 04342038 EXLSCIPK EQU X'20' RESERVED X3004BH 04344038 EXLSCIPP DS AL4 SCIP EXIT ADDRESS X3004BH 04349738 EXLSCIPL EQU 25 LENGTH OF LIST TO HERE - 04349838 * 25 BYTES (EQUATED VALUE; NO 04349938 * BITS ACTUALLY SET) X3004BH 04354138 .VSLGN ANOP @ZA07549 04356138 EXLLGNF DS XL1 LOGON ENTRY 04359638 * DESCRIPTION X03004 04363838 EXLLGNS EQU X'80' LOGON EXIT PRESENT X03004 04368038 EXLLGNA EQU X'40' LOGON EXIT ACTIVE X03004 04372238 EXLLGNK EQU X'20' RESERVED X03004 04376438 EXLLGNP DS AL4 LOGON EXIT ADDRESS X03004 04405838 EXLLGNL EQU 30 LENGTH OF LIST TO HERE - 04410038 * 30 BYTES (EQUATED VALUE; 04420038 * NO BITS ACTUALLY SET)X03004 04430038 EXLJRNF DS XL1 JRNAD ENTRY DESCRIPTION 04450038 EXLJRNS EQU X'80' JRNAD EXIT PRESENT 04470038 EXLJRNA EQU X'40' JRNAD EXIT ACTIVE 04480038 EXLJRNK EQU X'20' EXLJRNP POINTS TO THE NAME 04490038 * OF THE JRNAD EXIT ROUTINE 04492038 EXLJRNP DS AL4 JRNAD EXIT ADDRESS 04500038 EXLJRNL EQU 35 LENGTH OF LIST TO HERE - 04510038 * 35 BYTES (EQUATED VALUE; 04512038 * NO BITS ACTUALLY SET) 04514038 EXLOPNF DS XL1 OPENAD ENTRY DESCRIPTION 04524038 EXLOPNS EQU X'80' OPENAD EXIT PRESENT 04534038 EXLOPNA EQU X'40' OPENAD EXIT ACTIVE 04536038 EXLOPNK EQU X'20' EXLOPNP POINTS TO THE NAME 04538038 * OF THE OPENAD EXIT ROUTINE 04540038 EXLOPNP DS AL4 OPENAD EXIT ADDRESS 04540438 EXLOPNL EQU 40 LENTH OF LIST TO HERE - 04540838 * 40 BYTES (EQUATED VALUE; 04541238 * NO BITS ACTUALLY SET) 04541638 IFGEXLVS AM=&AM GET VSAM EXTENSION @ZA34940 04541740 * BITS USED IN INDIVIDUAL EXIT FLAG FIELDS 04623838 EXLPRES EQU X'80' ENTRY PRESENT BIT 04636938 EXLACTV EQU X'40' ENTRY ACTIVE BIT 04650021 EXLLINK EQU X'20' EXIT ADDRESS POINTS TO 04652038 * EXIT ROUTINE NAME 04652438 * GENERAL EXIT DESCRIPTION 04702038 IFGEXLEF DSECT 04710038 EXLENTRY DS 0XL5 EXIT LIST ENTRY 04712038 EXLFLAG DS 0B FLAG BYTE 04714038 EXLENFL DS BL1 ALTERNATE NAME FOR 04720038 * EXLFLAG X03004 04720438 EXLSPEC EQU X'80' EXIT PRESENT 04722038 EXLACTM EQU X'40' EXIT ACTIVE 04724038 EXLLNK EQU X'20' EXIT ADDRESS POINTS TO 04726038 * EXIT ROUTINE NAME 04728038 EXLEXITP DS 0AL4 EXIT ADDRESS 04729638 EXLEADDR DS AL4 ALTERNATE NAME FOR 04730038 * EXLEXITP X03004 04740038 .END MEND 04750038 * END OF EXLST */ 04800021 *%EXLST2: ; 04850038