1 /* BEGIN vrm_tuple.incl.pl1 -- jaw, 7/25/78 */
 2 
 3 /* 82-08-27 R. Harvey: taken from mdbm_tuple.incl.pl1 for vfile_relmgr_.
 4    Modified dimension references to point to entries in vrm_rel_desc.    */
 5 
 6 
 7 dcl 1 tuple aligned based (tuple_ptr),                      /* tuple format, all file types */
 8     2 rel_id bit (12) unal,                                 /* relation id */
 9     2 attr_exists (vrm_rel_desc.number_attrs) bit (1) unal, /* existance flags */
10     2 var_offsets (vrm_rel_desc.number_var_attrs) fixed bin (35) unal, /* offsets for variable attr.; stored as len|value */
11     2 force_even_word (tuple_pad_length) fixed bin (71) aligned, /* pad to even word boundary */
12     2 data char (vrm_rel_desc.maximum_data_length) unal;              /* space for data */
13 
14 
15 dcl  tuple_ptr ptr;
16 dcl  tuple_length fixed bin (21);                           /* byte count */
17 
18 declare  tuple_pad_length fixed bin internal static init (0) ; /* minimum array size needed for even word padding */
19 
20 
21 
22 /* END vrm_tuple.incl.pl1 */
23