1 /* BEGIN INCLUDE FILE... cmcs_control_hdr.incl.pl1 */
 2 
 3 /* This include file is the 1st part of all cobol_mcs tables */
 4 
 5 /* Bob May, 4/30/77 */
 6 
 7 dcl  control_hdr_len fixed bin int static options (constant) init (32);
 8 
 9 dcl  control_hdr_ptr ptr;
10 
11 dcl 1 control_hdr aligned based (control_hdr_ptr),
12     2 lockword bit (36) aligned,                            /* for process_id */
13     2 version fixed bin,
14     2 clock_created fixed bin (71),
15     2 author aligned,
16       3 group_id char (32),                                 /* person.proj.tag */
17       3 process_id bit (36),
18     2 max_size fixed bin (18),                              /* maximum number of entries seg can hold */
19     2 current_size fixed bin (18),                          /* index of last active entry */
20     2 entry_count fixed bin (18),                           /* number of active entries */
21     2 cmcs_control_hdr_filler (16) fixed bin;               /* words (17-32) for later expansion */
22 
23 /* END INCLUDE FILE... cmcs_control_hdr.incl.pl1 */