/********************************************************************/ 00050003 /* */ 00100003 /* MACRO NAME = IDACTREC */ 00150003 /* */ 00200003 /* DESCRIPTIVE NAME = AMB WORK AREA. */ 00250003 /* */ 00300003 /* FUNCTION = THE AMB WORK AREA CONTAINS ALL THE CATALOG INFORMA- */ 00350003 /* TIONS OF AN AMB. */ 00400003 /* */ 00450003 /* CONTROL BLOCK STRUCTURE = POINTED TO BY THE AMB (AMBWKA). */ 00500003 /* */ 00550003 /* INCLUDED MACROS = NONE */ 00600003 /* */ 00650003 /* METHOD OF ACCESS = PL/S - NO DECLARES NECESSARY FOR THE MAIN */ 00700003 /* SECTION. RESPECIFY CTVOLENT BASED */ 00750003 /* FOR THE CATALOG VOLUME ENTRY. */ 00800003 /* RESPECIFY CTKEYENT BASED FOR THE KEY */ 00850003 /* RANGE ENTRY. RESPECIFY CTEXTENT */ 00900003 /* BASED FOR THE EXTENT ENTRY. */ 00950003 /* */ 01000003 /* CREATED BY: VSAM OPEN MODULE IDA0192C. */ 01050003 /* */ 01100003 /* STATUS = VS1 RELEASE 4 (CHANGE FLAG @X04SVXX) */ 01150003 /* VS2 RELEASE 3 (CHANGE FLAG @Z30SSXX) @Z30SSRL*/ 01200003 /* */ 01250003 /* DATE OF LAST CHANGE = 3 MARCH 75 @Z30SSRL*/ 01300004 /* */ 01350003 /********************************************************************/ 01400003 DCL 1 AMBWORK BASED(AMBWKA), /* AMB WORK AREA @X04SVRL*/ 01450003 2 AMACATLG PTR, /* POINTER TO CATLG ACB @X04SVRL*/ 01500003 2 AMATIOT FIXED(15), /* OFFSET OF TIOT ENTRY @X04SVRL*/ 01550003 2 AMALEN FIXED(15), /* LENGTH OF AMB WA */ 01600003 2 AMATIOE PTR, /* POINTER TO TIOT ENTRY @X04SVRL*/ 01650003 2 VOLENTNO FIXED(15), /* NUMBER OF VOLUME ENTRIES */ 01700003 2 CTINFO BDY(BYTE), /* CATALOG INFO */ 01750003 3 CTATTRA BIT(8), /* DATA SET OPTIONS */ 01800003 4 CTAMDSPD BIT(1), /* SPEED OPTION */ 01850003 4 CTUNIQ BIT(1), /* UNIQUE DATA SET */ 01900003 4 CTRELOP BIT(1), /* RELEASE OPTION */ 01950003 4 CTERASE BIT(1), /* ERASE OPTION */ 02000003 4 * BIT(1), /* RESERVED */ 02050003 4 CTRDONLY BIT(1), /* INHIBIT UPDATES */ 02100003 4 CTTEMPEX BIT(1), /* TEMPROARY EXPORT */ 02150003 4 CTTOVFL BIT(1), /* TRACK OVERFLOW IN MVM @Y30DSJH*/ 02200003 3 CTATTRB BIT(8), /* MISC INDICATORS */ 02250003 4 CTOPEN BIT(1), /* DATA SET OPEN FOR WRITE */ 02300003 4 CTCYL BIT(1), /* CYLINDER ALLOCATION */ 02350003 4 CTINDXSS BIT(1), /* INDEX & SEQ SET W/DATA */ 02400003 4 CTINDX BIT(1), /* INDEX DATA SET */ 02450003 3 CTSHROP BIT(8), /* SHARE OPTIONS */ 02500003 4 CTSHARE BIT(1), /* FULL SHARE */ 02550003 4 CTSHRW BIT(1), /* WRITE INTEGRITY */ 02600003 4 CTSHRF BIT(1), /* FULL INTEGRITY */ 02650003 4 CTHELP BIT(1), /* INVALIDATE BUFFERS */ 02700003 4 CTSDHELP BIT(1), /* SHARED DASD INVALIDATE BFRS */ 02750003 4 * BIT(1), /* RESERVED @Z40WSRL*/ 02800004 4 CTINTDS BIT(1), /* INTERNAL DATA SET @Z40WSRL*/ 02810004 4 CTUNUSE BIT(1), /* DATA SET UNUSABLE */ 02850003 3 CTAUTH BIT(8), /* AUTHORIZATION LEVEL @X04SVRL*/ 02900003 4 CTFULL BIT(1), /* FULL AUTHORIZATION @X04SVRL*/ 02950003 4 CTCINV BIT(1), /* CI AUTHORIZATION @X04SVRL*/ 03000003 4 CTUPD BIT(1), /* UPDATE AUTHORIZATION @X04SVRL*/ 03050003 3 * CHAR(2), /* NOT USED @X04SVRL*/ 03100003 3 CTBLKSZ, /* PHYSICAL BLOCK SIZE */ 03150003 3 CTDEVTYP CHAR(4), /* DEVICE TYPE @X04SVRL*/ 03200003 4 * CHAR(1), /* NOT USED @X04SVRL*/ 03250003 4 CTDEV2 BIT(8), /* 2ND BYTE OF DEV TYPE @X04SVRL*/ 03300003 5 * BIT(3), /* NOT USED @X04SVRL*/ 03350003 5 CTBRPS BIT(1), /* RPS DEVICE TYPE */ 03400003 5 CTVIRT BIT(1), /* VIRTUAL DEVICE TYPE @X04SVRP*/ 03450003 3 CTTRKAU, /* TRKS/ALLOCATION UNIT */ 03500003 3 CTSTRKAU, /* TRACK/ALLOCATION UNIT SS W/DTA*/ 03550003 3 CTBLKTR, /* PHYSICAL BLOCKS/TRACK */ 03600003 3 CTSBLKTR, /* PHYSICAL BLOCKS/TRACK SS W/DTA*/ 03650003 3 CTBYTAU FIXED(31), /* BYTES/ALLOC FOR TRACK OVERFLOW 03700003 IN MVM @Y30DSJH*/ 03750003 3 CTSBYTAU FIXED(31), /* BYTES/ALLOC FOR SS WITH DATA AND 03800003 TRACK OVERFLOW IN MVM @Y30DSJH*/ 03850003 3 CTBYTTRK FIXED(31), /* BYTES/TRACK FOR TRACK OVERFLOW 03900003 IN MVM @Y30DSJH*/ 03950003 3 CTSBYTRK FIXED(31), /* BYTES/TRACK FOR SS WITH DATA AND 04000003 TRACK OVERFLOW IN MVM @Y30DSJH*/ 04050003 3 CTHSHDSN CHAR (3) , /* DATA SET NAME, HASHED */ 04100003 3 * CHAR(1), /* NOT USED @X04SVRL*/ 04150003 3 CTHSHCAT PTR(31) , /* CATALOG ACB PTR @X04SVRL*/ 04200003 3 CTHURBA FIXED (32), /* DATA SET HIGH USED RBA */ 04250003 3 CTBUFSIZ, /* MINIMUM BUFFER SPACE */ 04300003 3 CTCISIZ, /* CI SIZE */ 04350003 3 CTEXEX CHAR(8), /* EXCEPTION EXIT NAME @X04SVGP*/ 04400003 3 CTDATANM CHAR(44) , /* DATA SET NAME */ 04450003 3 CTAMDSB CHAR(LENGTH(IDAAMDSB)), /* AMDSB @Y30DSJH*/ 04500003 3 * CHAR(4); /* NOT USED @Z30SSRL*/ 04700004 DCL 1 CTVOLENT BASED, /* CATALOG VOLUME ENTRY */ 04750003 2 CTVOLFLG BIT(8), /* VOLUME FLAG */ 04800003 3 CTVOLMT BIT(1), /* VOL IS MOUNTED */ 04850003 3 CTOFLOW BIT(1), /* OVERFLOW VOLUME */ 04900003 2 CTNOEXT FIXED(8), /* NBR EXTENTS ON THIS VOLUME */ 04950003 2 * CHAR(2), /* NOT USED @X04SVRL*/ 05000003 2 CTVOLUCB PTR(31), /* UCB ADDRESS */ 05050003 2 CTNOKEY FIXED(15), /* NUMBER OF KEY RANGES ON VOL */ 05100003 2 CTKEYLEN FIXED (15), /* KEY LENGTH FOR KEY RANGE SPEC */ 05150003 2 CTVOLSER CHAR(6), /* VOLUME SERIAL NUMBER */ 05200003 2 * CHAR(2), /* NOT USED @X04SVRL*/ 05250003 2 CTKEYEN1 CHAR(*); /* FIRST KEY ENTRY */ 05300003 DCL 1 CTKEYENT BASED, /* KEY RANGE ENTRY */ 05350003 2 CTKEYFLG BIT(8), /* KEY FLAG */ 05400003 3 CTSSWDTA BIT(1), /* SEQ SET WITH DATA */ 05450003 3 CTPRFMT BIT(1), /* EXTENT NOT PREFORMATED */ 05500003 2 CTNOKEXT FIXED(8), /* NBR EXTS THIS KEY RANGE */ 05550003 2 CTKRELNO FIXED(15), /* VOL OCCURENCE NBR */ 05600003 2 CTKHKRBA FIXED(32), /* HI KEY RBA */ 05650003 2 CTKHURBA FIXED(32), /* HIGH USED RBA THIS KEY RANGE */ 05700003 2 CTKHARBA FIXED(32), /* HIGH ALLOCATED RBA THIS 05750003 KEY RANGE */ 05800003 2 CTKEY CHAR(*); /* FIRST LOW KEY */ 05850003 DCL 1 CTEXTENT BASED BDY(BYTE), /* EXTENT ENTRY */ 05900003 2 CTEXTFLG BIT(8), /* ENTENT FLAG */ 05950003 2 * CHAR(1), /* RESERVED */ 06000003 2 CTABSBEG CHAR(4), /* BEGINNING CCHH */ 06050003 3 CTCCBEG FIXED(16)BDY(BYTE),/* BEGINNING CC @X04SVRL*/ 06100003 3 CTHHBEG FIXED(16)BDY(BYTE),/* BEGINNING HH @X04SVRL*/ 06150003 2 CTABSEND CHAR(4), /* ENDING CCHH */ 06200003 3 CTCCEND FIXED(16)BDY(BYTE),/* ENDING CC @X04SVRL*/ 06250003 3 CTHHEND FIXED(16)BDY(BYTE),/* ENDING HH @X04SVRL*/ 06300003 2 CTNOTRKS FIXED(15)BDY(BYTE), /* NBR TRACKS IN EXTENT */ 06350003 2 CTRBABEG FIXED(32)BDY(BYTE), /* BEGINNING RBA */ 06400003 2 CTRBAEND FIXED(32)BDY(BYTE), /* ENDING RBA */ 06450003 2 * CHAR(*); /* NOT USED @X04SVRL*/ 06500003