* % GOTO NELBSL; /* 00200002 MACRO 00400002 IEFNEL &SUBCOM=NO,&EXITS= 00600002 LCLA &N,&NELDUM 00800002 *********************************************************************** 01000002 * * 01200002 * MACMEAN NEL MEANS INTERPRETER ENTRANCE LIST YM00363* 01400002 * MACCOMP Y-2 SC1B9/PZD02 @G16AP2F* 01600003 * MACSTAT Y-2 76254/G16AP2F @G16AP2F* 01650003 * * 01700003 * STATUS - VS2 SU16 - IN THIS MACRO, SU 16 SUPPORTS @G16AP2F* 01750003 * VPSS SUPPORT (SU 29 - @G29AN2E). @G16AP2F* 01800003 * MERGE SU 4,10,16 CODE TO REL 037 BASE PTF @ZA28955* 01850003 * ADDED NEW BIT TO NELOPSWT @ZA54007* 01900003 * * 02000002 * THIS MACRO PROVIDES A SYMBOLIC MAPPING OF THE PARAMETER LISTS * 02200002 * REQUIRED WHEN INVOKING THE CONVERTER OR INTERPRETER SUBROUTINES. * 02400002 * EACH LIST AND ITS EXIT SUBLIST MUST BE CONSTRUCTED IN DYNAMICALLY * 02600002 * ALLOCATED CORE PRIOR TO CALLING THE CONVERTER OR INTERPRETER. * 02800002 * * 03000002 * TWO MACRO OPERANDS ARE AVAILABLE FOR SPECIFING CERTAIN DETAILS OF * 03200002 * THE MAPPING. ONE OPERAND, SUBCOM= , MUST BE SPECIFIED. ITS VALUE * 03400002 * DETERMINES WHICH SUBCOMPONENT(CONVERTER(C) OR INTERPRETER(I)) THE * 03600002 * PARAMETER LIST IS BEING BUILT FOR. IF NEITHER SUBCOM=C NOR * 03800002 * SUBCOM=I IS SPECIFIED, THE MACRO EXPANSION FAILS AND AN ERROR * 04000002 * MESSAGE IS ISSUED. ALL INFORMATION PASSED TO THE CONVERTER AND * 04200002 * INTERPRETER VIA THE NEL IS RETURNED TO THE CALLER, UNALTERED. * 04400002 * * 04600002 * THE OTHER OPERAND, EXITS= ,IS OPTIONAL AND PROVIDES A MAPPING OF * 04800002 * THE EXIT LIST. IF SPECIFIED THIS PARAMETER CONSISTS OF EITHER A * 05000002 * SINGLE ENTRY OR LIST OF ENTRIES ENCLOSED IN PARENTHESIS, WHICH * 05200002 * INDICATE THE TYPE OF USER EXITS TO BE TAKEN DURING THE CONVERTER * 05400002 * OR INTERPRETER PROCESSING. THE AVAILABLE EXITS ARE IDENTIFIED * 05600002 * AS FOLLOWS - * 05800002 * TXT - POST SCAN EXIT * 06000002 * RTN - RETURN EXIT * 06200002 * QEP - QUEUE MANAGER ENTRY POINT * 06400002 * QLP - QUEUE MANAGER LOCATE MODE ENTRY POINT @G29AN2E* 06450003 * SMF - SYSTEM MANAGEMENT FACILITIES EXIT * 06600002 * IAM - SPECIAL INPUT ACCESS METHOD * 06800002 * FAM - SPECIAL PROCEDURE FIND ACCESS METHOD EXIT. * 07000002 * THE SPECIFICATION OF ANY OF THESE IDENTIFIERS IN THE EXITS= * 07200002 * PARAMETER WILL RESULT IN THE MAPPING OF AN EXIT LIST HEADER AND, * 07400002 * CORRESPONDING TO EACH GIVEN IDENTIFIER (DENOTED XXX BELOW), THE * 07600002 * FOLLOWING EXIT LIST ENTY WILL BE GENERATED. * 07800002 * XXXEXIT DS 0CL8 * 08000002 * XXXEXLK DS XL1 * 08200002 * XXXEXID DS XL1 * 08400002 * XXXEXEP DS CL6 * 08600002 * REGARDLESS OF THE EXITS PARAMETER, A LIST OF SYMBOLS WILL BE * 08800002 * GENERATED WHICH MAY BE USED AT EXECUTION TIME FOR ESTABLISHING * 09000002 * VALUES IN THE LINKAGE (EXLK) AND IDENTIFIER (EXID) FIELDS. * 09200002 * * 09400002 *********************************************************************** 09600002 * 09800002 .* COMPUTE LENGTH OF NEL EXIT LIST 10000002 &NELDUM SETA N'&EXITS 10200002 &NELDUM SETA 8*&NELDUM # OF EXIT ENTRIES TIMES 8 10400002 AIF (&NELDUM EQ 0).NELSTRT IF NO EXITS DON'T ADD HDR LEN 10600002 &NELDUM SETA &NELDUM+8 ADD LENGTH OF EXIT LIST HEADER 10800002 .NELSTRT ANOP 11000002 AIF ('&SUBCOM' NE 'NO').NELERR 11200002 MNOTE ,'SUBCOMPONENT SPECIFICATION MISSING' 11400002 MEXIT 11600002 .NELERR ANOP 11800002 AIF ('&SUBCOM' EQ 'C').NELBEGN CONVERTER SPECIFIED 12000002 AIF ('&SUBCOM' EQ 'I').NELBEGN INTERPRETER SPECIFIED 12200002 MNOTE ,'SUBCOMPONENT SPECIFICATION INVALID' 12400002 MEXIT 12600002 .NELBEGN ANOP 12800002 * 13000002 * POINTERS COMMON TO CONVERTER AND INTERPRETER ENTRANCE LIST 13200002 * 13400002 NELLIST DS 0D 13600002 * 13800002 NELQMPA DS A ------- PTR TO QMPA PROVIDING ACCESS TO 14000002 * CALLER'S SWA 14200002 NELEXLST DS A ------- PTR TO C/I'S LIST OF SPECIAL EXITS 14400002 NELCOMID DS A ------- PTR TO CONSOLE IDENTIFIER 14600002 NELTXTCB DS A ------- PTR TO OPEN ACB FOR INTERNAL TEXT 14800002 * DATA SET 15000002 NELMSGCB DS A ------- PTR TO OPEN ACB FOR MESSAGE DATA SET 15200002 NELJMR DS A ------- PTR TO JOB MANAGEMENT RECORD 15400002 * 15600002 * NEL OPTION SWITCHES COMMON TO CONVERTER AND INTERPRETER 15800002 * 16000002 NELOPSWT DS XL1 ----- OPTION SWITCHES 16200002 * 16400002 NELSMF EQU X'80' --- SMF FUNCTIONS ARE TO BE PERFORMED 16600002 NELTSOP EQU X'40' --- TERM=TS HAS BEEN SPECIFIED AND OVERRIDES 16800002 * ALL OTHER PARAMETERS ON THE DD STATEMENT 17000002 NELRECVY EQU X'20' --- PROCESSING IS IN RECOVERY MODE AND 17600002 * MESSAGES ARE TO BE SURPRESSED 17800002 NELCNDGM EQU X'10' --- USE CONDITIONAL GETMAINS @ZA54007 17850003 DS CL3 ----- RESERVED 18200002 AIF ('&SUBCOM' EQ 'I').GENINTR - GO GEN INTERPRETER LIST 18400002 * 18600002 * CONVERTER POINTERS 18800002 * 19000002 NELJCLCB DS A ------- PTR TO OPEN ACB FOR SPOOLED JCL DATA SET 19200002 NELPROCB DS A ------- PTR TO OPEN DCB FOR PROCEDURE LIBRARY 19400002 NELSTMCB DS A ------- PTR TO OPEN ACB FOR STATEMENT IMAGE DATA SET 19600002 * 19800002 * CONVERTER PARM FIELD MAPPING 20000002 * 20200002 NELPARMO DS CL1 ----- PARAMETER OPTIONS 20400002 * 20600002 NELPGMN EQU X'01' --- PROGRAMMER NAME REQUIRED 20800002 NELACCT EQU X'02' --- ACCOUNT NUMBER REQUIRED 21000002 NELJPRTY DS ZL2 ----- DEFAULT JOB PRIORITY 21200002 NELTIME DS ZL6 ----- DEFAULT FOR JOB TIME LIMIT 21400002 NELREG DS ZL3 ----- DEFAULT REGION SIZE 21600002 NELCOMDS DS ZL1 ----- COMMAND DISPOSITION 21800002 * 0 - EXECUTE COMMAND 22000002 * 1 - DISPLAY AND EXECUTE COMMAND 22200002 * 2 - DISPLAY AND REQUEST DISPOSITION 22400002 * 3 - IGNORE COMMAND 22600002 NELLABEL DS ZL1 ----- LABEL PROCESSING 22800002 * 0 - BLP WILL BE TREATED AS NL 23000002 * 1 - BLP WILL BE TREATED AS BYPASS LABEL 23200002 NELAUTH DS CL4 ----- MCS COMMAND AUTHORITY 23600002 NELMSGL1 DS CL1 ----- JCL MSGLEVEL DEFAULT 23800002 NELMSGL2 DS CL1 ----- ALLOCATION MSGLEVEL DEFAULT 24000002 NELMSGCL DS CL1 ----- DEFAULT SYSTEM OUTPUT CLASS(MSGCLASS) 24200002 DS CL5 ----- RESERVED 24400002 AGO .ENDNEL 24600002 .GENINTR ANOP 24800002 * 25000002 * INTERPRETER POINTERS 25200002 * 25400002 NELJCT DS A ------- PTR TO JCT IN SWA 25600002 * 25800002 * INERPRETER OPTION SWITCH 26000002 * 26200002 NELOPSW2 DS XL1 ----- OPTION SWITCHES - BYTE 2 26400002 NELADSPC EQU X'80' --- FAIL JOB IF ADDRSPC=REAL CODED 26600002 * BY UNAUTHORIZED USER(E.G. LOGON PROC) 26800002 DS CL7 ----- RESERVED 27000002 .ENDNEL ANOP 27200002 SPACE 1 27400002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 27600002 * 27800002 * EXIT LIST MAPPING 28000002 * 28200002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 28400002 SPACE 1 28600002 NELEXTLN EQU &NELDUM - SYMBOLIC LENGTH OF EXIT LIST 28800002 &N SETA 1 29000002 AIF (N'&EXITS EQ 0).GENCON 29200002 NELEXITS DS 0D 29400002 NELEXHDR DS 0CL8 ---- EXIT LIST HEADER RECORD 29600002 NELEXLEN DS H ------- LIST LENGTH 29800002 NELXRTCD DS H ------- INTERPRETER RETURN CODE 30000002 DS CL4 30200002 .NEXT ANOP 30400002 .* EXIT ENTRY NUMBER &N 30600002 AIF ('&EXITS(&N)' EQ 'IAM').GENENTY 30800002 AIF ('&EXITS(&N)' EQ 'FAM').GENENTY 31000002 AIF ('&EXITS(&N)' EQ 'QEP').GENENTY 31200002 AIF ('&EXITS(&N)' EQ 'SMF').GENENTY 31400002 AIF ('&EXITS(&N)' EQ 'TXT').GENENTY 31600002 AIF ('&EXITS(&N)' EQ 'RTN').GENENTY 31800002 AIF ('&EXITS(&N)' EQ 'QLP').GENENTY @G29AN2E 31850003 MNOTE ,'INVALID NEL EXIT SPECIFIED' 32000002 MEXIT 32200002 .GENENTY ANOP 32400002 &EXITS(&N).EXIT DS 0CL8 32600002 &EXITS(&N).EXLK DS XL1 ----- LINKAGE DEFINITION 32800002 &EXITS(&N).EXID DS XL1 ----- EXIT IDENTIFICATION 33000002 &EXITS(&N).EXEP DS CL6 ----- ENTRY POINT 33200002 AIF (N'&EXITS EQ &N).GENCON 33400002 &N SETA &N+1 33600002 AGO .NEXT 33800002 .GENCON ANOP 34000002 SPACE 2 34050002 *********************************************************************** 34100002 * * 34150002 * GENERAL EXIT LIST ENTRY MAPPING * 34160002 * * 34170002 *********************************************************************** 34180002 SPACE 2 34190002 NELEXENT DS 0C ORIGIN ZERO 34192002 NELEXLK DS CL1 LINKAGE IDENTIFICATION 34194002 NELEXID DS CL1 EXIT IDENTIFICATION 34196002 NELEXEP DS CL6 EXIT ENTRY POINT 34198002 NELEXEPA EQU NELEXEP+2 DISPL OF ADDR SPECIFIED 34198102 SPACE 2 34198402 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 34200002 * CONSTANTS USED IN EXIT LIST GENERATION * 34400002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 34600002 NELEXAD4 EQU X'20' --- ENTRY POINT SPECIFIED AS 4-BYTE ADDR @G29AN2E 34650003 NELEXADD EQU X'40' --- ENTRY POINT SPECIFIED AS 3-BYTE ADDRESS 34800002 NELEXNAM EQU X'80' --- ENTRY POINT SPECIFIED AS 6-BYTE MODULE NAME 35000002 NELEXVCN EQU X'C0' --- ENTRY POINT SPECIFIED AS V-CON AT EXIT POINT 35200002 NELEXNOP EQU X'00' --- EXIT ENTRY IS TO BE IGNORED 35400002 * 35600002 NELIAMEX EQU X'40' --- SPECIAL INPUT ACCESS METHOD EXIT ID 35800002 NELRTNEX EQU X'20' --- SPECIAL RETURN EXIT ID 36000002 NELFAMEX EQU X'10' --- SPECIAL FIND ACCESS METHOD EXIT ID 36200002 NELQEPEX EQU X'08' --- SPECIAL QUEUE MANAGER ENTRY POINT ID 36400002 NELTXTEX EQU X'80' --- POST SCAN TEXT EXIT ID 36600002 NELSMFEX EQU X'07' --- SYSTEM MANAGEMENT FACILITIES EXIT ID 36800002 NELQLPEX EQU X'04' --- SPECIAL QUEUE MANAGER FOR LOCATE MODE @G29AN2E 36850003 * ENTRY POINT ID @G29AN2E 36900003 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 37000002 MEND , */ 37200002 *%NELBSL:; 37400002 * 37600002 */* MACMEAN NEL MEANS INTERPRETER ENTRANCE LIST */ 37800002 */* MACCOMP Y-2 SC1B9/PZD02 @G16AP2F*/ 38000003 */* MACSTAT Y-2 76253/G16AP2F @G16AP2F*/ 38050003 */* */ 38100003 */* STATUS - VS2 SU16 - IN THIS MACRO, SU 16 SUPPORTS @G16AP2F*/ 38150003 */* VPSS SUPPORT (SU 29 - @G29AN2E). @G16AP2F*/ 38200003 */* MERGE SU 4,10,16 CODE TO REL 037 BASE PTF @ZA28955*/ 38250003 * 38400002 *%; /***************************************/ 38600002 *%; /* */ 38800002 *%; /* COMPUTE LENGTH OF NEL EXIT LIST */ 39000002 *%; /* */ 39200002 *%; /***************************************/ 39400002 * % DCL NELDUM FIXED; 39600002 * % NELDUM = 0; 39800002 * % IF IAMEXIT ^= ' ' %THEN % NELDUM = NELDUM + 1; 40000002 * % IF FAMEXIT ^= ' ' %THEN % NELDUM = NELDUM + 1; 40200002 * % IF QEPEXIT ^= ' ' %THEN % NELDUM = NELDUM + 1; 40400002 * % IF SMFEXIT ^= ' ' %THEN % NELDUM = NELDUM + 1; 40600002 * % IF TXTEXIT ^= ' ' %THEN % NELDUM = NELDUM + 1; 40800002 * % IF RTNEXIT ^= ' ' %THEN % NELDUM = NELDUM + 1; 41000002 * % IF QLPEXIT ^= ' ' %THEN % NELDUM = NELDUM + 1; /* @G29AN2E*/ 41050003 * % NELDUM = 8*NELDUM; /* NUMBER OF EXIT ENTRIES TIMES 8 */ 41200002 * % IF NELDUM = 0 %THEN %GOTO NELSTRT; /* IF NO EXITS SPECIFIED , 41400002 * DONT ADD HEADER LENGTH */ 41600002 * % NELDUM = NELDUM + 8; /* ADD HEADER LENGTH */ 41800002 * % DCL NELLEN CHAR; 42000002 * % NELLEN = 'LENGTH(NELLIST)'; /* LENGTH OF THE NEL OPTION LIST */ 42200002 * % NELSTRT:; 42400002 * DECLARE 42600002 * 1 NEL BASED (NELPTR) BDY(DWORD), 42800002 * % IF SUBCOM='NO' % THEN % GOTO ENDNEL; /*ERROR - INVALID */ 43000002 * % IF SUBCOM='C' % THEN % GOTO NELBEGN; 43250002 * % IF SUBCOM='I' % THEN % GOTO NELBEGN; 43300002 * % GOTO ENDNEL; /* SPECIFICATION ERROR */ 43350002 * % NELBEGN:; 43360002 * 2 NELLIST BDY(DWORD), 43400002 * /*******************************************************************/ 43600002 * /* */ 43800002 * /* PTRS COMMON TO CONVERTER AND INTERPRETER ENTRANCE LIST */ 44000002 * /* */ 44200002 * /*******************************************************************/ 44400002 * 3 NELQMPA PTR(31), /* PTR TO QMPA PROVIDING ACCESS 44600002 * TO CALLER'S SWA */ 44800002 * 3 NELEXLST PTR(31), /* PTR TO C/I'S LIST OF SPECIAL 45000002 * EXITS */ 45200002 * 3 NELCOMID PTR(31), /* PTR TO CONSOLE IDENTIFIER */ 45400002 * 3 NELTXTCB PTR(31), /* PTR TO OPEN ACB FOR INTERNAL 45600002 * TEXT DATA SET */ 45800002 * 3 NELMSGCB PTR(31), /* PTR TO OPEN ACB FOR MESSAGE 46000002 * DATA SET */ 46200002 * 3 NELJMR PTR(31), /* PTR TO JOB MANAGEMENT RECORD */ 46400002 * /*******************************************************************/ 46600002 * /* */ 46800002 * /* NEL OPTION SWITCHES */ 47000002 * /* */ 47200002 * /*******************************************************************/ 47400002 * 3 NELOPSWT BIT(8), /* OPTION SWITCHES */ 47600002 * 4 NELSMF BIT(1), /* SMF FUNCTIONS ARE TO BE 47800002 * PERFORMED */ 48000002 * 4 NELTSOP BIT(1), /* TERM=TS HAS BEEN SPECIFIED 48200002 * AND OVERRIDES ALL OTHER PARMS 48400002 * ON THE DD STATEMENT */ 48600002 * 4 NELRECVY BIT(1), /* PROCESSING IS IN RECOVERY MODE 49600002 * AND MESSAGES ARE TO BE 49800002 * SURPRESSED */ 50000002 * 4 NELCNDGM BIT(1), /* USE CONDITIONAL GETMAINS @ZA54007*/ 50050003 * 4 * BIT(4), 50100003 * 3 * CHAR(3), /* RESERVED */ 50800002 * % IF SUBCOM='I' % THEN % GOTO GENINTR; 51000002 * /*******************************************************************/ 51200002 * /* */ 51400002 * /* CONVERTER POINTERS */ 51600002 * /* */ 51800002 * /*******************************************************************/ 52000002 * 3 NELJCLCB PTR(31), /* PTR TO OPEN ACB FOR SPOOLED 52200002 * JCL DATA SET */ 52400002 * 3 NELPROCB PTR(31), /* PTR TO OPEN DCB FOR PROCEDURE 52600002 * LIBRARY */ 52800002 * 3 NELSTMCB PTR(31), /* PTR TO OPEN ACB FOR STATEMENT 53000002 * IMAGE DATA SET */ 53200002 * /*******************************************************************/ 53400002 * /* */ 53600002 * /* CONVERTER PARM FIELD MAPPING */ 53800002 * /* */ 54000002 * /*******************************************************************/ 54200002 * 3 NELPARMO BIT(8), /* PARAMETER OPTIONS */ 54400002 * 4 * BIT(6), /* RESERVED */ 54600002 * 4 NELACCT BIT(1), /* ACCOUNT NUMBER REQUIRED */ 55000002 * 4 NELPGMN BIT(1), /* PROGRAMMER NAME REQUIRED */ 55200002 * 3 NELJPRTY CHAR(2), /* DEFAULT JOB PRIORITY */ 55400002 * 3 NELTIME CHAR(6), /* DEFAULT FOR JOB TIME LIMIT */ 55600002 * 3 NELREG CHAR(3), /* DEFAULT REGION SIZE */ 55800002 * 3 NELCOMDS CHAR(1), /* COMMAND DISPOSITION 56000002 * 0 - EXECUTE COMMAND 56200002 * 1 - DISPLAY AND EXECUTE COMMAND 56400002 * 2 - DISPLAY AND REQUEST DISP 56600002 * 3 - IGNORE COMMAND */ 56800002 * 3 NELLABEL CHAR(1), /* LABEL PROCESSING 57000002 * 0 - BLP WILL BE TREATED AS NL 57200002 1 - BLP TREATED AS BYPASS LABEL */ 57400002 * 3 NELAUTH CHAR(4), /* MCS COMMAND AUTHORITY */ 57800002 * 3 NELMSGL1 CHAR(1), /* JCL MSGLEVEL DEFAULT */ 58000002 * 3 NELMSGL2 CHAR(1), /* ALLOCATION MSGLEVEL DEFAULT */ 58200002 * 3 NELMSGCL CHAR(1), /* DEFAULT MESSAGE CLASS */ 58400002 * 3 * CHAR(5); /* RESERVED */ 58600002 * % GOTO NELEXIT; 58800002 * % GENINTR:; 59000002 * /*******************************************************************/ 59200002 * /* */ 59400002 * /* INTERPRETER POINTERS */ 59600002 * /* */ 59800002 * /*******************************************************************/ 60000002 * 3 NELJCT PTR(31), /* PTR TO JCT IN SWA */ 60200002 * /*******************************************************************/ 60400002 * /* */ 60600002 * /* INTERPRETER OPTION SWITCH */ 60800002 * /* */ 61000002 * /*******************************************************************/ 61200002 * 3 NELOPSW2 BIT(8), /* OPTION SWITCHES-BYTE 2 */ 61400002 * 4 NELADSPC BIT(1), /* FAIL JOB IF ADDRSPC=REAL CODED 61600002 * BY UNAUTHORIZED USER(LOGON) */ 61800002 * 4 * BIT(7), /* RESERVED */ 62000002 * 3 * CHAR(7); /* RESERVED */ 62200002 * % NELEXIT:; 62400002 * /**********************************/ 62600002 * /* */ 62800002 * /* NEL EXIT LIST MAPPING */ 63000002 * /* */ 63200002 * /**********************************/ 63400002 * % IF NELDUM = 0 % THEN /* IF NO EXITS SPECIFIED */ 63600002 * % GOTO GENCON; /* DON'T EXPAND THE HEADER RECORD */ 63800002 * DECLARE 64000002 * 1 NELEXITS BDY(DWORD) BASED(NELEXBAS), 64200002 * 3 NELEXHDR CHAR(8) BDY(WORD),/* EXIT LIST HEADER RECORD */ 64400002 * 4 NELEXLEN FIXED(15), /* LIST LENGTH */ 64600002 * 4 NELXRTCD FIXED(15), /* INTERPRETER RETURN CODE */ 64800002 * 4 * CHAR(4), 65000002 * % IF IAMEXIT = ' ' %THEN %GOTO NELEX1; 65200002 * 3 IAMEXT CHAR(8), 65400002 * 4 NELIAMLK CHAR(1), /* LINKAGE IDENTIFICATION */ 65600002 * 4 NELIAMID CHAR(1), /* EXIT IDENTIFICATION */ 65800002 * 4 NELIAMEP CHAR(6), /* ENTRY POINT */ 66000002 * % NELEX1:; 66200002 * % IF FAMEXIT = ' ' %THEN %GOTO NELEX2; 66400002 * 3 FAMEXT CHAR(8), 66600002 * 4 NELFAMLK CHAR(1), /* LINKAGE IDENTIFICATION */ 66800002 * 4 NELFAMID CHAR(1), /* EXIT IDENTIFICATION */ 67000002 * 4 NELFAMEP CHAR(6), /* ENTRY POINT */ 67200002 * % NELEX2:; 67400002 * % IF QEPEXIT = ' ' %THEN %GOTO NELEX3; 67600002 * 3 QEPEXT CHAR(8), 67800002 * 4 NELQEPLK CHAR(1), /* LINKAGE IDENTIFICATION */ 68000002 * 4 NELQEPID CHAR(1), /* EXIT IDENTIFICATION */ 68200002 * 4 NELQEPEP CHAR(6), /* ENTRY POINT */ 68400002 * % NELEX3:; 68600002 * % IF SMFEXIT = ' ' %THEN %GOTO NELEX4; 68800002 * 3 SMFEXT CHAR(8), 69000002 * 4 NELSMFLK CHAR(1), /* LINKAGE IDENTIFICATION */ 69200002 * 4 NELSMFID CHAR(1), /* EXIT IDENTIFICATION */ 69400002 * 4 NELSMFEP CHAR(6), /* ENTRY POINT */ 69600002 * % NELEX4:; 69800002 * % IF TXTEXIT = ' ' %THEN %GOTO NELEX5; 70000002 * 3 TXTEXT CHAR(8), 70200002 * 4 NELTXTLK CHAR(1), /* LINKAGE IDENTIFICATION */ 70400002 * 4 NELTXTID CHAR(1), /* EXIT IDENTIFICATION */ 70600002 * 4 NELTXTEP CHAR(6), /* ENTRY POINT */ 70800002 * % NELEX5:; 71000002 * % IF RTNEXIT = ' ' % THEN % GOTO NELEX6; /* @G29AN2E*/ 71200003 * 3 RTNEXT CHAR(8), 71400002 * 4 NELRTNLK CHAR(1), /* LINKAGE IDENTIFICATION */ 71600002 * 4 NELRTNID CHAR(1), /* EXIT IDENTIFICATION */ 71800002 * 4 NELRTNEP CHAR(6), /* ENTRY POINT */ 72000002 * % NELEX6:; /* @G29AN2E*/ 72020003 * % IF QLPEXIT = ' ' % THEN % GOTO EXITEND; /* @G29AN2E*/ 72040003 * 3 QLPEXT CHAR(8), /* @G29AN2E*/ 72060003 * 4 NELQLPLK CHAR(1), /* LINKAGE IDENTIFICATION @G29AN2E*/ 72080003 * 4 NELQLPID CHAR(1), /* EXIT IDENTIFICATION @G29AN2E*/ 72100003 * 4 NELQLPEP CHAR(6), /* ENTRY POINT @G29AN2E*/ 72120003 * % EXITEND:; 72200002 * 10 * CHAR (1); /* END OF LIST PLACEHOLDER */ 72400002 * % GENCON:; 72600002 */*******************************************************************/ 72650002 */* */ 72700002 */* GENERAL EXIT LIST ENTRY MAPPING */ 72750002 */* */ 72760002 */*******************************************************************/ 72770002 * DECLARE 72780002 * 1 NELEXENT BASED, 72790002 * 3 NELEXLK CHAR(1), /* LINKAGE IDENTIFICATION */ 72792002 * 3 NELEXID CHAR(1), /* EXIT IDENTIFICATION */ 72794002 * 3 NELEXEP CHAR(6), /* EXIT RTN ENTRY POINT */ 72796002 * 4 * CHAR(2), /* START IF NAME SPEC'D */ 72798002 * 4 NELEXEPA CHAR(4); /* DISPL OF ADDR SPEC'D */ 72798402 *%; /**************************************************/ 72800002 *%; /* CONSTANTS USED IN EXIT LIST GENERATION */ 73000002 *%; /**************************************************/ 73200002 * % DCL NELEXAD4 CHAR; /* @G29AN2E*/ 73250003 * % NELEXAD4 = '''20''X'; /* ENTRY POINT GIVEN AS 73300003 * 4 BYTE PTR @G29AN2E*/ 73350003 * % DCL NELEXADD CHAR; 73400002 * % NELEXADD = '''40''X'; /* ENTRY POINT GIVEN AS 3-BYTE PTR.*/ 73600002 * % DCL NELEXNAM CHAR; 73800002 * % NELEXNAM = '''80''X'; /* ENTRY POINT GIVEN AS 6-BYTE NAME*/ 74000002 * % DCL NELEXVCN CHAR; 74200002 * % NELEXVCN = '''C0''X'; /* ENTRY POINT GIVEN AS VCON 74400002 * AT EXIT POINT */ 74600002 * % DCL NELEXNOP CHAR; 74800002 * % NELEXNOP = '''00''X'; /* EXIT ENTRY IS TO BE IGNORED */ 75000002 * % DCL NELIAMEX CHAR; 75200002 * % NELIAMEX = '''40''X'; /* SPECIAL INPUT ACCESS METHOD ID */ 75400002 * % DCL NELRTNEX CHAR; 75600002 * % NELRTNEX = '''20''X'; /* SPECIAL RETURN EXIT ID */ 75800002 * % DCL NELFAMEX CHAR; 76000002 * % NELFAMEX = '''10''X'; /* SPECIAL FIND ACCESS METHOD */ 76200002 * % DCL NELQEPEX CHAR; 76400002 * % NELQEPEX = '''08''X'; /* SPECIAL Q-MNGR ENTRY POIMT ID */ 76600002 * % DCL NELTXTEX CHAR; 76800002 * % NELTXTEX = '''80''X'; /* POST SCAN TEXT EXIT ID */ 77000002 * % DCL NELSMFEX CHAR; 77200002 * % NELSMFEX = '''07''X'; /* SYSTEM MANAGEMENT FACILITIES ID */ 77400002 * % DCL NELQLPEX CHAR; /* @G29AN2E*/ 87600003 * % NELQLPEX = '''04''X'; /* SPECIAL Q-MNGR FOR LOCATE 87650003 * MODE ENTRY POINT ID @G29AN2E*/ 87700003 * %ENDNEL:; 87750003