MACRO 00001000
&NAME MSG &ARG1,&ARG2 00002000
LCLA &CNT,&CODE 00003000
LCLC &LEN 00004000
&LEN SETC 'L''' 00005000
AIF (T'&ARG2 EQ 'O').M3 00006000
AIF (T'&ARG1 EQ 'O').M1 00007000
&CODE SETA &ARG1 00008000
.M1 ANOP 00009000
AIF ('&ARG2'(1,1) NE '''').M2 00010000
&CNT SETA K'&ARG2-2 00011000
&NAME LA R0,&CNT 00012000
LA R1,=C&ARG2 00013000
LA R2,&CODE 00014000
MEXIT 00015000
.M2 ANOP 00016000
&NAME LA R0,&LEN&ARG2 00017000
LA R1,&ARG2 00018000
LA R2,&CODE 00019000
MEXIT 00020000
.M3 ANOP 00021000
AIF ('&ARG1'(1,1) NE '''').M4 00022000
&CNT SETA K'&ARG1-2 00023000
&NAME LA R0,&CNT 00024000
LA R1,=C&ARG1 00025000
MEXIT 00026000
.M4 ANOP 00027000
LA R0,&LEN&ARG1 00028000
LA R1,&ARG1 00029000
MEND 00030000