MACRO , XRETURN - V1M00                                        00010000
&LABEL   XRETURN                                                       +00020000
               &REGS=(14,12),                                          +00030000
               &RC=,                                                   +00040000
               &DSA=                                                    00050000
.*                                                                      00060000
         LCLC  &L                                                       00070000
.*                                                                      00080000
         AIF   ('&DSA' EQ '0').NODSA                                    00090000
.*                                                                      00100000
&LABEL   LH    0,2(13)                                                  00110000
         LR    1,13                                                     00120000
         L     13,4(13)                                                 00130000
.*                                                                      00140000
         AIF   ('&RC' NE '(15)').FREE                                   00150000
.*                                                                      00160000
         LR    2,15                                                     00170000
.*                                                                      00180000
.FREE    ANOP                                                           00190000
.*                                                                      00200000
         FREEMAIN R,LV=(0),A=(1)                                        00210000
.*                                                                      00220000
.RCCHK   AIF   ('&RC' EQ '').NORC                                       00230000
         AIF   ('&RC' NE '(15)').RTRN                                   00240000
.*                                                                      00250000
         LR    15,2                                                     00260000
.*                                                                      00270000
         AGO   .RTRNN                                                   00280000
.RTRN    AIF   ('&RC'(1,1) NE '(').RTRNC                                00290000
.*                                                                      00300000
         LR    15,&RC(1)                                                00310000
.*                                                                      00320000
.RTRNN   ANOP                                                           00330000
.*                                                                      00340000
&L       RETURN &REGS,RC=(15)                                           00350000
         SPACE                                                          00360000
.*                                                                      00370000
         MEXIT                                                          00380000
.RTRNC   ANOP                                                           00390000
.*                                                                      00400000
.*                                                                      00410000
&L       RETURN &REGS,RC=&RC                                            00420000
         SPACE                                                          00430000
.*                                                                      00440000
         MEXIT                                                          00450000
.NORC    ANOP                                                           00460000
.*                                                                      00470000
&L       RETURN &REGS                                                   00480000
         SPACE                                                          00490000
.*                                                                      00500000
         MEXIT                                                          00510000
.NODSA   ANOP                                                           00520000
&L       SETC  '&LABEL'                                                 00530000
         AGO   .RCCHK                                                   00540000
.*                                                                      00550000
         MEND                                                           00560000