1 /* BEGIN INCLUDE FILE ... cmcs_user_ctl.incl.pl1 */
 2 
 3 /*
 4    This COBOL MCS include file defines the global, process-dependent variables that are
 5    not part of the PD copy of cmcs_tree_ctl.control.
 6 */
 7 
 8 /* Modified on 05/06/81 by FCH, [4.4-1], attach command */
 9 /* Bob May, 5/31/77 */
10 
11 dcl  user_ctl_exists_sw bit (1) aligned int static init ("0"b); /* indicates legitimacy of external_user_ctl_ptr */
12 
13 dcl  external_user_ctl_ptr ptr external;                    /* global ptr for user_ctl */
14 
15 dcl  user_ctl_ptr ptr int static;
16 
17 dcl 1 user_ctl aligned based (user_ctl_ptr),
18 
19 /* Flags */
20 
21     2 init_sw,
22       3 terminal_ctl bit(1),
23       3 tree_ctl bit(1),
24       3 status_list_ctl bit(1),
25       3 station_ctl bit(1),
26       3 queue_ctl bit(1),
27       3 set_lock bit(1),
28       3 wait_ctl bit(1),
29       3 purge_queues bit(1),
30       3 create_queues bit(1),
31       3 initiate_ctl bit(1),
32       3 mcs bit(1),
33     2 flags,
34      (3 initialized_sw bit (1),
35       3 interactive_sw bit (1),
36       3 mp_sw bit (1),                                      /* message processor process */
37       3 terminal_sw bit (1),                                /* user terminal process */
38       3 admin_sw bit (1),                                   /* cobol_mcs_admin */
39       3 attach_bit bit(1), /*[4.4-1]*/
40       3 rec bit(1), /*[4.4-1]*/
41       3 filler bit (29)) unaligned,
42     2 cmcs_dir char (168),
43     2 output_file char(168),  /*[4.4-1]*/
44     2 station_name char (12),                               /* current station */
45     2 station_ctl_eindex fixed bin,                         /* current station */
46     2 process_id bit (36),
47     2 process_type fixed bin,                               /* 0 - not defined, 1 - MP, 2 - terminal, 3 - admin */
48     2 filler fixed bin (35),                                /* to explicitly align ptrs */
49     2 control_ptrs,
50       3 queue_ctl_ptr ptr,
51       3 iocb_ptr ptr,         /*[4.4-1]*/
52       3 station_ctl_ptr ptr,
53       3 system_ctl_ptr ptr,
54       3 terminal_ctl_ptr ptr,
55       3 tree_ctl_ptr ptr,
56       3 wait_ctl_ptr ptr,
57       3 filler_ptrs (4) ptr,
58     2 terminal_info,
59       3 term_id char (4),
60       3 term_type fixed bin,
61       3 term_channel char (8),
62     2 last_receive_info,
63       3 tree_path char (48),
64       3 tree_ctl_eindex fixed bin,
65       3 tree_ctl_eptr ptr,
66     2 last_send_info,
67       3 dest_name char (12),
68       3 tree_ctl_eindex fixed bin,
69       3 tree_ctl_eptr ptr,
70     2 station_info,
71       3 station_count fixed bin,                            /* must be 1 for phase 1 */
72       3 station_entries (2),
73         4 station_name char (12),
74         4 station_ctl_eptr ptr,
75         4 station_ctl_eindex fixed bin,
76     2 wait_info,
77       3 wait_ctl_eptr ptr,
78       3 wait_ctl_eindex fixed bin,
79       3 wait_ctl_mp_eindex fixed bin,                       /* only for message processors */
80       3 wait_ctl_mp_eptr ptr,
81       3 ev_wait_chn fixed bin (71),                         /* for message processors */
82       3 ev_call_chn fixed bin (71),                         /* for terminals, to get message responses */
83       3 ev_wait_list_ptr ptr,                               /* for ipc_$block */
84       3 ev_info_ptr ptr;                                    /* for wakeup */
85 
86 /* END INCLUDE FILE ... cmcs_user_ctl.incl.pl1 */