1 /* BEGIN INCLUDE FILE...ls_cp_info.incl.pl1 */
 2 
 3 /****^  HISTORY COMMENTS:
 4   1) change(85-04-01,Coren), approve(87-06-25,MCR7679), audit(87-03-05,GDixon),
 5      install(87-08-04,MR12.1-1056):
 6      Initial coding.
 7   2) change(87-03-05,GDixon), approve(87-06-25,MCR7679),
 8      audit(87-07-14,Parisek), install(87-08-04,MR12.1-1056):
 9      Add info directory paths to ls_cp_info structure.  This allows them to
10      be changed while running in a test environment.
11   3) change(87-06-25,GDixon), approve(87-06-25,MCR7679),
12      audit(87-07-14,Parisek), install(87-08-04,MR12.1-1056):
13      Add ls_cp_info.flags.call_probe to allow debug_mode messages without
14      stopping in probe.
15                                                    END HISTORY COMMENTS */
16 
17 /* This include file describes the info structure passed to the initial
18    procedure of a login server control point that manages a particular
19    connection.
20 */
21 
22 dcl ls_cp_info_ptr pointer;
23 
24 dcl 1 ls_cp_info aligned based (ls_cp_info_ptr),
25     2 version char (8),                                     /* "lscpNNNN" */
26     2 connection_desc_ptr pointer,                          /* points to ls_connection_desc */
27     2 error_info_ptr pointer,                               /* pointer to ls_error_info structure */
28     2 error_event_channel fixed bin (71),                   /* event channel for signalling errors in parent control point */
29     2 connection_gone_event_channel fixed bin (71),         /* event channel for telling parent that connection is gone */
30     2 answer_table_ptr pointer,                             /* needed by validate_user_ */
31     2 installation_parms_ptr pointer,                       /* likewise */
32     2 flags,
33       3 debug_mode bit (1) unaligned,                       /* "1"b => debugging environment */
34       3 call_probe bit (1) unaligned,                       /* "1"b => call probe when control point reports error */
35       3 trace bit (1) unaligned,                            /* "1"b => make tracing calls */
36       3 fault_recursion bit (1) unaligned,                  /* "1"b => cl_intermediary being entered for second time */
37       3 no_io_switches bit (1) unaligned,                   /* "1"b => control point doesn't have separate I/O switches */
38       3 pad bit (31) unaligned,
39     2 login_info_dir char (168) unal,                       /* info dir for login requests */
40     2 connect_info_dir char (168) unal;                     /* info dir for connect requests */
41 
42 dcl LS_CP_INFO_V1 char (8) internal static options (constant) initial ("lscp0001");
43 
44 /* END INCLUDE FILE...ls_cp_info.incl.pl1 */