/********************************************************************/ 00090003 /* MACCOMP Y30LB22 SC1DR/BL0019 @Y30LB22*/ 00092003 /* MACSTAT Y30LB22 74/317/341040 @Y30LB22*/ 00094003 /* @Y30LB22*/ 00096003 /* NAME: IEZDEFVE @Y30LB22*/ 00098003 /* @Y30LB22*/ 00098403 /* FUNCTION: @Y30LB22*/ 00098803 /* MAPS THE REQUEST BLOCK EXTENSION @Y30LB22*/ 00105503 /* WHICH IS USED TO PASS ADDITIONAL INFORMATION @Y30LB22*/ 00107503 /* TO MSVC DURING AN DEFINE VOLUME MASS STORAGE REQUEST. */ 00109503 /* @Y30LB22*/ 00166403 /* STATUS: CHANGE LEVEL = 0 @Y30LB22*/ 00199803 /* @Y30LB22*/ 00233203 /********************************************************************/ 00266603 /* CONSTANTS FOR IEZDEFVE @Y30LB22*/ 00276603 DCL DEFLEN FIXED(15) INIT(LENGTH(DEFVE)); /* LENGTH @Y30LB22 00286603 OF EXTENSION @Y30LB22*/ 00296603 DCL 00316603 1 DEFVE BASED(DEFVEPTR) BDY(WORD), /*@Y30LB22*/ 00350003 2 DEFLNGTH FIXED(31), /* LENGTH OF EXTENSION @Y30LB22*/ 00360003 2 DEFGROUP CHAR(8), /* NAME OF USER MSVGP @Y30LB22*/ 00400003 2 DEFDESCR CHAR(30), /* DESCRIPTIVE INFO @Y30LB22*/ 00450003 2 DEFTO CHAR(4), /* EXPIRATION DATE @Y30LB22*/ 00550003 2 DEFFOR FIXED(15), /* NO DAYS USED IN CAL- @Y30LB22 00600003 CULATING EXP. DATE @Y30LB22*/ 00650003 2 DEFBKUPN FIXED(8), /* MAX. NO. BKUP COPIES @Y30LB22*/ 00660003 2 DEFLABEL CHAR(6), /* SER. NO IN SOFTWARE @Y30LB22 00700003 LABEL @Y30LB22*/ 00710003 2 DEFFLAGA BIT(8), /* INDICATOR FLAGS @Y30LB22*/ 00750003 3 DEFPFOR BIT(1), /* DEFFOR IS SPECIFIED @Y30LB22*/ 00800003 3 DEFPVLAB BIT(1), /* DEFLABEL SPECIFIED @Y30LB22*/ 00850003 3 DEFPGRO BIT(1), /* DEFGROUP SPECIFIED @Y30LB22*/ 00900003 3 DEFPDESC BIT(1), /* DEFDESCR SPECIFIED @Y30LB22*/ 00950003 3 DEFPTO BIT(1), /* DEFTO IS SPECIFIED @Y30LB22*/ 01000003 3 DEFPBKUP BIT(1), /* DEFBKUPN SPECIFIED @Y30LB22*/ 01050003 3 * BIT(2), /* UNUSED @Y30LB22*/ 01100003 2 DEFFLAGB CHAR(4), /* STATUS FLAGS @Y30LB22*/ 01150003 3 DEFSETFL BIT(8), /* RECOVERY FLAGS @Y30LB22 01200003 INDICATORS @Y30LB22*/ 01210003 4 DEFSRCVY BIT(1), /* SET RECOVERY FLAGS @Y30LB22*/ 01250003 4 DEFCRCVY BIT(1), /* CLEAR RECOVERY FLAGS @Y30LB22*/ 01350003 4 * BIT(6), /* UNUSED @Y30LB22*/ 01550003 3 DEFRECFL BIT(8), /* RECOVERY FLAGS @Y30LB22*/ 01600003 4 DEFICOPY BIT(1), /* INCOMPLETE COPY OPER @Y30LB22*/ 01650003 4 DEFCREAT BIT(1), /* INCOMPLETE CREATION @Y30LB22*/ 01700003 4 DEFLAMIS BIT(1), /* VOL LABEL MISMATCH @Y30LB22*/ 01750003 4 * BIT(5), /* UNUSED @Y30LB22*/ 01800003 3 DEFTYPFL BIT(8), /* VOLUME TYPE FLAGS @Y30LB22*/ 01850003 4 DEFGENUS BIT(1), /* GENERAL USE TYPE VOL @Y30LB22*/ 01900003 4 DEFRSTD BIT(1), /* RESTRICTED TYPE VOL @Y30LB22*/ 01950003 4 DEFDUP BIT(1), /* DUPLICATE TYPE VOL @Y30LB22*/ 02000003 4 DEFCOPY BIT(1), /* COPY TYPE VOLUME @Y30LB22*/ 02002003 4 * BIT(4), /* UNUSED @Y30LB22*/ 02050003 3 DEFNULFL BIT(8), /* NULLIFY FLAGS @Y30LB22*/ 02100003 4 DEFNGRP BIT(1), /* CHANGE TO NONGROUP @Y30LB22*/ 02150003 4 DEFNDESC BIT(1), /* NULLIFY THE DESCR @Y30LB22*/ 02200003 4 DEFNEXPD BIT(1), /* NULLIFY THE EXP DATE @Y30LB22*/ 02250003 4 * BIT(5), /* UNUSED @Y30LB22*/ 02350003 2 * CHAR(4); /* UNUSED @Y30LB22*/ 02400003