1 /* BEGIN - mrds_rmdb_ctl.incl.pl1 */
 2 
 3 
 4 
 5 /****^  HISTORY COMMENTS:
 6   1) change(82-03-26,Davids), approve(), audit(), install():
 7      created
 8   2) change(82-05-26,Davids), approve(), audit(), install():
 9      added db_model_ptr
10   3) change(82-06-09,Harvey), approve(), audit(), install():
11      deleted ssu_ routines ptr storage
12   4) change(82-08-20,Davids), approve(), audit(), install():
13      added the relmgr like reference and included the rmdb_relmgr_entries
14      include file
15   5) change(83-05-24,Davids), approve(), audit(), install():
16      added the saved_res_version_ptr element
17   6) change(84-10-23,Benjamin), approve(), audit(), install():
18      added flags (just database_readied_by_rmdb for now).
19   7) change(85-11-08,Spitzer), approve(85-11-08,MCR7311),
20      audit(86-09-02,Blair), install(86-10-16,MR12.0-1187):
21      added crossref_file_info.
22                                                    END HISTORY COMMENTS */
23 
24 
25 dcl 01 rmdb_ctl based (rmdb_ctl_ptr),
26     02 version fixed bin,
27     02 rmdb_version char (16) varying,
28     02 absolute_db_path char (168),
29     02 temp_dir_path char (168),
30     02 work_area_ptr ptr,
31     02 db_model_ptr ptr,
32     02 saved_res_version_ptr ptr,
33     02 crossref_file_info,
34        03 iocb_ptr ptr,
35        03 name char (32),
36     02 relmgr_entries like rmdb_relmgr_entries,
37     02 flags,
38        03 database_readied_by_rmdb bit (1) unal,
39        03 unused bit (35) unal;
40 
41 dcl  RMDB_CTL_VERSION_1 fixed bin init (1) internal static options (constant);
42 
43 dcl  rmdb_ctl_ptr ptr;
44 
45 
46 %include rmdb_relmgr_entries;
47 
48 
49 /* END - mrds_rmdb_ctl.incl.pl1 */