1 /* BEGIN INCLUDE FILE  cobol_rts_data.incl.pl1 */
  2 
  3 
  4 /****^  HISTORY COMMENTS:
  5   1) change(2016-02-24,Swenson), approve(2016-02-24,MCR10009),
  6      audit(2016-04-10,GDixon), install(2016-04-10,MR12.6e-0005):
  7      Fix references to (en de)code_clock_value_ to use 4-character time zone.
  8                                                    END HISTORY COMMENTS */
  9 
 10 /* EXTERNAL_NAMES */
 11 
 12 dcl       iox_$user_input ptr ext;
 13 
 14 
 15 dcl       cobol_error_        entry(fixed bin,fixed bin(35),fixed bin,fixed bin,char(*),ptr);
 16 dcl       cobol_error_$use    entry(fixed bin,fixed bin(35),fixed bin,fixed bin,char(*),ptr);
 17 dcl       cobol_control_$cobol_rts_control_ entry(ptr);
 18 
 19 dcl       sort_$initiate      entry(char(*),ptr,ptr,char(*),float bin(27),fixed bin(35));
 20 dcl       sort_$noexit        entry ext;
 21 
 22 
 23 dcl       error_table_$end_of_info      fixed bin(35) ext;
 24 dcl       error_table_$key_duplication  fixed bin(35) ext;
 25 dcl       error_table_$long_record      fixed bin(35) ext;
 26 dcl       error_table_$short_record     fixed bin(35) ext;
 27 dcl       error_table_$no_record fixed bin(35) external;
 28 dcl       error_table_$key_order fixed bin(35) external;
 29 dcl       error_table_$incompatible_attach fixed bin(35) external;
 30 dcl       error_table_$noentry fixed bin(35) external;
 31 dcl       error_table_$file_busy fixed bin(35) external;
 32 dcl       error_table_$no_operation fixed bin(35) external;
 33 dcl       error_table_$bad_file fixed bin(35) external;
 34 dcl       error_table_$not_detached fixed bin(35) static ext;
 35 dcl       error_table_$not_open fixed bin(35) static ext;
 36 dcl       error_table_$not_closed fixed bin(35) static ext;
 37 dcl       error_table_$no_key fixed bin(35) static ext;
 38 
 39 dcl       sort_$return        entry(ptr,fixed bin(21),fixed bin(35));
 40 
 41 dcl       sort_$terminate     entry(fixed bin(35));
 42 
 43 dcl       sort_$commence      entry(fixed bin(35));
 44 
 45 dcl       cu_$cl    entry;
 46 
 47 dcl       cobol_stop_run_     entry(ptr,fixed bin,fixed bin,fixed bin),
 48           signal_             entry(char(*),ptr,ptr);
 49 declare iox_$attach_ptr entry(ptr,char(*),ptr,fixed bin(35));
 50 declare iox_$attach_name entry(char(*),ptr,char(*),ptr,fixed bin(35));
 51 declare iox_$close entry(ptr,fixed bin(35));
 52 declare iox_$control entry(ptr,char(*),ptr,fixed bin(35));
 53 declare iox_$delete_record entry(ptr,fixed bin(35));
 54 declare iox_$detach_iocb entry(ptr,fixed bin(35));
 55 declare iox_$find_iocb entry(char(*),ptr,fixed bin(35));
 56 declare iox_$get_chars entry(ptr,ptr,fixed bin(21),fixed bin(21),fixed bin(35));
 57 declare iox_$get_line entry(ptr,ptr,fixed bin(21),fixed bin(21),fixed bin(35));
 58 declare iox_$modes entry(ptr,char(*),char(*),fixed bin(35));
 59 declare iox_$move_attach entry(ptr,ptr,fixed bin(35));
 60 declare iox_$open entry(ptr,fixed bin,bit(1) aligned,fixed bin(35));
 61 declare iox_$position entry(ptr,fixed bin,fixed bin(21),fixed bin(35));
 62 declare iox_$put_chars entry(ptr,ptr,fixed bin(21),fixed bin(35));
 63 declare iox_$read_key entry(ptr,char(256) varying,fixed bin(21),fixed bin(35));
 64 declare iox_$read_length entry(ptr,fixed bin(21),fixed bin(35));
 65 declare iox_$read_record entry(ptr,ptr,fixed bin(21),fixed bin(21),fixed bin(35));
 66 declare iox_$rewrite_record entry(ptr,ptr,fixed bin(21),fixed bin(35));
 67 declare iox_$seek_key entry(ptr,char(256) varying,fixed bin(21),fixed bin(35));
 68 declare iox_$write_record entry(ptr,ptr,fixed bin(21),fixed bin(35));
 69 dcl       iox_$attach_iocb entry(ptr,char(*),fixed bin(35));
 70 
 71 dcl       cobol_control_$cancel         entry(char(*),fixed bin,fixed bin,fixed bin);
 72 
 73 
 74 dcl       clock_    entry returns(fixed bin(71)),
 75           date_time_          entry(fixed bin(71),char(*)),
 76           decode_clock_value_ entry(fixed bin(71),fixed bin,fixed bin,fixed bin,fixed bin(71),
 77                     fixed bin,char(4) aligned);
 78 
 79 dcl       cobol_su_$tally     entry(ptr,fixed bin),
 80           cobol_su_$replace   entry(ptr);
 81 
 82 dcl       hcs_$terminate_name entry(char(*),fixed bin(35));
 83 dcl       get_pdir_ entry returns(char(168));
 84 dcl       hcs_$make_seg       entry(char(*),char(*),char(*),fixed bin(5),ptr,fixed bin(35));
 85 dcl       hcs_$truncate_seg   entry(ptr,fixed bin(18),fixed bin(35));
 86 
 87 dcl       cobol_mcs_$receive  entry(ptr,fixed bin,ptr,fixed bin,fixed bin(35)),
 88           cobol_mcs_$receive_wait       entry(ptr,fixed bin,ptr,fixed bin,fixed bin(35));
 89 
 90 dcl       cmcs_error_table_$no_message  fixed bin(35) ext;
 91 
 92 dcl       cobol_mcs_$accept   entry(ptr,fixed bin(35));
 93 
 94 dcl       cobol_mcs_$purge    entry(ptr,fixed bin(35));
 95 
 96 dcl       cobol_mcs_$send     entry(ptr,ptr,char(4),char(1),bit(36),fixed bin(35));
 97 
 98 dcl       cobol_mcs_$enable_input_terminal        entry(ptr,char(*),fixed bin(35)),
 99           cobol_mcs_$enable_input_queue entry(ptr,char(*),fixed bin(35)),
100           cobol_mcs_$enable_output      entry(ptr,char(*),fixed bin(35));
101 
102 
103 dcl       cobol_mcs_$disable_input_terminal       entry(ptr,char(*),fixed bin(35)),
104           cobol_mcs_$disable_input_queue          entry(ptr,char(*),fixed bin(35)),
105           cobol_mcs_$disable_output     entry(ptr,char(*),fixed bin(35));
106 
107 /* BUILTIN FUNCTIONS */
108 
109 dcl       (substr,mod,binary,fixed,addr,addrel,rel,length,
110           string,unspec,null,index)               builtin;
111 
112 %include cobol_stack_frame;
113 %include cobol_control;
114 %include cobol_fixed_static;
115 %include cobol_fsb_type_1;
116 %include cobol_fsbskel;
117 %include cobol_file_desc_1;
118 %include rs_info;
119 %include ak_info;
120 
121 /*  END INCLUDE FILE   cobol_rts_data.incl.pl1 */