/********************************************************************/ 00090003 /* MACCOMP Y30LB22 SC1DR/BL0019 @Y30LB22*/ 00092003 /* MACSTAT Y30LB22 74/170/341040 @Y30LB22*/ 00094003 /* @Y30LB22*/ 00096003 /* NAME: IEZRVR @Y30LB22*/ 00098003 /* @Y30LB22*/ 00098403 /* FUNCTION: @Y30LB22*/ 00098803 /* MAPS THE REQUEST BLOCK FOR A REMOVE @Y30LB22*/ 00113903 /* BASE OR COPY VOLUME RECORD REQUEST @Y30LB22*/ 00123903 /* REGISTER 1 MUST POINT TO THE REQUEST @Y30LB22*/ 00125903 /* BLOCK WHEN THE REQUEST IS EXECUTED @Y30LB22*/ 00127903 /* (MACRO ICBVVIC - SVC 126). @Y30LB22*/ 00128303 /* @Y30LB22*/ 00189603 /* STATUS: CHANGE LEVEL = 0 @Y30LB22*/ 00204703 /* @Y30LB22*/ 00219803 /********************************************************************/ 00229803 /* CONSTANTS @Y30LB22*/ 00244903 DCL RVRLEN FIXED(15) INIT (LENGTH(RVR)); /* LENGTH OF @Y30LB22 00247303 REQUEST BLOCK @Y30LB22*/ 00247403 DCL RVROP BIT(8) CONSTANT('81'X); /*REQUEST OP CODE @Y30LB22*/ 00247703 /********************************************************************/ 00249303 /* MAPPING MACRO @Y30LB22*/ 00249703 /********************************************************************/ 00249803 DCL 00276603 1 RVR BASED(RVRPTR) BDY(WORD), /*@Y30LB22*/ 00283303 2 RVRLNGTH FIXED(31), /* LENGTH OF REQ BLK @Y30LB22*/ 00300003 2 RVRCODE CHAR(4), /* OPERATION IDENTIFIER @Y30LB22*/ 00350003 3 RVROPCD BIT(8), /* OPCODE @Y30LB22*/ 00400003 3 * CHAR(3), /* UNUSED @Y30LB22*/ 00450003 2 RVRVOLID CHAR(6), /* SER NO OF VOL WHOSE @Y30LB22 00500003 REC IS TO BE REMOVED @Y30LB22*/ 00550003 2 RVRBLNK1 CHAR(1), /* BLANK @Y30LB22*/ 00552003 2 RVRCPYID FIXED(8), /* ID OF A COPY RECORD @Y30LB22*/ 00560003 2 RVRFLAGA BIT(32), /* INDICATOR FLAGS @Y30LB22*/ 00600003 3 RVRBASEV BIT(1), /* THE BASE VOLUME REC @Y30LB22 00650003 IS TO BE REMOVED @Y30LB22*/ 00700003 3 RVRCOPYV BIT(1), /* THE COPY VOLUME REC @Y30LB22 00800003 IS TO BE REMOVED @Y30LB22*/ 00850003 3 * BIT(30), /* UNUSED @Y30LB22*/ 00900003 2 * CHAR(4); /* UNUSED @Y30LB22*/ 00950003