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