*/********************************************************************/ 00050004 */* */ 00100004 */* MACRO NAME = IDAARDB */ 00150004 */* */ 00200004 */* DESCRIPTIVE NAME =ADDRESS RANGE DEFINITION BLOCK */ 00250004 */* */ 00300004 */* FUNCTION = TO DEFINE THE HIGH AND LOW KEYS OF A KEY RANGE. */ 00350004 */* IT DESCRIBES THE KEY RANGE, ITS LOCATION AND RBA */ 00360004 */* EXTENTS. */ 00370004 */* */ 00400004 */* CONTROL BLOCK STRUCTURE = THE QUEUE OF IDAARDBS ORIGINATES */ 00450004 */* IN THE IDAAMDSB */ 00460004 */* */ 00500004 */* INCLUDED MACROS = NONE */ 00550004 */* */ 00600004 */* METHOD OF ACCESS = PL/S - NO DECLARES NECESSARY */ 00650004 */* */ 00700004 */* CREATED BY = VSAM OPEN */ 00750004 */* */ 00800004 */* STATUS = VS/1 RELEASE 4 (CHANGE FLAG @X04SVXX) */ 00850004 */* */ 00900004 */* DATE OF LAST CHANGE = 8 AUG 74 */ 00950004 */* */ 01000004 */********************************************************************/ 01050004 * DCL 1 IDAARDB BASED, /* ADDRESS RANGE DEFINITION BLOCK */ 03000000 * 2 ARDID CHAR(1), /* CONTROL BLOCK ID */ 06000000 * 2 ARDTYPE CHAR(1), /* ENTRY TYPE */ 09000000 * 3 ARDKR BIT(1), /* KEY RANGE ENTRY */ 12000000 * 3 ARDHLI BIT(1), /* HIGH LVS (OR TOTAL) INDEX */ 15000000 * 3 ARDSS BIT(1), /* SEQ SET FOR SS WITH DATA */ 18000000 * 3 ARDUOVFL BIT(1), /* USE OVFL FOR THIS KEY */ 21000000 * /* RANGE */ 24000000 * 3 ARDEOD BIT(1), /* END OF DATA ARDB */ 27000000 * 3 ARDUSED BIT(1), /* ARDB HAS HAD SPACE REMOVED*/ 30000000 * 2 ARDLEN FIXED(15),/* LENGTH OF THIS ARDB */ 33000000 * 2 ARDNPTR PTR(31), /* PTR TO NEXT ARDB */ 36000000 * 2 ARDHKRBA FIXED(32),/* RBA OF HIGH KEY CI */ 39000000 * 2 ARDHRBA FIXED(32),/* HIGH USED RBA */ 42000000 * 2 ARDERBA FIXED(32),/* HIGH ALLOCATED RBA */ 45000000 * 2 ARDVOLSR CHAR(6), /* SER OF HIGH RBA VOLUME */ 48000000 * 2 ARDRELNO FIXED(15),/* I/O SUPPORT-CATALOG INFO */ 51000000 * 2 ARDPRF BIT(8), /* PREFORMAT BYTE */ 54000000 * /* CORRESPONDS TO FIELD */ 57000000 * /* ITYPEXT OF THE VSAM */ 60000000 * /* CATALOG */ 63000000 * 3 ARDPRSS BIT(1), /* SEQ SET WITH DATA */ 66000000 * 3 ARDPRFMT BIT(1), /* EXTENTS NOT PREFORMATTED */ 69000000 * 3 * BIT(6), /* RESERVED AND MUST AGREE */ 72000000 * /* WITH ITYPEXT */ 75000000 * 2 ARDKEYS CHAR(*); /* LOW AND HIGH KEY VALUES */ 78000000 * /* FOR KEY RANGE ENTRY, */ 81000000 * /* SIZE = 2*AMDKEYLN */ 84000000