MACRO                                                                 01000021
&NAME EXCPVR &IOB,&REQSTR                                               02000021
 AIF ( '&IOB' EQ '' OR ( '&REQSTR' NE 'SUBSYS' AND '&REQSTR' NE        X03000021
               'PAGING' AND '&REQSTR' NE '')).E1                ZA04100 04000003
&NAME IHBINNRA &IOB                                                     05000021
 AIF ('&REQSTR' EQ 'PAGING').PAGE                                       06000021
         B     *+6                                                      07000021
         DC    X'F400'                                                  08000021
         ICM   1,B'1000',*-2                                            09000021
  AGO .SVC                                                              10000021
.PAGE ANOP                                                              11000021
         B     *+6                                                      12000021
         DC    X'F800'                                                  13000021
         ICM   1,B'1000',*-2                                            14000021
.SVC ANOP                                                               15000021
 SR 0,0                                                                 16000021
 SVC 114                                                                17000021
 MEXIT                                                                  18000021
.E1 IHBERMAC 01,039                                                     19000021
  MEND                                                                  20000021