* /*                                                                 */ 03050002
* /* MACCOMP Y-2 SC1DE/SJD61                                         */ 03100002
* /* MACSTAT Y-2 73103/Y02113                                        */ 03150002
* /*                                                                 */ 03200002
         MACRO                                                          03250002
&NAME    IDAFRCIO &RPL=                                                 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
         LA    0,10                     INDICATE A FORCE I/O REQUEST    42000000
.TYPESET L     15,24(1)                 LOAD ACB ADDRESS FROM RPL       45000000
         L     15,8(15)                 LOAD VSAM INTERFACE RTN ADDR    48000000
         BALR  14,15                    LINK TO INTERFACE ROUTINE       51000000
         MEND                                                           54000000