1 /* BEGIN INCLUDE FILE rmdb_history_entry.incl.pl1 -- nsd, 82-04-09 */
 2 
 3 
 4 
 5 /****^  HISTORY COMMENTS:
 6   1) change(75-01-01,WhoKnows), approve(), audit(), install():
 7      Written.
 8   2) change(85-12-03,Spitzer), approve(85-12-03,MCR7311),
 9      audit(86-09-02,Blair), install(86-10-16,MR12.0-1187):
10      Added RMDB_ADD_(ATTR DMN)_OP, RMDB_RN_(ATTR DMN REL)_OP.
11                                                    END HISTORY COMMENTS */
12 
13 
14 /*
15    This include file contains the rmdb_history_entry structure which
16    is  used for maintaining a history of the databases restructuring
17    events. It also contains a set of constants used in  loading  the
18    structure.
19 
20    The restructuring history is applied against the  database  as  a
21    whole  instead of against each structure in the db_model and file
22    models which was the approach originally  implemented  but  never
23    really  used  (except  to  record the database creation). This is
24    because 1 database restructuring event, i.e. adding a  new  index
25    to a relation will change several of the structures in the model.
26 
27    For a detailed explaination of the use of this structure and  the
28    constants see the rmdb_add_rmdb_event module.
29 */
30 
31 dcl 01 rmdb_history_entry aligned based (rmdb_history_entry_ptr),
32     02 user_id char (32),                                   /* person_id.project_id.tag */
33     02 date_time_restructured fixed bin (71),
34     02 type_of_object_restructured fixed bin,               /* taken from constants below */
35     02 object_name char (32),
36     02 operation fixed bin,                                 /* taken from constants below */
37     02 secondary_object_name char (32),                     /* i.e. name of attr just indexed in a restructured relation */
38     02 offset_to_next_entry bit (18) unal,
39     02 offset_to_previous_entry bit (18) unal;
40 
41 
42 dcl  rmdb_history_entry_ptr ptr;
43 
44 
45 dcl  RMDB_DOMAIN_TYPE init (1) fixed bin internal static options (constant);
46 dcl  RMDB_ATTR_TYPE init (2) fixed bin internal static options (constant);
47 dcl  RMDB_REL_TYPE init (3) fixed bin internal static options (constant);
48 
49 
50 dcl  RMDB_ADD_REL_OP init (1) fixed bin internal static options (constant);
51 dcl  RMDB_DEL_REL_OP init (2) fixed bin internal static options (constant);
52 dcl  RMDB_ADD_IDX_OP init (3) fixed bin internal static options (constant);
53 dcl  RMDB_DEL_IDX_OP init (4) fixed bin internal static options (constant);
54 dcl  RMDB_ADD_ATTR_OP init (5) fixed bin int static options (constant);
55 dcl  RMDB_DEL_ATTR_OP init (6) fixed bin int static options (constant);
56 dcl  RMDB_ADD_DMN_OP init (7) fixed bin int static options (constant);
57 dcl  RMDB_DEL_DMN_OP init (8) fixed bin int static options (constant);
58 dcl  RMDB_RN_ATTR_OP init (9) fixed bin int static options (constant);
59 dcl  RMDB_RN_DMN_OP init (10) fixed bin int static options (constant);
60 dcl  RMDB_RN_REL_OP init (11) fixed bin int static options (constant);
61 
62 /* END INCLUDE FILE rmdb_history_entry.incl.pl1 */