* /*                                                                */  03050002
* /* MACCOMP Y-2 SC1DE/SJD61                                        */  03100002
* /* MACSTAT Y-2 73103/Y02113                                       */  03150002
* /*                                                                */  03200002
         MACRO                                                          03250002
&NAME    VERIFY   &RPL=                                                 06000000
         AIF   ('&RPL' NE '').OK                                        09000000
         IHBERMAC 24                                                    12000000
         MEXIT                                                          15000000
.OK      ANOP                                                           18000000
         AIF   ('&RPL'(1,1) EQ '(').RPLR                                21000000
&NAME    LA    1,&RPL                   LOAD RPL ADDR                   24000000
         AGO   .AREG                                                    27000000
.RPLR    AIF   ('&RPL' EQ '(1)').SKLR   IF RPL=(1), SKIP LR INST.       30000000
&NAME    LR    1,&RPL(1)                LOAD RPL ADDRESS IN REG. 1      33000000
         AGO   .AREG                                                    36000000
.SKLR    ANOP                                                           39000000
&NAME    LA    0,6                      INDICATE A VERIFY REQUEST       42000000
         AGO   .AMCALL                                                  45000000
.AREG    ANOP                                                           48000000
         LA    0,6                      INDICATE A VERIFY REQUEST       51000000
.AMCALL  ANOP                                                           54000000
         L     15,24(1)                 GET ACB ADDR FROM RPL           57000000
         L     15,8(15)                 LOAD AM/0 INTERFACE RTN ADDR    60000000
         BALR  14,15                    LINK TO INTERFACE ROUTINE       63000000
         MEND                                                           66000000