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