1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 #include <dos.h>
22 #include <stdio.h>
23 #include <ws.h>
24 #include <ws_dcls.h>
25 #include <ws_func.h>
26 #include <ws_error.h>
27 #include <wsmincap.h>
28
29 putstat (p_status_reply,p_mcb_ptr)
30
31 char *p_status_reply;
32 mcb *p_mcb_ptr;
33 {
34 int code;
35 int i;
36 int system;
37 int major;
38 int param_size;
39 struct putbg_struc msg;
40
41 if (p_mcb_ptr == NULL)
42 return (WSINVMCB);
43
44
45
46 msg.length = stccpy (msg.bgmsg, p_status_reply, WSPAKSIZ);
47
48
49
50 system = (int)(p_mcb_ptr -> system_id);
51 major = (int)(p_mcb_ptr -> major_capability);
52 if (code = c_pack (system, major, &msg.sender_major))
53 return (code);
54
55
56
57 msg.type = STATUS_REPLY;
58 param_size = msg.length + sizeof (struct putbg_struc) - WSPAKSIZ;
59 return (call_mowse_int (I$PUTBGMES, &msg , param_size));
60 }
61 ^Z