/********************************************************************/ 00050003 /* */ 00100003 /* MACRO NAME = IGGMDCRA */ 00150003 /* */ 00200003 /* DESCRIPTIVE NAME = DECLARATIONS FOR DEFINE CATALOG */ 00250003 /* RECOVERY AREA PROCESSING */ 00300003 /* */ 00350003 /* FUNCTION = CONTAINS THE MAPPING STRUCTURE FOR THE DEFINE */ 00400003 /* CATALOG RECOVERY AREA WORKAREA, RECORD MAPPING */ 00450003 /* STRUCTURES, AND CONSTANTS AND REGISTER */ 00500003 /* DECLARATIONS USED IN DEFINE CRA PROCESSING. */ 00550003 /* */ 00600003 /* INCLUDED MACROS = NONE */ 00650003 /* */ 00700003 /* METHOD OF ACCESS = PL/S - RESPECIFY A BASE FOR SOME STRUCTURES */ 00750003 /* */ 00800003 /* STATUS = VS/2 RELEASE 3 (CHANGE FLAG @Y30SSXX) */ 00850003 /* */ 00900003 /* DATE OF LAST CHANGE = 3 SEPT 75 @ZA05914 */ 00950003 /* */ 01000003 /********************************************************************/ 01050003 /********************************************************************/ 01100003 /* DECLARE BASE REGISTER FOR THE DEFINE CRA WORKAREA */ 01150003 /********************************************************************/ 01200003 DECLARE 01250003 DCRAWAPR PTR(31) REG(3) RSTD; /* POINTER TO DEFINE CRA WORKAREA*/ 01300003 /********************************************************************/ 01310003 /* D E F I N E C R A W O R K A R E A */ 01320003 /********************************************************************/ 01330003 DECLARE 01350003 1 DCRAWKA BASED(DCRAWAPR), /* DEFINE CRA WORKAREA MAPPING */ 01400003 2 DCRACIPT (6) PTR(31), /* ARRAY OF PTRS TO CRA CI'S 0-5 */ 01450003 2 DCRADSWA PTR(31), /* SAVE ADDR OF CLAQ'S WORKAREA */ 01500003 2 DCRADSUL PTR(31), /* SAVE ADDR OF CLAQ'S VOLUME */ 01550003 /* SERIAL LIST */ 01600003 2 DCRADSAF PTR(31), /* SAVE ADDR OF CLAQ'S DATA SET */ 01650003 /* ATTRIBUTES FPL */ 01700003 2 DCRAOFPL PTR(31), /* SAVE ADDR OF CLAQ'S SPACE */ 01750003 /* ALLOCATION FPL */ 01800003 2 DCRAFVEN PTR(31), /* CLAQ'S SPACE FVT @ZA05914 */ 01810003 /* ENTRY NAME ADDRESS @ZA05914 */ 01820003 2 DCRAR1PT PTR(31), /* SAVE CCAR1REC RECORD POINTER */ 01850003 2 DCRAR2PT PTR(31), /* SAVE CCAR2REC RECORD POINTER */ 01900003 2 DCRACHIU PTR(32), /* HIGH USED RBA OF CRA */ 01950003 2 DCRACHIA PTR(32), /* HIGH ALLOCATED RBA OF CRA */ 02000003 2 DCRAMNLN FIXED(31), /* GETMAIN CORE LENGTH */ 02050003 2 DCRATRCY FIXED(15), /* NO. OF TRACKS PER CYLINDER */ 02100003 2 DCRABTRK FIXED(15), /* NO. OF BLOCKS PER TRACK */ 02150003 2 DCRADESA /* DADSM EXTENT INFO SAVE AREA */ 02200003 CHAR(LENGTH(CCADESA)), 02250003 2 DCRAMCPL, /* CPL FOR MODIFY FUNCTION */ 02300003 3 * CHAR(LENGTH(CTGPL)), /* MAIN BODY OF CPL */ 02350003 3 * CHAR(LENGTH(CTGFIELD)), /* POINTER TO AMDSB FPL */ 02400003 3 * CHAR(LENGTH(CTGFIELD)), /* POINTER TO ASSOCIATION FPL */ 02450003 3 * CHAR(LENGTH(CTGFIELD)), /* POINTER TO VOLUME G.O. FPL */ 02500003 2 DCRAMFPL, /* AMDSB FPL FOR MODIFY FUNCTION */ 02550003 3 * CHAR(LENGTH(CTGFL)), /* MAIN BODY OF FPL */ 02600003 3 * CHAR(LENGTH(CTGFLDAT)), /* POINTER TO AMDSB */ 02650003 2 DCRAMDSB CHAR(LENGTH(IDAAMDSB)), /* AMDSB SET OF FIELDS */ 02700003 2 DCRASFPL, /* IN-CORE FPL FOR ASSOCIATION */ 02750003 3 * CHAR(LENGTH(CTGFL)), /* FIELD PARAMETER LIST (FPL) */ 02800003 3 * CHAR(LENGTH(CTGFLDAT)), /* DATA LENGTH & DATA ADDR PAIR*/ 02850003 2 DCRASSOC, /* ASSOCIATION SET OF FIELDS */ 02900003 3 DCRATYPE CHAR(1), /* ASSOCIATION OBJECT TYPE */ 02950003 3 DCRANAME PTR(24) BDY(BYTE), /* ASSOCIATION OBJECT NAME */ 03000003 2 DCRAVFPL, /* VOLUME G.O. FPL FOR MODIFY */ 03050003 3 * CHAR(LENGTH(CTGFL)), /* MAIN BODY OF FPL */ 03100003 3 * CHAR(LENGTH(CTGFLDAT)), /* POINTER TO VOLUME GRP OCCUR */ 03150003 2 DCRAVGO, /* VOLUME GROUP OCCURRENCE FIELDS*/ 03200003 3 * CHAR(LENGTH(CNTRLINF)), /* VGO CONTROL INFORMATION */ 03250003 3 DCRAVGOM CHAR(LENGTH(GVO)), /* MAIN BODY OF VOL G.O. */ 03300003 3 * CHAR(LENGTH(CMFXECTS)), /* VOLUME EXTENT STRUCTURE */ 03350003 2 DCRARACI CHAR(3072) BDY(DWORD), /* CRA CI'S 0-5 BUILD AREA */ 03400003 3 DCRACI0 CHAR(512), /* BUILD AREA FOR CRA CI 0 */ 03450003 4 DCRASALP CHAR(LENGTH(SALPARL)), /* SUBALLOC PARM LIST */ 03500003 5 DCRASPRM CHAR(LENGTH(SPACEPRM)), 03550003 /* SPACE ALLOCATION PARAMETERS */ 03600003 5 DCRADSVL, /* DEFINE SPACE VOLUME LIST */ 03650003 6 * CHAR(LENGTH(USERLIST)), /* VOLUME LIST MAIN BODY */ 03700003 6 * CHAR(LENGTH(LTENTRY)), /* ONE VOLUME LIST ENTRY */ 03750003 3 DCRACI15 CHAR(2560), /* BUILD AREA FOR CRA CI'S 1-5 */ 03800003 4 * CHAR(2048), /* BUILD AREA FOR CRA CI'S 1-4 */ 03850003 4 DCRACI5 CHAR(512), /* CRA CI 5 - EXTENSION RECORD */ 03900003 5 * CHAR(LENGTH(CATRCD)), /* NON-REPEATING FIELDS */ 03950003 5 * CHAR(LENGTH(REPCNTRL)), /* REPEATING FIELD CONTROL 04000003 INFORMATION */ 04050003 5 * CHAR(LENGTH(CATGOPT)), /* GROUP OCCURRENCE POINTER */ 04100003 5 * CHAR(LENGTH(CNTRLINF)), /* VGO CONTROL INFORMATION */ 04150003 5 DCRA5VGO CHAR(LENGTH(GVO)), /* VOLUME INFORMATION 04200003 SET-OF-FIELDS */ 04250003 2 DCRAEND CHAR(0); /* END OF DEFINE CRA WORKAREA */ 04300003 /********************************************************************/ 04350003 /* SAVE AREA FOR RECORD AREA BLOCK 3 AND RECORD AREA 3. */ 04400003 /* THIS AREA IS OBTAINED AND ATTACHED TO THE END OF THE */ 04450003 /* REGULAR DEFINE CRA WORKAREA ONLY IF THE CALLER OF DEFINE */ 04500003 /* CRA IS DEFINE CATALOG (IGG0CLAS). */ 04550003 /********************************************************************/ 04600003 DECLARE 04650003 1 DCRARABS BASED(ADDR(DCRAEND)), /* ATTACH TO WORKAREA END */ 04700003 2 DCRARAB3 CHAR(LENGTH(CCARAB)), /* SAVE AREA FOR RAB 3 */ 04750003 2 DCRARA3(2) CHAR(256); /* SAVE AREA FOR RECORD AREA 3 */ 04800003 /********************************************************************/ 04850003 /* CRA CONTROL RECORD (CI 3) INFORMATION */ 04900003 /********************************************************************/ 04950003 DECLARE 05000003 1 CCRCNTRL BASED(ADDR(RCDID)) POSITION(2), 05050003 2 CCRHACI PTR(24) BDY(BYTE), /* NO. OF THE HIGH ALLOCATED CI */ 05100003 2 CCRNFCI PTR(24) BDY(BYTE); /* NO. OF THE NEXT FREE CI */ 05150003 /********************************************************************/ 05200003 /* STRUCTURE FOR A BUFFERED VOLUME RECORD */ 05250003 /********************************************************************/ 05300003 DECLARE 05350003 1 BUFVOLRD BASED, /* BUFFERED RECORD STRUCTURE */ 05400003 2 BUFRECRD CHAR(508), /* ACTUAL VOLUME RECORD */ 05450003 2 BUFNEXTB PTR(31); /* ADDR OF NEXT BUFFERED RECORD */ 05500003 /********************************************************************/ 05550003 /* C O N S T A N T D E C L A R A T I O N S */ 05600003 /********************************************************************/ 05650003 DECLARE 05700003 BLANK FIXED(31) CONSTANT(0), /* A ZERO-VALUE COMPARATOR */ 05750003 DCRACISZ FIXED(31) CONSTANT(512), /* CONTROL INTERVAL SIZE */ 05800003 DCRARCSZ FIXED(31) CONSTANT(505), /* MAXIMUM RECORD SIZE */ 05850003 DCRABRSZ FIXED(31) CONSTANT(2048), /* MINIMUM BUFFER SIZE (2K) */ 05900003 LEN10CIS FIXED(31) CONSTANT(5120), /* LENGTH OF 10 CRA CI'S */ 05950003 ACTCOUNT FIXED(8) CONSTANT(1), /* CATALOG ACTIVITY COUNT */ 06000003 GOSEQNUM FIXED(8) CONSTANT(1), /* GROUP OCCUR SEQUENCE NO. */ 06050003 NUMLAPRS FIXED(8) CONSTANT(1), /* NO. LENG/ADDR PAIRS IN FPL */ 06100003 NUMGOPTR FIXED(8) CONSTANT(1), /* NO. OF GROUP OCCURRENCE PTRS*/ 06150003 FREECI1 FIXED(8) CONSTANT(1), /* FREE RECORD CI NUMBER */ 06200003 STRINGNO FIXED(8) CONSTANT(1), /* NUMBER OF STRINGS (ACB) */ 06250003 NUMEXTS FIXED(8) CONSTANT(1), /* NUMBER OF EXTENTS FOR CRA */ 06300003 CNTGOPTR FIXED(8) CONSTANT(2), /* COUNT OF GROUP OCCUR PTRS */ 06350003 CLUSTRCI FIXED(8) CONSTANT(2), /* CLUSTER RECORD CI NUMBER */ 06400003 DATBUFNO FIXED(8) CONSTANT(2), /* NO. OF DATA BUFFERS (ACB) */ 06450003 LNCATTR1 FIXED(8) CONSTANT(1), /* LENGTH OF 'CATTR1' FLAG BYTE*/ 06500003 INCR1 FIXED(8) CONSTANT(1), /* INCREMENTING VALUE */ 06550003 INCR2 FIXED(8) CONSTANT(2), /* CONSTANT 2 */ 06600003 NUMFPLS FIXED(8) CONSTANT(3), /* NUMBER OF FPL'S FOR MODIFY */ 06650003 CCRCINO FIXED(8) CONSTANT(3), /* CRA CONTROL RECORD CI NO. */ 06700003 FREECI4 FIXED(8) CONSTANT(4), /* FREE RECORD CI NUMBER */ 06750003 EXTCINO FIXED(8) CONSTANT(5), /* DATA EXTENTION RECORD CI NO.*/ 06800003 CNTRLENG FIXED(8) CONSTANT(6), /* TOTAL LENGTH OF CNTRL INFO */ 06850003 SYSMASK BIT(32) CONSTANT('FFDFFFFF'X), /* MASK FOR TURNING OFF 06900003 CPU-SHARE BIT IN DEVICE 06950003 TYPE OPTIONS FIELD */ 07000003 NULLDATE BIT(24) CONSTANT('00000F'X), /* NULL EXPIRATION DATE */ 07050003 CI2ASSOC BIT(24) CONSTANT('0006C4'X), /* CI 2 ASSOCIATION */ 07100003 XIOPTNS BIT(8) CONSTANT('09'X), /* IGGPXIO OPTION CODES */ 07150003 AMDIDVAL BIT(8) CONSTANT('60'X), /* AMDSB ID CHARACTER */ 07200003 SHROPTNS BIT(8) CONSTANT('A0'X), /* REGION/SYSTEM SHARE OPTNS */ 07250003 FREERCID CHAR(1) CONSTANT('F'), /* FREE RECORD ID CHARACTER */ 07300003 CCRRECID CHAR(1) CONSTANT('L'), /* CRA CONTROL RECORD ID CHAR */ 07350003 STOP CHAR(2) CONSTANT('NG'), /* LOOP CONTROL - HALT */ 07400003 GO CHAR(2) CONSTANT('GO'), /* LOOP CONTROL - PROCEED */ 07450003 NAMEDS CHAR(8) CONSTANT('NAMEDS '), /* COMBINATION NAME 07500003 AND TYPE FIELDS */ 07550003 NULLDWRD BIT(64) /* 8-BYTE NULL OWNER ID FIELD */ 07600003 CONSTANT('FFFFFFFFFFFFFFFF'X); 07650003 /********************************************************************/ 07700003 /* O T H E R D E C L A R A T I O N S */ 07750003 /********************************************************************/ 07800003 DECLARE 07850003 DCRACI2A PTR(24) BASED(CCACPE3); /* ASSOCIATION FIELDS IN CI 2 */ 07900003 DECLARE 07950003 DCRADDNM CHAR(8) BASED; /* DUMMY DDNAME FOR CRA ACB */ 08000003 DECLARE 08050003 DCRARCTR FIXED(31) REG(4) RSTD; /* RECORD CI COUNTER */ 08100003