/********************************************************************/ 00200003 /* */ 00220042 /* MACCOMP Y30LB22 SC1DR/BL0019 @Y30LB22*/ 00230042 /* MACSTAT Y30LB22 74/172/341040 @Y30LB22*/ 00240042 /* @G24LB37*/ 00242042 /* NAME: IEZMGP @G24LB37*/ 00246042 /* @G24LB37*/ 00248042 /* FUNCTION: @Y30LB22*/ 00500003 /* MAPS THE REQUEST BLOCK FOR A CREATE OR MODIFY @Y30LB22*/ 00504003 /* GROUP RECORD REQUEST. REGISTER 1 MUST @Y30LB22*/ 00506003 /* POINT TO THE REQUEST BLOCK WHEN THE REQUEST IS @Y30LB22*/ 00508003 /* EXECUTED (MACRO ICBVVIC - SVC 126). @G24LB37*/ 00508142 /* @G24LB37*/ 00508242 /* STATUS: MVS @G24LB37*/ 00522242 /* @G24LB37*/ 00524242 /* CHANGE LEVEL: @G24LB37*/ 00526242 /* @G24LB37 ALLOCATE TO MOUNTED VOLUMES 06/07/76 @G24LB37*/ 00528242 /* */ 00532242 /********************************************************************/ 00700003 /* CONSTANTS @Y30LB22*/ 00702003 DCL MGPCGOP BIT(8) CONSTANT('82'X); /*@Y30LB22*/ 00720003 /* CREATE GRP REQ. OP CODE @Y30LB22*/ 00730003 DCL MGPMGOP BIT(8) CONSTANT('83'X); /*@Y30LB22*/ 00740003 /* MODIFY GRP REQ. OP CODE @Y30LB22*/ 00742003 DCL MGPLEN FIXED(15) INIT (LENGTH(MGP)); /*@Y30LB22*/ 00744003 /* REQUEST BLOCK LENGTH @Y30LB22*/ 00746003 DCL 00748803 1 MGP BASED(MGPPTR) BDY(WORD), /*@Y30LB22*/ 00750003 2 MGPLNGTH FIXED(31), /* REQ BLK LENGTH @Y30LB22*/ 00800003 2 MGPCODE CHAR(4), /* OPERATION ID @Y30LB22*/ 00850003 3 MGPOPCD BIT(8), /* OP CODE @Y30LB22*/ 00900003 3 * CHAR(3), /* UNUSED @Y30LB22*/ 00950003 2 MGPGROUP CHAR(8), /* USER DEFINED MSVGP @Y30LB22*/ 01000003 2 MGPOWNER CHAR(10), /* NAME/ID OF OWNER @Y30LB22*/ 01050003 2 MGPRI FIXED(15), /* PRIM SPACE DEFAULT @Y30LB22*/ 01100003 2 MGPSEC FIXED(15), /* SEC SPACE DEFAULT @Y30LB22*/ 01150003 2 MGPRETPD FIXED(15), /* GRP RETENTION PERIOD @Y30LB22*/ 01250003 2 MGPTHOLD FIXED(8), /* GRP THREHOLD PERCENT @Y30LB22*/ 01260003 2 MGPCONUS FIXED(8), /* MAXIMUM NUMBER @G24LB37 01262042 OF CONCURRENT USERS @G24LB37 01264042 PER HOST TO A VOLUME @G24LB37 01266042 WITHIN A GROUP @G24LB37*/ 01268042 2 MGPRESSP FIXED(8), /* PERCENT OF RESERVED @G24LB37 01268442 SPACE PER VOLUME @G24LB37 01268842 WITHIN A GROUP @G24LB37*/ 01269242 2 * CHAR(1), /* UNUSED @G24LB37*/ 01269642 2 MGPDESCR CHAR(30), /* DESCRIPTIVE INFO @Y30LB22*/ 01300003 2 MGPADDR CHAR(30), /* MAILING ADDRESS @Y30LB22*/ 01350003 2 MGPFLAGA BIT(32), /* INDICATOR FLAGS @Y30LB22*/ 01400003 3 MGPRLSE BIT(1), /* UNUSED SPACE TO BE @Y30LB22 01450003 RELEASED @Y30LB22*/ 01500003 3 MGPNRLSE BIT(1), /* UNUSED SPACE NOT TO @Y30LB22 01550003 BE RELEASED @Y30LB22*/ 01600003 3 MGPBIND BIT(1), /* RESERVE ENTIRE VOL @Y30LB22*/ 01650003 3 MGPNBIND BIT(1), /* VOL WILL NOT BE @Y30LB22 01700042 BOUND TO THE @Y30LB22 01750042 STAGING VOLUME @Y30LB22*/ 01760042 3 MGPEXCL BIT(1), /* EXCLUSIVE USE @Y30LB22*/ 01800003 3 MGPSHARE BIT(1), /* SHAREABLE @Y30LB22*/ 01850003 3 MGPRONLY BIT(1), /* READ ONLY @Y30LB22*/ 01900003 3 MGPRW BIT(1), /* VOL IS READ/WRITE @Y30LB22*/ 01950003 3 MGPDERAS BIT(1), /* MSS HDWR WILL ERASE @Y30LB22 02000003 DATA ON DESTAGED VOL @Y30LB22*/ 02050003 3 MGPNDERA BIT(1), /* MSS HDWR WILL NOT @Y30LB22 02100042 ERASE DATA ON @Y30LB22 02150042 DESTAGED VOLUME @Y30LB22*/ 02160042 3 MGPFLGRO BIT(1), /* MGPGROUP SPECIFIED @Y30LB22*/ 02200003 3 MGPFLOWN BIT(1), /* MGPOWNER SPECIFIED @Y30LB22*/ 02210003 3 MGPFLPRI BIT(1), /* MGPPRI IS SPECIFIED @Y30LB22*/ 02250003 3 MGPFLSEC BIT(1), /* MGPSEC IS SPECIFIED @Y30LB22*/ 02300003 3 MGPFLTHO BIT(1), /* MGPTHOLD SPECIFIED @Y30LB22*/ 02350003 3 MGPFLRET BIT(1), /* MGPRETPD SPECIFIED @Y30LB22*/ 02400003 3 MGPFLDES BIT(1), /* MGPDESCR SPECIFIED @Y30LB22*/ 02410003 3 MGPFLADD BIT(1), /* MGPADDR IS SPECIFIED @Y30LB22*/ 02450003 3 MGPNTHLD BIT(1), /* NULLIFY THRESHOLD @Y30LB22 02500003 PERCENT @Y30LB22*/ 02510042 3 MGPNOWNR BIT(1), /* NULLIFY OWNER @Y30LB22*/ 02550003 3 MGPNRETP BIT(1), /* NULLIFY RETEN PERIOD @Y30LB22*/ 02600003 3 MGPNDESC BIT(1), /* NULLIFY DESCRIPTION @Y30LB22*/ 02650003 3 MGPNADDR BIT(1), /* NULLIFY ADDRESS @Y30LB22*/ 02700003 3 MGPFLCON BIT(1), /* MGPCONUS SPECIFIED @G24LB37*/ 02710042 3 MGPFLRES BIT(1), /* MGPRESSP SPECIFIED @G24LB37*/ 02720042 3 * BIT(7), /* UNUSED @G24LB37*/ 02730042 2 * CHAR(4); /* UNUSED @Y30LB22*/ 02850003