1 /* BEGIN INCLUDE FILE - mrds_dsm_rel_rec_5.incl.pl1 */
 2 
 3 /*
 4    This is the format of the relation record in version 5 submodels
 5 
 6    HISTORY
 7 
 8    80-12-23 Davids: written
 9 
10    81-04-29 Davids: changed the access elements from a bit string to
11    a  named set of bits and added the two structures relation_access
12    and attribute_access.
13 */
14 
15 
16 dcl 01 rel_rec_5 based,
17     02 attr_num fixed bin,
18     02 rel_dm_name char (256) varying,
19     02 access like relation_access,
20     02 attr (rel_rec_5_attr_num refer (rel_rec_5.attr_num)),
21       03 dsm_name char (256) varying,
22       03 dm_name char (256) varying,
23       03 access like attribute_access;
24 
25 dcl  rel_rec_5_attr_num fixed bin;
26 
27 
28 dcl 01 relation_access based,
29     02 null bit (1) unal,
30     02 append bit (1) unal,
31     02 delete bit (1) unal,
32     02 mbz1 bit (33) unal;
33 
34 
35 dcl 01 attribute_access based,
36     02 null bit (1) unal,
37     02 read bit (1) unal,
38     02 modify bit (1) unal,
39     02 mbz1 bit (33) unal;
40 
41 /* END INCLUDE FILE - mrds_dsm_rel_rec_5.incl.pl1 */