1 /* BEGIN INCLUDE FILE...ls_connection_message.incl.pl1 */
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(86-07-02,Coren), approve(86-07-02,MCR7415),
 6      audit(86-07-02,Margolin), install(86-07-11,MR12.0-1092):
 7      Initial implementation.
 8                                                    END HISTORY COMMENTS */
 9 
10 /* This include file describes the user_message passed by a login server to
11    a user process when a connection is assigned to, or disconnected from,
12    that process. The format of the "connection_info" is dependent on the type
13    of connection. The connection_info is not included in disconnect messages.
14 
15    The "common" portion of the message is passed separately for "dialed" channels
16    so that convert_dial_message_ in the dial-server's process can use it to
17    to determine the names of the connectin and the associated I/O module. The
18    "full" message is passed in all cases and used when actually doing the
19    attachment.
20 */
21 
22 /* Written April 1985 by Robert Coren */
23 
24 
25 dcl ls_connection_message_ptr pointer;
26 
27 dcl ls_connection_message_info_length fixed bin (18) unsigned;
28 
29 
30 /* The portion of the message that identifies the connection: used in all cases */
31 
32 dcl 1 ls_connection_message_common aligned based (ls_connection_message_ptr),
33     2 version char (8),                                     /* "lscmNNNN" */
34     2 connection_name char (32),
35     2 io_module_name char (32);
36 
37 
38 /* The full message: used by the I/O module when attaching */
39 
40 dcl 1 ls_connection_message aligned based (ls_connection_message_ptr),
41     2 common like ls_connection_message_common,
42     2 connection_handle fixed bin (35),
43     2 reason fixed bin,                                     /* LS_MSG_CONNECTED or LS_MSG_DISCONNECTED */
44     2 connection_info_length fixed bin (18) unsigned,
45     2 mbz bit (36),                                         /* pad to even word boundary */
46     2 connection_info (ls_connection_message_info_length refer (ls_connection_message.connection_info_length)) bit (36);
47 
48 dcl  LS_CONNECTION_MESSAGE_V1 char (8) internal static options (constant) initial ("lscm0001");
49 
50 dcl  LS_MSG_CONNECTED fixed bin internal static options (constant) initial (1);
51 dcl  LS_MSG_DISCONNECTED fixed bin internal static options (constant) initial (2);
52 
53 
54 /* END INCLUDE FILE...ls_connection_message.incl.pl1 */