MACRO 00050000 &NAME ISTEXL1 &EODAD=,&SCIP=,&LERAD=,&AM=, @ZA34940C00100000 &JRNAD=,&SYNAD=,&OPENAD=,&LOGON=,&RELREQ=, X03004C00150000 &NSEXIT=, @G40AKCM*00200000 &ATTN=,&TPEND=,&LOSTERM=, @Z40BHUCC00250000 &DFASY=,&RESP=,&UPAD=, @ZA34940C00300000 &PARMS=,&PARM2=,&PARM3= @ZA34940 00350000 .* @ZA34940 00400000 .* CHANGE LEVEL = 0 @ZA34940 00450000 .* DATE OF LAST CHANGE = 25 JULY 78 ( 78*206 ) @ZA34940 00500000 .* 00550000 .* FUNCTION- THE FUNCTION OF THIS MACRO IS TO BUILD, @ZA34940 00600000 .* AT ASSEMBLY TIME, AN EXIT LIST FOR VTAM USERS. @ZA34940 00650000 .* ISTEXL1 IS INVOKED BY MACRO EXLST WHEN A USER @ZA34940 00700000 .* ISSUES AN EXLST MACRO WITH 'AM=VTAM' @ZA34940 00750000 .* SPECIFIED. @ZA34940 00800000 .* @ZA34940 00850000 .* PARAMETERS ARE PASSED TO THE EXLST MACRO IN THE 00900000 .* FOLLOWING FORMS 00950000 .* @ZA34940 01000000 .* KEYWORD=ADDRESS 01050000 .* KEYWORD=0 01100000 .* KEYWORD=(ADDRESS,N,L,A) @Z40BHUC 01150000 .* KEYWORD=(0,N,A,L) @X30BHUC 01200000 .* 01250000 .* CHANGE ACTIVITY @ZA34940 01300000 .* CBMM SPLIT SUPPORT @ZA34940 01350000 .* @ZA34940 01400000 LCLA &FLAG,&ACTIVE,&LINT,&CNT,&LENGTH 01450000 LCLA &STYPE SUBTYPE X04SVHS 01500000 LCLB &DUP1,&MEX1 @X30BHUC 01550000 LCLC &NMPARA,&NMMEX,&MEXVAL X3004BH 01600000 &NAME DS 0F 01650000 DC X'81' EXLIST IDENTIFICATION 01700000 AIF ('&AM' EQ '').SSTYPE IF AM IS NOT SPEC X04SVHS 01750000 .* DEFAULT TO ZERO SUBTYPE X04SVHS 01800000 &STYPE SETA X'10' SET VSAM SUBTYPE X04SVHS 01850000 AIF ('&AM' EQ 'VSAM').SSTYPE CHECK FOR VSAM X04SVHS 01900000 &STYPE SETA X'20' SET VTAM SUBTYPE X04SVHS 01950000 AIF ('&AM' EQ 'VTAM').SSTYPE CHECK FOR VTAM X04SVHS 02000000 .* IF NOT, ERROR X04SVHS 02050000 &STYPE SETA 0 ZERO SUBTYPE X04SVHS 02100000 MNOTE 12,'INVALID VALUE &AM, FOR AM KEYWORD' X04SVHS 02150000 .SSTYPE ANOP X04SVHS 02200000 DC AL1(&STYPE) EXLST SUBTYPE X04SVHS 02250000 .* 02300000 .* THIS IS A VARIABLE LENGTH LIST THAT IS DETERMINED BY 02350000 .* THE EXITS SPECIFIED. THE LENGTH MUST BE FOUND 02400000 .* 02450000 &LENGTH SETA 70 START WITH MAX LENGTH G40AKCM 02500000 &NMPARA SETC 'NSEXIT' ERROR MESSAGE INSERT G40AKCM 02550000 AIF ('&NSEXIT' NE '').VTMTST TAKE THIS IF SPECIFIED G40AKCM 02600000 .ERR70 ANOP ERROR RETURN G40AKCM 02650000 &LENGTH SETA &LENGTH-5 TRY NEXT LENGTH G40AKCM 02700000 &NMPARA SETC 'TPEND' ERROR MESSAGE INSERT X03004 02750000 AIF ('&TPEND' NE '').VTMTST TAKE THIS IF SPECIFIED X3004BH 02800000 .ERR65 ANOP ERROR RETURN X03004 02850000 &LENGTH SETA &LENGTH-5 TRY NEXT LENGTH X03004 02900000 &NMPARA SETC 'ATTN' ERROR MESSAGE INSERT X03004 02950000 AIF ('&ATTN' NE '').VTMTST TAKE THIS IF SPECIFIED X3004BH 03000000 .ERR60 ANOP ERROR RETURN X03004 03050000 &LENGTH SETA &LENGTH-10 TRY NEXT LENGTH @Z40BHUC 03100000 &NMPARA SETC 'RELREQ' ERROR MESSAGE INSERT X03004 03150000 AIF ('&RELREQ' NE '').VTMTST TAKE THIS IF SPECIFIED X3004BH 03200000 .ERR50 ANOP ERROR RETURN X03004 03250000 &LENGTH SETA &LENGTH-5 TRY NEXT LENGTH X03004 03300000 &NMPARA SETC 'LOSTERM' ERROR MESSAGE INSERT X03004 03350000 AIF ('&LOSTERM' NE '').VTMTST TAKE THIS IF SPECIFIED X3004BH 03400000 .ERR45 ANOP ERROR RETURN X03004 03450000 &LENGTH SETA &LENGTH-5 TRY NEXT LENGTH X03004 03500000 &NMPARA SETC 'RESP' ERROR MESSAGE INSERT X3004BH 03550000 &MEX1 SETB 1 CLEAR MUTUALLY EXCL SW X3004BH 03600000 &MEXVAL SETC '&OPENAD' SET MUTUALLY EXCL VALUE X3004BH 03650000 &NMMEX SETC 'OPENAD' ERROR MESSAGE INSERT X3004BH 03700000 AIF ('&RESP' NE '').MEXTST TAKE THIS IF SPECIFIED X3004BH 03750000 AIF ('&OPENAD' NE '').LNGSET TAKE THIS IF SPECIFIED 03800000 .ERR40 ANOP ERROR RETURN X3004BH 03850000 &LENGTH SETA &LENGTH-5 TRY NEXT LENGTH 03900000 &NMPARA SETC 'DFASY' ERROR MESSAGE INSERT X3004BH 03950000 &MEX1 SETB 1 CLEAR MUTUALLY EXCL SW X3004BH 04000000 &MEXVAL SETC '&JRNAD' SET MUTUALLY EXCL VALUE X3004BH 04050000 &NMMEX SETC 'JRNAD' ERROR MESSAGE INSERT X3004BH 04100000 AIF ('&DFASY' NE '').MEXTST TAKE THIS IF SPECIFIED X3004BH 04150000 AIF ('&JRNAD' NE '').LNGSET TAKE THIS IF SPECIFIED 04200000 .ERR35 ANOP ERROR RETURN X3004BH 04250000 &LENGTH SETA &LENGTH-5 TRY NEXT LENGTH 04300000 &NMPARA SETC 'LOGON' ERROR MESSAGE INSERT X03004 04350000 AIF ('&LOGON' NE '').VTMTST TAKE THIS IF SPECIFIED X3004BH 04400000 .ERR30 ANOP ERROR RETURN X03004 04450000 AIF ('&AM' NE 'VTAM').OVLY30 VSAM HAS OWN VERSION FOR THIS 04500000 .* FIELD @ZA14800 04550000 &LENGTH SETA &LENGTH-5 TRY NEXT LENGTH 04600000 &NMPARA SETC 'SCIP' ERROR MESSAGE INSERT X3004BH 04650000 AIF ('&SCIP' NE '').VTMTST TAKE THIS IF SPECIFIED X3004BH 04700000 AGO .ERR25 SKIP VSAM OVERLAY @ZA07549 04750000 .OVLY30 ANOP OVERLAY FOR VSAM @ZA07549 04800000 &LENGTH SETA &LENGTH-5 TRY NEXT LENGTH @ZA07549 04850000 AIF ('&UPAD' NE '').LNGSET TAKE THIS IF SPECIFIED @ZA07549 04900000 .ERR25 ANOP ERROR RETURN X3004BH 04950000 &LENGTH SETA &LENGTH-5 TRY NEXT LENGTH 05000000 AIF ('&LERAD' NE '').LNGSET TAKE THIS IF SPECIFIED 05050000 &LENGTH SETA &LENGTH-5 TRY NEXT LENGTH 05100000 AIF ('&SYNAD' NE '').LNGSET TAKE THIS IF SPECIFIED 05150000 &LENGTH SETA &LENGTH-5 TRY NEXT LENGTH 05200000 AIF ('&EODAD' NE '').LNGSET TAKE THIS IF SPECIFIED 05250000 .* 05300000 .* IF NO EXITS THEN SEVERE ERROR MESSAGE 05350000 MNOTE 12,'AM00004 NO EXITS SPECIFIED MACRO TERMINATED' 05400000 AGO .ENDEXL EXIT IF NO PARMS 05450000 .MEXTST ANOP X3004BH 05500000 AIF ('&MEXVAL' EQ '').VTMTST X3004BH 05550000 MNOTE 8,'*** &NMPARA AND &NMMEX ARE MUTUALLY EXCLUSIVE - BOTH X05600000 ARE IGNORED ***' X3004BH 05650000 AIF ('&AM' EQ 'VTAM').LENRET X3004BH 05700000 AIF (&MEX1).VTMMSG X3004BH 05750000 MNOTE 8,'*** VTAM KEYWORD, &NMMEX, SPECIFIED WITHOUT SPECIFYINX05800000 G AM=VTAM - KEYWORD IGNORED ***' X3004BH 05850000 AGO .VTMMSG X3004BH 05900000 .VTMTST ANOP X3004BH 05950000 AIF ('&AM' EQ 'VTAM').LNGSET WAS VTAM SPECIFIED X03004 06000000 .VTMMSG ANOP X3004BH 06050000 MNOTE 8,'*** VTAM KEYWORD, &NMPARA, SPECIFIED WITHOUT SPECIFYIX06100000 NG AM=VTAM - KEYWORD IGNORED ***' X03004 06150000 .LENRET ANOP X3004BH 06200000 AIF ('&LENGTH' EQ '70').ERR70 TEST NEXT EXIT G40AKCM 06250000 AIF ('&LENGTH' EQ '65').ERR65 TEST NEXT EXIT G40AKCM 06300000 AIF ('&LENGTH' EQ '60').ERR60 TEST NEXT EXIT X03004 06350000 AIF ('&LENGTH' EQ '50').ERR50 TEST NEXT EXIT X03004 06400000 AIF ('&LENGTH' EQ '45').ERR45 TEST NEXT EXIT X03004 06450000 AIF ('&LENGTH' EQ '40').ERR40 TEST NEXT EXIT X3004BH 06500000 AIF ('&LENGTH' EQ '35').ERR35 TEST NEXT EXIT X3004BH 06550000 AIF ('&LENGTH' EQ '30').ERR30 TEST NEXT EXIT X3004BH 06600000 AGO .ERR25 RETURN TO TEST NEXT EXITX3004BH 06650000 .LNGSET ANOP USE LENGTH SPECIFIED X3004BH 06700000 .* THE LENGTH MUST BE PLACED IN THE LENGTH FIELD 06750000 DC H'&LENGTH' EXLST LIST LENGTH 06800000 DC X'00' EXLST FLAGS 06850000 .* EACH PARAMETER MUST NOW BE SCANNED FOR THE VALUES 06900000 .* PASSED 06950000 .* 07000000 .* EODAD 07050000 .* 07100000 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR DEFAULT 07150000 .* VALUES 07200000 &FLAG SETA 0 DEFAULT TO NO EXIT SPECIFIED 07250000 &ACTIVE SETA 0 DEFAULT TO INACTIVE 07300000 &LINT SETA 0 DEFAULT TO ADDR SPECIFIED 07350000 &DUP1 SETB 0 RESET DUPLICATE FLAG 07400000 &CNT SETA 1 POSITION TO FIRST VALUE 07450000 AIF ('&EODAD' EQ '').NOEOD BR TO END IF NOT SPECIFIED 07500000 &FLAG SETA 128 GET DEFAULT SPECIFIED VALUES 07550000 &ACTIVE SETA 64 DEFAULT TO ACTIVE IF SPECIFIED 07600000 AIF ('&EODAD(1)' NE '0').EODLP CHECK 0 ADDR 07650000 &ACTIVE SETA 0 0 ADDR INDICATES INACTIVE 07700000 .* 07750000 .EODLP ANOP 07800000 &CNT SETA &CNT+1 INCR PARAMETER COUNT 07850000 AIF (&CNT GT N'&EODAD).SETEOD SET BITS IF ALL PARMS TESTED 07900000 AIF ('&EODAD(&CNT)' NE 'N').EODACT CHECK ACTIVE IF NOT N 07950000 AIF (&DUP1).EODERR ERROR IF DUPLICATE 08000000 &DUP1 SETB 1 INDICATE PARAMETER FOUND 08050000 &ACTIVE SETA 0 INDICATE INACTIVE IF N 08100000 AGO .EODLP CONTINUE CHECKING 08150000 .EODACT ANOP 08200000 AIF ('&EODAD(&CNT)' NE 'A').EODLNK CHECK IF LINK 08250000 AIF (&DUP1).EODERR ERROR IF DUPLICATE 08300000 &DUP1 SETB 1 INDICATE PARAMETER FOUND 08350000 &ACTIVE SETA 64 INDICATE ACTIVE IF A 08400000 AGO .EODLP LOOP UNTIL ALL CHECKED 08450000 .EODLNK ANOP 08500000 AIF ('&EODAD(&CNT)' NE 'L').EODERR UNKNOWN IF NOT L OR N 08550000 &LINT SETA 32 INDICATE LINK SPECIFIED 08600000 AGO .EODLP LOOP UNTIL ALL CHECKED 08650000 .* 08700000 .EODERR ANOP 08750000 .* ERROR MESSAGE IF INVALID PARAMETER 08800000 MNOTE 4,'AM00006 EODAD=&EODAD(&CNT) INVALID, DUPLICATE OR CONFX08850000 LICTING OPTION-IGNORED' 08900000 AGO .EODLP LOOP UNTIL ALL CHECKED 08950000 .* 09000000 .SETEOD ANOP SET FOUND VALUES 09050000 &FLAG SETA &FLAG+&ACTIVE+&LINT ADD ALL BITS SET 09100000 DC AL1(&FLAG) EODAD ENTRY DESCRIPTION 09150000 DC AL4(&EODAD(1)) POINTER TO EODAD EXIT 09200000 AGO .ENDEOD 09250000 .NOEOD ANOP NO ENTRY SPECIFIED 09300000 DC AL1(0) EODAD ENTRY NOT PRESENT 09350000 DC AL4(0) ZERO EODAD ENTRY POINTER 09400000 .ENDEOD ANOP 09450000 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED 09500000 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRY 09550000 .* 09600000 .* SYNAD 09650000 .* 09700000 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR DEFAULT 09750000 .* VALUES 09800000 &FLAG SETA 0 DEFAULT TO NO EXIT SPECIFIED 09850000 &ACTIVE SETA 0 DEFAULT TO INACTIVE 09900000 &LINT SETA 0 DEFAULT TO ADDR SPECIFIED 09950000 &DUP1 SETB 0 RESET DUPLICATE FLAG 10000000 &CNT SETA 1 POSITION TO FIRST VALUE 10050000 .SYN AIF ('&SYNAD' EQ '').NOSYN BR TO END IF NOT SPECIFIED 10100000 &FLAG SETA 128 GET DEFAULT SPECIFIED VALUES 10150000 &ACTIVE SETA 64 DEFAULT TO ACTIVE IF SPECIFIED 10200000 AIF ('&SYNAD(1)' NE '0').SYNLP CHECK 0 ADDR 10250000 &ACTIVE SETA 0 0 ADDR INDICATES INACTIVE 10300000 .* 10350000 .SYNLP ANOP 10400000 &CNT SETA &CNT+1 INCR PARAMETER COUNT 10450000 AIF (&CNT GT N'&SYNAD).SETSYN SET BITS IF ALL PARMS TESTED 10500000 AIF ('&SYNAD(&CNT)' NE 'N').SYNACT CHECK ACTIVE IF NOT N 10550000 AIF (&DUP1).SYNERR ERROR IF DUPLICATE 10600000 &DUP1 SETB 1 INDICATE PARAMETER FOUND 10650000 &ACTIVE SETA 0 INDICATE INACTIVE IF N 10700000 AGO .SYNLP CONTINUE CHECKING 10750000 .SYNACT ANOP 10800000 AIF ('&SYNAD(&CNT)' NE 'A').SYNLNK CHECK IF LINK 10850000 AIF (&DUP1).SYNERR ERROR IF DUPLICATE 10900000 &DUP1 SETB 1 INDICATE PARAMATER FOUND 10950000 &ACTIVE SETA 64 INDICATE ACTIVE IF A 11000000 AGO .SYNLP CONTINUE CHECKING 11050000 .SYNLNK ANOP 11100000 AIF ('&SYNAD(&CNT)' NE 'L').SYNERR UNKNOWN IF NOT L OR N 11150000 &LINT SETA 32 INDICATE LINK SPECIFIED 11200000 AGO .SYNLP LOOP UNTIL ALL CHECKED 11250000 .* 11300000 .SYNERR ANOP 11350000 .* ERROR MESSAGE IF INVALID PARAMETER 11400000 MNOTE 4,'AM00006 SYNAD=&SYNAD(&CNT) INVALID, DUPLICATE OR CONFX11450000 LICTING OPTION-IGNORED' 11500000 AGO .SYNLP LOOP UNTIL ALL CHECKED 11550000 .* 11600000 .SETSYN ANOP SET FOUND VALUES 11650000 &FLAG SETA &FLAG+&ACTIVE+&LINT ADD ALL BITS SET 11700000 DC AL1(&FLAG) SYNAD ENTRY DESCRIPTION 11750000 DC AL4(&SYNAD(1)) POINTER TO SYNAD EXIT 11800000 AGO .ENDSYN 11850000 .NOSYN ANOP NO ENTRY SPECIFIED 11900000 DC AL1(0) SYNAD ENTRY NOT PRESENT 11950000 DC AL4(0) ZERO SYNAD ENTRY POINTER 12000000 .ENDSYN ANOP 12050000 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED 12100000 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRY 12150000 .* 12200000 .* LERAD 12250000 .* 12300000 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR DEFAULT 12350000 .* VALUES 12400000 .LER ANOP 12450000 &FLAG SETA 0 DEFAULT TO NO EXIT SPECIFIED 12500000 &ACTIVE SETA 0 DEFAULT TO INACTIVE 12550000 &LINT SETA 0 DEFAULT TO ADDR SPECIFIED 12600000 &DUP1 SETB 0 RESET DUPLICATE FLAG 12650000 &CNT SETA 1 POSITION TO FIRST VALUE 12700000 AIF ('&LERAD' EQ '').NOLER BR TO END IF NOT SPECIFIED 12750000 &FLAG SETA 128 GET DEFAULT SPECIFIED VALUES 12800000 &ACTIVE SETA 64 DEFAULT TO ACTIVE IF SPECIFIED 12850000 AIF ('&LERAD(1)' NE '0').LERLP CHECK 0 ADDR 12900000 &ACTIVE SETA 0 0 ADDR INDICATES INACTIVE 12950000 .* 13000000 .LERLP ANOP 13050000 &CNT SETA &CNT+1 INCR PARAMETER COUNT 13100000 AIF (&CNT GT N'&LERAD).SETLER SET BITS IF ALL PARMS TESTED 13150000 AIF ('&LERAD(&CNT)' NE 'N').LERACT CHECK ACTIVE IF NOT N 13200000 AIF (&DUP1).LERERR ERROR IF DUPLICATE 13250000 &DUP1 SETB 1 INDICATE PARAMETER FOUND 13300000 &ACTIVE SETA 0 INDICATE INACTIVE IF N 13350000 AGO .LERLP CONTINUE CHECKING 13400000 .LERACT ANOP 13450000 AIF ('&LERAD(&CNT)' NE 'A').LERLNK CHECK IF LINK 13500000 AIF (&DUP1).LERERR ERROR IF DUPLICATE 13550000 &DUP1 SETB 1 INDICATE PARAMETER FOUND 13600000 &ACTIVE SETA 64 INDICATE ACTIVE IF A 13650000 AGO .LERLP LOOP UNTIL ALL CHECKED 13700000 .LERLNK ANOP 13750000 AIF ('&LERAD(&CNT)' NE 'L').LERERR UNKNOWN IF NOT L OR N 13800000 &LINT SETA 32 INDICATE LINK SPECIFIED 13850000 AGO .LERLP LOOP UNTIL ALL CHECKED 13900000 .* 13950000 .LERERR ANOP 14000000 .* ERROR MESSAGE IF INVALID PARAMETER 14050000 MNOTE 4,'AM00006 LERAD=&LERAD(&CNT) INVALID, DUPLICATE OR CONFX14100000 LICTING OPTION-IGNORED' 14150000 AGO .LERLP LOOP UNTIL ALL CHECKED 14200000 .* 14250000 .SETLER ANOP SET FOUND VALUES 14300000 &FLAG SETA &FLAG+&ACTIVE+&LINT ADD ALL BITS SET 14350000 DC AL1(&FLAG) LERAD ENTRY DESCRIPTION 14400000 DC AL4(&LERAD(1)) POINTER TO LERAD EXIT 14450000 AGO .ENDLER 14500000 .NOLER ANOP NO ENTRY SPECIFIED 14550000 DC AL1(0) LERAD ENTRY NOT PRESENT 14600000 DC AL4(0) ZERO LERAD ENTRY POINTER 14650000 .ENDLER ANOP 14700000 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED 14750000 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRY 14800000 AIF ('&AM' EQ 'VTAM').VTSCIP PROCESS VTAMS OVERLAY FOR THIS 14850000 .* FIELD @ZA07549 14900000 .* @ZA07549 14950000 .* UPAD @ZA07549 15000000 .* @ZA07549 15050000 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR DEFAULT@ZA07549 15100000 .* VALUES @ZA07549 15150000 &FLAG SETA 0 DEFAULT TO NO EXIT SPEC@ZA07549 15200000 &ACTIVE SETA 0 DEFAULT TO INACTIVE @ZA07549 15250000 &LINT SETA 0 DEFAULT TO ADDR SPEC @ZA07549 15300000 &DUP1 SETB 0 RESET DUPLICATE FLAG @ZA07549 15350000 &CNT SETA 1 POSITION TO FIRST VALUE@ZA07549 15400000 AIF ('&UPAD' EQ '').NOUPAD BR TO END IF NOT SPEC @ZA07549 15450000 &FLAG SETA 128 GET DEF SPEC VALUES @ZA07549 15500000 &ACTIVE SETA 64 DEF TO ACTIVE IF SPEC @ZA07549 15550000 AIF ('&UPAD(1)' NE '0').UPADLP CHECK 0 ADDR @ZA07549 15600000 &ACTIVE SETA 0 0 ADDR IND INACTIVE @ZA07549 15650000 .* @ZA07549 15700000 .UPADLP ANOP @ZA07549 15750000 &CNT SETA &CNT+1 INCR PARAMETER COUNT @ZA07549 15800000 AIF (&CNT GT N'&UPAD).SETUPAD SET BIT IF PARM TESTD @ZA07549 15850000 AIF ('&UPAD(&CNT)' NE 'N').UPADACT CK ACTIVE IF NO N@ZA07549 15900000 AIF (&DUP1).UPADERR ERROR IF DUPLICATE @ZA07549 15950000 &DUP1 SETB 1 INDICATE PARM FOUND @ZA07549 16000000 &ACTIVE SETA 0 INDICATE INACTIVE IF N @ZA07549 16050000 AGO .UPADLP CONTINUE CHECKING @ZA07549 16100000 .UPADACT ANOP @ZA07549 16150000 AIF ('&UPAD(&CNT)' NE 'A').UPADLNK CHECK IF LINK @ZA07549 16200000 AIF (&DUP1).UPADERR ERROR IF DUPLICATE @ZA07549 16250000 &DUP1 SETB 1 INDICATE PARAMETER FND @ZA07549 16300000 &ACTIVE SETA 64 INDICATE ACTIVE IF A @ZA07549 16350000 AGO .UPADLP LOOP UNTIL ALL CHECKED @ZA07549 16400000 .UPADLNK ANOP @ZA07549 16450000 AIF ('&UPAD(&CNT)' NE 'L').UPADERR UNKNOWN, NOT L|N @ZA07549 16500000 &LINT SETA 32 INDICATE LINK SPEC @ZA07549 16550000 AGO .UPADLP LOOP UNTIL ALL CHECKED @ZA07549 16600000 .* @ZA07549 16650000 .UPADERR ANOP @ZA07549 16700000 .* ERROR MESSAGE IF INVALID PARAMETER @ZA07549 16750000 MNOTE 4,'AM00006 UPAD=&UPAD(&CNT) INVALID, DUPLICATE OR CONFLIX16800000 CTING OPTION-IGNORED' @ZA07549 16850000 AGO .UPADLP LOOP UNTIL ALL CHECKED @ZA07549 16900000 .* @ZA07549 16950000 .SETUPAD ANOP SET FOUND VALUES @ZA07549 17000000 &FLAG SETA &FLAG+&ACTIVE+&LINT ADD ALL BITS SET @ZA07549 17050000 DC AL1(&FLAG) UPAD ENTRY DESCRIPTION @ZA07549 17100000 DC AL4(&UPAD(1)) POINTER TO UPAD EXIT @ZA07549 17150000 AGO .ENDUPAD @ZA07549 17200000 .NOUPAD ANOP NO ENTRY SPECIFIED @ZA07549 17250000 DC AL1(0) UPAD ENTRY NOT PRESENT@ZA07549 17300000 DC AL4(0) ZERO UPAD ENTRY PNTR @ZA07549 17350000 .ENDUPAD ANOP @ZA07549 17400000 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED @ZA07549 17450000 &LENGTH SETA &LENGTH-5 DECR FOR THIS ENTRY @ZA07549 17500000 AGO .NVTSCIP BR AROUND FIELD @ZA07549 17550000 .VTSCIP ANOP @ZA07549 17600000 .* X3004BH 17650000 .* SCIP X3004BH 17700000 .* X3004BH 17750000 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR X3004BH 17800000 .* DEFAULT VALUES X3004BH 17850000 &FLAG SETA 0 DEFAULT TO NO EXIT SPEC X3004BH 17900000 AIF ('&SCIP' EQ '').NOSCP BRANCH IF NOT SPECIFIED X3004BH 17950000 AIF ('&AM' EQ 'VTAM').SCPOK BRANCH IF SPECIFIED X3004BH 18000000 MNOTE 8,'*** VTAM KEYWORD, SCIP, SPECIFIED WITHOUT SPECIFYING X18050000 AM=VTAM - KEYWORD IGNORED ***' X3004BH 18100000 AGO .NOSCP GO ERASE POINTER X3004BH 18150000 .SCPOK ANOP SET SCIP X3004BH 18200000 &FLAG SETA 128 GET DEF SPECIFIED VALUESX3004BH 18250000 .* X3004BH 18300000 DC AL1(&FLAG) SCIP ENTRY DESCRIPTION X3004BH 18350000 DC AL4(&SCIP(1)) POINTER TO SCIP EXIT X3004BH 18400000 AGO .ENDSCP X3004BH 18450000 .NOSCP ANOP NO ENTRY SPECIFIED X3004BH 18500000 DC AL1(0) SCIP ENTRY NOT PRESENT X3004BH 18550000 DC AL4(0) ZERO SCIP ENTRY POINTER X3004BH 18600000 .ENDSCP ANOP X3004BH 18650000 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED X3004BH 18700000 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRYX3004BH 18750000 .NVTSCIP ANOP @ZA07549 18800000 .* 18850000 .* LOGON X03004 18900000 .* 18950000 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR DEFAULT 19000000 .* VALUES 19050000 &FLAG SETA 0 DEFAULT TO NO EXIT SPECIFIED 19100000 AIF ('&LOGON' EQ '').NOLOG BRANCH IF NOT SPECIFIED X03004 19150000 AIF ('&AM' EQ 'VTAM').LOGOK BRANCH IF SPECIFIED X03004 19200000 MNOTE 8,'*** VTAM KEYWORD, LOGON, SPECIFIED WITHOUT SPECIFYINGX19250000 AM=VTAM - KEYWORD IGNORED ***' X03004 19300000 AGO .NOLOG GO ERASE POINTER X03004 19350000 .LOGOK ANOP SET LOGON X03004 19400000 &FLAG SETA 128 GET DEFAULT SPECIFIED VALUES 19450000 DC AL1(&FLAG) LOGON ENTRY DESCRIPTION X03004 19500000 DC AL4(&LOGON(1)) POINTER TO LOGON EXIT X03004 19550000 AGO .ENDLOG X03004 19600000 .NOLOG ANOP NO ENTRY SPECIFIED X03004 19650000 DC AL1(0) LOGON ENTRY NOT PRESENT X03004 19700000 DC AL4(0) ZERO LOGON ENTRY POINTER X03004 19750000 .ENDLOG ANOP X03004 19800000 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED X03004 19850000 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRY X03004 19900000 .* X3004BH 19950000 .* X3004BH 20000000 .* DFASY X3004BH 20050000 .* X3004BH 20100000 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR X3004BH 20150000 .* DEFAULT VALUES X3004BH 20200000 &FLAG SETA 0 DEFAULT TO NO EXIT SPEC X3004BH 20250000 &MEX1 SETB 0 RESET MUTUALLY EXCL SW X3004BH 20300000 AIF ('&DFASY' EQ '').TSTJRN BRANCH IF NOT SPECIFIED X3004BH 20350000 AIF ('&AM' EQ 'VTAM').DFAMEX BRANCH IF VTAM X3004BH 20400000 MNOTE 8,'*** VTAM KEYWORD, DFASY, SPECIFIED WITHOUT SPECIFYINGX20450000 AM=VTAM - KEYWORD IGNORED ***' X3004BH 20500000 &MEX1 SETB 1 SET ERROR SWITCH X3004BH 20550000 .DFAMEX ANOP X3004BH 20600000 AIF ('&JRNAD' EQ '').DFANMX ERROR IF BOTH X3004BH 20650000 MNOTE 8,'*** DFASY AND JRNAD ARE MUTUALLY EXCLUSIVE - BOTH AREX20700000 IGNORED ***' X3004BH 20750000 AGO .NODFA GO SET TO ZERO X3004BH 20800000 .DFANMX ANOP X3004BH 20850000 AIF (&MEX1).NODFA BRANCH IF PREV ERROR X3004BH 20900000 &FLAG SETA 128 GET DEFAULT VALUES X3004BH 20950000 DC AL1(&FLAG) DFASY ENTRY DESCRIPTION X3004BH 21000000 DC AL4(&DFASY(1)) POINTER TO DFASY EXIT X3004BH 21050000 AGO .ENDDFA X3004BH 21100000 .NODFA ANOP NO ENTRY SPECIFIED X3004BH 21150000 DC AL1(0) DFASY ENTRY NOT PRESENT X3004BH 21200000 DC AL4(0) ZERO DFASY ENTRY POINTERX3004BH 21250000 .ENDDFA ANOP X3004BH 21300000 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED X3004BH 21350000 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRYX3004BH 21400000 AGO .TSTRES X3004BH 21450000 .* 21500000 .* JRNAD 21550000 .* 21600000 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR DEFAULT 21650000 .* VALUES 21700000 .TSTJRN ANOP X3004BH 21750000 &FLAG SETA 0 DEFAULT TO NO EXIT SPECIFIED 21800000 &ACTIVE SETA 0 DEFAULT TO INACTIVE 21850000 &LINT SETA 0 DEFAULT TO ADDR SPECIFIED 21900000 &DUP1 SETB 0 RESET DUPLICATE FLAG 21950000 &CNT SETA 1 POSITION TO FIRST VALUE 22000000 AIF ('&JRNAD' EQ '').NOJRN BR TO END IF NOT SPECIFIED 22050000 &FLAG SETA 128 GET DEFAULT SPECIFIED VALUES 22100000 &ACTIVE SETA 64 DEFAULT TO ACTIVE IF SPECIFIED 22150000 AIF ('&JRNAD(1)' NE '0').JRNLP CHECK 0 ADDR 22200000 &ACTIVE SETA 0 0 ADDR INDICATES INACTIVE 22250000 .* 22300000 .JRNLP ANOP 22350000 &CNT SETA &CNT+1 INCR PARAMETER COUNT 22400000 AIF (&CNT GT N'&JRNAD).SETJRN SET BITS IF ALL PARMS TESTED 22450000 AIF ('&JRNAD(&CNT)' NE 'N').JRNACT CHECK ACTIVE IF NOT N 22500000 AIF (&DUP1).JRNERR ERROR IF DUPLICATE 22550000 &DUP1 SETB 1 INDICATE PARAMETER FOUND 22600000 &ACTIVE SETA 0 INDICATE INACTIVE IF N 22650000 AGO .JRNLP CONTINUE CHECKING 22700000 .JRNACT ANOP 22750000 AIF ('&JRNAD(&CNT)' NE 'A').JRNLNK CHECK IF LINK 22800000 AIF (&DUP1).JRNERR ERROR IF DUPLICATE 22850000 &DUP1 SETB 1 INDICATE PARAMETER FOUND 22900000 &ACTIVE SETA 64 INDICATE ACTIVE IF A 22950000 AGO .JRNLP LOOP UNTIL ALL CHECKED 23000000 .JRNLNK ANOP 23050000 AIF ('&JRNAD(&CNT)' NE 'L').JRNERR UNKNOWN IF NOT L OR N 23100000 &LINT SETA 32 INDICATE LINK SPECIFIED 23150000 AGO .JRNLP LOOP UNTIL ALL CHECKED 23200000 .* 23250000 .JRNERR ANOP 23300000 .* ERROR MESSAGE IF INVALID PARAMETER 23350000 MNOTE 4,'AM00006 JRNAD=&JRNAD(&CNT) INVALID, DUPLICATE OR CONFX23400000 LICTING OPTION-IGNORED' 23450000 AGO .JRNLP LOOP UNTIL ALL CHECKED 23500000 .* 23550000 .SETJRN ANOP SET FOUND VALUES 23600000 &FLAG SETA &FLAG+&ACTIVE+&LINT ADD ALL BITS SET 23650000 DC AL1(&FLAG) JRNAD ENTRY DESCRIPTION 23700000 DC AL4(&JRNAD(1)) POINTER TO JRNAD EXIT 23750000 AGO .ENDJRN 23800000 .NOJRN ANOP NO ENTRY SPECIFIED 23850000 DC AL1(0) JRNAD ENTRY NOT PRESENT 23900000 DC AL4(0) ZERO JRNAD ENTRY POINTER 23950000 .ENDJRN ANOP 24000000 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED 24050000 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRY 24100000 .* X3004BH 24150000 .* RESP X3004BH 24200000 .* X3004BH 24250000 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR X3004BH 24300000 .* DEFAULT VALUES X3004BH 24350000 .TSTRES ANOP X3004BH 24400000 &FLAG SETA 0 DEFAULT TO NO EXIT SPEC X3004BH 24450000 &MEX1 SETB 0 RESET MUTUALLY EXCL SW X3004BH 24500000 AIF ('&RESP' EQ '').TSTOPN BRANCH IF NOT SPECIFIED X3004BH 24550000 AIF ('&AM' EQ 'VTAM').RESMEX BRANCH IF SPECIFIED X3004BH 24600000 MNOTE 8,'*** VTAM KEYWORD, RESP, SPECIFIED WITHOUT SPECIFYING X24650000 AM=VTAM - KEYWORD IGNORED ***' X3004BH 24700000 &MEX1 SETB 1 SET ERROR SWITCH X3004BH 24750000 .RESMEX ANOP X3004BH 24800000 AIF ('&OPENAD' EQ '').RESNMX ERROR IF BOTH X3004BH 24850000 MNOTE 8,'*** RESP AND OPENAD ARE MUTUALLY EXCLUSIVE - BOTH AREX24900000 IGNORED ***' X3004BH 24950000 AGO .NORES GO SET TO ZERO X3004BH 25000000 .RESNMX ANOP X3004BH 25050000 AIF (&MEX1).NORES BRANCH IF PREV ERROR X3004BH 25100000 &FLAG SETA 128 GET DEFAULT SPEC VALUES X3004BH 25150000 DC AL1(&FLAG) RESP ENTRY DESCRIPTION X3004BH 25200000 DC AL4(&RESP(1)) POINTER TO RESP EXIT X3004BH 25250000 AGO .ENDRES X3004BH 25300000 .NORES ANOP NO ENTRY SPECIFIED X3004BH 25350000 DC AL1(0) RESP ENTRY NOT PRESENT X3004BH 25400000 DC AL4(0) ZERO RESP ENTRY POINTER X3004BH 25450000 .ENDRES ANOP X3004BH 25500000 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED X3004BH 25550000 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRYX3004BH 25600000 AGO .TSTEND X3004BH 25650000 .* 25700000 .* OPENAD 25750000 .* 25800000 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR DEFAULT 25850000 .* VALUES 25900000 .TSTOPN ANOP X3004BH 25950000 &FLAG SETA 0 DEFAULT TO NO EXIT SPECIFIED 26000000 &ACTIVE SETA 0 DEFAULT TO INACTIVE 26050000 &LINT SETA 0 DEFAULT TO ADDR SPECIFIED 26100000 &DUP1 SETB 0 RESET DUPLICATE FLAG 26150000 &CNT SETA 1 POSITION TO FIRST VALUE 26200000 AIF ('&OPENAD' EQ '').NOOPEN BR TO END IF NOT SPECIFIED 26250000 &FLAG SETA 128 GET DEFAULT SPECIFIED VALUES 26300000 &ACTIVE SETA 64 DEFAULT TO ACTIVE IF SPECIFIED 26350000 AIF ('&OPENAD(1)' NE '0').OPENLP CHECK 0 ADDR 26400000 &ACTIVE SETA 0 0 ADDR INDICATES INACTIVE 26450000 .* 26500000 .OPENLP ANOP 26550000 &CNT SETA &CNT+1 INCR PARAMETER COUNT 26600000 AIF (&CNT GT N'&OPENAD).SETOPEN SET BITS IF ALL TESTED 26650000 AIF ('&OPENAD(&CNT)' NE 'N').OPENACT CHECK ACTIVE IF NOT N 26700000 AIF (&DUP1).OPENERR ERROR IF DUPLICATE 26750000 &DUP1 SETB 1 INDICATE PARAMETER FOUND 26800000 &ACTIVE SETA 0 INDICATE INACTIVE IF N 26850000 AGO .OPENLP CONTINUE CHECKING 26900000 .OPENACT ANOP 26950000 AIF ('&OPENAD(&CNT)' NE 'A').OPENLNK CHECK IF LINK 27000000 AIF (&DUP1).OPENERR ERROR IF DUPLICATE 27050000 &DUP1 SETB 1 INDICATE PARAMETER FOUND 27100000 &ACTIVE SETA 64 INDICATE ACTIVE IF A 27150000 AGO .OPENLP LOOP UNTIL ALL CHECKED 27200000 .OPENLNK ANOP 27250000 AIF ('&OPENAD(&CNT)' NE 'L').OPENERR UNKNOWN IF NOT L OR N 27300000 &LINT SETA 32 INDICATE LINK SPECIFIED 27350000 AGO .OPENLP LOOP UNTIL ALL CHECKED 27400000 .* 27450000 .OPENERR ANOP 27500000 .* ERROR MESSAGE IF INVALID PARAMETER 27550000 MNOTE 4,'AM00006 OPENAD=&OPENAD(&CNT) INVALID, DUPLICATE OR COX27600000 NFLICTING OPTION-IGNORED' 27650000 AGO .OPENLP LOOP UNTIL ALL CHECKED 27700000 .* 27750000 .SETOPEN ANOP SET FOUND VALUES 27800000 &FLAG SETA &FLAG+&ACTIVE+&LINT ADD ALL BITS SET 27850000 DC AL1(&FLAG) OPENAD ENTRY DESCRIPTION 27900000 DC AL4(&OPENAD(1)) POINTER TO OPENAD EXIT 27950000 AGO .ENDOPEN 28000000 .NOOPEN ANOP NO ENTRY SPECIFIED 28050000 DC AL1(0) OPENAD ENTRY NOT PRESENT 28100000 DC AL4(0) ZERO OPENAD ENTRY POINTER 28150000 .ENDOPEN ANOP 28200000 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED 28250000 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRY 28300000 .TSTEND ANOP X3004BH 28350000 AIF ('&AM' NE 'VTAM').ENDEXL STOP HERE IF NOT VTAM X03004 28400000 .* X03004 28450000 .* LOSTERM X03004 28500000 .* X03004 28550000 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR X03004 28600000 .* DEFAULT VALUES X03004 28650000 &FLAG SETA 0 DEFAULT TO NO EXIT SPEC X03004 28700000 AIF ('&LOSTERM' EQ '').NOLGF BR TO END IF NOT SPECIFIED 28750000 .* X03004 28800000 &FLAG SETA 128 GET DEFAULT VALUES X03004 28850000 DC AL1(&FLAG) LOSTERM ENTRY DESCRIPTIONX03004 28900000 DC AL4(&LOSTERM(1)) POINTER TO LOSTERM EXIT X03004 28950000 AGO .ENDLGF X03004 29000000 .NOLGF ANOP NO ENTRY SPECIFIED X03004 29050000 DC AL1(0) LOSTERM ENTRY NOT PRESENTX03004 29100000 DC AL4(0) ZERO LOSTERM ENTRY PTR X03004 29150000 .ENDLGF ANOP X03004 29200000 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED X03004 29250000 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRY X03004 29300000 .* X03004 29350000 .* X03004 29400000 .* RELREQ X03004 29450000 .* X03004 29500000 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR X03004 29550000 .* DEFAULT VALUES X03004 29600000 &FLAG SETA 0 DEFAULT TO NO EXIT SPEC X03004 29650000 AIF ('&RELREQ' EQ '').NOREL BRANCH IF NOT SPECIFIED X03004 29700000 &FLAG SETA 128 GET DEFAULT VALUES X03004 29750000 DC AL1(&FLAG) RELREQ ENTRY DESCRIPTION X03004 29800000 DC AL4(&RELREQ(1)) POINTER TO RELREQ EXIT X03004 29850000 AGO .ENDREL X03004 29900000 .NOREL ANOP NO ENTRY SPECIFIED X03004 29950000 DC AL1(0) RELREQ ENTRY NOT PRESENT X03004 30000000 DC AL4(0) ZERO RELREQ ENTRY POINTERX03004 30050000 .ENDREL ANOP X03004 30100000 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED X03004 30150000 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRY X03004 30200000 DC AL1(0) RESERVED @Z40BHUC 30250000 DC AL4(0) RESERVED @X30BHUC 30300000 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED X03004 30350000 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRY X03004 30400000 .* X03004 30450000 .* X03004 30500000 .* ATTN X03004 30550000 .* X03004 30600000 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR X03004 30650000 .* DEFAULT VALUES X03004 30700000 &FLAG SETA 0 DEFAULT TO NO EXIT SPEC X03004 30750000 AIF ('&ATTN' EQ '').NOATN BRANCH IF NOT SPECIFIED X03004 30800000 &FLAG SETA 128 GET DEFAULT VALUES X03004 30850000 DC AL1(&FLAG) ATTN ENTRY DESCRIPTION X03004 30900000 DC AL4(&ATTN(1)) POINTER TO ATTN EXIT X03004 30950000 AGO .ENDATN X03004 31000000 .NOATN ANOP NO ENTRY SPECIFIED X03004 31050000 DC AL1(0) ATTN ENTRY NOT PRESENT X03004 31100000 DC AL4(0) ZERO ATTN ENTRY POINTER X03004 31150000 .ENDATN ANOP X03004 31200000 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED X03004 31250000 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRY X03004 31300000 .* X03004 31350000 .* X03004 31400000 .* TPEND X03004 31450000 .* X03004 31500000 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR X03004 31550000 .* DEFAULT VALUES X03004 31600000 &FLAG SETA 0 DEFAULT TO NO EXIT SPEC X03004 31650000 AIF ('&TPEND' EQ '').NOTPE BRANCH IF NOT SPECIFIED X03004 31700000 &FLAG SETA 128 GET DEFAULT VALUES X03004 31750000 DC AL1(&FLAG) TPEND ENTRY DESCRIPTION X03004 31800000 DC AL4(&TPEND(1)) POINTER TO TPEND EXIT X03004 31850000 AGO .ENDTPE X03004 31900000 .NOTPE ANOP NO ENTRY SPECIFIED X03004 31950000 DC AL1(0) TPEND ENTRY NOT PRESENT X03004 32000000 DC AL4(0) ZERO TPEND ENTRY POINTER X03004 32050000 .ENDTPE ANOP X03004 32100000 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED X03004 32150000 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRY X03004 32200000 .* @G40AKCM 32250000 .* @G40AKCM 32300000 .* @G40AKCM 32350000 .* NSEXIT @G40AKCM 32400000 .* @G40AKCM 32450000 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR @G40AKCM 32500000 .* DEFAULT VALUES G40AKCM 32550000 &FLAG SETA 0 DEFAULT TO NO EXIT SPEC G40AKCM 32600000 AIF ('&NSEXIT' EQ '').NONSE BRANCH IF NOT SPECIFIED G40AKCM 32650000 &FLAG SETA 128 GET DEFAULT VALUES G40AKCM 32700000 DC AL1(&FLAG) NSEXIT ENTRY DESCRIP. G40AKCM 32750000 DC AL4(&NSEXIT(1)) POINTER TO NSEXIT EXIT G40AKCM 32800000 AGO .ENDNSE G40AKCM 32850000 .NONSE ANOP NO ENTRY SPECIFIED G40AKCM 32900000 DC AL1(0) NSEXIT ENTRY NOT PRESENTG40AKCM 32950000 DC AL4(0) ZERO NSEXIT ENTRY PTR. G40AKCM 33000000 .ENDNSE ANOP X03004 33050000 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED X03004 33100000 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRY X03004 33150000 .* 33200000 .ENDEXL ANOP X03004 33250000 MEND 33300000