MACRO 00400000 &PHASEID CONTAINS &DUMMY 00800000 .* 01200000 .* CHANGES TO RELEASE 3 01250000 .* CHANGES TO RELEASE 2 01300000 .* CHANGES TO RELEASE 1 01350000 .* INNER MACRO TO ICOMMON USED TO CREATE AN EXTERNAL 01400000 .* ROUTINE NAME ARRAY 01450000 GBLC &X0(26) 01600000 GBLC &X1(26) 02000000 GBLC &X2(26) 02400000 GBLC &X3(26) 02800000 GBLC &X4(26) 03200000 GBLC &X5(26) 03600000 GBLC &X6(26) 04000000 GBLC &X7(26) 04400000 GBLC &X8(26) 04800000 GBLC &X9(26) 05200000 GBLC &XA(26) 05600000 GBLC &XB(26) 06000000 GBLC &XC(26) 06400000 GBLC &XD(26) 06800000 GBLC &XE(26) 07200000 GBLC &XF(26) 07600000 .* 08000000 LCLA &I,&J INDEX 08400000 .* 08800000 AIF (K'&PHASEID EQ 0).ERR1 09200000 .* 09600000 AIF ('&X0(1)' EQ '').X0 10000000 AIF ('&X0(1)' EQ '&PHASEID').ERR5 10400000 AIF ('&X1(1)' EQ '').X1 10800000 AIF ('&X1(1)' EQ '&PHASEID').ERR5 11200000 AIF ('&X2(1)' EQ '').X2 11600000 AIF ('&X2(1)' EQ '&PHASEID').ERR5 12000000 AIF ('&X3(1)' EQ '').X3 12400000 AIF ('&X3(1)' EQ '&PHASEID').ERR5 12800000 AIF ('&X4(1)' EQ '').X4 13200000 AIF ('&X4(1)' EQ '&PHASEID').ERR5 13600000 AIF ('&X5(1)' EQ '').X5 14000000 AIF ('&X5(1)' EQ '&PHASEID').ERR5 14400000 AIF ('&X6(1)' EQ '').X6 14800000 AIF ('&X6(1)' EQ '&PHASEID').ERR5 15200000 AIF ('&X7(1)' EQ '').X7 15600000 AIF ('&X7(1)' EQ '&PHASEID').ERR5 16000000 AIF ('&X8(1)' EQ '').X8 16400000 AIF ('&X8(1)' EQ '&PHASEID').ERR5 16800000 AIF ('&X9(1)' EQ '').X9 17200000 AIF ('&X9(1)' EQ '&PHASEID').ERR5 17600000 AIF ('&XA(1)' EQ '').XA 18000000 AIF ('&XA(1)' EQ '&PHASEID').ERR5 18400000 AIF ('&XB(1)' EQ '').XB 18800000 AIF ('&XB(1)' EQ '&PHASEID').ERR5 19200000 AIF ('&XC(1)' EQ '').XC 19600000 AIF ('&XC(1)' EQ '&PHASEID').ERR5 20000000 AIF ('&XD(1)' EQ '').XD 20400000 AIF ('&XD(1)' EQ '&PHASEID').ERR5 20800000 AIF ('&XE(1)' EQ '').XE 21200000 AIF ('&XE(1)' EQ '&PHASEID').ERR5 21600000 AIF ('&XF(1)' EQ '').XF 22000000 AIF ('&XF(1)' EQ '&PHASEID').ERR5 22400000 .* 22800000 AGO .ERR4 23200000 .* 23600000 .X0 ANOP 24000000 &X0(1) SETC '&PHASEID' 24400000 .X01 AIF (&I+1 GT N'&SYSLIST).END 24800000 &I SETA &I+1 25200000 AIF ('&SYSLIST(&I)' EQ '').X01 25600000 AIF (&J GT 24).ERR6 26000000 &X0(&J+2) SETC '&SYSLIST(&I)' 26400000 &J SETA &J+1 26800000 AGO .X01 27200000 .* 27600000 .X1 ANOP 28000000 &X1(1) SETC '&PHASEID' 28400000 .X11 AIF (&I+1 GT N'&SYSLIST).END 28800000 &I SETA &I+1 29200000 AIF ('&SYSLIST(&I)' EQ '').X11 29600000 AIF (&J GT 24).ERR6 30000000 &X1(&J+2) SETC '&SYSLIST(&I)' 30400000 &J SETA &J+1 30800000 AGO .X11 31200000 .* 31600000 .X2 ANOP 32000000 &X2(1) SETC '&PHASEID' 32400000 .X21 AIF (&I+1 GT N'&SYSLIST).END 32800000 &I SETA &I+1 33200000 AIF ('&SYSLIST(&I)' EQ '').X21 33600000 AIF (&J GT 24).ERR6 34000000 &X2(&J+2) SETC '&SYSLIST(&I)' 34400000 &J SETA &J+1 34800000 AGO .X21 35200000 .* 35600000 .X3 ANOP 36000000 &X3(1) SETC '&PHASEID' 36400000 .X31 AIF (&I+1 GT N'&SYSLIST).END 36800000 &I SETA &I+1 37200000 AIF ('&SYSLIST(&I)' EQ '').X31 37600000 AIF (&J GT 24).ERR6 38000000 &X3(&J+2) SETC '&SYSLIST(&I)' 38400000 &J SETA &J+1 38800000 AGO .X31 39200000 .* 39600000 .X4 ANOP 40000000 &X4(1) SETC '&PHASEID' 40400000 .X41 AIF (&I+1 GT N'&SYSLIST).END 40800000 &I SETA &I+1 41200000 AIF ('&SYSLIST(&I)' EQ '').X41 41600000 AIF (&J GT 24).ERR6 42000000 &X4(&J+2) SETC '&SYSLIST(&I)' 42400000 &J SETA &J+1 42800000 AGO .X41 43200000 .* 43600000 .X5 ANOP 44000000 &X5(1) SETC '&PHASEID' 44400000 .X51 AIF (&I+1 GT N'&SYSLIST).END 44800000 &I SETA &I+1 45200000 AIF ('&SYSLIST(&I)' EQ '').X51 45600000 AIF (&J GT 24).ERR6 46000000 &X5(&J+2) SETC '&SYSLIST(&I)' 46400000 &J SETA &J+1 46800000 AGO .X51 47200000 .* 47600000 .X6 ANOP 48000000 &X6(1) SETC '&PHASEID' 48400000 .X61 AIF (&I+1 GT N'&SYSLIST).END 48800000 &I SETA &I+1 49200000 AIF ('&SYSLIST(&I)' EQ '').X61 49600000 AIF (&J GT 24).ERR6 50000000 &X6(&J+2) SETC '&SYSLIST(&I)' 50400000 &J SETA &J+1 50800000 AGO .X61 51200000 .* 51600000 .X7 ANOP 52000000 &X7(1) SETC '&PHASEID' 52400000 .X71 AIF (&I+1 GT N'&SYSLIST).END 52800000 &I SETA &I+1 53200000 AIF ('&SYSLIST(&I)' EQ '').X71 53600000 AIF (&J GT 24).ERR6 54000000 &X7(&J+2) SETC '&SYSLIST(&I)' 54400000 &J SETA &J+1 54800000 AGO .X71 55200000 .* 55600000 .X8 ANOP 56000000 &X8(1) SETC '&PHASEID' 56400000 .X81 AIF (&I+1 GT N'&SYSLIST).END 56800000 &I SETA &I+1 57200000 AIF ('&SYSLIST(&I)' EQ '').X81 57600000 AIF (&J GT 24).ERR6 58000000 &X8(&J+2) SETC '&SYSLIST(&I)' 58400000 &J SETA &J+1 58800000 AGO .X81 59200000 .* 59600000 .X9 ANOP 60000000 &X9(1) SETC '&PHASEID' 60400000 .X91 AIF (&I+1 GT N'&SYSLIST).END 60800000 &I SETA &I+1 61200000 AIF ('&SYSLIST(&I)' EQ '').X91 61600000 AIF (&J GT 24).ERR6 62000000 &X9(&J+2) SETC '&SYSLIST(&I)' 62400000 &J SETA &J+1 62800000 AGO .X91 63200000 .* 63600000 .XA ANOP 64000000 &XA(1) SETC '&PHASEID' 64400000 .XA1 AIF (&I+1 GT N'&SYSLIST).END 64800000 &I SETA &I+1 65200000 AIF ('&SYSLIST(&I)' EQ '').XA1 65600000 AIF (&J GT 24).ERR6 66000000 &XA(&J+2) SETC '&SYSLIST(&I)' 66400000 &J SETA &J+1 66800000 AGO .XA1 67200000 .* 67600000 .XB ANOP 68000000 &XB(1) SETC '&PHASEID' 68400000 .XB1 AIF (&I+1 GT N'&SYSLIST).END 68800000 &I SETA &I+1 69200000 AIF ('&SYSLIST(&I)' EQ '').XB1 69600000 AIF (&J GT 24).ERR6 70000000 &XB(&J+2) SETC '&SYSLIST(&I)' 70400000 &J SETA &J+1 70800000 AGO .XB1 71200000 .* 71600000 .XC ANOP 72000000 &XC(1) SETC '&PHASEID' 72400000 .XC1 AIF (&I+1 GT N'&SYSLIST).END 72800000 &I SETA &I+1 73200000 AIF ('&SYSLIST(&I)' EQ '').XC1 73600000 AIF (&J GT 24).ERR6 74000000 &XC(&J+2) SETC '&SYSLIST(&I)' 74400000 &J SETA &J+1 74800000 AGO .XC1 75200000 .* 75600000 .XD ANOP 76000000 &XD(1) SETC '&PHASEID' 76400000 .XD1 AIF (&I+1 GT N'&SYSLIST).END 76800000 &I SETA &I+1 77200000 AIF ('&SYSLIST(&I)' EQ '').XD1 77600000 AIF (&J GT 24).ERR6 78000000 &XD(&J+2) SETC '&SYSLIST(&I)' 78400000 &J SETA &J+1 78800000 AGO .XD1 79200000 .* 79600000 .XE ANOP 80000000 &XE(1) SETC '&PHASEID' 80400000 .XE1 AIF (&I+1 GT N'&SYSLIST).END 80800000 &I SETA &I+1 81200000 AIF ('&SYSLIST(&I)' EQ '').XE1 81600000 AIF (&J GT 24).ERR6 82000000 &XE(&J+2) SETC '&SYSLIST(&I)' 82400000 &J SETA &J+1 82800000 AGO .XE1 83200000 .* 83600000 .XF ANOP 84000000 &XF(1) SETC '&PHASEID' 84400000 .XF1 AIF (&I+1 GT N'&SYSLIST).END 84800000 &I SETA &I+1 85200000 AIF ('&SYSLIST(&I)' EQ '').XF1 85600000 AIF (&J GT 24).ERR6 86000000 &XF(&J+2) SETC '&SYSLIST(&I)' 86400000 &J SETA &J+1 86800000 AGO .XF1 87200000 .* 87600000 .ERR1 MNOTE 8,'INVALID OR NO PHASEID FURNISHED.' 88000000 MEXIT 88400000 .ERR4 MNOTE 8,'EXTERNAL ROUTINE NAME ARRAYS FULL.' 88800000 MEXIT 89200000 .ERR5 MNOTE 8,'DUPLICATE PHASEID.' 89600000 MEXIT 90000000 .ERR6 MNOTE 8,'TOO MANY NAMES.' 90400000 MEXIT 90800000 .END AIF (&J GT 0).MEND 91200000 MNOTE 0,'NO ROUTINE NAMES FURNISHED.' 91600000 .MEND MEND 92000000