MACRO 00800020 &NAME INVLIST1 &ORDER=,&EOT=,&CPUID=0,&MASTER=NO,&AUTO= @OY14062 01600010 GBLA &IEDQAR(64) 02400020 GBLB &IEDQZA(64) 03200020 GBLC &IEDQZM(203) 04000020 GBLC &IEDQZN(200) 04800020 LCLA &LN,&IX,&ML,&T 05600020 LCLB &E,&MT S99244 06400022 LCLC &V 07200020 .* CHANGE ACTIVITY AS FOLLOWS 07260005 .******************* MICROFICHE FLAGS *********************** SUPT CODE 07320005 .*C192000 A44918 07400005 .*A760000,848000 SA52950 07400105 .*A074000,208000,536000 S99244 07400205 .*C016000,064000,076000 S99244 07400305 .*D136000,140000 SA61791 07400405 .*A208000 SA61791 07400505 .*A536000 @SA70876 07800056 .*D078001,120000 @XA07519 07800110 .*A214000 @XA07519 07840110 .*A215500 @SA76306 07840210 .*C200000,214500 @SA76306 07840310 .*A540000-552000 @OY14062 07880110 .*C016000 @OY14062 07930110 AIF (&IEDQZA(33)).A3 08000020 &IEDQZA(34) SETB 0 08800020 &IEDQAR(10) SETA 0 09600020 &IEDQAR(11) SETA 0 10400020 &IEDQZM(1) SETC '' 11200020 &IEDQZM(3) SETC '&NAME' 12800020 .A2 AIF (&LN GE K'&ORDER(1)).E1 15200020 &LN SETA &LN+1 16000020 AIF ('&ORDER(1)'(&LN,1) NE '+' AND '&ORDER(1)'(&LN,1) NE '-'X16800020 ).A2 17600020 &IEDQAR(33) SETA K'&ORDER(1)-&LN+1 18400020 AIF (&IEDQAR(33) GT 48).E1 A44912 19200021 .A3 ANOP SA61791 20800005 AIF ('&EOT' EQ '').A30 SA61791 20900005 &IEDQZM(1) SETC '&EOT' SA61791 21000005 .A30 AIF ('&MASTER' EQ 'NO' OR '&MASTER' EQ 'YES').A31 SA61791 21100005 MNOTE 12,'*** IHB348 INVALID MASTER OPERAND - &MASTER' S99244 21200022 .A31 ANOP S99244 21400022 AIF (&IEDQZA(33) EQ 1 AND '&CPUID' EQ '0').A32 @SA76306 21450010 &IEDQZM(2) SETC '&CPUID' @XA07519 21500010 .A32 ANOP @XA07519 21550010 &IEDQZA(33) SETB 1 @SA76306 21570010 &LN SETA N'&ORDER-1 21600020 AIF ('&ORDER'(K'&ORDER-1,1) EQ ',').A4 22400020 &LN SETA &LN+1 23200020 &IEDQZA(33) SETB 0 24000020 AGO .A5 24800020 .A4 MNOTE *,'*** IHB319 CONTINUATION EXPECTED GENERATION DEFERRED' 25600020 SPACE 2 26400020 .A5 ANOP 27200020 &IEDQAR(10) SETA &IEDQAR(10)+&LN 28000020 AIF (&IEDQAR(10) GT 200).E4 28800020 &IX SETA 0 29600020 &ML SETA &IEDQAR(33) 30400020 AIF (&ML LT 9).A6 31200020 &ML SETA 8 32000020 .A6 ANOP 32800020 AIF ('&ORDER(&LN)' EQ '').E2 33600020 &T SETA K'&ORDER(&LN) 34400020 AIF (&T LT &IEDQAR(33)+1 OR &T GT &IEDQAR(33)+8).E3 35200020 AIF ('&ORDER(&LN)'(&T-&IEDQAR(33)+1,1) EQ '+').A6A 36000020 AIF ('&ORDER(&LN)'(&T-&IEDQAR(33)+1,1) NE '-').E6 36800020 &IEDQAR(11) SETA &IEDQAR(11)+1 37600020 .A6A ANOP 38400020 &IEDQZM(&IEDQAR(10)+3-&IX) SETC '&ORDER(&LN)'(1,&T-&IEDQAR(33)) 39200020 &IEDQZN(&IEDQAR(10)-&IX) SETC '&ORDER(&LN)'(&T-&IEDQAR(33)+1,&ML) 40000020 .A7 AIF (&LN EQ 1).A8 40800020 &IX SETA &IX+1 41600020 &LN SETA &LN-1 42400020 AGO .A6 43200020 .A8 AIF (&IEDQZA(33)).A11 44000020 AIF (&IEDQZA(34)).G7 44800020 &LN SETA 0 45600020 AIF ((&IEDQAR(10)/2*2) EQ &IEDQAR(10)).A9 46400020 &LN SETA 2 47200020 .A9 CNOP &LN,4 48000020 &T SETA 82-&IEDQAR(1) 48800020 &IX SETA &IEDQAR(10)+3 49600020 .A10 DC AL2((&IEDQZM(&IX)-IEDQTNT-&T)/&IEDQAR(1)) 50400020 &IX SETA &IX-1 51200020 AIF (&IX GT 3).A10 52000020 &E SETB ('&IEDQZM(1)' NE '') 52800020 &LN SETA (&IEDQAR(33)+2)/2 53600020 AIF (&IEDQAR(33) NE 1).AOK @SA70876 53700056 &LN SETA 2 @SA70876 53800056 .AOK ANOP @SA70876 53900056 &MT SETB ('&MASTER' EQ 'YES') S99244 54000022 AIF ('&AUTO' EQ 'YES').AUTO @OY14062 54200010 &IEDQZM(3) DC AL1(&IEDQAR(10)),AL1(&IEDQAR(10)-&IEDQAR(11)),AL1(&LN),B'X54400020 &E.0&MT.00000',A(&IEDQZM(2)) S99244 55200022 AGO .NOAUTO @OY14062 55300010 .AUTO ANOP @OY14062 55400010 &IEDQZM(3) DC AL1(&IEDQAR(10)),AL1(&IEDQAR(10)-&IEDQAR(11)),AL1(&LN),B'X55500010 &E.0&MT.00001',A(&IEDQZM(2)) @OY14062 55600010 .NOAUTO ANOP @OY14062 55700010 .A11 AIF (&IEDQAR(33) LT 9).G1 56000020 INVLIST2 ORDER=&ORDER 56800020 MEXIT 57600020 .E1 MNOTE 12,'*** IHB002 INVALID ORDER OPERAND SPECIFIED &ORDER(1)X58400020 ' 59200020 SPACE 2 60000020 MEXIT 60800020 .E2 MNOTE 12,'*** IHB001 ORDER OPERAND &LN REQ''D -NOT SPECIFIED' 61600020 SPACE 1 62400020 &IEDQZA(34) SETB 1 63200020 AGO .A7 64000020 .E3 MNOTE 12,'*** IHB002 INVALID ORDER OPERAND &LN SPECIFIED -&ORDX64800020 ER(&LN)' 65600020 SPACE 1 66400020 &IEDQZA(34) SETB 1 67200020 AGO .A7 68000020 .E4 MNOTE 12,'*** IHB320 TOO MANY ENTRIES SPECIFIED' 68800020 SPACE 2 69600020 &IEDQZA(34) SETB 1 70400020 .E5 MEXIT 71200020 .E6 MNOTE 12,'*** IHB307 INCONSISTENT LENGTH FOR &ORDER(&LN)' 72000020 &IEDQZA(34) SETB 1 72800020 AGO .A7 73600020 .G1 AIF (&IEDQZA(33)).G7 74400020 &IX SETA 1 75200020 .G2 AIF ('&IEDQZN(&IX)'(1,1) NE '+').G3 76000020 AIF (&IEDQAR(33) NE 1).G2A SA52950 76100022 DC X'DF',AL1(&IX) SA52950 76200022 AGO .G3 SA52950 76300022 .G2A ANOP SA52950 76400022 &V SETC '&IEDQZN(&IX)'(2,&IEDQAR(33)-1) 76800020 DC X'&V',AL1(&IX) 77600020 .G3 ANOP 78400020 &IX SETA &IX+1 79200020 AIF (&IX LE &IEDQAR(10)).G2 80000020 AIF ('&IEDQZM(1)' EQ '').G4 80800020 DC XL1'&IEDQZM(1)' 81600020 .G4 DC X'FE' 82400020 AIF (&IEDQAR(11) EQ 0).G7 83200020 &IX SETA 1 84000020 .G5 AIF ('&IEDQZN(&IX)'(1,1) NE '-').G6 84800020 AIF (&IEDQAR(33) NE 1).G5A SA52950 84900022 DC X'DF',AL1(&IX) SA52950 85000022 AGO .G6 SA52950 85100022 .G5A ANOP SA52950 85200022 &V SETC '&IEDQZN(&IX)'(2,&IEDQAR(33)-1) 85600020 DC X'&V',AL1(&IX) 86400020 .G6 ANOP 87200020 &IX SETA &IX+1 88000020 AIF (&IX LE &IEDQAR(10)).G5 88800020 .G7 MEND 89600020