1 /* BEGIN INCLUDE FILE ... cmcs_queue_ctl.incl.pl1 */
 2 
 3 /* This COBOL MCSD include file defines the structure of the cmcs_queue_ctl.control segment. */
 4 
 5 /* Bob May, 5/31/77 */
 6 
 7 dcl (queue_ctl_hdr_len init (0),
 8      queue_ctl_entry_len init (48),
 9      queue_ctl_version init (1)) fixed bin internal static options (constant);
10 
11 dcl  queue_ctl_ptr ptr int static;
12 
13 dcl 1 queue_ctl aligned based (queue_ctl_ptr),
14     2 hdr like control_hdr,
15     2 entries (queue_ctl.current_size) like queue_ctl_entry;
16 
17 dcl  queue_ctl_eindex fixed bin;
18 
19 dcl  queue_ctl_eptr ptr;
20 
21 dcl 1 queue_ctl_entry aligned based (queue_ctl_eptr),
22     2 lockword bit (36) aligned,
23     2 tree_ctl_eindex fixed bin,                            /* index of corresponding entry in tree_ctl */
24     2 tree_path,
25       3 level_names (4) char (12),
26     2 queue_name char (32),                                 /* includes suffix */
27     2 msg_no fixed bin (35),                                /* always increasing, until reset manually */
28     2 flags,
29      (3 input_disabled_sw bit (1),
30       3 mp_entered_sw bit (1),
31       3 mp_active_sw bit (1),
32       3 mp_sw bit (1),
33       3 cmd_sw bit (1),
34       3 filler bit (31)) unaligned,
35     2 filler (10) fixed bin (35),
36     2 mp_lockword bit (36) aligned,                         /* process_id of message processor */
37     2 status_lists_lockword bit (36) aligned,               /* only to manipulate the status lists */
38     2 status_list_ctl_entries (4) like status_list_ctl_entry; /* everything belonging to this queue */
39 
40 dcl  status_list_ctl_eindex fixed bin;
41 
42 dcl  status_list_ctl_eptr ptr;
43 
44 dcl 1 status_list_ctl_entry aligned based (status_list_ctl_eptr),
45     2 count fixed bin,
46     2 descrs,
47       3 f_descr like vfile_descr,
48       3 b_descr like vfile_descr;
49 
50 /* END INCLUDE FILE ... cmcs_queue_ctl.incl.pl1 */