1 /* BEGIN mdbm_rm_domain_info.incl.pl1 -- jaw, 9/26/78 */
 2 
 3 /* WARNING
 4           If the rm_domain_info structure is changed then the mrds_data_
 5           item saved_res_version MUST be incremented to invalidate all
 6           existing saved resultants
 7 */
 8 
 9 /* DESCRIPTION:
10 
11    This  structure  is  allocated  in  the  mdbm_rm_db_info.incl.pl1
12    static  area,  once per attribute used in a relation in a readied
13    file. it is pointed to by the mdbm_rm_attr_info.incl.pl1, and may
14    point  to  mdbm_rm_ck_and_group.incl.pl1  if  a  "-check"  option
15    boolean expression was declared for this domain. it contains  the
16    descriptor  for  this domain data type, and other resultant model
17    information.
18 
19 
20    HISTORY:
21 
22    81-05-06  Rickie  E.  Brinegar:  Modified  ck_proc,  encode_proc,
23    decode_proc to be entry variables instead of entry pointers. This
24    allows these programs to be written in languages other than pl1.
25 
26    81-05-28 Jim Gray : removed unused procedure points,  and  unused
27    check  stack  structure  elements.  Also made the descriptors bit
28    (36) in this structure, rather than pointers to  the  descriptors
29    elsewhere.  Also  removed un-needed redundant assign_ parameters,
30    that are actually available in the descriptors.
31 
32 
33 */
34 
35 dcl 1 rm_domain_info aligned based (rdi_ptr),               /* domain information */
36     2 name char (32),                                       /* domain name */
37     2 db_desc bit (36),                                     /*  to desc. for db. */
38     2 user_desc bit (36),                                   /* desc for user visible data */
39     2 user_bit_len fixed bin,                               /* storage length of users data */
40     2 ck_proc_entry entry variable,                         /* to check proc. entry */
41     2 encd_proc_entry entry variable,                       /* to encode proc entry */
42     2 decd_proc_entry entry variable,                       /* to decode proc entry */
43     2 ck_proc bit (1) unal,                                 /* Is there a check proc */
44     2 encd_proc bit (1) unal,                               /* Is there an encode proc */
45     2 decd_proc bit (1) unal,                               /* Is there a decode proc */
46     2 pad bit (33) unal,
47     2 next_domain_ptr ptr ;                                 /* to next domain, in list of all domains */
48                                                             /* to check stack and groups */
49 
50 
51 dcl  rdi_ptr ptr int automatic init (null ());
52 
53 /* END mdbm_rm_domain_info.incl.pl1 */
54 
55