1 /* Created 06/17/81 by Suzanne Krupp */
 2 
 3 dcl n_messages fixed bin;
 4 dcl MSG_STRUCT_VERSION_1 fixed bin int static options(constant) init(1);
 5 
 6 dcl curr_msgsp ptr;
 7 
 8 dcl 1 curr_msgs based(curr_msgsp),
 9       2 version fixed bin,
10       2 count fixed bin,
11       2 numbers (n_messages refer(curr_msgs.count)) fixed bin;
12 
13 dcl nonexist_msgsp ptr;
14 
15 dcl 1 nonexist_msgs based(nonexist_msgsp),
16       2 version fixed bin,
17       2 count fixed bin,
18       2 numbers (n_messages refer(nonexist_msgs.count)) fixed bin;
19 
20 dcl msg_structp ptr;
21 
22 dcl 1 msg_struct based(msg_structp),
23       2 version fixed bin,
24       2 count fixed bin,
25       2 numbers(n_messages refer(msg_struct.count)) fixed bin;