1 /* BEGIN INCLUDE FILE mrds_rel_desc.incl.pl1 rgl, 03/31/76 */ 2 3 /* Modified by R. Lackey 09/20/76 to handle inverted attributes */ 4 /* Modified by J. A. Weeldreyer 11/16/76 to add domain name */ 5 6 dcl 1 rel_desc based (rd_ptr), /* record description of relation records */ 7 2 num_attr fixed bin, /* number of attributes in the model */ 8 2 key_length fixed bin (35), /* length in bits of data portion of tuple */ 9 2 data_length fixed bin (35), /* length in bits of data portion of tuple */ 10 2 num_keys fixed bin, /* number of key attributes */ 11 2 inversion bit (1) unal, /* On if this relation contains any inverted attributes */ 12 2 reserved bit (35) unal, /* Reserved for future use */ 13 2 attributes (num_attr_alloc refer (rel_desc.num_attr)), 14 3 attribute_name char (32), /* name of attribute */ 15 3 domain_name char (32), /* name of underlying domain */ 16 3 bit_offset bit (18) unaligned, /* offset within tuple of data item */ 17 3 bit_length bit (18) unaligned, /* length of data item in bits */ 18 3 key_flag bit (1) unaligned, /* indicates whether attribute is part of primary key */ 19 3 inver_flag bit (1) unaligned, /* On if this attribute is inverted */ 20 3 unused bit (34) unaligned, /* reserved for expansion */ 21 3 key_attr_order fixed bin, /* order num of this key attr */ 22 3 descriptor bit (36); /* Multics descriptor for attribute */ 23 24 dcl num_attr_alloc fixed bin (10); /* Number of attributes in relation for allocation purposes */ 25 26 dcl rd_ptr ptr; 27 28 /* END INCLUDE FILE mrds_rel_desc.incl.pl1 */