MACRO                                                          03000000
&NAME    ERASE   &RPL=                                                  06000000
.* /*                                                              */   06050002
.* /*    MACCOMP Y-2 SC1DE/SJD61                                   */   06100002
.* /*    MACSTAT Y-2 73103/Y02113                                  */   06150002
.* /*                                                              */   06200002
         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 ADDR                   27000000
         AGO   .AREG                                                    30000000
.RPLR    AIF   ('&RPL' EQ '(1)').AREG   IF RPL=(1),SKIP LR INSTRUCTION  33000000
         LR    1,&RPL(1)                LOAD RPL ADDR IN REG.1          36000000
.AREG    LA    0,X'05'                  INDICATE ERASE IN REG           39000000
         L     15,24(1)                 LOAD ACB ADDR FROM RPL          42000000
         L     15,8(15)                 LOAD AM/0 INTERFACE RTN ADDR    45000000
         BALR  14,15                    LINK TO INTERFACE ROUTINE       48000000
         MEND                                                           51000000