1 /* BEGIN INCLUDE FILE ... _cp_subsys_info.incl.pl1 */
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(82-06-01,Palter), approve(), audit(), install():
 6      Created include file.
 7   2) change(86-05-18,GDixon), approve(86-05-18,MCR7357),
 8      audit(86-06-16,Farley), install(86-07-18,MR12.0-1098):
 9      Modify cp_subsys_info to make TCT table entries aligned.  Calling sequence
10      of tct_ changed when the routine was renamed to find_char_.
11                                                    END HISTORY COMMENTS */
12 
13 
14 /* Data structure passed by subsystem utilities to the command processor to convey request processor options to the
15    command processor */
16 
17 dcl  1 cp_subsys_info aligned based (cp_subsys_info_ptr),
18        2 version character (8),
19        2 language_info,
20          3 non_standard_language bit (1) aligned,           /* ON => a non-standard language definition is to be used */
21          3 full_tct_table character (512),                  /* PL/I search table for scanning the request line */
22          3 tokens_only_tct_table character (512);           /* PL/I search table for scanning |[...] return strings */
23 
24 
25 dcl  cp_subsys_info_ptr pointer;
26 
27 dcl  CP_SUBSYS_INFO_VERSION_1 character (8) static options (constant) initial ("csi_0001");
28 
29 /* END INCLUDE FILE ... _cp_subsys_info.incl.pl1 */