1 
 2 /* BEGIN INCLUDE FILE ...   cobol_control.incl.pl1 */
 3 /* Last modified May 5, 1977 by BC */
 4 
 5 dcl controlp ptr static init(null());
 6 dcl 1 control based(controlp) aligned,
 7      2 sense_sw (8) fixed bin,
 8      2 next_data_ptr ptr,               /* not currently used - each program has own data segment for now */
 9      2 name char(65) aligned, /* name of the run-unit */
10      2 flags bit(27) unaligned,
11      2 ind_mask bit(9) unaligned,
12      2 mpname char(65) varying aligned, /* name of the main program of the run-unit */
13      2 fofl_handler_ptr ptr,  /* a ptr to the entry pt of the cobol fixedoverflow handler cobol_fofl_handler_  */
14      2 main_prog_ptr ptr,     /* a ptr to the entry point of the main program - valid only if main_prog_sw^=0 */
15      2 main_prog_sw fixed bin aligned,
16      2 sort_file_size float bin(27),
17      2 sort_dir_len fixed bin,
18      2 sort_dir char(168),
19      2 no_of_segs fixed bin,
20      2 statptr (0 refer(control.no_of_segs)) ptr;
21 
22 /* END INCLUDE FILE ...   cobol_control.incl.pl1 */
23