/********************************************************************/ 00800003 /* */ 00830003 /* MACRO NAME = IGGMVEDC */ 00860003 /* */ 00890003 /* DESCRIPTIVE NAME = CATALOG VOLUME ENTRY RECORD */ 00920003 /* */ 00950003 /* FUNCTION = THESE ARE THE MAPPING STRUCTURE DECLARATIONS FOR */ 00980003 /* THE DERIVED VOLUME ENTRY RECORD AND THE NEW */ 01010003 /* VOLUME ENTRY RECORD. THIS INCLUDES STRUCTURES */ 01040003 /* FOR THE FIXED HEADER INFORMATION, THE DERIVED */ 01070003 /* SPACE HEADER GROUP, THE DERIVED SPACE DESCRIPTOR */ 01100003 /* GROUP, AND THE DERIVED DATA SET DIRECTORY GROUP. */ 01130003 /* ALSO CONTAINED ARE THE NEW DATA SPACE GROUP, THE */ 01160003 /* NEW DATA SET DIRECTORY GROUP, THE NEW DATA SET */ 01190003 /* DIRECTORY EXTENSION GROUP, AND THE NEW SPACE MAP */ 01220003 /* GROUP. */ 01250003 /* */ 01280003 /* INCLUDED MACROS = NONE */ 01310003 /* */ 01340003 /* METHOD OF ACCESS = PL/S - RESPECIFY A BASE FOR SOME STRUCTURES */ 01370003 /* */ 01400003 /* STATUS = VS/2 RELEASE 3 (CHANGE FLAG @Y30SSXX) */ 01430003 /* */ 01460003 /* DATE OF LAST CHANGE = 21 JUN 74 */ 01490003 /* */ 01520003 /********************************************************************/ 01550003 /********************************************************************/ 01600003 /* DECLARATION OF THE FIXED INFORMATION IN THE VOLUME RECORD */ 11200003 /********************************************************************/ 11400003 DECLARE 11600003 1 CTVOLRCD BASED(ADDR(NREPLF)) POSITION(2), /* VOLUME RECORD */ 12000003 2 CTVOLNME CHAR(44), /* ENTRY NAME - 6 BYTES FOR */ 12800003 /* VOLUME SERIAL NUMBER AND */ 13600003 /* 38 BYTES OF BINARY ZERO */ 14400003 /* PADDING ON RIGHT */ 15200003 2 CTVOLTIM CHAR(8), /* VOLUME TIME STAMP */ 16000003 2 CTVDVCHR CHAR(20), /* DEVICE CHARACTERISTICS */ 16800003 3 CTVDEVTY CHAR(4), /* VOLUME DEVICE TYPE */ 17600003 3 CTVMXBLK PTR(31)BDY(BYTE), /* MAXIMUM DEVICE BLOCK SIZE */ 18400003 3 CTVNOCYL FIXED(15) BDY(BYTE), /* CYLINDERS THIS DEVICE */ 19200003 3 CTVNOTRK FIXED(15) BDY(BYTE), /* TRACKS PER CYLINDER */ 20000003 3 CTVTRKSZ FIXED(15) BDY(BYTE),/* BYTES PER TRACK */ 20800003 3 CTVBKNLB PTR(8), /* BLOCK OVERHEAD, KEYED NOT LAST*/ 21600003 3 CTVBKLB PTR(8), /* BLOCK OVERHEAD, KEYED LAST */ 22400003 3 CTVBONK PTR(8), /* BLOCK OVERHEAD, NOT KEYED */ 23200003 3 CTVDVFLG BIT(8), /* FLAGS */ 24000003 4 * BIT(7), /* RESERVED */ 24800003 4 CTVTLFLG BIT(1), /* IF ON, USE TOLERANCE FACTOR */ 25600003 /* ON ALL BLOCKS EXCEPT LAST */ 26400003 3 CTVTLFAC FIXED(15) BDY(BYTE), /* TOLERANCE FACTOR */ 27200003 2 CTVOLFLG BIT(8), /* VOLUME RECORD FLAGS */ 28000003 2 CTVSYEDS PTR(8), /* SYSTEM ALLOWED DS EXTENTS */ 28800003 /* PER SUBALLOCATION */ 28850003 2 * CHAR(4); /* RESERVED */ 28900003 /********************************************************************/ 31200003 /* DECLARATION OF THE SPACE HEADER GROUP STRUCTURE THAT CAN */ 32050003 /* BE DERIVED FOR EACH DATA SPACE ON THE VOLUME. NOTE: */ 32100003 /* IF ALL DATA SET DIRECTORIES ON THE VOLUME ARE NOT */ 32150003 /* RETRIEVED IN THE SAME EXTRACT CALL, THE BITS CTVSPUCT */ 32152003 /* AND CTVSPMCT, AND THE FIELD CTVSPNDS MAY BE INCORRECT. */ 32154003 /********************************************************************/ 32854003 DECLARE 33554003 1 CTVSPHDR BASED, /* SPACE HEADER GROUP */ 34400003 2 CTVSPHCV PTR(8), /* COUNT OF VARIABLE FIELDS */ 35200003 2 CTVSPHLF PTR(8), /* LENGTH OF FIXED INFORMATION */ 36000003 2 CTVF1TIM CHAR (8), /* FORMAT 1 DSCB TIME STAMP */ 36800003 2 CTVF1ADR CHAR(5), /* CCHHR OF THE FORMAT 1 DSCB */ 37600003 2 CTVSPFLG BIT(8), /* DATA SPACE FLAGS */ 38400003 3 CTVSPUNQ BIT(1), /* UNIQUE DATA SPACE */ 39200003 3 CTVSPAUT BIT(1), /* AUTOMATICALLY BUILT DATA SPACE*/ 40000003 3 CTVSPUCT BIT(1), /* USER CATALOG IN DATA SPACE */ 40800003 3 CTVSPMCT BIT(1), /* MASTER CATALOG IN DATA SPACE */ 41600003 3 CTVSPCDF BIT(1), /* DATA SPACE BUILT BY CATLG DEF */ 42400003 3 * BIT(3), /* RESERVED */ 44000003 2 CTVSPNDS FIXED(15) BDY(BYTE), /* NO. DATA SETS IN DATA SPC */ 44800003 2 CTVSPNEX PTR(8), /* NO. DATA SPACE EXTENTS */ 45600003 2 CTVSPSPO PTR(8), /* DATA SPACE CREATION SPACE OPTS*/ 46400003 2 CTVSPSQT PTR(24) BDY(BYTE); /* SECONDARY SPACE QUANTITY */ 48000003 /********************************************************************/ 49600003 /* DECLARATION OF THE SPACE DESCRIPTOR GROUP STRUCTURE THAT */ 50400003 /* CAN BE DERIVED FOR EACH EXTENT OF EVERY DATA SPACE. */ 50450003 /********************************************************************/ 50950003 DECLARE 51450003 1 CTVDESGP BASED, /* SPACE DESCRIPTOR GROUP */ 52000003 2 CTVDESCV PTR(8), /* COUNT OF VARIABLE FIELDS */ 52800003 2 CTVDESLF PTR(8), /* LENGTH OF FIXED INFORMATION */ 53600003 2 CTVDESUU FIXED(15), /* ALLOCATION UNITS USED */ 54400003 2 CTVEXTST CHAR(4), /* EXTENT STARTING CCHH ADDRESS */ 55200003 3 CTVSTDES PTR(31) BDY(BYTE), /* CALCULATING CCHH FORM */ 56000003 4 CTVSTCC FIXED(15) BDY(BYTE), /* CYLINDER START */ 56800003 4 CTVSTHH FIXED(15) BDY(BYTE), /* TRACK START */ 57600003 2 CTVDESTK FIXED(15) BDY(BYTE), /* NO. OF TRACKS IN EXTENT */ 58400003 2 CTVDESHD FIXED(15) BDY(BYTE), /* SEQUENCE NUMBER OF THE */ 59200003 /* ASSOCIATED SPACE HEADER GROUP */ 60000003 2 CTVMAPLN PTR(15) BDY(BYTE), /* SPACE MAP LENGTH */ 61600003 2 CTVMAP (*) PTR(8); /* SPACE MAP-RUN LENGTH CODE */ 62400003 /********************************************************************/ 63200003 /* DECLARATION OF THE DATA SET DIRECTORY GROUP THAT CAN BE */ 63250003 /* DERIVED FOR EACH DATA SET ON THE VOLUME. */ 63300003 /********************************************************************/ 64000003 DECLARE 64700003 1 CTVDSGRP BASED, /* DATA SET DIRECTORY GROUP */ 65600003 2 CTVDSGCV PTR(8), /* COUNT OF VARIABLE FIELDS */ 66400003 2 CTVDSGLF PTR(8), /* LENGTH OF FIXED INFORMATION */ 67200003 2 CTVDSNEX PTR(8), /* NO. OF DATA SET EXTENTS */ 68000003 2 CTVDSCID PTR(24) BDY(BYTE), /* DATA SET CI ID VALUE */ 68800003 2 CTVDSDFL BIT(8), /* DATA SET FLAGS */ 69600003 3 CTVDSDCN BIT(1), /* CANDIDATE ON VOL - NO SPACE */ 70400003 3 * BIT(7), /* RESERVED */ 71200003 2 CTVDSXCT PTR(15) BDY(BYTE), /* SPACE HDR DIRECTORY LENGTH */ 72000003 2 CTVDSDIR (*) CHAR(3) BDY(BYTE), /* SPACE HDR SSN ENTRIES */ 72800003 3 CTVSPSSN FIXED(15) BDY(BYTE), /* SPACE HDR GROUP SEQ NO. */ 73600003 3 CTVSPSXC PTR(8); /* NO. OF DS EXT'S IN THE SPACE */ 74400003 /********************************************************************/ 75200003 /* DECLARATION OF THE VOLUME RECORD GROUP OCCURRENCE POINTERS */ 76000003 /********************************************************************/ 76200003 DECLARE 76400003 1 CTVGOPT BASED, /* GROUP OCCURRENCE POINTERS */ 76800003 2 CTVGOCI CHAR(3), /* CI NUMBER OR */ 77600003 3 CTVGOFLG BIT(8), /* GROUP OCCURRENCE FLAG */ 78400003 3 CTVGODSP FIXED(15) /* DISPLACEMENT TO GROUP */ 79200003 BDY(BYTE), /* OCCURRENCE */ 80000003 2 CTVGOGCI PTR(8), /* GROUP CODE INFORMATION */ 80800003 3 CTVGOEXT BIT(1), /* GROUP OCCURRENCE OUTSIDE RECRD*/ 81600003 3 CTVGODEL BIT(1), /* DELETED GROUP OCCURRENCE */ 82400003 3 CTVGOGC BIT(6), /* TRUE GROUP CODE */ 83200003 2 CTVGOSEQ FIXED(15) BDY(BYTE); /* (HIGH) SEQUENCE NUMBER */ 86400003 /********************************************************************/ 88000003 /* DECLARATION OF THE TRUE GROUP CODES IN THE GROUP */ 88080003 /* OCCURRENCE POINTERS (CTVGOGCI) */ 88160003 /********************************************************************/ 88240003 DECLARE /* TRUE GROUP CODES IN G.O.P.'S */ 88320003 CTVDSPHC BIT(8) CONSTANT('06'X), /* DATA SPACE HEADER CODE */ 88400003 CTVDSDGC BIT(8) CONSTANT('08'X), /* DATA SPACE DIRECTORY CODE */ 88480003 CTVDSPDC BIT(8) CONSTANT('07'X); /* DATA SPACE DESCRIPTOR CODE */ 88560003 /********************************************************************/ 88640003 /* DECLARATION OF CONTROL INFORMATION FOR REPEATING FIELDS */ 88800003 /********************************************************************/ 89000003 DECLARE 89200003 1 CTVRCTRL BASED(CCACPE2), /* CONTROL INFORMATION */ 89600003 2 CTVEXRPT CHAR(5), /* REPEATING CONTROL INFORMATION */ 90400003 3 CTVEXGCI CHAR(3), /* CI NUMBER OF EXTENSION RECORD */ 91200003 3 * CHAR(2), /* RESERVED */ 91250003 2 CTVEXRCT PTR(8), /* COUNT OF GROUP OCCUR PTRS */ 96000003 2 CTVEGOPT (*) CHAR(6); /* VARIABLE NO. OF GOP'S */ 96800003 /********************************************************************/ 96850003 /* DECLARATION OF VOLUME ENTRY GROUP CODES (NEW) */ 96910003 /********************************************************************/ 96920003 DECLARE 96930003 SMGC FIXED(8) CONSTANT(5), /* SPACE MAP GROUP CODE */ 96960003 DSPGC FIXED(8) CONSTANT(6), /* DATA SPACE GROUP CODE */ 96970003 DIRGC FIXED(8) CONSTANT(8); /* DATA SET DIRECTORY GROUP CODE */ 96980003 /********************************************************************/ 97000003 /* DECLARATION OF THE SPACE MAP GROUP USED TO SUBALLOCATE */ 97010003 /* VSAM DATA SPACE FOR THE ENTIRE VOLUME. THERE EXIST */ 97020003 /* AS MANY MAXIMUM LENGTH OCCURRENCES AS ARE NECESSARY */ 97030003 /* TO CONTAIN THE ENTIRE MAP. */ 97040003 /********************************************************************/ 97045003 DECLARE 97050003 1 CTVSPMAP BASED, /* SPACE MAP GROUP */ 97060003 2 CTVSMSN FIXED(15), /* SPACE MAP GROUP SEQUENCE NO. */ 97070003 3 CTVSMCV PTR(8), /* COUNT OF VARIABLE FIELDS */ 97090003 3 CTVSMLF PTR(8), /* LENGTH OF FIXED INFORMATION */ 97092003 2 CTVSMLEN FIXED(15), /* BIT MAP LENGTH */ 97094003 2 CTVSMBIT CHAR(*); /* VARIABLE LENGTH SPACE BIT MAP */ 97096003 /********************************************************************/ 97098003 /* DECLARATION OF DATA SPACE GROUP STRUCTURE THAT EXISTS */ 97110003 /* FOR EACH VSAM DATA SPACE ON THE VOLUME */ 97120003 /********************************************************************/ 97130003 DECLARE 97140003 1 CTVDSPAC BASED, /* DATA SPACE GROUP MAPPING */ 97160003 2 CTVDSPSN FIXED(15), /* DATA SPACE GROUP SEQUENCE NO. */ 97170003 3 CTVDSPCV PTR(8), /* COUNT OF VARIABLE FIELDS */ 97180003 3 CTVDSPLF PTR(8), /* LENGTH FIXED INFORMATION */ 97190003 2 CTVF1TME CHAR(8), /* FORMAT 1 DSCB TIME STAMP */ 97192003 2 CTVF1PTR CHAR(5), /* CCHHR OF THE FORMAT 1 DSCB */ 97194003 2 CTVDSPFG BIT(8), /* DATA SPACE FLAGS */ 97196003 3 CTVUNIQ BIT(1), /* UNIQUE DATA SPACE */ 97198003 3 CTVAUTO BIT(1), /* AUTOMATICALLY BUILT SPACE */ 97198403 3 * BIT(2), /* RESERVED */ 97198803 3 CTVCATDF BIT(1), /* DATA SPACE BUILT BY CATLG DEF */ 97199203 3 * BIT(3), /* RESERVED */ 97199703 2 CTVNOEXT PTR(8), /* NO. OF DATA SPACE EXTENTS */ 97199803 2 CTVSPOPT BIT(8), /* DATA SPACE CREATION SPACE OPTS*/ 97199903 2 CTVSQT PTR(24) BDY(BYTE), /* SECONDARY SPACE QUANTITY */ 97226603 2 CTVSPEXT CHAR(64), /* DATA SPACE EXTENT DESCRIPTOR */ 97230603 /* AREA */ 97232603 3 CTVEXTNT(16) CHAR(4) /* EXTENT DESCRIPTORS */ 97233003 BDY(BYTE), 97233103 4 CTVEXTT FIXED(15) /* RELATIVE TRACK NO. OF THE */ 97233203 BDY(BYTE), /* EXTENT */ 97235303 4 CTVEXTNN FIXED(15) /* NO. OF TRACKS IN THE EXTENT */ 97238803 BDY(BYTE); 97240803 /********************************************************************/ 97244403 /* DECLARATION OF DATA SET DIRECTORY GROUP THAT EXISTS FOR */ 97246403 /* EACH DATA SET ON THE VOLUME */ 97248403 /********************************************************************/ 97249203 DECLARE 97250003 1 CTVDIR BASED, /* DATA SET DIRECTORY */ 97300003 2 CTVDSDSN FIXED(15), /* DATA SET DIRECTORY SEQ. NO. */ 97350003 3 CTVDSDCV PTR(8), /* COUNT OF VARIABLE FIELDS */ 97450003 3 CTVDSDLF PTR(8), /* LENGTH OF FIXED FIELDS */ 97500003 2 CTVDSDCI PTR(24) BDY(BYTE); /* ASSOCIATED DATA SET CI NO. */ 97550003 /********************************************************************/ 97600003 /* DECLARATION OF DATA SET DIRECTORY GROUP EXTENSION THAT */ 97650003 /* EXISTS FOR VOLUMES OWNED BY RECOVERABLE CATALOGS. */ 97850003 /********************************************************************/ 98050003 DECLARE 98250003 1 CTVDEXTN BASED(ADDR(CTVDIR) + LENGTH(CTVDIR)),/* DATA SET */ 98450003 /* DIRECTORY EXTENSION @Y30SSJG*/ 98650003 2 CTVDIRTS CHAR(4), /* TIME STAMP @Y30SSJG*/ 98850003 2 CTVDRSTT PTR(24) BDY(BYTE); /* DATA SET SUM TT @Y30SSJG*/ 99050003