1 /* BEGIN INCLUDE FILE . . . sl_control_s.incl.pl1 */
 2 
 3      declare 1 sl_control_s         unaligned based (addr (sl_control)),
 4                2 af_pathname        bit (1),                /* "1"b => expand active functions */
 5                2 pad1               bit (1),                /* Must be zero */
 6                2 key_ref_dir        bit (1),                /* "1"b => expand -referencing_dir keyword */
 7                2 key_work_dir       bit (1),                /* "1"b => expand -working_dir keyword */
 8                2 key_proc_dir       bit (1),                /* "1"b => expand -process_dir keyword */
 9                2 key_home_dir       bit (1),                /* "1"b => expand -home_dir keyword */
10                2 pad2               bit (30);               /* Must be zero */
11 
12      declare sl_control             bit (36);
13      declare sl_control_default     bit (36) internal static options (constant) initial ("101111"b);
14 
15 /* END INCLUDE FILE . . . sl_control_s.incl.pl1 */