/********************************************************************/ 01000003 /* */ 01030003 /* MACRO NAME = IEZCTGFV */ 01060003 /* */ 01090003 /* DESCRIPTIVE NAME = CATALOG FIELD VECTOR TABLE */ 01120003 /* */ 01150003 /* FUNCTION = THE CATALOG FIELD VECTOR TABLE (CTGFV) IS BUILT */ 01180003 /* BY THE ACCESS METHOD SERVICES (AMS) UTILITY */ 01210003 /* PROGRAMS (WHEN THE USER ISSUES A 'DEFINE' OR */ 01240003 /* 'ALTER' COMMAND) AND CONTAINS ADDRESSES OF */ 01270003 /* USER-SUPPLIED INFORMATION FIELDS AND LISTS. */ 01300003 /* IF THE USER IS CREATING A CLUSTER, A CTGFV */ 01330003 /* IS BUILT FOR EACH CATALOG RECORD THAT WILL BE */ 01360003 /* BUILT TO DESCRIBE THE CLUSTER. */ 01390003 /* */ 01420003 /* CONTROL BLOCK STRUCTURE = THE CLUSTER CTGFV IS POINTED TO BY */ 01450003 /* THE CTGPL (CTGFVT) AND THE DATA */ 01480003 /* AND INDEX CTGFV'S ARE POINTED TO */ 01510003 /* BY THE CLUSTER CTGFV. */ 01540003 /* */ 01570003 /* INCLUDED MACROS = NONE */ 01600003 /* */ 01630003 /* METHOD OF ACCESS = PL/S - NO DECLARES NECESSARY */ 01660003 /* */ 01690003 /* STATUS = VS/2 RELEASE 4 (CHANGE FLAG @Z40RSXX) @Z40RSRC*/ 01720004 /* */ 01750003 /* DATE OF LAST CHANGE = 9 MAY 75 @Z40RSRC*/ 01780004 /* */ 01810003 /********************************************************************/ 01840003 %DECLARE (CTGFVLEN, CTGFV999, CTGFVLVL) CHAR; /*@X04SVDW*/ 02000003 %CTGFVLEN = 'LENGTH(CTGFV)'; /* LENGTH OF CTGFV @X04SVDW*/ 02500003 *%IF CTGFV999 ^= ',' /* IF BLOCK NOT CONTINUED, */ 07000003 * %THEN %CTGFV999 = ';'; /* THEN CLOSE DECLARE STMNT */ 08000003 *%IF CTGFVLVL = '' /* IF BLOCK NOT CONCATENATED, */ 09000003 * %THEN %GOTO CTGFV001; /* THEN GENERATE THE DECLARE */ 10000003 *%CTGFVDUM = CTGFVLVL||' CTGFV'; /* SET MINOR LEVEL NUMBER */ 11000003 * CTGFVDUM /* CTGFV CONCATENATED LEVEL */ 12000003 *%GOTO CTGFV002; /* SKIP THE DECLARE STATEMENT */ 13000003 *%CTGFV001:; /* DECLARE */ 14000003 DECLARE 14500003 * 1 CTGFV BASED(CTGFVT) /* DECLARE CTGFV LEVEL ONE */ 15000003 *%CTGFV002:; /* SKIPPED DECLARE */ 16000003 * BDY(WORD), /* WORD BOUNDARY */ 17000003 * 5 CTGFVTYP CHAR(1), /* ENTRY TYPE (DEFINE) */ 18000003 * 5 CTGFVPRO BIT(8), /* CMS PROCESSING OPTIONS */ 24000003 * 10 CTGFVAVL BIT(1), /* ADD VOLUMES (ALTER) */ 25000003 * 10 CTGFVRVL BIT(1), /* REMOVE VOLUMES (ALTER) */ 26000003 * 10 CTGFVNDC BIT(1), /* NO DEVICE TYPE CONVERSION 26050003 * Y02020*/ 26100003 * 10 CTGFVDRC BIT(1), /* DEFINE RECOVERY CATLG @Y30SSDW*/ 27300003 * 10 CTGFVRON BIT(1), /* SET RACF INDICATOR ON @Z40RSRC*/ 27350004 * 10 CTGFVROF BIT(1), /* ALTER - SET RACF INDICATOR 27400004 * OFF @Z40RSRC*/ 27450004 * 10 * BIT(2), /* RESERVED @Z40RSRC*/ 27600004 * 5 CTGFVELM PTR(8), /* ELEMENT NO. OF FIELD CMSPCATR */ 28000003 * /* IN IGGMCMWA MAPPING */ 28050003 * 5 * CHAR(1), /* RESERVED */ 29000003 * 5 CTGFVDCH PTR(31), /* DATA VECTOR TABLE ADDRESS */ 30000003 * 5 CTGFVICH PTR(31), /* INDEX VECTOR TABLE ADDRESS */ 31000003 * 5 CTGFVVCH PTR(31), /* SPACE VECTOR TABLE ADDRESS */ 32000003 * 5 CTGFVIND PTR(31), /* JCL STMNT NAME ADDRESS */ 33000003 * 5 CTGFVENT PTR(31), /* ENTRY NAME FIELD ADDRESS */ 34000003 * 5 CTGFVSTY PTR(31), /* SECURITY COMBINATION FPL ADDR */ 35000003 * 5 CTGFVOWN PTR(31), /* OWNER ID FPL ADDRESS */ 36000003 * 5 CTGFVEXP PTR(31), /* EXPIRATION DATE FPL ADDRESS */ 37000003 * 5 CTGFVCRE PTR(31), /* CREATION DATE FPL ADDRESS */ 38000003 * 5 CTGFVVLT PTR(31), /* VOLUME SERIAL LIST ADDRESS */ 39000003 * 5 CTGFVRNG PTR(31), /* KEY RANGES LIST ADDRESS */ 40000003 * 5 CTGFVDVT PTR(31), /* ALIEN DEVICE TYPE FPL ADDRESS */ 41000003 * 5 CTGFVSPC PTR(31), /* SPACE PARM COMBO FPL ADDRESS */ 42000003 * 10 CTGFVTTR PTR(31), /* PTR TO NONVSAM DSCB TTR Y02020*/ 42050003 * 5 CTGFVAMD PTR(31), /* AMDSB FPL ADDRESS */ 43000003 10 CTGFVFSN PTR(31), /* ALIEN DATA SET SEQUENCE */ 44000003 /* NUMBER FPL ADDRESS */ 45000003 * 5 CTGFVATR PTR(31), /* DATA SET ATTRIBUTES FPL ADDR */ 46000003 * 5 CTGFVBUF PTR(31), /* BUFFER SIZE FPL ADDRESS */ 47000003 * 5 CTGFVLRS PTR(31), /* AVERAGE RECORD SIZE FPL ADDR */ 48000003 * 5 CTGFVLMT PTR(31), /* ADDRS OF GDG LIMIT Y02020*/ 48010003 * 6 CTGFVEXT PTR(31), /* ADDRESS OF EXCEPTION @Y30SSRS*/ 48060103 * /* EXIT FPL @Y30SSRS*/ 48070003 5 CTGFVGAT PTR(31), /* ADDRS OF GDG ATTRIBUTES Y02020*/ 48110003 * 6 CTGFVUPG PTR(31), /* ADDR OF PATH/AIX @Y30SSRS*/ 48130003 * /* ATTRIBUTES FPL @Y30SSRS*/ 48180003 * 5 CTGFVNAM PTR(31), /* ADDRESS OF TRUE NAME Y02020*/ 48218003 /* OR RELATED NAME @Y30SSRS*/ 48228003 * 5 CTGFVPWD PTR(31), /* ADDR OF 8-BYTE @Y30SSRS*/ 48250003 * /* REL OBJ PASSWORD @Y30SSRS*/ 48300003 * 6 CTGFVCPP PTR(31), /* ADDR OF TSO COMMAND PROCESSOR 48310004 * PARAMETER LIST (CPPL -- 48320004 * TSO COMMAND CALLERS ONLY). 48330004 * IF ZERO, DAIRFAIL MESSAGES 48340004 * WILL BE WTP'S. @Z40RSRC*/ 48342004 * 5 CTGFVWKA PTR(31) CTGFV999 /*CRA FEEDBACK AREA ADDR @Y30SSRS*/ 48350003 /********************************************************************/ 48400003 /* CONSTANTS USED TO SET AND/OR TEST FIELDS DECLARED ABOVE */ 48600003 /********************************************************************/ 48800003 DECLARE /* ENTRY TYPE - CTGFVTYP */ 49000003 CTGFVDTA CHAR(1) CONSTANT('D'), /* DATA */ 52000003 CTGFVCL CHAR(1) CONSTANT('C'), /* CLUSTER */ 55000003 CTGFVIDX CHAR(1) CONSTANT('I'), /* INDEX */ 58000003 CTGFVVOL CHAR(1) CONSTANT('V'), /* VOLUME (SPACE) */ 61000003 CTGFVALN CHAR(1) CONSTANT('A'), /* ALIEN */ 64000003 CTGFVGBS CHAR(1) CONSTANT('B'), /* GDG BASE Y02020*/ 64050003 CTGFVANM CHAR(1) CONSTANT('X'), /* ALIAS NAME Y02020*/ 64100003 CTGFVPTH CHAR(1) CONSTANT('R'), /* PATH @Y30SSRS*/ 67000003 CTGFVAIX CHAR(1) CONSTANT('G'); /* ALTERNATE INDEX @Y30SSRS*/ 70000003