1 /* BEGIN INCLUDE FILE... cmcs_station_ctl.incl.pl1 */
 2 
 3 /* This include file defines the station control structure for COBOL MCS */
 4 
 5 /* Bob May, 5/31/77 */
 6 
 7 dcl (station_ctl_hdr_len init (0),                          /* no special fields in hdr */
 8      station_ctl_entry_len init (6),
 9      station_ctl_version init (1)) fixed bin int static options (constant);
10 
11 dcl  station_ctl_ptr ptr int static;
12 
13 dcl 1 station_ctl aligned based (station_ctl_ptr),
14     2 hdr like control_hdr,
15     2 entries (station_ctl.current_size) like station_ctl_entry;
16 
17 dcl  station_ctl_eindex fixed bin;
18 
19 dcl  station_ctl_eptr ptr;
20 
21 dcl 1 station_ctl_entry aligned based (station_ctl_eptr),
22     2 station_name char (12),
23     2 lockword bit (36) aligned,                            /* owner process_id */
24     2 flags,
25      (3 inactive_sw bit (1),                                /* station is currently not legal to use */
26       3 destination_sw bit (1),                             /* station attached as a destination */
27       3 input_disabled_sw bit (1),                          /* if terminal, can't input */
28       3 output_disabled_sw bit (1),                         /* if terminal, can't get output */
29       3 filler bit (32)) unaligned,
30     2 filler fixed bin;
31 
32 /* END INCLUDE FILE... cmcs_station_ctl.incl.pl1 */