1 /* BEGIN INCLUDE FILE mrds_rel_desc_v3.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 /* Modified by NSDavids to be rel_desc_v3 because that is what 6 dmd_v1_$get_attributes returns. It is v3 instead of v1 because 7 v1 is already used for version 1 datamodels (at least I guess 8 thats what the structure refers to). Also changed rd_ptr to rd_v3_ptr 9 and num_attr_alloc to num_attr_alloc_v3. */ 10 11 dcl 1 rel_desc_v3 based (rd_v3_ptr), /* record description of relation records */ 12 2 num_attr fixed bin, /* number of attributes in the model */ 13 2 key_length fixed bin (35), /* length in bits of data portion of tuple */ 14 2 data_length fixed bin (35), /* length in bits of data portion of tuple */ 15 2 num_keys fixed bin, /* number of key attributes */ 16 2 inversion bit (1) unal, /* On if this relation contains any inverted attributes */ 17 2 reserved bit (35) unal, /* Reserved for future use */ 18 2 attributes (num_attr_alloc_v3 refer (rel_desc_v3.num_attr)), 19 3 attribute_name char (32), /* name of attribute */ 20 3 domain_name char (32), /* name of underlying domain */ 21 3 bit_offset bit (18) unaligned, /* offset within tuple of data item */ 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_v3 fixed bin (10); /* Number of attributes in relation for allocation purposes */ 30 31 dcl rd_v3_ptr ptr; 32 33 /* END INCLUDE FILE mrds_rel_desc_v3.incl.pl1 */ 34