/********************************************************************/ 00090003 /* */ 00090842 /* MACCOMP Y30LB22 SC1DR/BL0019 @Y30LB22*/ 00091242 /* MACSTAT Y30LB22 74/170/341040 @Y30LB22*/ 00091642 /* @Y30LB22*/ 00091742 /* NAME: IEZGVSNE @Y30LB22*/ 00091842 /* @Y30LB22*/ 00091942 /* FUNCTION: MAPPING MACRO @Y30LB22*/ 00098803 /* THE GROUP EXTENSION RECORD PROVIDES MOUNT AND @Y30LB22*/ 00098903 /* SPACE INFORMATION FOR THE 'GENERAL' USE @Y30LB22*/ 00112003 /* VOLUMES IN THE GROUP @Y30LB22*/ 00118303 /* @Y30LB22*/ 00120342 /* STATUS: MVS @G24LB37*/ 00122342 /* @Y30LB22*/ 00122742 /* CHANGE LEVEL: @G24LB37*/ 00123142 /* @G24LB37 ALLOCATE TO MOUNTED VOLUMES 06/07/76 @G24LB37*/ 00123542 /* */ 00124342 /********************************************************************/ 00143503 DCL GVSNSLOT FIXED(31) CONSTANT(48); /* NO. OF SLOTS @Y30LB22*/ 00149803 /********************************************************************/ 00199803 DCL 1 GVSNE BASED(GVSNEPTR) BDY(WORD), /*@Y30LB22*/ 00300003 2 GVSHDR, /* HEADER FIELD @Y30LB22*/ 00310003 3 GVSNAME CHAR(13), /* KEY FOR GVSNE @Y30LB22 00350003 RECORD @Y30LB22*/ 00400003 4 GVSG CHAR(3), /* G AND 2 BLANKS @Y30LB22*/ 00450003 4 GVSVVGRP CHAR(8), /* MSVGP NAME @Y30LB22*/ 00500003 4 GVSID CHAR(2), /* EXTENSION RCD ID @Y30LB22*/ 00550003 5 GVSRES1 CHAR(1), /* RESERVED @G24LB37*/ 00600042 5 GVSNO FIXED(8), /* BINARY NO FOR THE @Y30LB22 00650003 EXTENSION RECORD @Y30LB22*/ 00700003 3 GVSFLAGA BIT(32), /* INDICATOR FLAGS @Y30LB22*/ 00750003 4 GVSTYPE BIT(16), /* RECORD TYPE @Y30LB22*/ 00800003 5 * BIT(1), /* UNUSED @G24LB37*/ 00850042 5 GVSGVSEX BIT(1), /* VOL SER EXTENSION @Y30LB22*/ 00900003 5 * BIT(14), /* UNUSED @G24LB37*/ 00950042 4 GVSEX BIT(1), /* ANOTHER EXTENSION @Y30LB22 01000003 RECORD EXISTS @Y30LB22*/ 01010003 4 * BIT(15), /* UNUSED @Y30LB22*/ 01100003 3 * CHAR(1), /* UNUSED @Y30LB22*/ 01150003 3 GVSESIND FIXED(15), /* NEXT EMPTY SLOT @Y30LB22 01200003 INDEX @Y30LB22*/ 01210003 3 * CHAR(8), /* UNUSED @Y30LB22*/ 01220003 2 GVSSLOTS (GVSNSLOT) BDY(HWORD), /*@Y30LB22 01250003 SLOT ARRAY @Y30LB22*/ 01260003 3 GVSVOLID CHAR(6), /* SER NO OF VOL IN @Y30LB22 01300003 THIS SLOT @Y30LB22*/ 01360003 3 GVSVOLFL BIT(32), /* INDICATOR FLAGS @Y30LB22*/ 01400003 4 GVSCPUBM BIT(16), /* CPU ASSOC BIT MAP @Y30LB22*/ 01450003 4 GVSRCFSI BIT(1), /* RUNNING COUNT @G24LB37 01500042 (GVSMTDSP) IS @G24LB37 01510042 INVALID @G24LB37*/ 01520042 4 GVSMTNSH BIT(1), /* MOUNTED TO HOST @G24LB37 01530042 NON-SHARED @G24LB37*/ 01540042 4 * BIT(14), /* UNUSED @G24LB37*/ 01542042 3 GVSFRESP FIXED(15), /* NO OF FREE CYL @Y30LB22*/ 01600003 3 GVSLEXT FIXED(15), /* NO OF CYL IN THE @Y30LB22 01650003 LARGEST FREE EXT @Y30LB22*/ 01700003 3 GVSEXPDT CHAR(4), /* EXPIRATION DATE @Y30LB22*/ 01750003 3 GVSMTDSP FIXED(15); /* RUNNING COUNT OF @G24LB37 01760042 AVAILABLE SPACE @G24LB37 01770042 REMAINING ON VOL @G24LB37 01780042 IN CYLINDERS @G24LB37*/ 01790042