/********************************************************************/ 00090003
 /*          MACCOMP  Y30LB22          SC1DR/BL0019          @Y30LB22*/ 00092003
 /*          MACSTAT  Y30LB22          74/170/341040         @Y30LB22*/ 00094003
 /*                                                                   */00096003
 /*          NAME: IEZINDEX                                  @Y30LB22*/ 00098003
 /*                                                                   */00098403
 /*          FUNCTION: MAPPING MACRO                         @Y30LB22*/ 00098803
 /*          CARTRIDGE RECORDS PROVIDE A PATH TO             @Y30LB22*/ 00098903
 /*          VOLUME RECORDS WHEN ONLY A CARTRIDGE(S) IS      @Y30LB22*/ 00099003
 /*          KNOWN.                                          @Y30LB22*/ 00099103
 /*                                                                   */00099203
 /*          STATUS:  CHANGE LEVEL = 0                       @Y30LB22*/ 00099603
 /*                                                                   */00099703
 /********************************************************************/ 00099803
     DCL                                                                00149803
       1        INDEX BASED(INDEXPTR) BDY(WORD),           /*@Y30LB22*/ 00250003
         2      INDNAME   CHAR(13),  /* KEY OF CARTRIDGE     @Y30LB22*/ 00300003
           3    INDI      CHAR(1),   /* LETTER I             @Y30LB22*/ 00350003
           3    INDSERNO  CHAR(12),  /* SER NO. OF CARTRIDGE @Y30LB22*/ 00400003
         2      INDTYPE   BIT(16),   /* RECORD TYPE FLAG     @Y30LB22*/ 00450003
           3    INDRES1   BIT(4),    /* RESERVED             @Y30LB22*/ 00500003
           3    INDINDEX  BIT(1),    /* CARTRIDGE RECORD     @Y30LB22*/ 00550003
           3    INDRES2   BIT(11),   /* RESERVED             @Y30LB22*/ 00600003
         2      INDRECKY  CHAR(13),  /* RECORD KEY OF VOLUME @Y30LB22   00650003
                                        TO WHICH THIS CART.  @Y30LB22   00700003
                                        BELONGS              @Y30LB22*/ 00750003
           3    INDPREFX  CHAR(5),   /* A LETTER & 4 BLANKS  @Y30LB22*/ 00800003
             4  INDALPHA  CHAR(1),   /* ALPHA CHARACTER      @Y30LB22*/ 00850003
             4  INDBLNK1  CHAR(4),   /* BLANKS               @Y30LB22*/ 00900003
           3    INDVSRNO  CHAR(6),   /* VOL SER NUMBER       @Y30LB22*/ 00950003
           3    INDRECID  CHAR(2),   /* RECORD ID            @Y30LB22*/ 01000003
             4  INDBLNK2  CHAR(1),   /* BLANK                @Y30LB22*/ 01050003
             4  INDEXREC  BIT(8),    /* RECORD INDEX NO.     @Y30LB22*/ 01100003
         2      *         CHAR(8);   /* UNUSED               @Y30LB22*/ 01150003