MACRO                                                          00050002
         IRAPMP                                                         00100002
         GBLB  &IRAPMPS                                                 00150002
.*A000000-999999                                                 Y02014 00200002
.* DETERMINE IF MAP ALREADY EXPANDED                                    00250002
         AIF   (&IRAPMPS).XPNDED                                        00300002
.* EXPAND THE MAPPING MACRO                                             00350002
.EXPAND  ANOP                                                           00400002
&IRAPMPS SETB  1                                                        00450002
*                                                                       00500002
* SYMBOLIC EID TABLE FOR THE HOOK MACRO                                 00550002
*                                                                       00600002
IRASRM   EQU   X'040001'                                                00650002
.XPNDED  MEND                                                           00750002