1 /* ***********************************************************
 2    *                                                         *
 3    * Copyright, (C) Honeywell Bull Inc., 1987                *
 4    *                                                         *
 5    * Copyright, (C) Honeywell Information Systems Inc., 1986 *
 6    *                                                         *
 7    *********************************************************** */
 8 
 9 /* HISTORY COMMENTS:
10   1) change(86-07-13,Westcott), approve(87-07-13,MCR7580),
11      audit(87-07-13,Leskiw), install(87-08-07,MR12.1-1072):
12      Created.
13                                                    END HISTORY COMMENTS */
14 
15 /* : PROCEDURE FUNCTION (i_sendbg)
16 
17 Sends a message over the back ground channel from a foreground program.
18 */
19 
20 #include <stdio.h>
21 #include <ws.h>
22 #include <ws_error.h>
23 #include <ws_msg.h>
24 
25 extern char mysystem;                  /* ID of this system */
26 
27 i_sendbg (p_msg, p_length)
28 
29 struct packet_msg *p_msg;
30 int p_length;
31 {
32 
33    if ((p_msg -> system == 0) || (p_msg -> major == 0))
34    {  p_msg -> source_system = mysystem;
35       p_msg -> source_major = WSMAJCAP;
36    }
37 
38    return (send_i_mess (p_msg, p_length, NULL, 0));
39 }
40 ^Z