MACRO                                                          00020000
&NAME    LOCATE &LIST                                                   00040018
         AIF   (T'&LIST EQ 'O').E1                                      00060000
&NAME    IHBINNRA &LIST                     LOAD REG 1                  00080000
         SVC   26                                LINK TO SERVICE ROUT.  00100000
         MEXIT                                                          00120000
.E1      IHBERMAC 34                    LIST ADDR MISSING               00140018
         MEND                                                           00160000