* /*                                                                 */ 03050002
* /* MACCOMP Y-2 SC1DE/SJD61                                         */ 03100002
* /* MACSTAT Y-2 73103/Y02113                                        */ 03150002
* /*                                                                 */ 03200002
         MACRO                                                          03250002
&NAME    IDAPFMT  &RPL=,&TYPE=                                          06000000
         AIF   ('&RPL' NE '').OKY                                       09000000
         IHBERMAC 24                                                    12000000
         MEXIT                                                          15000000
.OKY     ANOP                                                           18000000
&NAME    DS    0H                                                       21000000
         AIF   ('&RPL'(1,1) EQ '(').RPLR                                24000000
         LA    1,&RPL                   LOAD RPL ADDRESS                27000000
         AGO   .RPLSET                                                  30000000
.RPLR    AIF   ('&RPL' EQ '(1)').RPLSET                                 33000000
         LR    1,&RPL(1)                LOAD RPL ADDRESS INTO REG. 1    36000000
.RPLSET  ANOP                                                           39000000
         AIF   ('&TYPE' EQ 'INDEX').INDEX                               42000000
         LA    0,8                      INDICATE A DATA PREFORMAT       45000000
         AGO   .TYPESET                                                 48000000
.INDEX   ANOP                                                           51000000
         LA    0,9                      INDICATE AN INDEX PREFORMAT     54000000
.TYPESET L     15,24(1)                 LOAD ACB ADDRESS FROM RPL       57000000
         L     15,8(15)                 LOAD VSAM INTERFACE RTN ADDR    60000000
         BALR  14,15                    LINK TO INTERFACE ROUTINE       63000000
         MEND                                                           66000000