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