MACRO 00001000
DMSLNP &C,&OP,&A1,&A2,&A3,&A4,&A5,&A6 00002000
LCLA &K 00003000
AIF (&C EQ 0).MEND 00004000
AIF ('&A2' EQ '').A1 00005000
AIF ('&A3' EQ '').A2 00006000
AIF ('&A4' EQ '').A3 00007000
AIF ('&A5' EQ '').A4 00008000
AIF ('&A6' EQ '').A5 00009000
MNOTE 8,'DMSLNP012E TOO MANY ARGUMENTS TO DMSLNP' 00010000
.A5 &OP &A1,&A2,&A3,&A4,&A5 00011000
MEXIT 00012000
.A4 &OP &A1,&A2,&A3,&A4 00013000
MEXIT 00014000
.A3 &OP &A1,&A2,&A3 00015000
MEXIT 00016000
.A2 &OP &A1,&A2 00017000
MEXIT 00018000
.A1 &OP &A1 00019000
.MEND MEND 00020000