1 /* BEGIN INCLUDE FILE...ls_ssu_info.incl.pl1 */
 2 
 3 /****^  HISTORY COMMENTS:
 4   1) change(85-03-01,Coren), approve(87-06-25,MCR7679), audit(87-03-18,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       A) Added info directories to ls_ssu_info structure.  This allows them to
10          be changed while running in a test environment.
11       B) Add init(0) attribute to ls_ssu_info.n_endpoints.
12   3) change(87-06-25,GDixon), approve(87-06-25,MCR7679),
13      audit(87-07-14,Parisek), install(87-08-04,MR12.1-1056):
14      Add ls_cp_info.flags.call_probe to allow debug_mode messages without
15      stopping in probe.
16                                                    END HISTORY COMMENTS */
17 
18 /* defines the info structure used by the "login_server" subsystem */
19 
20 dcl ls_ssu_info_ptr pointer;
21 
22 dcl 1 ls_ssu_info aligned based (ls_ssu_info_ptr),
23     2 version char (8),                                     /* "lssiNNNN" */
24     2 sci_ptr pointer,
25     2 answer_table_ptr pointer,
26     2 installation_parms_ptr pointer,
27     2 flags,
28       3 debug_mode bit (1) unaligned,                       /* "1"b => debugging environment */
29       3 call_probe bit (1) unaligned,                       /* "1"b => call probe when control point reports error */
30       3 trace bit (1) unaligned,                            /* "1"b => make tracing calls */
31       3 pad bit (33) unaligned,
32     2 n_endpoints fixed bin init(0),                        /* number of endpoints for which service has been started */
33     2 first_endpoint_ptr pointer,                           /* head of list of endpoint names */
34     2 last_endpoint_ptr pointer,                            /* tail of list */
35     2 login_info_dir char (168) unal,                       /* info dir for login requests */
36     2 connect_info_dir char (168) unal;                     /* info dir for connect requests */
37 
38 dcl LS_SSU_INFO_V1 char (8) internal static options (constant) initial ("lssi0001");
39 
40 
41 dcl ls_endpoint_listp pointer;
42 
43 dcl 1 ls_endpoint_list based (ls_endpoint_listp) aligned,   /* element in linked list of active endpoints */
44     2 version char (8),                                     /* "lselNNNN" */
45     2 name char (32),                                       /* name of endpoint as supplied to start_login_service request */
46     2 prev_endpoint pointer,                                /* preceding entry in list */
47     2 next_endpoint pointer,                                /* next endpoint in list */
48     2 service_entries_ptr pointer,                          /* points to login_service_entries structure for this endpoint */
49     2 restart_event_channel fixed bin (71),                 /* event channel for signalling new start_login_service on dormant endpoint */
50     2 control_point_id bit (36),                            /* control point that listens on specified endpoint */
51     2 n_connections fixed bin,                              /* number of connections created on this endpoint */
52     2 flags,
53       3 awaiting_destruction bit (1) unaligned,             /* "1"b => destroy control point when n_connections goes to 0 */
54       3 mbz bit (35) unaligned;
55 
56 dcl LS_ENDPOINT_LIST_V1 char (8) internal static options (constant) initial ("lsel0001");
57 
58 dcl LS_SS_VERSION char (4) internal static options (constant) initial ("1.0 ");
59 
60 /* END INCLUDE FILE...ls_ssu_info.incl.pl1 */