MACRO 00001000
&LABEL MSG &NUM,&VAR 00002000
LCLA &TOFF,&TVARS 00003000
LCLC &NDX,&COFF 00004000
&NDX SETC '&SYSNDX'(3,2) 00005000
&LABEL BAL 1,MEND&NDX 00006000
M&NDX DC AL2(&NUM),AL2(0) 00007000
AIF (N'&SYSLIST(2) EQ 0).NOVAR 00008000
&TOFF SETA N'&SYSLIST(2) 00009000
&COFF SETC '&TOFF' 00010000
P&NDX DC &COFF.CL8' ' 00011000
.NOVAR ANOP 00012000
MEND&NDX EQU * 00013000
AIF (N'&SYSLIST(2) EQ 0).NOVAR1 00014000
&TOFF SETA 0 00015000
&TVARS SETA 1 00016000
.MLOP ANOP 00017000
&COFF SETC '&TOFF' 00018000
MVC P&NDX+&COFF.(8),&SYSLIST(2,&TVARS) 00019000
&TOFF SETA &TOFF+8 00020000
&TVARS SETA &TVARS+1 00021000
AIF (&TVARS LE N'&SYSLIST(2)).MLOP 00022000
.NOVAR1 ANOP 00023000
LA 0,MEND&NDX-M&NDX 00024000
BAL 14,MSG 00025000
SPACE 1 00026000
MEND 00027000