MACRO 00050040 &NAME EXLVS &EODAD=,&SCIP=,&LERAD=,&AM=, @ZA34940C00100040 &JRNAD=,&SYNAD=,&OPENAD=,&LOGON=,&RELREQ=, X03004C00120040 &NSEXIT=, @G40AKCM*00140040 &ATTN=,&TPEND=,&LOSTERM=, @Z40BHUCC00160040 &DFASY=,&RESP=,&UPAD=, @ZA34940C00180040 &PARMS=,&PARM2=,&PARM3= @ZA34940 00200040 .* @ZA34940 00220040 .* CHANGE LEVEL = 0 @ZA34940 00240040 .* DATE OF LAST CHANGE = 4 OCT 78 ( 78*277 ) @ZA34940 00260040 .* 00280040 .* FUNCTION- THE FUNCTION OF THIS MACRO IS TO BUILD, @ZA34940 00300040 .* AT ASSEMBLY TIME, AN EXIT LIST FOR A @ZA34940 00320040 .* VSAM USER. @ZA34940 00340040 .* EXLVS IS INVOKED BY MACRO EXLST WHEN A USER @ZA34940 00360040 .* ISSUES AN EXLST MACRO WITH NO 'AM' SPECIFIED @ZA34940 00380040 .* OR 'AM=VSAM' SPECIFIED. @ZA34940 00400040 .* @ZA34940 00420040 .* PARAMETERS ARE PASSED TO THE EXLST MACRO IN THE 00600040 .* FOLLOWING FORMS 00650040 .* KEYWORD=ADDRESS 00700040 .* KEYWORD=0 00750040 .* KEYWORD=(ADDRESS,N,L,A) @Z40BHUC 00800040 .* KEYWORD=(0,N,A,L) @X30BHUC 00850040 .* 00900040 .* CHANGE ACTIVITY @ZA34940 00910040 .* CBMM SPLIT SUPPORT @ZA34940 00920040 .* @ZA34940 00930040 LCLA &FLAG,&ACTIVE,&LINT,&CNT,&LENGTH 00950040 LCLA &STYPE SUBTYPE X04SVHS 01000040 LCLB &DUP1,&MEX1 @X30BHUC 01050040 LCLC &NMPARA,&NMMEX,&MEXVAL X3004BH 01100040 &NAME DS 0F 01150040 DC X'81' EXLIST IDENTIFICATION 01200040 AIF ('&AM' EQ '').SSTYPE IF AM IS NOT SPEC X04SVHS 01250040 .* DEFAULT TO ZERO SUBTYPE X04SVHS 01300040 &STYPE SETA X'10' SET VSAM SUBTYPE X04SVHS 01350040 AIF ('&AM' EQ 'VSAM').SSTYPE CHECK FOR VSAM X04SVHS 01400040 &STYPE SETA X'20' SET VTAM SUBTYPE X04SVHS 01450040 AIF ('&AM' EQ 'VTAM').SSTYPE CHECK FOR VTAM X04SVHS 01500040 .* IF NOT, ERROR X04SVHS 01550040 &STYPE SETA 0 ZERO SUBTYPE X04SVHS 01600040 MNOTE 12,'INVALID VALUE &AM, FOR AM KEYWORD' X04SVHS 01650040 .SSTYPE ANOP X04SVHS 01700040 DC AL1(&STYPE) EXLST SUBTYPE X04SVHS 01750040 .* 01800040 .* THIS IS A VARIABLE LENGTH LIST THAT IS DETERMINED BY 01850040 .* THE EXITS SPECIFIED. THE LENGTH MUST BE FOUND 01900040 .* 01950040 &LENGTH SETA 70 START WITH MAX LENGTH G40AKCM 02000040 &NMPARA SETC 'NSEXIT' ERROR MESSAGE INSERT G40AKCM 02050040 AIF ('&NSEXIT' NE '').VTMTST TAKE THIS IF SPECIFIED G40AKCM 02100040 .ERR70 ANOP ERROR RETURN G40AKCM 02150040 &LENGTH SETA &LENGTH-5 TRY NEXT LENGTH G40AKCM 02200040 &NMPARA SETC 'TPEND' ERROR MESSAGE INSERT X03004 02250040 AIF ('&TPEND' NE '').VTMTST TAKE THIS IF SPECIFIED X3004BH 02300040 .ERR65 ANOP ERROR RETURN X03004 02350040 &LENGTH SETA &LENGTH-5 TRY NEXT LENGTH X03004 02400040 &NMPARA SETC 'ATTN' ERROR MESSAGE INSERT X03004 02450040 AIF ('&ATTN' NE '').VTMTST TAKE THIS IF SPECIFIED X3004BH 02500040 .ERR60 ANOP ERROR RETURN X03004 02550040 &LENGTH SETA &LENGTH-10 TRY NEXT LENGTH @Z40BHUC 02600040 &NMPARA SETC 'RELREQ' ERROR MESSAGE INSERT X03004 02650040 AIF ('&RELREQ' NE '').VTMTST TAKE THIS IF SPECIFIED X3004BH 02700040 .ERR50 ANOP ERROR RETURN X03004 02750040 &LENGTH SETA &LENGTH-5 TRY NEXT LENGTH X03004 02800040 &NMPARA SETC 'LOSTERM' ERROR MESSAGE INSERT X03004 02850040 AIF ('&LOSTERM' NE '').VTMTST TAKE THIS IF SPECIFIED X3004BH 02900040 .ERR45 ANOP ERROR RETURN X03004 02950040 &LENGTH SETA &LENGTH-5 TRY NEXT LENGTH X03004 03000040 &NMPARA SETC 'RESP' ERROR MESSAGE INSERT X3004BH 03050040 &MEX1 SETB 1 CLEAR MUTUALLY EXCL SW X3004BH 03100040 &MEXVAL SETC '&OPENAD' SET MUTUALLY EXCL VALUE X3004BH 03150040 &NMMEX SETC 'OPENAD' ERROR MESSAGE INSERT X3004BH 03200040 AIF ('&RESP' NE '').MEXTST TAKE THIS IF SPECIFIED X3004BH 03250040 AIF ('&OPENAD' NE '').LNGSET TAKE THIS IF SPECIFIED 03300040 .ERR40 ANOP ERROR RETURN X3004BH 03350040 &LENGTH SETA &LENGTH-5 TRY NEXT LENGTH 03400040 &NMPARA SETC 'DFASY' ERROR MESSAGE INSERT X3004BH 03450040 &MEX1 SETB 1 CLEAR MUTUALLY EXCL SW X3004BH 03500040 &MEXVAL SETC '&JRNAD' SET MUTUALLY EXCL VALUE X3004BH 03550040 &NMMEX SETC 'JRNAD' ERROR MESSAGE INSERT X3004BH 03600040 AIF ('&DFASY' NE '').MEXTST TAKE THIS IF SPECIFIED X3004BH 03650040 AIF ('&JRNAD' NE '').LNGSET TAKE THIS IF SPECIFIED 03700040 .ERR35 ANOP ERROR RETURN X3004BH 03750040 &LENGTH SETA &LENGTH-5 TRY NEXT LENGTH 03800040 &NMPARA SETC 'LOGON' ERROR MESSAGE INSERT X03004 03850040 AIF ('&LOGON' NE '').VTMTST TAKE THIS IF SPECIFIED X3004BH 03900040 .ERR30 ANOP ERROR RETURN X03004 03950040 AIF ('&AM' NE 'VTAM').OVLY30 VSAM HAS OWN VERSION FOR THIS 04000040 .* FIELD @ZA14800 04050040 &LENGTH SETA &LENGTH-5 TRY NEXT LENGTH 04100040 &NMPARA SETC 'SCIP' ERROR MESSAGE INSERT X3004BH 04150040 AIF ('&SCIP' NE '').VTMTST TAKE THIS IF SPECIFIED X3004BH 04200040 AGO .ERR25 SKIP VSAM OVERLAY @ZA07549 04250040 .OVLY30 ANOP OVERLAY FOR VSAM @ZA07549 04300040 &LENGTH SETA &LENGTH-5 TRY NEXT LENGTH @ZA07549 04350040 AIF ('&UPAD' NE '').LNGSET TAKE THIS IF SPECIFIED @ZA07549 04400040 .ERR25 ANOP ERROR RETURN X3004BH 04450040 &LENGTH SETA &LENGTH-5 TRY NEXT LENGTH 04500040 AIF ('&LERAD' NE '').LNGSET TAKE THIS IF SPECIFIED 04550040 &LENGTH SETA &LENGTH-5 TRY NEXT LENGTH 04600040 AIF ('&SYNAD' NE '').LNGSET TAKE THIS IF SPECIFIED 04650040 &LENGTH SETA &LENGTH-5 TRY NEXT LENGTH 04700040 AIF ('&EODAD' NE '').LNGSET TAKE THIS IF SPECIFIED 04750040 .* 04800040 .* IF NO EXITS THEN SEVERE ERROR MESSAGE 04850040 MNOTE 12,'AM00004 NO EXITS SPECIFIED MACRO TERMINATED' 04900040 AGO .ENDEXL EXIT IF NO PARMS 04950040 .MEXTST ANOP X3004BH 05000040 AIF ('&MEXVAL' EQ '').VTMTST X3004BH 05050040 MNOTE 8,'*** &NMPARA AND &NMMEX ARE MUTUALLY EXCLUSIVE - BOTH X05100040 ARE IGNORED ***' X3004BH 05150040 AIF ('&AM' EQ 'VTAM').LENRET X3004BH 05200040 AIF (&MEX1).VTMMSG X3004BH 05250040 MNOTE 8,'*** VTAM KEYWORD, &NMMEX, SPECIFIED WITHOUT SPECIFYINX05300040 G AM=VTAM - KEYWORD IGNORED ***' X3004BH 05350040 AGO .VTMMSG X3004BH 05400040 .VTMTST ANOP X3004BH 05450040 AIF ('&AM' EQ 'VTAM').LNGSET WAS VTAM SPECIFIED X03004 05500040 .VTMMSG ANOP X3004BH 05550040 MNOTE 8,'*** VTAM KEYWORD, &NMPARA, SPECIFIED WITHOUT SPECIFYIX05600040 NG AM=VTAM - KEYWORD IGNORED ***' X03004 05650040 .LENRET ANOP X3004BH 05700040 AIF ('&LENGTH' EQ '70').ERR70 TEST NEXT EXIT G40AKCM 05750040 AIF ('&LENGTH' EQ '65').ERR65 TEST NEXT EXIT G40AKCM 05800040 AIF ('&LENGTH' EQ '60').ERR60 TEST NEXT EXIT X03004 05850040 AIF ('&LENGTH' EQ '50').ERR50 TEST NEXT EXIT X03004 05900040 AIF ('&LENGTH' EQ '45').ERR45 TEST NEXT EXIT X03004 05950040 AIF ('&LENGTH' EQ '40').ERR40 TEST NEXT EXIT X3004BH 06000040 AIF ('&LENGTH' EQ '35').ERR35 TEST NEXT EXIT X3004BH 06050040 AIF ('&LENGTH' EQ '30').ERR30 TEST NEXT EXIT X3004BH 06100040 AGO .ERR25 RETURN TO TEST NEXT EXITX3004BH 06150040 .LNGSET ANOP USE LENGTH SPECIFIED X3004BH 06200040 .* THE LENGTH MUST BE PLACED IN THE LENGTH FIELD 06250040 DC H'&LENGTH' EXLST LIST LENGTH 06300040 DC X'00' EXLST FLAGS 06350040 .* EACH PARAMETER MUST NOW BE SCANNED FOR THE VALUES 06400040 .* PASSED 06450040 .* 06500040 .* EODAD 06550040 .* 06600040 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR DEFAULT 06650040 .* VALUES 06700040 &FLAG SETA 0 DEFAULT TO NO EXIT SPECIFIED 06750040 &ACTIVE SETA 0 DEFAULT TO INACTIVE 06800040 &LINT SETA 0 DEFAULT TO ADDR SPECIFIED 06850040 &DUP1 SETB 0 RESET DUPLICATE FLAG 06900040 &CNT SETA 1 POSITION TO FIRST VALUE 06950040 AIF ('&EODAD' EQ '').NOEOD BR TO END IF NOT SPECIFIED 07000040 &FLAG SETA 128 GET DEFAULT SPECIFIED VALUES 07050040 &ACTIVE SETA 64 DEFAULT TO ACTIVE IF SPECIFIED 07100040 AIF ('&EODAD(1)' NE '0').EODLP CHECK 0 ADDR 07150040 &ACTIVE SETA 0 0 ADDR INDICATES INACTIVE 07200040 .* 07250040 .EODLP ANOP 07300040 &CNT SETA &CNT+1 INCR PARAMETER COUNT 07350040 AIF (&CNT GT N'&EODAD).SETEOD SET BITS IF ALL PARMS TESTED 07400040 AIF ('&EODAD(&CNT)' NE 'N').EODACT CHECK ACTIVE IF NOT N 07450040 AIF (&DUP1).EODERR ERROR IF DUPLICATE 07500040 &DUP1 SETB 1 INDICATE PARAMETER FOUND 07550040 &ACTIVE SETA 0 INDICATE INACTIVE IF N 07600040 AGO .EODLP CONTINUE CHECKING 07650040 .EODACT ANOP 07700040 AIF ('&EODAD(&CNT)' NE 'A').EODLNK CHECK IF LINK 07750040 AIF (&DUP1).EODERR ERROR IF DUPLICATE 07800040 &DUP1 SETB 1 INDICATE PARAMETER FOUND 07850040 &ACTIVE SETA 64 INDICATE ACTIVE IF A 07900040 AGO .EODLP LOOP UNTIL ALL CHECKED 07950040 .EODLNK ANOP 08000040 AIF ('&EODAD(&CNT)' NE 'L').EODERR UNKNOWN IF NOT L OR N 08050040 &LINT SETA 32 INDICATE LINK SPECIFIED 08100040 AGO .EODLP LOOP UNTIL ALL CHECKED 08150040 .* 08200040 .EODERR ANOP 08250040 .* ERROR MESSAGE IF INVALID PARAMETER 08300040 MNOTE 4,'AM00006 EODAD=&EODAD(&CNT) INVALID, DUPLICATE OR CONFX08350040 LICTING OPTION-IGNORED' 08400040 AGO .EODLP LOOP UNTIL ALL CHECKED 08450040 .* 08500040 .SETEOD ANOP SET FOUND VALUES 08550040 &FLAG SETA &FLAG+&ACTIVE+&LINT ADD ALL BITS SET 08600040 DC AL1(&FLAG) EODAD ENTRY DESCRIPTION 08650040 DC AL4(&EODAD(1)) POINTER TO EODAD EXIT 08700040 AGO .ENDEOD 08750040 .NOEOD ANOP NO ENTRY SPECIFIED 08800040 DC AL1(0) EODAD ENTRY NOT PRESENT 08850040 DC AL4(0) ZERO EODAD ENTRY POINTER 08900040 .ENDEOD ANOP 08950040 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED 09000040 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRY 09050040 .* 09100040 .* SYNAD 09150040 .* 09200040 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR DEFAULT 09250040 .* VALUES 09300040 &FLAG SETA 0 DEFAULT TO NO EXIT SPECIFIED 09350040 &ACTIVE SETA 0 DEFAULT TO INACTIVE 09400040 &LINT SETA 0 DEFAULT TO ADDR SPECIFIED 09450040 &DUP1 SETB 0 RESET DUPLICATE FLAG 09500040 &CNT SETA 1 POSITION TO FIRST VALUE 09550040 .SYN AIF ('&SYNAD' EQ '').NOSYN BR TO END IF NOT SPECIFIED 09600040 &FLAG SETA 128 GET DEFAULT SPECIFIED VALUES 09650040 &ACTIVE SETA 64 DEFAULT TO ACTIVE IF SPECIFIED 09700040 AIF ('&SYNAD(1)' NE '0').SYNLP CHECK 0 ADDR 09750040 &ACTIVE SETA 0 0 ADDR INDICATES INACTIVE 09800040 .* 09850040 .SYNLP ANOP 09900040 &CNT SETA &CNT+1 INCR PARAMETER COUNT 09950040 AIF (&CNT GT N'&SYNAD).SETSYN SET BITS IF ALL PARMS TESTED 10000040 AIF ('&SYNAD(&CNT)' NE 'N').SYNACT CHECK ACTIVE IF NOT N 10050040 AIF (&DUP1).SYNERR ERROR IF DUPLICATE 10100040 &DUP1 SETB 1 INDICATE PARAMETER FOUND 10150040 &ACTIVE SETA 0 INDICATE INACTIVE IF N 10200040 AGO .SYNLP CONTINUE CHECKING 10250040 .SYNACT ANOP 10300040 AIF ('&SYNAD(&CNT)' NE 'A').SYNLNK CHECK IF LINK 10350040 AIF (&DUP1).SYNERR ERROR IF DUPLICATE 10400040 &DUP1 SETB 1 INDICATE PARAMATER FOUND 10450040 &ACTIVE SETA 64 INDICATE ACTIVE IF A 10500040 AGO .SYNLP CONTINUE CHECKING 10550040 .SYNLNK ANOP 10600040 AIF ('&SYNAD(&CNT)' NE 'L').SYNERR UNKNOWN IF NOT L OR N 10650040 &LINT SETA 32 INDICATE LINK SPECIFIED 10700040 AGO .SYNLP LOOP UNTIL ALL CHECKED 10750040 .* 10800040 .SYNERR ANOP 10850040 .* ERROR MESSAGE IF INVALID PARAMETER 10900040 MNOTE 4,'AM00006 SYNAD=&SYNAD(&CNT) INVALID, DUPLICATE OR CONFX10950040 LICTING OPTION-IGNORED' 11000040 AGO .SYNLP LOOP UNTIL ALL CHECKED 11050040 .* 11100040 .SETSYN ANOP SET FOUND VALUES 11150040 &FLAG SETA &FLAG+&ACTIVE+&LINT ADD ALL BITS SET 11200040 DC AL1(&FLAG) SYNAD ENTRY DESCRIPTION 11250040 DC AL4(&SYNAD(1)) POINTER TO SYNAD EXIT 11300040 AGO .ENDSYN 11350040 .NOSYN ANOP NO ENTRY SPECIFIED 11400040 DC AL1(0) SYNAD ENTRY NOT PRESENT 11450040 DC AL4(0) ZERO SYNAD ENTRY POINTER 11500040 .ENDSYN ANOP 11550040 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED 11600040 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRY 11650040 .* 11700040 .* LERAD 11750040 .* 11800040 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR DEFAULT 11850040 .* VALUES 11900040 .LER ANOP 11950040 &FLAG SETA 0 DEFAULT TO NO EXIT SPECIFIED 12000040 &ACTIVE SETA 0 DEFAULT TO INACTIVE 12050040 &LINT SETA 0 DEFAULT TO ADDR SPECIFIED 12100040 &DUP1 SETB 0 RESET DUPLICATE FLAG 12150040 &CNT SETA 1 POSITION TO FIRST VALUE 12200040 AIF ('&LERAD' EQ '').NOLER BR TO END IF NOT SPECIFIED 12250040 &FLAG SETA 128 GET DEFAULT SPECIFIED VALUES 12300040 &ACTIVE SETA 64 DEFAULT TO ACTIVE IF SPECIFIED 12350040 AIF ('&LERAD(1)' NE '0').LERLP CHECK 0 ADDR 12400040 &ACTIVE SETA 0 0 ADDR INDICATES INACTIVE 12450040 .* 12500040 .LERLP ANOP 12550040 &CNT SETA &CNT+1 INCR PARAMETER COUNT 12600040 AIF (&CNT GT N'&LERAD).SETLER SET BITS IF ALL PARMS TESTED 12650040 AIF ('&LERAD(&CNT)' NE 'N').LERACT CHECK ACTIVE IF NOT N 12700040 AIF (&DUP1).LERERR ERROR IF DUPLICATE 12750040 &DUP1 SETB 1 INDICATE PARAMETER FOUND 12800040 &ACTIVE SETA 0 INDICATE INACTIVE IF N 12850040 AGO .LERLP CONTINUE CHECKING 12900040 .LERACT ANOP 12950040 AIF ('&LERAD(&CNT)' NE 'A').LERLNK CHECK IF LINK 13000040 AIF (&DUP1).LERERR ERROR IF DUPLICATE 13050040 &DUP1 SETB 1 INDICATE PARAMETER FOUND 13100040 &ACTIVE SETA 64 INDICATE ACTIVE IF A 13150040 AGO .LERLP LOOP UNTIL ALL CHECKED 13200040 .LERLNK ANOP 13250040 AIF ('&LERAD(&CNT)' NE 'L').LERERR UNKNOWN IF NOT L OR N 13300040 &LINT SETA 32 INDICATE LINK SPECIFIED 13350040 AGO .LERLP LOOP UNTIL ALL CHECKED 13400040 .* 13450040 .LERERR ANOP 13500040 .* ERROR MESSAGE IF INVALID PARAMETER 13550040 MNOTE 4,'AM00006 LERAD=&LERAD(&CNT) INVALID, DUPLICATE OR CONFX13600040 LICTING OPTION-IGNORED' 13650040 AGO .LERLP LOOP UNTIL ALL CHECKED 13700040 .* 13750040 .SETLER ANOP SET FOUND VALUES 13800040 &FLAG SETA &FLAG+&ACTIVE+&LINT ADD ALL BITS SET 13850040 DC AL1(&FLAG) LERAD ENTRY DESCRIPTION 13900040 DC AL4(&LERAD(1)) POINTER TO LERAD EXIT 13950040 AGO .ENDLER 14000040 .NOLER ANOP NO ENTRY SPECIFIED 14050040 DC AL1(0) LERAD ENTRY NOT PRESENT 14100040 DC AL4(0) ZERO LERAD ENTRY POINTER 14150040 .ENDLER ANOP 14200040 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED 14250040 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRY 14300040 AIF ('&AM' EQ 'VTAM').VTSCIP PROCESS VTAMS OVERLAY FOR THIS 14350040 .* FIELD @ZA07549 14400040 .* @ZA07549 14450040 .* UPAD @ZA07549 14500040 .* @ZA07549 14550040 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR DEFAULT@ZA07549 14600040 .* VALUES @ZA07549 14650040 &FLAG SETA 0 DEFAULT TO NO EXIT SPEC@ZA07549 14700040 &ACTIVE SETA 0 DEFAULT TO INACTIVE @ZA07549 14750040 &LINT SETA 0 DEFAULT TO ADDR SPEC @ZA07549 14800040 &DUP1 SETB 0 RESET DUPLICATE FLAG @ZA07549 14850040 &CNT SETA 1 POSITION TO FIRST VALUE@ZA07549 14900040 AIF ('&UPAD' EQ '').NOUPAD BR TO END IF NOT SPEC @ZA07549 14950040 &FLAG SETA 128 GET DEF SPEC VALUES @ZA07549 15000040 &ACTIVE SETA 64 DEF TO ACTIVE IF SPEC @ZA07549 15050040 AIF ('&UPAD(1)' NE '0').UPADLP CHECK 0 ADDR @ZA07549 15100040 &ACTIVE SETA 0 0 ADDR IND INACTIVE @ZA07549 15150040 .* @ZA07549 15200040 .UPADLP ANOP @ZA07549 15250040 &CNT SETA &CNT+1 INCR PARAMETER COUNT @ZA07549 15300040 AIF (&CNT GT N'&UPAD).SETUPAD SET BIT IF PARM TESTD @ZA07549 15350040 AIF ('&UPAD(&CNT)' NE 'N').UPADACT CK ACTIVE IF NO N@ZA07549 15400040 AIF (&DUP1).UPADERR ERROR IF DUPLICATE @ZA07549 15450040 &DUP1 SETB 1 INDICATE PARM FOUND @ZA07549 15500040 &ACTIVE SETA 0 INDICATE INACTIVE IF N @ZA07549 15550040 AGO .UPADLP CONTINUE CHECKING @ZA07549 15600040 .UPADACT ANOP @ZA07549 15650040 AIF ('&UPAD(&CNT)' NE 'A').UPADLNK CHECK IF LINK @ZA07549 15700040 AIF (&DUP1).UPADERR ERROR IF DUPLICATE @ZA07549 15750040 &DUP1 SETB 1 INDICATE PARAMETER FND @ZA07549 15800040 &ACTIVE SETA 64 INDICATE ACTIVE IF A @ZA07549 15850040 AGO .UPADLP LOOP UNTIL ALL CHECKED @ZA07549 15900040 .UPADLNK ANOP @ZA07549 15950040 AIF ('&UPAD(&CNT)' NE 'L').UPADERR UNKNOWN, NOT L|N @ZA07549 16000040 &LINT SETA 32 INDICATE LINK SPEC @ZA07549 16050040 AGO .UPADLP LOOP UNTIL ALL CHECKED @ZA07549 16100040 .* @ZA07549 16150040 .UPADERR ANOP @ZA07549 16200040 .* ERROR MESSAGE IF INVALID PARAMETER @ZA07549 16250040 MNOTE 4,'AM00006 UPAD=&UPAD(&CNT) INVALID, DUPLICATE OR CONFLIX16300040 CTING OPTION-IGNORED' @ZA07549 16350040 AGO .UPADLP LOOP UNTIL ALL CHECKED @ZA07549 16400040 .* @ZA07549 16450040 .SETUPAD ANOP SET FOUND VALUES @ZA07549 16500040 &FLAG SETA &FLAG+&ACTIVE+&LINT ADD ALL BITS SET @ZA07549 16550040 DC AL1(&FLAG) UPAD ENTRY DESCRIPTION @ZA07549 16600040 DC AL4(&UPAD(1)) POINTER TO UPAD EXIT @ZA07549 16650040 AGO .ENDUPAD @ZA07549 16700040 .NOUPAD ANOP NO ENTRY SPECIFIED @ZA07549 16750040 DC AL1(0) UPAD ENTRY NOT PRESENT@ZA07549 16800040 DC AL4(0) ZERO UPAD ENTRY PNTR @ZA07549 16850040 .ENDUPAD ANOP @ZA07549 16900040 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED @ZA07549 16950040 &LENGTH SETA &LENGTH-5 DECR FOR THIS ENTRY @ZA07549 17000040 AGO .NVTSCIP BR AROUND FIELD @ZA07549 17050040 .VTSCIP ANOP @ZA07549 17100040 .* X3004BH 17150040 .* SCIP X3004BH 17200040 .* X3004BH 17250040 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR X3004BH 17300040 .* DEFAULT VALUES X3004BH 17350040 &FLAG SETA 0 DEFAULT TO NO EXIT SPEC X3004BH 17400040 AIF ('&SCIP' EQ '').NOSCP BRANCH IF NOT SPECIFIED X3004BH 17450040 AIF ('&AM' EQ 'VTAM').SCPOK BRANCH IF SPECIFIED X3004BH 17500040 MNOTE 8,'*** VTAM KEYWORD, SCIP, SPECIFIED WITHOUT SPECIFYING X17550040 AM=VTAM - KEYWORD IGNORED ***' X3004BH 17600040 AGO .NOSCP GO ERASE POINTER X3004BH 17650040 .SCPOK ANOP SET SCIP X3004BH 17700040 &FLAG SETA 128 GET DEF SPECIFIED VALUESX3004BH 17750040 .* X3004BH 17800040 DC AL1(&FLAG) SCIP ENTRY DESCRIPTION X3004BH 17850040 DC AL4(&SCIP(1)) POINTER TO SCIP EXIT X3004BH 17900040 AGO .ENDSCP X3004BH 17950040 .NOSCP ANOP NO ENTRY SPECIFIED X3004BH 18000040 DC AL1(0) SCIP ENTRY NOT PRESENT X3004BH 18050040 DC AL4(0) ZERO SCIP ENTRY POINTER X3004BH 18100040 .ENDSCP ANOP X3004BH 18150040 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED X3004BH 18200040 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRYX3004BH 18250040 .NVTSCIP ANOP @ZA07549 18300040 .* 18350040 .* LOGON X03004 18400040 .* 18450040 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR DEFAULT 18500040 .* VALUES 18550040 &FLAG SETA 0 DEFAULT TO NO EXIT SPECIFIED 18600040 AIF ('&LOGON' EQ '').NOLOG BRANCH IF NOT SPECIFIED X03004 18650040 AIF ('&AM' EQ 'VTAM').LOGOK BRANCH IF SPECIFIED X03004 18700040 MNOTE 8,'*** VTAM KEYWORD, LOGON, SPECIFIED WITHOUT SPECIFYINGX18750040 AM=VTAM - KEYWORD IGNORED ***' X03004 18800040 AGO .NOLOG GO ERASE POINTER X03004 18850040 .LOGOK ANOP SET LOGON X03004 18900040 &FLAG SETA 128 GET DEFAULT SPECIFIED VALUES 18950040 DC AL1(&FLAG) LOGON ENTRY DESCRIPTION X03004 19000040 DC AL4(&LOGON(1)) POINTER TO LOGON EXIT X03004 19050040 AGO .ENDLOG X03004 19100040 .NOLOG ANOP NO ENTRY SPECIFIED X03004 19150040 DC AL1(0) LOGON ENTRY NOT PRESENT X03004 19200040 DC AL4(0) ZERO LOGON ENTRY POINTER X03004 19250040 .ENDLOG ANOP X03004 19300040 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED X03004 19350040 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRY X03004 19400040 .* X3004BH 19450040 .* X3004BH 19500040 .* DFASY X3004BH 19550040 .* X3004BH 19600040 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR X3004BH 19650040 .* DEFAULT VALUES X3004BH 19700040 &FLAG SETA 0 DEFAULT TO NO EXIT SPEC X3004BH 19750040 &MEX1 SETB 0 RESET MUTUALLY EXCL SW X3004BH 19800040 AIF ('&DFASY' EQ '').TSTJRN BRANCH IF NOT SPECIFIED X3004BH 19850040 AIF ('&AM' EQ 'VTAM').DFAMEX BRANCH IF VTAM X3004BH 19900040 MNOTE 8,'*** VTAM KEYWORD, DFASY, SPECIFIED WITHOUT SPECIFYINGX19950040 AM=VTAM - KEYWORD IGNORED ***' X3004BH 20000040 &MEX1 SETB 1 SET ERROR SWITCH X3004BH 20050040 .DFAMEX ANOP X3004BH 20100040 AIF ('&JRNAD' EQ '').DFANMX ERROR IF BOTH X3004BH 20150040 MNOTE 8,'*** DFASY AND JRNAD ARE MUTUALLY EXCLUSIVE - BOTH AREX20200040 IGNORED ***' X3004BH 20250040 AGO .NODFA GO SET TO ZERO X3004BH 20300040 .DFANMX ANOP X3004BH 20350040 AIF (&MEX1).NODFA BRANCH IF PREV ERROR X3004BH 20400040 &FLAG SETA 128 GET DEFAULT VALUES X3004BH 20450040 DC AL1(&FLAG) DFASY ENTRY DESCRIPTION X3004BH 20500040 DC AL4(&DFASY(1)) POINTER TO DFASY EXIT X3004BH 20550040 AGO .ENDDFA X3004BH 20600040 .NODFA ANOP NO ENTRY SPECIFIED X3004BH 20650040 DC AL1(0) DFASY ENTRY NOT PRESENT X3004BH 20700040 DC AL4(0) ZERO DFASY ENTRY POINTERX3004BH 20750040 .ENDDFA ANOP X3004BH 20800040 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED X3004BH 20850040 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRYX3004BH 20900040 AGO .TSTRES X3004BH 20950040 .* 21000040 .* JRNAD 21050040 .* 21100040 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR DEFAULT 21150040 .* VALUES 21200040 .TSTJRN ANOP X3004BH 21250040 &FLAG SETA 0 DEFAULT TO NO EXIT SPECIFIED 21300040 &ACTIVE SETA 0 DEFAULT TO INACTIVE 21350040 &LINT SETA 0 DEFAULT TO ADDR SPECIFIED 21400040 &DUP1 SETB 0 RESET DUPLICATE FLAG 21450040 &CNT SETA 1 POSITION TO FIRST VALUE 21500040 AIF ('&JRNAD' EQ '').NOJRN BR TO END IF NOT SPECIFIED 21550040 &FLAG SETA 128 GET DEFAULT SPECIFIED VALUES 21600040 &ACTIVE SETA 64 DEFAULT TO ACTIVE IF SPECIFIED 21650040 AIF ('&JRNAD(1)' NE '0').JRNLP CHECK 0 ADDR 21700040 &ACTIVE SETA 0 0 ADDR INDICATES INACTIVE 21750040 .* 21800040 .JRNLP ANOP 21850040 &CNT SETA &CNT+1 INCR PARAMETER COUNT 21900040 AIF (&CNT GT N'&JRNAD).SETJRN SET BITS IF ALL PARMS TESTED 21950040 AIF ('&JRNAD(&CNT)' NE 'N').JRNACT CHECK ACTIVE IF NOT N 22000040 AIF (&DUP1).JRNERR ERROR IF DUPLICATE 22050040 &DUP1 SETB 1 INDICATE PARAMETER FOUND 22100040 &ACTIVE SETA 0 INDICATE INACTIVE IF N 22150040 AGO .JRNLP CONTINUE CHECKING 22200040 .JRNACT ANOP 22250040 AIF ('&JRNAD(&CNT)' NE 'A').JRNLNK CHECK IF LINK 22300040 AIF (&DUP1).JRNERR ERROR IF DUPLICATE 22350040 &DUP1 SETB 1 INDICATE PARAMETER FOUND 22400040 &ACTIVE SETA 64 INDICATE ACTIVE IF A 22450040 AGO .JRNLP LOOP UNTIL ALL CHECKED 22500040 .JRNLNK ANOP 22550040 AIF ('&JRNAD(&CNT)' NE 'L').JRNERR UNKNOWN IF NOT L OR N 22600040 &LINT SETA 32 INDICATE LINK SPECIFIED 22650040 AGO .JRNLP LOOP UNTIL ALL CHECKED 22700040 .* 22750040 .JRNERR ANOP 22800040 .* ERROR MESSAGE IF INVALID PARAMETER 22850040 MNOTE 4,'AM00006 JRNAD=&JRNAD(&CNT) INVALID, DUPLICATE OR CONFX22900040 LICTING OPTION-IGNORED' 22950040 AGO .JRNLP LOOP UNTIL ALL CHECKED 23000040 .* 23050040 .SETJRN ANOP SET FOUND VALUES 23100040 &FLAG SETA &FLAG+&ACTIVE+&LINT ADD ALL BITS SET 23150040 DC AL1(&FLAG) JRNAD ENTRY DESCRIPTION 23200040 DC AL4(&JRNAD(1)) POINTER TO JRNAD EXIT 23250040 AGO .ENDJRN 23300040 .NOJRN ANOP NO ENTRY SPECIFIED 23350040 DC AL1(0) JRNAD ENTRY NOT PRESENT 23400040 DC AL4(0) ZERO JRNAD ENTRY POINTER 23450040 .ENDJRN ANOP 23500040 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED 23550040 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRY 23600040 .* X3004BH 23650040 .* RESP X3004BH 23700040 .* X3004BH 23750040 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR X3004BH 23800040 .* DEFAULT VALUES X3004BH 23850040 .TSTRES ANOP X3004BH 23900040 &FLAG SETA 0 DEFAULT TO NO EXIT SPEC X3004BH 23950040 &MEX1 SETB 0 RESET MUTUALLY EXCL SW X3004BH 24000040 AIF ('&RESP' EQ '').TSTOPN BRANCH IF NOT SPECIFIED X3004BH 24050040 AIF ('&AM' EQ 'VTAM').RESMEX BRANCH IF SPECIFIED X3004BH 24100040 MNOTE 8,'*** VTAM KEYWORD, RESP, SPECIFIED WITHOUT SPECIFYING X24150040 AM=VTAM - KEYWORD IGNORED ***' X3004BH 24200040 &MEX1 SETB 1 SET ERROR SWITCH X3004BH 24250040 .RESMEX ANOP X3004BH 24300040 AIF ('&OPENAD' EQ '').RESNMX ERROR IF BOTH X3004BH 24350040 MNOTE 8,'*** RESP AND OPENAD ARE MUTUALLY EXCLUSIVE - BOTH AREX24400040 IGNORED ***' X3004BH 24450040 AGO .NORES GO SET TO ZERO X3004BH 24500040 .RESNMX ANOP X3004BH 24550040 AIF (&MEX1).NORES BRANCH IF PREV ERROR X3004BH 24600040 &FLAG SETA 128 GET DEFAULT SPEC VALUES X3004BH 24650040 DC AL1(&FLAG) RESP ENTRY DESCRIPTION X3004BH 24700040 DC AL4(&RESP(1)) POINTER TO RESP EXIT X3004BH 24750040 AGO .ENDRES X3004BH 24800040 .NORES ANOP NO ENTRY SPECIFIED X3004BH 24850040 DC AL1(0) RESP ENTRY NOT PRESENT X3004BH 24900040 DC AL4(0) ZERO RESP ENTRY POINTER X3004BH 24950040 .ENDRES ANOP X3004BH 25000040 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED X3004BH 25050040 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRYX3004BH 25100040 AGO .TSTEND X3004BH 25150040 .* 25200040 .* OPENAD 25250040 .* 25300040 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR DEFAULT 25350040 .* VALUES 25400040 .TSTOPN ANOP X3004BH 25450040 &FLAG SETA 0 DEFAULT TO NO EXIT SPECIFIED 25500040 &ACTIVE SETA 0 DEFAULT TO INACTIVE 25550040 &LINT SETA 0 DEFAULT TO ADDR SPECIFIED 25600040 &DUP1 SETB 0 RESET DUPLICATE FLAG 25650040 &CNT SETA 1 POSITION TO FIRST VALUE 25700040 AIF ('&OPENAD' EQ '').NOOPEN BR TO END IF NOT SPECIFIED 25750040 &FLAG SETA 128 GET DEFAULT SPECIFIED VALUES 25800040 &ACTIVE SETA 64 DEFAULT TO ACTIVE IF SPECIFIED 25850040 AIF ('&OPENAD(1)' NE '0').OPENLP CHECK 0 ADDR 25900040 &ACTIVE SETA 0 0 ADDR INDICATES INACTIVE 25950040 .* 26000040 .OPENLP ANOP 26050040 &CNT SETA &CNT+1 INCR PARAMETER COUNT 26100040 AIF (&CNT GT N'&OPENAD).SETOPEN SET BITS IF ALL TESTED 26150040 AIF ('&OPENAD(&CNT)' NE 'N').OPENACT CHECK ACTIVE IF NOT N 26200040 AIF (&DUP1).OPENERR ERROR IF DUPLICATE 26250040 &DUP1 SETB 1 INDICATE PARAMETER FOUND 26300040 &ACTIVE SETA 0 INDICATE INACTIVE IF N 26350040 AGO .OPENLP CONTINUE CHECKING 26400040 .OPENACT ANOP 26450040 AIF ('&OPENAD(&CNT)' NE 'A').OPENLNK CHECK IF LINK 26500040 AIF (&DUP1).OPENERR ERROR IF DUPLICATE 26550040 &DUP1 SETB 1 INDICATE PARAMETER FOUND 26600040 &ACTIVE SETA 64 INDICATE ACTIVE IF A 26650040 AGO .OPENLP LOOP UNTIL ALL CHECKED 26700040 .OPENLNK ANOP 26750040 AIF ('&OPENAD(&CNT)' NE 'L').OPENERR UNKNOWN IF NOT L OR N 26800040 &LINT SETA 32 INDICATE LINK SPECIFIED 26850040 AGO .OPENLP LOOP UNTIL ALL CHECKED 26900040 .* 26950040 .OPENERR ANOP 27000040 .* ERROR MESSAGE IF INVALID PARAMETER 27050040 MNOTE 4,'AM00006 OPENAD=&OPENAD(&CNT) INVALID, DUPLICATE OR COX27100040 NFLICTING OPTION-IGNORED' 27150040 AGO .OPENLP LOOP UNTIL ALL CHECKED 27200040 .* 27250040 .SETOPEN ANOP SET FOUND VALUES 27300040 &FLAG SETA &FLAG+&ACTIVE+&LINT ADD ALL BITS SET 27350040 DC AL1(&FLAG) OPENAD ENTRY DESCRIPTION 27400040 DC AL4(&OPENAD(1)) POINTER TO OPENAD EXIT 27450040 AGO .ENDOPEN 27500040 .NOOPEN ANOP NO ENTRY SPECIFIED 27550040 DC AL1(0) OPENAD ENTRY NOT PRESENT 27600040 DC AL4(0) ZERO OPENAD ENTRY POINTER 27650040 .ENDOPEN ANOP 27700040 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED 27750040 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRY 27800040 .TSTEND ANOP X3004BH 27850040 AIF ('&AM' NE 'VTAM').ENDEXL STOP HERE IF NOT VTAM X03004 27900040 .* X03004 27950040 .* LOSTERM X03004 28000040 .* X03004 28050040 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR X03004 28100040 .* DEFAULT VALUES X03004 28150040 &FLAG SETA 0 DEFAULT TO NO EXIT SPEC X03004 28200040 AIF ('&LOSTERM' EQ '').NOLGF BR TO END IF NOT SPECIFIED 28250040 .* X03004 28300040 &FLAG SETA 128 GET DEFAULT VALUES X03004 28350040 DC AL1(&FLAG) LOSTERM ENTRY DESCRIPTIONX03004 28400040 DC AL4(&LOSTERM(1)) POINTER TO LOSTERM EXIT X03004 28450040 AGO .ENDLGF X03004 28500040 .NOLGF ANOP NO ENTRY SPECIFIED X03004 28550040 DC AL1(0) LOSTERM ENTRY NOT PRESENTX03004 28600040 DC AL4(0) ZERO LOSTERM ENTRY PTR X03004 28650040 .ENDLGF ANOP X03004 28700040 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED X03004 28750040 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRY X03004 28800040 .* X03004 28850040 .* X03004 28900040 .* RELREQ X03004 28950040 .* X03004 29000040 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR X03004 29050040 .* DEFAULT VALUES X03004 29100040 &FLAG SETA 0 DEFAULT TO NO EXIT SPEC X03004 29150040 AIF ('&RELREQ' EQ '').NOREL BRANCH IF NOT SPECIFIED X03004 29200040 &FLAG SETA 128 GET DEFAULT VALUES X03004 29250040 DC AL1(&FLAG) RELREQ ENTRY DESCRIPTION X03004 29300040 DC AL4(&RELREQ(1)) POINTER TO RELREQ EXIT X03004 29350040 AGO .ENDREL X03004 29400040 .NOREL ANOP NO ENTRY SPECIFIED X03004 29450040 DC AL1(0) RELREQ ENTRY NOT PRESENT X03004 29500040 DC AL4(0) ZERO RELREQ ENTRY POINTERX03004 29550040 .ENDREL ANOP X03004 29600040 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED X03004 29650040 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRY X03004 29700040 DC AL1(0) RESERVED @Z40BHUC 29750040 DC AL4(0) RESERVED @X30BHUC 29800040 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED X03004 29850040 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRY X03004 29900040 .* X03004 29950040 .* X03004 30000040 .* ATTN X03004 30050040 .* X03004 30100040 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR X03004 30150040 .* DEFAULT VALUES X03004 30200040 &FLAG SETA 0 DEFAULT TO NO EXIT SPEC X03004 30250040 AIF ('&ATTN' EQ '').NOATN BRANCH IF NOT SPECIFIED X03004 30300040 &FLAG SETA 128 GET DEFAULT VALUES X03004 30350040 DC AL1(&FLAG) ATTN ENTRY DESCRIPTION X03004 30400040 DC AL4(&ATTN(1)) POINTER TO ATTN EXIT X03004 30450040 AGO .ENDATN X03004 30500040 .NOATN ANOP NO ENTRY SPECIFIED X03004 30550040 DC AL1(0) ATTN ENTRY NOT PRESENT X03004 30600040 DC AL4(0) ZERO ATTN ENTRY POINTER X03004 30650040 .ENDATN ANOP X03004 30700040 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED X03004 30750040 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRY X03004 30800040 .* X03004 30850040 .* X03004 30900040 .* TPEND X03004 30950040 .* X03004 31000040 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR X03004 31050040 .* DEFAULT VALUES X03004 31100040 &FLAG SETA 0 DEFAULT TO NO EXIT SPEC X03004 31150040 AIF ('&TPEND' EQ '').NOTPE BRANCH IF NOT SPECIFIED X03004 31200040 &FLAG SETA 128 GET DEFAULT VALUES X03004 31250040 DC AL1(&FLAG) TPEND ENTRY DESCRIPTION X03004 31300040 DC AL4(&TPEND(1)) POINTER TO TPEND EXIT X03004 31350040 AGO .ENDTPE X03004 31400040 .NOTPE ANOP NO ENTRY SPECIFIED X03004 31450040 DC AL1(0) TPEND ENTRY NOT PRESENT X03004 31500040 DC AL4(0) ZERO TPEND ENTRY POINTER X03004 31550040 .ENDTPE ANOP X03004 31600040 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED X03004 31650040 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRY X03004 31700040 .* @G40AKCM 31750040 .* @G40AKCM 31800040 .* @G40AKCM 31850040 .* NSEXIT @G40AKCM 31900040 .* @G40AKCM 31950040 .* THE FLAG BITS MUST BE INITIALIZED TO THEIR @G40AKCM 32000040 .* DEFAULT VALUES G40AKCM 32050040 &FLAG SETA 0 DEFAULT TO NO EXIT SPEC G40AKCM 32100040 AIF ('&NSEXIT' EQ '').NONSE BRANCH IF NOT SPECIFIED G40AKCM 32150040 &FLAG SETA 128 GET DEFAULT VALUES G40AKCM 32200040 DC AL1(&FLAG) NSEXIT ENTRY DESCRIP. G40AKCM 32250040 DC AL4(&NSEXIT(1)) POINTER TO NSEXIT EXIT G40AKCM 32300040 AGO .ENDNSE G40AKCM 32350040 .NONSE ANOP NO ENTRY SPECIFIED G40AKCM 32400040 DC AL1(0) NSEXIT ENTRY NOT PRESENTG40AKCM 32450040 DC AL4(0) ZERO NSEXIT ENTRY PTR. G40AKCM 32500040 .ENDNSE ANOP X03004 32550040 AIF (&LENGTH EQ 10).ENDEXL EXIT WHEN LAST REACHED X03004 32600040 &LENGTH SETA &LENGTH-5 DECREMENT FOR THIS ENTRY X03004 32650040 .* 32700040 .ENDEXL ANOP X03004 32750040 MEND 32800040