1 /* BEGIN INCLUDE FILE ... run_control_structure.incl.pl1 */
 2 
 3 /* written 3 April 1979 by Melanie Weaver */
 4 
 5      declare run_cs_ptr             pointer;
 6 
 7      declare 1 run_control_structure
 8                                     aligned based (run_cs_ptr),
 9                2 version            fixed bin,
10                2 flags              aligned,
11                  3 ec               bit (1) unaligned,      /* on if run_ is to call exec_com */
12                  3 pad              bit (35) unaligned,
13                2 reference_name_switch
14                                     fixed bin,              /* indicates what reference names are used in run unit */
15                2 time_limit         fixed bin (35);         /* interval in cpu seconds after which program is
16                                                                to be interrupted */
17 
18      declare NEW_REFERENCE_NAMES    fixed bin internal static options (constant) init (0);
19      declare COPY_REFERENCE_NAMES   fixed bin internal static options (constant) init (1);
20      declare OLD_REFERENCE_NAMES    fixed bin internal static options (constant) init (2);
21 
22      declare run_control_structure_version_1
23                                     fixed bin internal static options (constant) init (1);
24 
25 /* END INCLUDE FILE ... run_control_structure.incl.pl1 */