/********************************************************************/ 00200003 /* MACCOMP Y30LB22 SC1DR/BL0019 @Y30LB22*/ 00250003 /* MACSTAT Y30LB22 74/170/341040 @Y30LB22*/ 00300003 /* @Y30LB22*/ 00350003 /* NAME: IEZMVR @Y30LB22*/ 00400003 /* @Y30LB22*/ 00450003 /* FUNCTION: @Y30LB22*/ 00500003 /* MAPS THE REQUEST BLOCK FOR A MODIFY @Y30LB22*/ 00502003 /* BASE OR COPY VOLUME RECORD REQUEST. @Y30LB22*/ 00504003 /* REGISTER 1 MUST POINT TO THE REQUEST @Y30LB22*/ 00506003 /* BLOCK WHEN THE REQUEST IS EXECUTED @Y30LB22*/ 00508003 /* (MACRO ICBVVIC - SVC 126). @Y30LB22*/ 00508403 /* @Y30LB22*/ 00550003 /* STATUS: CHANGE LEVEL = 0 @Y30LB22*/ 00600003 /* @Y30LB22*/ 00650003 /********************************************************************/ 00700003 /* CONSTANTS @Y30LB22*/ 00710003 DCL MVRLEN FIXED(15) INIT (LENGTH(MVR)); /* LENGTH @Y30LB22 00722003 OF REQUEST BLOCK @Y30LB22*/ 00722403 DCL MVROP BIT(8) CONSTANT('85'X); /* REQUEST OP CODE @Y30LB22*/ 00724003 /* MAPPING MACRO @Y30LB22*/ 00742003 DCL 00748403 1 MVR BASED(MVRPTR) BDY(WORD), /*@Y30LB22*/ 00750003 2 MVRLNGTH FIXED(31), /* LENGTH OF REQ. BLK @Y30LB22*/ 00800003 2 MVRCODE CHAR(4), /* OPERATION IDENTIFIER @Y30LB22*/ 00850003 3 MVROPCD BIT(8), /* OP CODE @Y30LB22*/ 00900003 3 * CHAR(3), /* UNUSED @Y30LB22*/ 00950003 2 MVRFLAGA BIT(32), /* INDICATOR FLAGS @Y30LB22*/ 01000003 3 MVRFLFOR BIT(1), /* MVRFOR IS SPECIFIED @Y30LB22*/ 01050003 3 MVRFLGRO BIT(1), /* MVRGROUP SPECIFIED @Y30LB22*/ 01100003 3 MVRFLBAS BIT(1), /* MVRBVOL IS SPECIFIED @Y30LB22*/ 01110003 3 MVRFLDES BIT(1), /* MVRDES IS SPECIFIED @Y30LB22*/ 01150003 3 MVRFLTO BIT(1), /* MVRTO IS SPECIFIED @Y30LB22*/ 01200003 3 MVRFLCSN BIT(1), /* MVRCSN IS SPECIFIED @Y30LB22*/ 01210003 3 MVRFLBK BIT(1), /* MVRBKUPN SPECIFIED @Y30LB22*/ 01250003 3 MVRFLLAB BIT(1), /* MVRLABEL SPECIFIED @Y30LB22*/ 01260003 3 MVRGEN BIT(1), /* GENERAL VOLUME @Y30LB22*/ 01300003 3 MVRRSTD BIT(1), /* RESTRICTED VOLUME @Y30LB22*/ 01400003 3 MVRNGRP BIT(1), /* CHANGE VOL TO NON- @Y30LB22 01500003 GROUPED @Y30LB22*/ 01502003 3 MVRBKUP BIT(1), /* CHANGE COPY TO BCKUP @Y30LB22*/ 01512003 3 MVRNDESC BIT(1), /* NULLIFY DESCRIPTION @Y30LB22*/ 01550003 3 MVRNEXPD BIT(1), /* NULLIFY EXP. DATE @Y30LB22*/ 01600003 3 MVRSLMIS BIT(1), /* SET VOL. LABEL @Y30LB22 01650003 MISMATCH FLAG @Y30LB22*/ 01700003 3 MVRCLMIS BIT(1), /* CLEAR VOL. LABEL @Y30LB22 01750003 MISMATCH FLAG @Y30LB22*/ 01800003 3 MVRCIVCF BIT(1), /* CLEAR INCOMPLETE VOL @Y30LB22 01850003 CREATION FLAG @Y30LB22*/ 01860003 3 MVRCICPY BIT(1), /* CLEAR INCOMPLETE VOL @Y30LB22 01870003 COPY FLAG @Y30LB22*/ 01880003 3 * BIT(14), /* UNUSED @Y30LB22*/ 01890003 2 MVRBVOL CHAR(6), /* VOLID OF BASE OR @Y30LB22 01910003 COPY RECORD @Y30LB22 01960003 TO BE MODIFIED @Y30LB22*/ 02000003 2 MVRFOR FIXED(15), /* NO. OF DAYS USED IN @Y30LB22 02010003 CALCULATING EXP DATE @Y30LB22*/ 02020003 2 MVRGROUP CHAR(8), /* USER SPECIFIED MSVGP @Y30LB22*/ 02050003 2 MVRDES CHAR(30), /* DESCRIPTIVE INFO @Y30LB22*/ 02150003 2 MVRTO CHAR(4), /* JULIAN EXP. DATE @Y30LB22*/ 02200003 2 MVRCSN CHAR(12), /* CARTRIDGE SERIAL @Y30LB22 02210003 NUMBER OF THE VOL @Y30LB22*/ 02220003 2 MVRBKUPN FIXED(8), /* MAX NO. OF ALLOWED @Y30LB22 02250003 BACKUP COPIES @Y30LB22*/ 02300003 2 MVRBLNK1 CHAR(1), /* BLANK @Y30LB22*/ 02350003 2 MVRLABEL CHAR(6), /* SER. NO IN SOFTWARE @Y30LB22*/ 02360003 /* LABEL @Y30LB22*/ 02370003 2 * CHAR(6); /* UNUSED @Y30LB22*/ 02400003