/********************************************************************/ 00090003
 /*          MACCOMP  Y30LB22          SC1DR/BL0019          @Y30LB22*/ 00092003
 /*          MACSTAT  Y30LB22          74/170/341040         @Y30LB22*/ 00094003
 /*                                                                   */00096003
 /*          NAME: IEZMCRTE                                  @Y30LB22*/ 00098003
 /*                                                                   */00098403
 /*          FUNCTION:                                       @Y30LB22*/ 00098803
 /*                  MAPS THE REQUEST BLOCK                  @Y30LB22*/ 00102903
 /*                  EXTENSION WHICH IS USED TO PASS         @Y30LB22*/ 00104903
 /*                  ADDITIONAL INFORMATION TO MASS          @Y30LB22*/ 00106903
 /*                  STORAGE VOLUME  CONTROL DURING          @Y30LB22*/ 00107803
 /*                  AN MOVE CARTRIDGE REQUEST.              @Y30LB22*/ 00108203
 /*                                                                   */00119003
 /*          STATUS:  CHANGE LEVEL = 0                       #Y30LB22*/ 00123003
 /*                                                          @Y30LB22*/ 00127003
 /********************************************************************/ 00131003
    /* CONSTANTS FOR IEZMCRTE                                @Y30LB22*/ 00133003
     DCL  MCRLEN  FIXED(15) INIT(LENGTH(MCRTE)); /* LENGTH   @Y30LB22   00133403
                                            OF EXTENSION     @Y30LB22*/ 00133803
    /* MAPPING MACRO DECLARES                                @Y30LB22*/ 00135003
     DCL                                                                00175003
       1        MCRTE BASED(MCRTEPTR) BDY(WORD),                        00250003
         2      MCRLNGTH  FIXED(31), /* LENGTH OF EXTENSION  @Y30LB22*/ 00260003
         2      MCRLOC    CHAR(30),  /* LOCATION/DESTINATION OF         00300003
                                        VOL AFTER EJECTION   @Y30LB22*/ 00350003
         2      MCRFLAGA  BIT(8),    /* SPECIFICATION FLAGS  @Y30LB22*/ 00400003
           3    MCRSPLOC  BIT(1),    /* MCRLOC IS SPECIFIED  @Y30LB22*/ 00450003
           3    *         BIT(7),    /* UNUSED               @Y30LB22*/ 00500003
         2      MCRBLNK1  CHAR(1),   /* BLANK                @Y30LB22*/ 00510003
         2      MCRFLAGB  BIT(32),   /* INDICATOR FLAGS      @Y30LB22*/ 00550003
           3    *         BIT(8),    /* UNUSED               @Y30LB22*/ 00600003
           3    *         BIT(8),    /* UNUSED               @Y30LB22*/ 00650003
           3    MCRTYPE   BIT(8),    /* MOVE CART. TYPE FLAG @Y30LB22*/ 00700003
             4  MCRREC    BIT(1),    /* BIT 0=1, REC RETAIN  @Y30LB22   00750003
                                        BIT 0=0, REC DELETE  @Y30LB22*/ 00800003
             4  *         BIT(7),    /* UNUSED               @Y30LB22*/ 00850003
           3    *         BIT(8),    /* UNUSED               @Y30LB22*/ 00900003
         2      *         CHAR(4);   /* UNUSED               @Y30LB22*/ 00950003