1 /* BEGIN INCLUDE FILE... cmcs_entry_dcls.incl.pl1 */
 2 
 3 
 4 
 5 /****^  HISTORY COMMENTS:
 6   1) change(89-04-23,Zimmerman), approve(89-04-23,MCR8087),
 7      audit(89-05-05,RWaters), install(89-05-24,MR12.3-1048):
 8      MCR8087 cmcs_entry_dcls.incl.pl1 Shorten wait time for cmcs_station_ctl_.
 9                                                    END HISTORY COMMENTS */
10 
11 
12 /* Entry declarations for the COBOL MCS runtime support package */
13 
14 /* Modified on 10/20/84 by FCH, [5.3-1] */
15 /* Modified on 04/29/81 by FCH, [4.4-1] */
16 /* Bob May, 6/01/77 */
17 
18      dcl     cmcs_create_queues_    entry (fixed bin (35));
19 
20      dcl     cmcs_date_time_        entry (fixed bin (71), char (6) unaligned, char (8) unaligned);
21 
22      dcl     cmcs_decode_status_    entry (ptr, ptr, fixed bin, fixed bin, fixed bin (35));
23 
24      dcl     cmcs_expand_tree_path_ entry (char (*), char (48), fixed bin (35));
25 
26      dcl     cmcs_fillin_hdr_       entry (ptr, fixed bin, fixed bin, fixed bin, fixed bin (35));
27 
28      dcl     cmcs_initiate_ctl_     entry (char (*), ptr, fixed bin (35));
29 
30      dcl     cmcs_print_            entry (ptr, ptr, fixed bin (35), ptr, fixed bin (35));
31 
32      dcl     cmcs_purge_queues_     entry (fixed bin, bit (1), fixed bin (35));
33 
34      dcl     cmcs_queue_ctl_$accept_message_count entry (ptr, fixed bin, fixed bin (35));
35      dcl     cmcs_queue_ctl_$disable entry (ptr, fixed bin, char (10), fixed bin (35));
36      dcl     cmcs_queue_ctl_$enable entry (ptr, fixed bin, char (10), fixed bin (35));
37      dcl     cmcs_queue_ctl_$print  entry (ptr, fixed bin, ptr, fixed bin (35));
38      dcl     cmcs_queue_ctl_$purge  entry (ptr, fixed bin, fixed bin (35));
39      dcl     cmcs_queue_ctl_$receive entry (ptr, fixed bin, ptr, fixed bin, fixed bin (35));
40      dcl     cmcs_queue_ctl_$send   entry (ptr, fixed bin, ptr, fixed bin, fixed bin, bit (36), fixed bin (35));
41      dcl     cmcs_queue_ctl_$stop_run entry (fixed bin, fixed bin (35));
42 
43      dcl     cmcs_scramble_         entry (char (10)) returns (char (10));
44 
45      dcl     cmcs_set_lock_$lock    entry (bit (36) aligned, fixed bin, fixed bin (35)); /*[5.3-1]*/
46      dcl     cmcs_set_lock_$unlock  entry (bit (36) aligned, fixed bin (35));
47 
48      dcl     cmcs_station_ctl_$attach entry (char (12), fixed bin, fixed bin (35));
49      dcl     cmcs_station_ctl_$detach entry (fixed bin, fixed bin (35));
50      dcl     cmcs_station_ctl_$detach_name entry (char (12), fixed bin (35));
51      dcl     cmcs_station_ctl_$disable_input_terminal entry (ptr, char (10), fixed bin (35));
52      dcl     cmcs_station_ctl_$disable_output_terminal entry (ptr, char (10), fixed bin (35));
53      dcl     cmcs_station_ctl_$enable_input_terminal entry (ptr, char (10), fixed bin (35));
54      dcl     cmcs_station_ctl_$enable_output_terminal entry (ptr, char (10), fixed bin (35));
55      dcl     cmcs_station_ctl_$find_destination entry (char (12), fixed bin, ptr, fixed bin (35)); /*[4.4-1]*/
56      dcl     cmcs_station_ctl_$input_disabled entry (fixed bin, bit (1), fixed bin (35));
57      dcl     cmcs_station_ctl_$output_disabled entry (fixed bin, bit (1), fixed bin (35));
58      dcl     cmcs_station_ctl_$validate entry (char (12), fixed bin, fixed bin (35));
59 
60      dcl     cmcs_status_list_ctl_$add entry (ptr, ptr, ptr, fixed bin, fixed bin (35));
61      dcl     cmcs_status_list_ctl_$delete entry (ptr, ptr, ptr, fixed bin, fixed bin (35));
62      dcl     cmcs_status_list_ctl_$move entry (ptr, ptr, ptr, fixed bin, fixed bin, fixed bin (35));
63 
64      dcl     cmcs_terminal_ctl_$find entry (char (8), char (12), fixed bin (35));
65 
66      dcl     cmcs_tree_ctl_$find_destination entry (char (12), fixed bin, ptr, fixed bin (35));
67      dcl     cmcs_tree_ctl_$find_index entry (fixed bin, ptr, fixed bin (35));
68      dcl     cmcs_tree_ctl_$find_tree_path entry (ptr, fixed bin, fixed bin, ptr, fixed bin (35));
69      dcl     cmcs_tree_ctl_$find_qual_name entry (char (12), fixed bin, ptr, char (52), fixed bin (35)); /*[4.4-1]*/
70 
71      dcl     cmcs_wait_ctl_$add     entry (char (48), fixed bin, fixed bin (35));
72      dcl     cmcs_wait_ctl_$delete  entry (fixed bin, fixed bin (35));
73      dcl     cmcs_wait_ctl_$find    entry (char (48), ptr, fixed bin (35));
74      dcl     cmcs_wait_ctl_$mp_available entry (fixed bin, fixed bin, fixed bin (35));
75      dcl     cmcs_wait_ctl_$mp_login entry (fixed bin, fixed bin (35));
76      dcl     cmcs_wait_ctl_$mp_logout entry (fixed bin, fixed bin (35));
77      dcl     cmcs_wait_ctl_$clear_mp entry (fixed bin (35));
78      dcl     cmcs_wait_ctl_$start_mp entry (fixed bin (35));
79      dcl     cmcs_wait_ctl_$stop_mp entry (fixed bin (35));
80 
81 /* END INCLUDE FILE... cmcs_entry_dcls.incl.pl1 */