1 /* BEGIN INCLUDE FILE... cmcs_cobol_mcs_dcls */
 2 
 3 dcl  cobol_mcs_$accept entry (ptr, fixed bin (35));
 4 dcl  cobol_mcs_$disable_input_queue entry (ptr, char (*), fixed bin (35));
 5 dcl  cobol_mcs_$disable_input_terminal entry (ptr, char (*), fixed bin (35));
 6 dcl  cobol_mcs_$disable_output entry (ptr, char (*), fixed bin (35));
 7 dcl  cobol_mcs_$enable_input_queue entry (ptr, char (*), fixed bin (35));
 8 dcl  cobol_mcs_$enable_input_terminal entry (ptr, char (*), fixed bin (35));
 9 dcl  cobol_mcs_$enable_output entry (ptr, char (*), fixed bin (35));
10 dcl  cobol_mcs_$get_user_ctl_exists_sw entry (bit (1) aligned);
11 dcl  cobol_mcs_$purge entry (ptr, fixed bin (35));
12 dcl  cobol_mcs_$receive entry (ptr, fixed bin, ptr, fixed bin, fixed bin (35));
13 dcl  cobol_mcs_$receive_wait entry (ptr, fixed bin, ptr, fixed bin, fixed bin (35));
14 dcl  cobol_mcs_$send entry (ptr, ptr, char (4), char (1), bit (36), fixed bin (35));
15 dcl  cobol_mcs_$set_user_ctl_exists_sw entry (bit (1) aligned);
16 dcl  cobol_mcs_$stop_run entry ();
17 
18 /*
19    call cobol_mcs_$accept (mcs_icdp, code);
20    call cobol_mcs_$disable_input_queue (mcs_icdp, password, code);
21    call cobol_mcs_$disable_input_terminal (mcs_icdp, password, code);
22    call cobol_mcs_$disable_output (mcs_ocdp, password, code);
23    call cobol_mcs_$enable_input_queue (mcs_icdp, password, code);
24    call cobol_mcs_$enable_input_terminal (mcs_icdp, password, code);
25    call cobol_mcs_$enable_output (mcs_ocdp, password, code);
26    call cobol_mcs_$get_user_ctl_exists_sw (flag);
27    call cobol_mcs_$purge (mcs_ocdp, code);
28    call cobol_mcs_$receive (mcs_icdp, type, mesp, max_meslen, code);
29    call cobol_mcs_$receive_wait(mcs_icdp, type, mesp, max_meslen, code);
30    call cobol_mcs_$send (mcs_ocdp, mesp, max_meslen, end_indicator, slew_control, code);
31    call cobol_mcs_$set_user_ctl_exists_sw (ON);
32    call cobol_mcs_$stop_run ();
33 */
34 
35 /* END INCLUDE FILE... cmcs_cobol_mcs_dcls */