COMPILATION LISTING OF SEGMENT cobol_proc_sort Compiled by: Multics PL/I Compiler, Release 31b, of April 24, 1989 Compiled at: Bull HN, Phoenix AZ, System-M Compiled on: 05/24/89 1016.5 mst Wed Options: optimize map 1 /****^ *********************************************************** 2* * * 3* * Copyright, (C) BULL HN Information Systems Inc., 1989 * 4* * * 5* * Copyright, (C) Honeywell Information Systems Inc., 1982 * 6* * * 7* * Copyright (c) 1972 by Massachusetts Institute of * 8* * Technology and Honeywell Information Systems, Inc. * 9* * * 10* *********************************************************** */ 11 12 13 14 15 /****^ HISTORY COMMENTS: 16* 1) change(89-04-23,Zimmerman), approve(89-04-23,MCR8060), 17* audit(89-05-05,RWaters), install(89-05-24,MR12.3-1048): 18* MCR8060 cobol_proc_sort.pl1 Reformatted code to new Cobol standard. 19* END HISTORY COMMENTS */ 20 21 22 /* 6/16/77, FCH, fixed bin decls standardized */ 23 /* Modified on 11/16/76 to set corst.s_info4 for merge (in conjunction with cobol_repl3 change) */ 24 /* Modified since Version 2.0 */ 25 26 /* format: style3 */ 27 cobol_proc_sort: 28 proc; 29 30 dcl 1 sio, 31 2 chain char (5), 32 2 bsns fixed bin, 33 2 bsn char (30), 34 2 esns fixed bin, 35 2 esn char (30), 36 2 ssn fixed bin, 37 2 sfns fixed bin, 38 2 sfn char (30), 39 2 io bit (1), 40 2 bits, 41 3 pdsyn, 42 4 rel bit (1), 43 4 ret bit (1), 44 3 repl, 45 4 info_1 bit (1), 46 4 info_2 bit (1), 47 4 info_3 bit (1), 48 4 merge bit (1), 49 4 info_5 bit (1); 50 dcl 1 sio_b based (oe_ptr), 51 2 chain char (5), 52 2 bsns fixed bin, 53 2 bsn char (30), 54 2 esns fixed bin, 55 2 esn char (30), 56 2 ssn fixed bin, 57 2 sfns fixed bin, 58 2 sfn char (30), 59 2 io bit (1), 60 2 bits, 61 3 pdsyn, 62 4 rel bit (1), 63 4 ret bit (1), 64 3 repl, 65 4 info_1 bit (1), 66 4 info_2 bit (1), 67 4 info_3 bit (1), 68 4 merge bit (1), 69 4 info_5 bit (1); /* reserved_word */ 70 dcl 1 reserved_word based (cobol_current), 71 2 fwd_link pointer, 72 2 back_link pointer, 73 2 rep_link pointer, 74 2 l_info bit (8), 75 2 size fixed bin, 76 2 line fixed bin, 77 2 column fixed bin, 78 2 type fixed bin, /* = 1 */ 79 2 key fixed bin, 80 2 class bit (26), 81 2 jump_index fixed bin; /* user_word */ 82 dcl 1 user_word based (cobol_current), 83 2 fwd_link pointer, 84 2 back_link pointer, 85 2 rep_link pointer, 86 2 l_info bit (8), 87 2 size fixed bin, 88 2 line fixed bin, 89 2 column fixed bin, 90 2 type fixed bin, /* = 8 */ 91 2 info bit (8), 92 2 length fixed bin, 93 2 word char (30); 94 dcl cobol_gns1 entry ext; 95 dcl sio_t char (125); 96 dcl sio_tb char (oe_len) based (oe_ptr); 97 dcl (oe_key, ne_key) char (5); 98 dcl st bit (32); 99 dcl (oe_ptr, siot_ad) ptr; 100 dcl oe_len fixed bin; 101 dcl cobol_vdwf_sput entry (ptr, bit (32), ptr, fixed bin, char (5)) ext; 102 dcl cobol_vdwf_dget entry (ptr, bit (32), ptr, fixed bin, char (5)) ext; 103 dcl cobol_vdwf_dput entry (ptr, bit (32), ptr, fixed bin, char (5)) ext; 104 105 dcl addr builtin; 106 dcl substr builtin; 107 108 109 /*************************************/ 110 111 start: 112 siot_ad = addr (sio_t); 113 sio.chain = "00000"; 114 sio.bsns = 0; 115 sio.esns = 0; 116 sio.ssn = 0; 117 string (sio.bits) = ""b; 118 sio.bits.repl.merge = reserved_word.key = reswd_MERGE; 119 120 call cobol_gns1; 121 122 if user_word.type ^= 8 123 then return; 124 125 sio.sfns = user_word.length; 126 sio.sfn = substr (user_word.word, 1, user_word.length); 127 128 get_io: 129 call cobol_gns1; 130 131 get_io1: 132 if reserved_word.type = 1 133 then do; 134 if reserved_word.key = reswd_INPUT 135 then do; 136 sio.io = "0"b; 137 goto proc_com_ent; 138 end; 139 140 if reserved_word.key = reswd_OUTPUT 141 then do; 142 sio.io = "1"b; 143 goto proc_com_ent; 144 end; 145 146 if substr (reserved_word.class, 4, 1) = "1"b 147 then return; 148 149 /* if end of statement... */ 150 end; 151 152 if user_word.type = 8 153 then if user_word.column < 12 154 then return; /* if procedure name... */ 155 156 goto get_io; 157 158 proc_com_ent: 159 call cobol_gns1; 160 161 if reserved_word.type ^= 1 162 then return; 163 164 if reserved_word.key ^= reswd_PROCEDURE 165 then return; 166 167 call cobol_gns1; 168 169 if reserved_word.type = 1 170 then call cobol_gns1; /* if IS... */ 171 172 if user_word.type ^= 8 173 then return; 174 175 sio.bsns = user_word.length; 176 sio.bsn = substr (user_word.word, 1, user_word.length); 177 sio.esns = user_word.length; 178 sio.esn = substr (user_word.word, 1, user_word.length); 179 180 call cobol_gns1; 181 182 if reserved_word.type = 1 183 then if reserved_word.key = reswd_THRU 184 then do; 185 call cobol_gns1; 186 187 if user_word.type ^= 8 188 then return; 189 190 sio.esns = user_word.length; 191 sio.esn = substr (user_word.word, 1, user_word.length); 192 end; 193 194 call cobol_vdwf_sput (cobol_cmfp, st, addr (sio), 119, ne_key); 195 196 if sio.io = "0"b 197 then do; 198 199 if cobol_si_key = "00000" 200 then do; 201 fixed_common.sort_in_info = ne_key; 202 cobol_si_key = ne_key; 203 goto get_io1; 204 end; 205 206 call cobol_vdwf_dget (cobol_cmfp, st, oe_ptr, oe_len, cobol_si_key); 207 208 sio_t = sio_tb; 209 siot_ad -> sio_b.chain = ne_key; 210 211 call cobol_vdwf_dput (cobol_cmfp, st, siot_ad, oe_len, cobol_si_key); 212 213 cobol_si_key = ne_key; 214 goto get_io1; 215 end; 216 217 if cobol_so_key = "00000" 218 then do; 219 fixed_common.sort_out_info = ne_key; 220 cobol_so_key = ne_key; 221 goto get_io1; 222 end; 223 224 call cobol_vdwf_dget (cobol_cmfp, st, oe_ptr, oe_len, cobol_so_key); 225 226 sio_t = sio_tb; 227 siot_ad -> sio_b.chain = ne_key; 228 229 call cobol_vdwf_dput (cobol_cmfp, st, siot_ad, oe_len, cobol_so_key); 230 231 cobol_so_key = ne_key; 232 233 goto get_io1; 234 1 1 1 2 /* BEGIN INCLUDE FILE ... cobol_fixed_common.incl.pl1 */ 1 3 /* Modified on 10/27/82 by FCH, [5.1-1], cobol_cln added to save last line num, BUG543(phx13643) */ 1 4 /* Modified on 07/31/80 by FCH, [4.3-1], use_reporting field added for Report Writer */ 1 5 /* Modified on 03/30/79 by FCH, [4.1-1], -card option added */ 1 6 /* Modified on 03/30/79 by FCH, [4.0-2], -svNM option added */ 1 7 /* Modified on 03/02/79 by FCH, [4.0-1], -levNM option added */ 1 8 /* Modified by RAL on 10/13/78, [4.0-0], Added option exp from fil2. */ 1 9 /* Modified by BC on 06/20/77, descriptor added. */ 1 10 /* Modified by BC on 06/02/77, init_cd_seg, init_cd_offset added. */ 1 11 /* Modified by BC on 1/21/77, options.profile added. */ 1 12 /* Modified by FCH on 7/6/76, sysin_fno & sysout_fno deleted, accept_device & display_device added */ 1 13 /* Modified by FCH on 5/20/77, comp_level added */ 1 14 1 15 1 16 /* THE SIZE OF THIS STRUCTURE IN BYTES, (EXCLUDING VARIABLE 1 17* LENGTH ENTITIES), FOR EACH HARDWARE IMPLEMENTATION IS: 1 18* 1 19* HARDWARE | SIZE (BYTES) 1 20* --------------------------------- 1 21* 645/6180 | 464 1 22* P7 | 396 1 23* --------------------------------- 1 24* */ 1 25 1 26 dcl 1 fixed_common based ( cobol_com_ptr), 1 27 2 prog_name char (30), 1 28 2 compiler_rev_no char (25), 1 29 2 phase_name char (6), 1 30 2 currency char (1), 1 31 2 fatal_no fixed bin, 1 32 2 warn_no fixed bin, 1 33 2 proc_counter fixed bin, 1 34 2 spec_tag_counter fixed bin, 1 35 2 file_count fixed bin, 1 36 2 filedescr_offsets (20) char (5), 1 37 2 perf_alter_info char (5), 1 38 2 another_perform_info char (5), 1 39 2 sort_in_info char (5), 1 40 2 odo_info char (5), 1 41 2 size_seg fixed bin, 1 42 2 size_offset fixed bin(24), 1 43 2 size_perform_info char (5), 1 44 2 rename_info char (5), 1 45 2 report_names char (5), 1 46 2 rw_buf_seg fixed bin, 1 47 2 rw_buf_offset fixed bin(24), 1 48 2 rw_buf_length fixed bin(24), 1 49 2 file_keys char (5), 1 50 2 search_keys char (5), 1 51 2 dd_seg_size fixed bin(24), 1 52 2 pd_seg_size fixed bin(24), 1 53 2 seg_limit fixed bin , 1 54 2 number_of_dd_segs fixed bin, 1 55 2 seg_info char (5), 1 56 2 number_of_ls_pointers fixed bin, 1 57 2 link_sec_seg fixed bin, 1 58 2 link_sec_offset fixed bin(24), 1 59 2 sra_clauses fixed bin, 1 60 2 fix_up_info char (5), 1 61 2 linage_info char (5), 1 62 2 first_dd_item char (5), 1 63 2 sort_out_info char (5), 1 64 2 db_info char (5), 1 65 2 realm_info char (5), 1 66 2 rc_realm_info char (5), 1 67 2 last_file_key char (5), 1 68 2 prog_coll_seq fixed bin, 1 69 2 init_cd_seg fixed bin, 1 70 2 init_cd_offset fixed bin(24), 1 71 2 input_error_exit fixed bin, 1 72 2 output_error_exit fixed bin, 1 73 2 i_o_error_exit fixed bin, 1 74 2 extend_error_exit fixed bin, 1 75 2 dummy15 fixed bin, 1 76 2 options, 1 77 3 cu bit (1), 1 78 3 st bit (1), 1 79 3 wn bit (1), 1 80 3 obs bit (1), 1 81 3 dm bit (1), 1 82 3 xrl bit (1), 1 83 3 xrn bit (1), 1 84 3 src bit (1), 1 85 3 obj bit (1), 1 86 3 exs bit (1), 1 87 3 sck bit (1), 1 88 3 rno bit (1), 1 89 3 u_l bit (1), 1 90 3 cnv bit (1), 1 91 3 cos bit (1), 1 92 3 fmt bit (1), 1 93 3 profile bit(1), 1 94 3 nw bit (1), 1 95 3 exp bit (1), /* [4.0-0] */ 1 96 3 card bit (1), /*[4.1-1]*/ 1 97 3 fil2 bit (5), 1 98 3 m_map bit (1), 1 99 3 m_bf bit (1), 1 100 3 m_fat bit (1), 1 101 3 m_wn bit (1), 1 102 3 m_obs bit(1), 1 103 3 pd bit(1), 1 104 3 oc bit(1), 1 105 2 supervisor bit (1), 1 106 2 dec_comma bit (1), 1 107 2 init_cd bit (1), 1 108 2 corr bit (1), 1 109 2 initl bit (1), 1 110 2 debug bit (1), 1 111 2 report bit (1), 1 112 2 sync_in_prog bit (1), 1 113 2 pd_section bit (1), 1 114 2 list_switch bit (1), 1 115 2 alpha_cond bit (1), 1 116 2 num_cond bit (1), 1 117 2 spec_sysin bit (1), 1 118 2 spec_sysout bit (1), 1 119 2 cpl_files bit (1), 1 120 2 obj_dec_comma bit (1), 1 121 2 default_sign_type bit (3), 1 122 2 use_debug bit(1), 1 123 2 syntax_trace bit(1), 1 124 2 comp_defaults, 1 125 3 comp bit(1), 1 126 3 comp_1 bit(1), 1 127 3 comp_2 bit(1), 1 128 3 comp_3 bit(1), 1 129 3 comp_4 bit(1), 1 130 3 comp_5 bit(1), 1 131 3 comp_6 bit(1), 1 132 3 comp_7 bit(1), 1 133 3 comp_8 bit(1), 1 134 2 disp_defaults, 1 135 3 disp bit(1), 1 136 3 disp_1 bit(1), 1 137 3 disp_2 bit(1), 1 138 3 disp_3 bit(1), 1 139 3 disp_4 bit(1), 1 140 3 disp_5 bit(1), 1 141 3 disp_6 bit(1), 1 142 3 disp_7 bit(1), 1 143 2 descriptor bit(2), 1 144 2 levsv bit(3), /*[4.0-1]*/ 1 145 2 use_reporting bit(1), /*[4.3-1]*/ 1 146 2 cd bit(1), /*[4.4-1]*/ 1 147 2 dummy17 bit(3), 1 148 2 lvl_rstr bit(32), 1 149 2 inst_rstr bit(32), 1 150 2 comp_level char(1), 1 151 2 dummy18 char(30), 1 152 2 object_sign char (1), 1 153 2 last_print_rec char (5), 1 154 2 coll_seq_info char (5), 1 155 2 sys_status_seg fixed bin, 1 156 2 sys_status_offset fixed bin(24), 1 157 2 compiler_id fixed bin, 1 158 2 date_comp_ln fixed bin, 1 159 2 compile_mode bit(36), 1 160 2 default_temp fixed bin, 1 161 2 accept_device fixed bin, 1 162 2 display_device fixed bin, 1 163 2 cobol_cln fixed bin, /*[5.1-1]*/ 1 164 2 alphabet_offset fixed bin; 1 165 1 166 1 167 1 168 /* END INCLUDE FILE ... cobol_fixed_common.incl.pl1 */ 1 169 235 2 1 2 2 /* BEGIN INCLUDE FILE ... cobol_ext_.incl.pl1 */ 2 3 /* Last modified on 06/17/76 by ORN */ 2 4 /* Last modified on 12/28/76 by FCH */ 2 5 /* Last modified on 12/01/80 by FCH */ 2 6 2 7 /* <<< SHARED EXTERNALS INCLUDE FILE >>> */ 2 8 2 9 2 10 dcl cobol_ext_$cobol_afp ptr ext; 2 11 dcl cobol_afp ptr defined ( cobol_ext_$cobol_afp); 2 12 dcl cobol_ext_$cobol_analin_fileno ptr ext; 2 13 dcl cobol_analin_fileno ptr defined ( cobol_ext_$cobol_analin_fileno); 2 14 dcl cobol_ext_$report_first_token ptr ext; 2 15 dcl report_first_token ptr defined( cobol_ext_$report_first_token); 2 16 dcl cobol_ext_$report_last_token ptr ext; 2 17 dcl report_last_token ptr defined ( cobol_ext_$report_last_token); 2 18 dcl cobol_ext_$cobol_eltp ptr ext; 2 19 dcl cobol_eltp ptr defined ( cobol_ext_$cobol_eltp); 2 20 dcl cobol_ext_$cobol_cmfp ptr ext; 2 21 dcl cobol_cmfp ptr defined ( cobol_ext_$cobol_cmfp); 2 22 dcl cobol_ext_$cobol_com_fileno ptr ext; 2 23 dcl cobol_com_fileno ptr defined ( cobol_ext_$cobol_com_fileno); 2 24 dcl cobol_ext_$cobol_com_ptr ptr ext; 2 25 dcl cobol_com_ptr ptr defined ( cobol_ext_$cobol_com_ptr); 2 26 dcl cobol_ext_$cobol_dfp ptr ext; 2 27 dcl cobol_dfp ptr defined ( cobol_ext_$cobol_dfp); 2 28 dcl cobol_ext_$cobol_hfp ptr ext; 2 29 dcl cobol_hfp ptr defined ( cobol_ext_$cobol_hfp); 2 30 dcl cobol_ext_$cobol_m1fp ptr ext; 2 31 dcl cobol_m1fp ptr defined ( cobol_ext_$cobol_m1fp); 2 32 dcl cobol_ext_$cobol_m2fp ptr ext; 2 33 dcl cobol_m2fp ptr defined ( cobol_ext_$cobol_m2fp); 2 34 dcl cobol_ext_$cobol_min1_fileno ptr ext; 2 35 dcl cobol_min1_fileno ptr defined ( cobol_ext_$cobol_min1_fileno); 2 36 dcl cobol_ext_$cobol_min2_fileno_ptr ptr ext; 2 37 dcl cobol_min2_fileno_ptr ptr defined ( cobol_ext_$cobol_min2_fileno_ptr); 2 38 dcl cobol_ext_$cobol_name_fileno ptr ext; 2 39 dcl cobol_name_fileno ptr defined ( cobol_ext_$cobol_name_fileno); 2 40 dcl cobol_ext_$cobol_name_fileno_ptr ptr ext; 2 41 dcl cobol_name_fileno_ptr ptr defined ( cobol_ext_$cobol_name_fileno_ptr); 2 42 dcl cobol_ext_$cobol_ntfp ptr ext; 2 43 dcl cobol_ntfp ptr defined ( cobol_ext_$cobol_ntfp); 2 44 dcl cobol_ext_$cobol_pdofp ptr ext; 2 45 dcl cobol_pdofp ptr defined ( cobol_ext_$cobol_pdofp); 2 46 dcl cobol_ext_$cobol_pfp ptr ext; 2 47 dcl cobol_pfp ptr defined ( cobol_ext_$cobol_pfp); 2 48 dcl cobol_ext_$cobol_rm2fp ptr ext; 2 49 dcl cobol_rm2fp ptr defined ( cobol_ext_$cobol_rm2fp); 2 50 dcl cobol_ext_$cobol_rmin2fp ptr ext; 2 51 dcl cobol_rmin2fp ptr defined ( cobol_ext_$cobol_rmin2fp); 2 52 dcl cobol_ext_$cobol_curr_in ptr ext; 2 53 dcl cobol_curr_in ptr defined ( cobol_ext_$cobol_curr_in); 2 54 dcl cobol_ext_$cobol_curr_out ptr ext; 2 55 dcl cobol_curr_out ptr defined ( cobol_ext_$cobol_curr_out); 2 56 dcl cobol_ext_$cobol_sfp ptr ext; 2 57 dcl cobol_sfp ptr defined ( cobol_ext_$cobol_sfp); 2 58 dcl cobol_ext_$cobol_w1p ptr ext; 2 59 dcl cobol_w1p ptr defined ( cobol_ext_$cobol_w1p); 2 60 dcl cobol_ext_$cobol_w2p ptr ext; 2 61 dcl cobol_w2p ptr defined ( cobol_ext_$cobol_w2p); 2 62 dcl cobol_ext_$cobol_w3p ptr ext; 2 63 dcl cobol_w3p ptr defined ( cobol_ext_$cobol_w3p); 2 64 dcl cobol_ext_$cobol_w5p ptr ext; 2 65 dcl cobol_w5p ptr defined ( cobol_ext_$cobol_w5p); 2 66 dcl cobol_ext_$cobol_w6p ptr ext; 2 67 dcl cobol_w6p ptr defined ( cobol_ext_$cobol_w6p); 2 68 dcl cobol_ext_$cobol_w7p ptr ext; 2 69 dcl cobol_w7p ptr defined ( cobol_ext_$cobol_w7p); 2 70 dcl cobol_ext_$cobol_x3fp ptr ext; 2 71 dcl cobol_x3fp ptr defined ( cobol_ext_$cobol_x3fp); 2 72 dcl cobol_ext_$cobol_rwdd ptr ext; 2 73 dcl cobol_rwdd ptr defined(cobol_ext_$cobol_rwdd); 2 74 dcl cobol_ext_$cobol_rwpd ptr ext; 2 75 dcl cobol_rwpd ptr defined(cobol_ext_$cobol_rwpd); 2 76 2 77 2 78 dcl cobol_ext_$cobol_fileno1 fixed bin(24)ext; 2 79 dcl cobol_fileno1 fixed bin(24)defined ( cobol_ext_$cobol_fileno1); 2 80 dcl cobol_ext_$cobol_options_len fixed bin(24)ext; 2 81 dcl cobol_options_len fixed bin(24)defined ( cobol_ext_$cobol_options_len); 2 82 dcl cobol_ext_$cobol_pdout_fileno fixed bin(24)ext; 2 83 dcl cobol_pdout_fileno fixed bin(24)defined ( cobol_ext_$cobol_pdout_fileno); 2 84 dcl cobol_ext_$cobol_print_fileno fixed bin(24)ext; 2 85 dcl cobol_print_fileno fixed bin(24)defined ( cobol_ext_$cobol_print_fileno); 2 86 dcl cobol_ext_$cobol_rmin2_fileno fixed bin(24)ext; 2 87 dcl cobol_rmin2_fileno fixed bin(24)defined ( cobol_ext_$cobol_rmin2_fileno); 2 88 dcl cobol_ext_$cobol_x1_fileno fixed bin(24)ext; 2 89 dcl cobol_x1_fileno fixed bin(24)defined ( cobol_ext_$cobol_x1_fileno); 2 90 dcl cobol_ext_$cobol_x2_fileno fixed bin(24)ext; 2 91 dcl cobol_x2_fileno fixed bin(24)defined ( cobol_ext_$cobol_x2_fileno); 2 92 dcl cobol_ext_$cobol_x3_fileno fixed bin(24)ext; 2 93 dcl cobol_x3_fileno fixed bin(24)defined ( cobol_ext_$cobol_x3_fileno); 2 94 2 95 dcl cobol_ext_$cobol_lpr char (5) ext; 2 96 dcl cobol_lpr char (5) defined ( cobol_ext_$cobol_lpr); /* -2- */ 2 97 dcl cobol_ext_$cobol_options char (120) ext; 2 98 dcl cobol_options char (120) defined ( cobol_ext_$cobol_options); /* -30- */ 2 99 2 100 dcl cobol_ext_$cobol_xlast8 bit (1) ext; 2 101 dcl cobol_xlast8 bit (1) defined ( cobol_ext_$cobol_xlast8); /* -1- */ 2 102 dcl cobol_ext_$report_exists bit (1) ext; 2 103 dcl report_exists bit (1) defined ( cobol_ext_$report_exists); 2 104 2 105 2 106 /* <<< END OF SHARED EXTERNALS INCLUDE FILE >>> */ 2 107 /* END INCLUDE FILE ... cobol_ext_.incl.pl1 */ 2 108 236 3 1 3 2 /* BEGIN INCLUDE FILE ... cobol_ext_lex.incl.pl1 */ 3 3 /* Last modified on 06/18/76 by ORN */ 3 4 3 5 /* * * * LEX EXTERNAL DATA * * * */ 3 6 3 7 /* Pointers */ 3 8 3 9 dcl cobol_ext_lex$cobol_current ptr ext; 3 10 dcl cobol_current ptr defined ( cobol_ext_lex$cobol_current); 3 11 dcl cobol_ext_lex$cobol_top ptr ext; 3 12 dcl cobol_top ptr defined ( cobol_ext_lex$cobol_top); 3 13 dcl cobol_ext_lex$cobol_frst ptr ext; 3 14 dcl cobol_frst ptr defined ( cobol_ext_lex$cobol_frst); 3 15 dcl cobol_ext_lex$cobol_mfp ptr ext; 3 16 dcl cobol_mfp ptr defined ( cobol_ext_lex$cobol_mfp); 3 17 dcl cobol_ext_lex$cobol_rt_ptr ptr ext; 3 18 dcl cobol_rt_ptr ptr defined ( cobol_ext_lex$cobol_rt_ptr); 3 19 dcl cobol_ext_lex$cobol_cfp ptr ext; 3 20 dcl cobol_cfp ptr defined ( cobol_ext_lex$cobol_cfp); 3 21 dcl cobol_ext_lex$cobol_ta_ptr ptr ext; 3 22 dcl cobol_ta_ptr ptr defined ( cobol_ext_lex$cobol_ta_ptr); 3 23 dcl cobol_ext_lex$cobol_elt_buf_ptr ptr ext; 3 24 dcl cobol_elt_buf_ptr ptr defined ( cobol_ext_lex$cobol_elt_buf_ptr); 3 25 dcl cobol_ext_lex$cobol_lex_exit /*[*/ label /*]*/ /*[[[ entry static ]]]*/ ext; 3 26 dcl cobol_lex_exit /*[*/ label /*]*/ /*[[[ entry static ]]]*/ defined( cobol_ext_lex$cobol_lex_exit); /* -6- */ 3 27 3 28 /* Character */ 3 29 3 30 dcl cobol_ext_lex$cobol_tarea char (300) ext; 3 31 dcl cobol_tarea char (300) defined ( cobol_ext_lex$cobol_tarea); /* -75- */ 3 32 dcl cobol_ext_lex$cobol_comma_character char (1) ext; 3 33 dcl cobol_comma_character char (1) defined ( cobol_ext_lex$cobol_comma_character); 3 34 dcl cobol_ext_lex$cobol_decimal_point_character char (1) ext; 3 35 dcl cobol_decimal_point_character char (1) defined ( cobol_ext_lex$cobol_decimal_point_character); 3 36 dcl cobol_ext_lex$cobol_new_line_character char (1) ext; 3 37 dcl cobol_new_line_character char (1) defined ( cobol_ext_lex$cobol_new_line_character); 3 38 dcl cobol_ext_lex$cobol_si_key char (5) ext; 3 39 dcl cobol_si_key char (5) defined ( cobol_ext_lex$cobol_si_key); /* -2- */ 3 40 dcl cobol_ext_lex$cobol_so_key char (5) ext; 3 41 dcl cobol_so_key char (5) defined ( cobol_ext_lex$cobol_so_key); /* -2- */ 3 42 3 43 /* Fixed bin */ 3 44 3 45 dcl cobol_ext_lex$ph_num fixed bin ext; 3 46 dcl ph_num fixed bin defined(cobol_ext_lex$ph_num ); 3 47 dcl cobol_ext_lex$cobol_c_l_n fixed bin ext; 3 48 dcl cobol_c_l_n fixed bin defined ( cobol_ext_lex$cobol_c_l_n); 3 49 dcl cobol_ext_lex$cobol_save_cln fixed bin ext; 3 50 dcl cobol_save_cln fixed bin defined ( cobol_ext_lex$cobol_save_cln); 3 51 dcl cobol_ext_lex$cobol_save_col fixed bin ext; 3 52 dcl cobol_save_col fixed bin defined ( cobol_ext_lex$cobol_save_col); 3 53 dcl cobol_ext_lex$cobol_name_number fixed bin ext; 3 54 dcl cobol_name_number fixed bin defined ( cobol_ext_lex$cobol_name_number); 3 55 dcl cobol_ext_lex$cobol_section_number fixed bin ext; 3 56 dcl cobol_section_number fixed bin defined ( cobol_ext_lex$cobol_section_number); 3 57 dcl cobol_ext_lex$cobol_sr fixed bin ext; 3 58 dcl cobol_sr fixed bin defined ( cobol_ext_lex$cobol_sr); 3 59 dcl cobol_ext_lex$cobol_elt_idx fixed bin ext; 3 60 dcl cobol_elt_idx fixed bin defined ( cobol_ext_lex$cobol_elt_idx); 3 61 3 62 /* Structures */ 3 63 3 64 dcl 1 cobol_ext_lex$cobol_cards ext like cobol_cards; 3 65 dcl 1 cobol_cards defined ( cobol_ext_lex$cobol_cards), /* -67- */ 3 66 2 column fixed bin, 3 67 2 tblanks fixed bin, 3 68 2 nr_char fixed bin, 3 69 2 name char (256); 3 70 3 71 /* Bits */ 3 72 3 73 dcl cobol_ext_lex$processing_report bit(1) ext; 3 74 dcl processing_report bit (1) defined (cobol_ext_lex$processing_report); 3 75 dcl cobol_ext_lex$real_end_report bit (1) ext; 3 76 dcl real_end_report bit (1) defined (cobol_ext_lex$real_end_report); 3 77 dcl cobol_ext_lex$cobol_continuation bit (1) ext; 3 78 dcl cobol_continuation bit (1) defined ( cobol_ext_lex$cobol_continuation); 3 79 dcl cobol_ext_lex$cobol_pic_switch bit (1) ext; 3 80 dcl cobol_pic_switch bit (1) defined ( cobol_ext_lex$cobol_pic_switch); 3 81 dcl cobol_ext_lex$cobol_allo_init_sw bit (1) ext; 3 82 dcl cobol_allo_init_sw bit (1) defined ( cobol_ext_lex$cobol_allo_init_sw); 3 83 dcl cobol_ext_lex$cobol_lu_sw bit (1) ext; 3 84 dcl cobol_lu_sw bit (1) defined ( cobol_ext_lex$cobol_lu_sw); 3 85 dcl cobol_ext_lex$cobol_scanoff_sw bit (1) ext; 3 86 dcl cobol_scanoff_sw bit (1) defined ( cobol_ext_lex$cobol_scanoff_sw); 3 87 dcl cobol_ext_lex$cobol_output_sw bit (1) ext; 3 88 dcl cobol_output_sw bit (1) defined ( cobol_ext_lex$cobol_output_sw); 3 89 dcl cobol_ext_lex$cobol_stack_sw bit (1) ext; 3 90 dcl cobol_stack_sw bit (1) defined ( cobol_ext_lex$cobol_stack_sw); 3 91 dcl cobol_ext_lex$cobol_copy_found bit (1) ext; 3 92 dcl cobol_copy_found bit (1) defined ( cobol_ext_lex$cobol_copy_found); 3 93 dcl cobol_ext_lex$cobol_head_words (5) bit (1) ext; 3 94 dcl cobol_head_words (5) bit (1) defined ( cobol_ext_lex$cobol_head_words); 3 95 dcl cobol_ext_lex$cobol_elnp_sw bit (1) ext; 3 96 dcl cobol_elnp_sw bit (1) defined ( cobol_ext_lex$cobol_elnp_sw); 3 97 dcl cobol_ext_lex$cobol_dp_sw bit (1) ext; 3 98 dcl cobol_dp_sw bit (1) defined ( cobol_ext_lex$cobol_dp_sw); 3 99 dcl cobol_ext_lex$cobol_endprog_sw bit (1) ext; 3 100 dcl cobol_endprog_sw bit (1) defined ( cobol_ext_lex$cobol_endprog_sw); 3 101 dcl cobol_ext_lex$cobol_debug_mode bit (1) ext; 3 102 dcl cobol_debug_mode bit (1) defined ( cobol_ext_lex$cobol_debug_mode); 3 103 dcl cobol_ext_lex$cobol_rwt_init_sw bit (1) ext; 3 104 dcl cobol_rwt_init_sw bit (1) defined ( cobol_ext_lex$cobol_rwt_init_sw); 3 105 dcl cobol_ext_lex$cobol_init_ta_sw bit (1) ext; 3 106 dcl cobol_init_ta_sw bit (1) defined ( cobol_ext_lex$cobol_init_ta_sw); 3 107 dcl cobol_ext_lex$cobol_rep_sw bit (1) ext; 3 108 dcl cobol_rep_sw bit (1) defined ( cobol_ext_lex$cobol_rep_sw); 3 109 dcl cobol_ext_lex$cobol_copy_active bit (1) ext; 3 110 dcl cobol_copy_active bit (1) defined ( cobol_ext_lex$cobol_copy_active); 3 111 dcl cobol_ext_lex$cobol_ln_sw (2) bit (1) ext; 3 112 dcl cobol_ln_sw (2) bit (1) defined ( cobol_ext_lex$cobol_ln_sw); 3 113 dcl cobol_ext_lex$cobol_prime_sw bit (1) ext; 3 114 dcl cobol_prime_sw bit (1) defined ( cobol_ext_lex$cobol_prime_sw); 3 115 dcl cobol_ext_lex$cobol_rec1_sw (2) bit (1) ext; 3 116 dcl cobol_rec1_sw (2) bit (1) defined ( cobol_ext_lex$cobol_rec1_sw); 3 117 dcl cobol_ext_lex$cobol_progid_sw bit(1) ext; 3 118 dcl cobol_progid_sw bit(1) defined ( cobol_ext_lex$cobol_progid_sw); 3 119 3 120 3 121 /* * * * END LEX EXTERNAL DATA * * * */ 3 122 /* END INCLUDE FILE ... cobol_ext_lex.incl.pl1 */ 3 123 237 4 1 4 2 /* BEGIN INCLUDE FILE ... cobol_reswd_values.incl.pl1 */ 4 3 /* CREATED ON 06/15/76 BY ORN */ 4 4 4 5 /* This include file contains the value associated with each reserved word 4 6* used by the Multics COBOL compiler. These are declared as constants 4 7* and are not allocated unless referenced. Eash name is in the form: 4 8* 4 9* reswd_ 4 10* or 4 11* reschar_ 4 12* 4 13* where is the upper case transliteration of the 4 14* reserved word with any hyphens replaced by underscores and 4 15* is the upper case name of the one 4 16* character reserved words (e.g. EQ, GT, MINUS, LPARENS, etc.) */ 4 17 4 18 4 19 dcl reswd_ACCEPT fixed bin static options(constant) init(001); 4 20 dcl reswd_ADD fixed bin static options(constant) init(002); 4 21 dcl reswd_ERROR fixed bin static options(constant) init(003); 4 22 dcl reswd_ALTER fixed bin static options(constant) init(004); 4 23 dcl reswd_CALL fixed bin static options(constant) init(005); 4 24 dcl reswd_OVERFLOW fixed bin static options(constant) init(006); 4 25 dcl reswd_CANCEL fixed bin static options(constant) init(007); 4 26 dcl reswd_CLOSE fixed bin static options(constant) init(008); 4 27 dcl reswd_DIVIDE fixed bin static options(constant) init(009); 4 28 dcl reswd_MULTIPLY fixed bin static options(constant) init(010); 4 29 dcl reswd_SUBTRACT fixed bin static options(constant) init(011); 4 30 dcl reswd_EXIT fixed bin static options(constant) init(012); 4 31 dcl reswd_INITIALIZE fixed bin static options(constant) init(013); 4 32 dcl reswd_GO fixed bin static options(constant) init(014); 4 33 dcl reswd_MERGE fixed bin static options(constant) init(015); 4 34 dcl reswd_INITIATE fixed bin static options(constant) init(016); 4 35 dcl reswd_INSPECT fixed bin static options(constant) init(017); 4 36 dcl reswd_MOVE fixed bin static options(constant) init(018); 4 37 dcl reswd_OPEN fixed bin static options(constant) init(019); 4 38 dcl reswd_PERFORM fixed bin static options(constant) init(020); 4 39 dcl reswd_READ fixed bin static options(constant) init(021); 4 40 dcl reswd_DELETE fixed bin static options(constant) init(022); 4 41 dcl reswd_RECEIVE fixed bin static options(constant) init(023); 4 42 dcl reswd_RELEASE fixed bin static options(constant) init(024); 4 43 dcl reswd_RETURN fixed bin static options(constant) init(025); 4 44 dcl reswd_SEARCH fixed bin static options(constant) init(026); 4 45 dcl reswd_REWRITE fixed bin static options(constant) init(027); 4 46 /* 028 029 */ 4 47 dcl reswd_SEND fixed bin static options(constant) init(030); 4 48 dcl reswd_SET fixed bin static options(constant) init(031); 4 49 /* 032 */ 4 50 dcl reswd_STOP fixed bin static options(constant) init(033); 4 51 dcl reswd_STRING fixed bin static options(constant) init(034); 4 52 dcl reswd_SUSPEND fixed bin static options(constant) init(035); 4 53 dcl reswd_TERMINATE fixed bin static options(constant) init(036); 4 54 dcl reswd_UNSTRING fixed bin static options(constant) init(037); 4 55 dcl reswd_WRITE fixed bin static options(constant) init(038); 4 56 dcl reswd_USE fixed bin static options(constant) init(039); 4 57 dcl reswd_COMPUTE fixed bin static options(constant) init(040); 4 58 dcl reswd_DISABLE fixed bin static options(constant) init(041); 4 59 dcl reswd_DISPLAY fixed bin static options(constant) init(042); 4 60 dcl reswd_ENABLE fixed bin static options(constant) init(043); 4 61 dcl reswd_ENTER fixed bin static options(constant) init(044); 4 62 dcl reswd_GENERATE fixed bin static options(constant) init(045); 4 63 dcl reswd_HOLD fixed bin static options(constant) init(046); 4 64 dcl reswd_IF fixed bin static options(constant) init(047); 4 65 dcl reswd_PROCESS fixed bin static options(constant) init(048); 4 66 dcl reswd_SORT fixed bin static options(constant) init(049); 4 67 dcl reswd_EXAMINE fixed bin static options(constant) init(050); 4 68 dcl reswd_TRANSFORM fixed bin static options(constant) init(051); 4 69 /* 052 053 054 055 */ 4 70 dcl reswd_START fixed bin static options(constant) init(056); 4 71 dcl reswd_SUPPRESS fixed bin static options(constant) init(057); 4 72 dcl reswd_PURGE fixed bin static options(constant) init(058); 4 73 /* 059 060 061 062 063 064 065 066 067 068 069 070 */ 4 74 dcl reswd_ADVANCING fixed bin static options(constant) init(071); 4 75 dcl reswd_AFTER fixed bin static options(constant) init(072); 4 76 dcl reswd_ALL fixed bin static options(constant) init(073); 4 77 dcl reswd_ALPHABETIC fixed bin static options(constant) init(074); 4 78 dcl reswd_ALPHANUMERIC fixed bin static options(constant) init(075); 4 79 dcl reswd_ALPHANUMERIC_EDITED fixed bin static options(constant) init(076); 4 80 dcl reswd_AND fixed bin static options(constant) init(077); 4 81 dcl reswd_ASCENDING fixed bin static options(constant) init(078); 4 82 dcl reswd_AT fixed bin static options(constant) init(079); 4 83 dcl reswd_BEFORE fixed bin static options(constant) init(080); 4 84 dcl reswd_BEGINNING fixed bin static options(constant) init(081); 4 85 dcl reswd_BY fixed bin static options(constant) init(082); 4 86 dcl (reswd_CHARACTER, 4 87 reswd_CHARACTERS) fixed bin static options(constant) init(083); 4 88 dcl reswd_COUNT fixed bin static options(constant) init(084); 4 89 dcl reswd_SSF fixed bin static options(constant) init(085); 4 90 dcl reswd_DATE fixed bin static options(constant) init(086); 4 91 dcl reswd_DAY fixed bin static options(constant) init(087); 4 92 dcl reswd_DEBUGGING fixed bin static options(constant) init(088); 4 93 dcl reswd_DECLARATIVES fixed bin static options(constant) init(089); 4 94 dcl reswd_DELIMITED fixed bin static options(constant) init(090); 4 95 dcl reswd_DELIMITER fixed bin static options(constant) init(091); 4 96 dcl reswd_DEPENDING fixed bin static options(constant) init(092); 4 97 dcl reswd_DESCENDING fixed bin static options(constant) init(093); 4 98 dcl reswd_DIVISION fixed bin static options(constant) init(094); 4 99 dcl reswd_DOWN fixed bin static options(constant) init(095); 4 100 dcl (reswd_ALSO, 4 101 reswd_ELSE) fixed bin static options(constant) init(096); 4 102 dcl reswd_EMI fixed bin static options(constant) init(097); 4 103 dcl reswd_END fixed bin static options(constant) init(098); 4 104 dcl reswd_ENDING fixed bin static options(constant) init(099); 4 105 dcl (reswd_END_OF_PAGE, 4 106 reswd_EOP) fixed bin static options(constant) init(100); 4 107 dcl reswd_IN fixed bin static options(constant) init(101); 4 108 dcl (reschar_EQ, 4 109 reswd_EQUAL, 4 110 reswd_EQUALS) fixed bin static options(constant) init(102); 4 111 /* 103 104 */ 4 112 dcl reswd_ESI fixed bin static options(constant) init(105); 4 113 dcl (reswd_COMP, 4 114 reswd_COMPUTATIONAL) fixed bin static options(constant) init(106); 4 115 dcl reswd_EXCEPTION fixed bin static options(constant) init(107); 4 116 dcl reswd_FILE fixed bin static options(constant) init(108); 4 117 dcl reswd_FIRST fixed bin static options(constant) init(109); 4 118 dcl reswd_FOR fixed bin static options(constant) init(110); 4 119 dcl reswd_FROM fixed bin static options(constant) init(111); 4 120 dcl reswd_GIVING fixed bin static options(constant) init(112); 4 121 dcl (reschar_GT, 4 122 reswd_EXCEEDS, 4 123 reswd_GREATER) fixed bin static options(constant) init(113); 4 124 dcl reswd_INITIAL fixed bin static options(constant) init(114); 4 125 dcl reswd_INPUT fixed bin static options(constant) init(115); 4 126 dcl reswd_INTO fixed bin static options(constant) init(116); 4 127 dcl reswd_INVALID fixed bin static options(constant) init(117); 4 128 dcl (reswd_ARE, 4 129 reswd_IS) fixed bin static options(constant) init(118); 4 130 dcl (reswd_I_O, 4 131 reswd_INPUT_OUTPUT) fixed bin static options(constant) init(119); 4 132 dcl reswd_KEY fixed bin static options(constant) init(120); 4 133 dcl reswd_LABEL fixed bin static options(constant) init(121); 4 134 dcl reswd_LEADING fixed bin static options(constant) init(122); 4 135 dcl (reschar_LT, 4 136 reswd_LESS) fixed bin static options(constant) init(123); 4 137 dcl (reswd_LINE, 4 138 reswd_LINES) fixed bin static options(constant) init(124); 4 139 dcl reswd_LOCK fixed bin static options(constant) init(125); 4 140 dcl reswd_MESSAGE fixed bin static options(constant) init(126); 4 141 dcl reswd_NEGATIVE fixed bin static options(constant) init(127); 4 142 dcl reswd_NEXT fixed bin static options(constant) init(128); 4 143 dcl reswd_NO fixed bin static options(constant) init(129); 4 144 dcl reswd_NOT fixed bin static options(constant) init(130); 4 145 dcl reswd_NUMERIC fixed bin static options(constant) init(131); 4 146 dcl reswd_NUMERIC_EDITED fixed bin static options(constant) init(132); 4 147 dcl reswd_OF fixed bin static options(constant) init(133); 4 148 dcl reswd_ON fixed bin static options(constant) init(134); 4 149 dcl reswd_OR fixed bin static options(constant) init(135); 4 150 /* 136 */ 4 151 dcl reswd_OUTPUT fixed bin static options(constant) init(137); 4 152 dcl reswd_BOOLEAN fixed bin static options(constant) init(138); 4 153 dcl reswd_PAGE fixed bin static options(constant) init(139); 4 154 dcl reswd_POINTER fixed bin static options(constant) init(140); 4 155 dcl reswd_POSITIVE fixed bin static options(constant) init(141); 4 156 dcl reswd_PROCEDURE fixed bin static options(constant) init(142); 4 157 dcl reswd_PROCEDURES fixed bin static options(constant) init(143); 4 158 dcl reswd_PROCEED fixed bin static options(constant) init(144); 4 159 dcl reswd_PROCESSING fixed bin static options(constant) init(145); 4 160 dcl reswd_PROGRAM fixed bin static options(constant) init(146); 4 161 dcl reswd_RANDOM fixed bin static options(constant) init(147); 4 162 dcl reswd_RECORD fixed bin static options(constant) init(148); 4 163 dcl reswd_REEL fixed bin static options(constant) init(149); 4 164 dcl reswd_REFERENCES fixed bin static options(constant) init(150); 4 165 dcl reswd_REMAINDER fixed bin static options(constant) init(151); 4 166 dcl reswd_REPLACING fixed bin static options(constant) init(152); 4 167 dcl reswd_REPORTING fixed bin static options(constant) init(153); 4 168 dcl reswd_REVERSED fixed bin static options(constant) init(154); 4 169 dcl reswd_REWIND fixed bin static options(constant) init(155); 4 170 dcl reswd_ROUNDED fixed bin static options(constant) init(156); 4 171 dcl reswd_RUN fixed bin static options(constant) init(157); 4 172 dcl reswd_SECTION fixed bin static options(constant) init(158); 4 173 dcl reswd_SEGMENT fixed bin static options(constant) init(159); 4 174 dcl reswd_SENTENCE fixed bin static options(constant) init(160); 4 175 dcl reswd_SIZE fixed bin static options(constant) init(161); 4 176 dcl reswd_STANDARD fixed bin static options(constant) init(162); 4 177 dcl reswd_TALLYING fixed bin static options(constant) init(163); 4 178 dcl reswd_TERMINAL fixed bin static options(constant) init(164); 4 179 dcl reswd_THAN fixed bin static options(constant) init(165); 4 180 dcl (reswd_THROUGH, 4 181 reswd_THRU) fixed bin static options(constant) init(166); 4 182 dcl reswd_RELATIVE fixed bin static options(constant) init(167); 4 183 dcl (reswd_TIME, 4 184 reswd_TIMES) fixed bin static options(constant) init(168); 4 185 dcl reswd_DYNAMIC fixed bin static options(constant) init(169); 4 186 dcl reswd_TO fixed bin static options(constant) init(170); 4 187 dcl reswd_UNEQUAL fixed bin static options(constant) init(171); 4 188 dcl reswd_UNIT fixed bin static options(constant) init(172); 4 189 dcl reswd_UNTIL fixed bin static options(constant) init(173); 4 190 dcl reswd_UP fixed bin static options(constant) init(174); 4 191 dcl reswd_UPON fixed bin static options(constant) init(175); 4 192 dcl reswd_USING fixed bin static options(constant) init(176); 4 193 dcl reswd_VARYING fixed bin static options(constant) init(177); 4 194 dcl reswd_WHEN fixed bin static options(constant) init(178); 4 195 dcl reswd_WITH fixed bin static options(constant) init(179); 4 196 dcl (reswd_ZERO, 4 197 reswd_ZEROES, 4 198 reswd_ZEROS) fixed bin static options(constant) init(180); 4 199 dcl reswd_ORGANIZATION fixed bin static options(constant) init(181); 4 200 dcl reschar_PLUS fixed bin static options(constant) init(182); 4 201 dcl reschar_MINUS fixed bin static options(constant) init(183); 4 202 dcl reschar_STAR fixed bin static options(constant) init(184); 4 203 dcl reschar_SLASH fixed bin static options(constant) init(185); 4 204 dcl reschar_2STARs fixed bin static options(constant) init(186); 4 205 dcl reschar_LPARENS fixed bin static options(constant) init(187); 4 206 dcl reschar_RPARENS fixed bin static options(constant) init(188); 4 207 dcl reschar_PERIOD fixed bin static options(constant) init(189); 4 208 dcl reswd_TOP fixed bin static options(constant) init(190); 4 209 dcl reswd_COBOL fixed bin static options(constant) init(191); 4 210 dcl (reswd_SPACE, 4 211 reswd_SPACES) fixed bin static options(constant) init(192); 4 212 dcl reswd_TALLY fixed bin static options(constant) init(193); 4 213 dcl (reswd_BIT, 4 214 reswd_BITS) fixed bin static options(constant) init(194); 4 215 dcl reswd_RECORDS fixed bin static options(constant) init(195); 4 216 dcl reswd_DATA fixed bin static options(constant) init(196); 4 217 /* 197 198 199 */ 4 218 dcl reswd_VLR fixed bin static options(constant) init(201); 4 219 dcl (reswd_AREA, 4 220 reswd_AREAS) fixed bin static options(constant) init(202); 4 221 dcl reswd_OMITTED fixed bin static options(constant) init(203); 4 222 dcl reswd_BLANK fixed bin static options(constant) init(204); 4 223 dcl reswd_BLOCK fixed bin static options(constant) init(205); 4 224 dcl reswd_CD fixed bin static options(constant) init(206); 4 225 dcl reswd_COMMUNICATION fixed bin static options(constant) init(207); 4 226 dcl reswd_STANDARD_2 fixed bin static options(constant) init(208); 4 227 dcl (reswd_COMP_4, 4 228 reswd_COMPUTATIONAL_4) fixed bin static options(constant) init(209); 4 229 dcl (reswd_COMP_5, 4 230 reswd_COMPUTATIONAL_5) fixed bin static options(constant) init(210); 4 231 dcl (reswd_COMP_3, 4 232 reswd_COMPUTATIONAL_3) fixed bin static options(constant) init(211); 4 233 dcl (reswd_COMP_1, 4 234 reswd_COMPUTATIONAL_1) fixed bin static options(constant) init(212); 4 235 dcl (reswd_COMP_2, 4 236 reswd_COMPUTATIONAL_2) fixed bin static options(constant) init(213); 4 237 dcl reswd_CONSTANT fixed bin static options(constant) init(214); 4 238 dcl reswd_CONTAINS fixed bin static options(constant) init(215); 4 239 dcl reswd_EXTEND fixed bin static options(constant) init(216); 4 240 /* 217 */ 4 241 dcl reswd_DESTINATION fixed bin static options(constant) init(218); 4 242 dcl reswd_FD fixed bin static options(constant) init(219); 4 243 dcl reswd_FILLER fixed bin static options(constant) init(220); 4 244 dcl (reswd_HIGH_VALUE, 4 245 reswd_HIGH_VALUES) fixed bin static options(constant) init(221); 4 246 dcl reswd_INDEX fixed bin static options(constant) init(222); 4 247 dcl reswd_INDEXED fixed bin static options(constant) init(223); 4 248 dcl (reswd_JUST, 4 249 reswd_JUSTIFIED) fixed bin static options(constant) init(224); 4 250 dcl reswd_LEFT fixed bin static options(constant) init(225); 4 251 dcl reswd_LENGTH fixed bin static options(constant) init(226); 4 252 dcl reswd_DUPLICATES fixed bin static options(constant) init(227); 4 253 dcl reswd_LINKAGE fixed bin static options(constant) init(228); 4 254 dcl (reswd_LOW_VALUE, 4 255 reswd_LOW_VALUES) fixed bin static options(constant) init(229); 4 256 dcl reswd_MODE fixed bin static options(constant) init(230); 4 257 dcl reswd_OCCURS fixed bin static options(constant) init(231); 4 258 dcl (reswd_PIC, 4 259 reswd_PICTURE) fixed bin static options(constant) init(232); 4 260 dcl reswd_EGI fixed bin static options(constant) init(233); 4 261 dcl reswd_QUEUE fixed bin static options(constant) init(234); 4 262 dcl (reswd_QUOTE, 4 263 reswd_QUOTES) fixed bin static options(constant) init(235); 4 264 dcl reswd_BOTTOM fixed bin static options(constant) init(236); 4 265 dcl reswd_RECORDING fixed bin static options(constant) init(237); 4 266 dcl reswd_REDEFINES fixed bin static options(constant) init(238); 4 267 dcl reswd_RENAMES fixed bin static options(constant) init(239); 4 268 dcl (reswd_REPORT, 4 269 reswd_REPORTS) fixed bin static options(constant) init(240); 4 270 dcl reswd_RIGHT fixed bin static options(constant) init(241); 4 271 dcl reswd_SA fixed bin static options(constant) init(242); 4 272 dcl reswd_SD fixed bin static options(constant) init(243); 4 273 dcl reswd_SEPARATE fixed bin static options(constant) init(244); 4 274 dcl reswd_SIGN fixed bin static options(constant) init(245); 4 275 dcl reswd_SOURCE fixed bin static options(constant) init(246); 4 276 dcl reswd_STATUS fixed bin static options(constant) init(247); 4 277 dcl reswd_SUB_QUEUE_1 fixed bin static options(constant) init(248); 4 278 dcl reswd_SUB_QUEUE_2 fixed bin static options(constant) init(249); 4 279 dcl reswd_SUB_QUEUE_3 fixed bin static options(constant) init(250); 4 280 dcl reswd_SYMBOLIC fixed bin static options(constant) init(251); 4 281 dcl (reswd_SYNC, 4 282 reswd_SYNCHRONIZED) fixed bin static options(constant) init(252); 4 283 dcl reswd_TABLE fixed bin static options(constant) init(253); 4 284 /* 254 */ 4 285 dcl reswd_TRAILING fixed bin static options(constant) init(255); 4 286 dcl reschar_2EQs fixed bin static options(constant) init(256); 4 287 dcl reswd_USAGE fixed bin static options(constant) init(257); 4 288 dcl (reswd_VALUE, 4 289 reswd_VALUES) fixed bin static options(constant) init(258); 4 290 dcl reswd_WORKING_STORAGE fixed bin static options(constant) init(259); 4 291 dcl reswd_REMOVAL fixed bin static options(constant) init(260); 4 292 /* 261 */ 4 293 /* (262 263 264 265) */ 4 294 /* 266 */ 4 295 /* (267 268 269 270 271) */ 4 296 dcl reswd_FLR fixed bin static options(constant) init(272); 4 297 /* 273 274 275 276 277 */ 4 298 /* (278) */ 4 299 dcl reswd_FILES fixed bin static options(constant) init(279); 4 300 /* 280 281 282 283 284 285 */ 4 301 /* (286) */ 4 302 /* 287 */ 4 303 dcl reswd_NATIVE fixed bin static options(constant) init(288); 4 304 /* 289 */ 4 305 dcl (reswd_COMP_7, 4 306 reswd_COMPUTATIONAL_7) fixed bin static options(constant) init(290); 4 307 dcl reswd_OBJECT fixed bin static options(constant) init(291); 4 308 dcl (reswd_COMP_6, 4 309 reswd_COMPUTATIONAL_6) fixed bin static options(constant) init(292); 4 310 /* (293) */ 4 311 /* 294 */ 4 312 dcl reswd_DEFAULT fixed bin static options(constant) init(295); 4 313 /* 296 207 298 299 300 301 302 303 304 305 */ 4 314 dcl reswd_CODE_SET fixed bin static options(constant) init(306); 4 315 dcl reswd_EXTERNAL fixed bin static options(constant) init(307); 4 316 /* 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 */ 4 317 dcl reswd_DAY_OF_WEEK fixed bin static options(constant) init(326); 4 318 dcl reswd_INTERCHANGE fixed bin static options(constant) init(327); 4 319 /* 328 */ 4 320 dcl reswd_PROCESS_AREA fixed bin static options(constant) init(329); 4 321 /* 330 */ 4 322 dcl (reswd_CATALOG_NAME, 4 323 reswd_CATALOGUE_NAME) fixed bin static options(constant) init(331); 4 324 /* 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 */ 4 325 /* 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 */ 4 326 /* 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 */ 4 327 /* 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 */ 4 328 dcl reswd_STREAM fixed bin static options(constant) init(407); 4 329 /* 408 409 410 411 412 413 */ 4 330 dcl reswd_BSN fixed bin static options(constant) init(413); 4 331 /* 414 415 */ 4 332 dcl reswd_KEYED fixed bin static options(constant) init(416); 4 333 /* 417 418 419 420 421 422 */ 4 334 dcl reswd_IDS_II fixed bin static options(constant) init(423); 4 335 /* 424 */ 4 336 dcl reswd_REPLACE fixed bin static options(constant) init(425); 4 337 /* 426 427 428 429 430 431 432 433 434 */ 4 338 dcl reswd_SUBSTITUTION fixed bin static options(constant) init(435); 4 339 /* 436 437 438 439 440 441 442 443 444 445 446 447 448 449 */ 4 340 /* 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 */ 4 341 /* 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 */ 4 342 /* 490 491 492 493 494 495 496 497 498 499 500 */ 4 343 dcl reswd_ACCESS fixed bin static options(constant) init(501); 4 344 /* 502 */ 4 345 dcl reswd_ADDRESS fixed bin static options(constant) init(503); 4 346 dcl reswd_ALPHABET fixed bin static options(constant) init(504); 4 347 dcl reswd_STANDARD_1 fixed bin static options(constant) init(505); 4 348 /* 506 */ 4 349 dcl reswd_ALTERNATE fixed bin static options(constant) init(507); 4 350 dcl reswd_APPLY fixed bin static options(constant) init(508); 4 351 dcl reswd_ASSIGN fixed bin static options(constant) init(509); 4 352 dcl reswd_AUTHOR fixed bin static options(constant) init(510); 4 353 dcl reswd_CF fixed bin static options(constant) init(511); 4 354 dcl reswd_CH fixed bin static options(constant) init(512); 4 355 dcl reswd_CLOCK_UNITS fixed bin static options(constant) init(513); 4 356 dcl reswd_CODE fixed bin static options(constant) init(514); 4 357 dcl reswd_COLLATING fixed bin static options(constant) init(515); 4 358 dcl reswd_COLUMN fixed bin static options(constant) init(516); 4 359 dcl reswd_COMMA fixed bin static options(constant) init(517); 4 360 dcl reswd_CONFIGURATION fixed bin static options(constant) init(518); 4 361 dcl reswd_CONVERSION fixed bin static options(constant) init(519); 4 362 dcl reswd_CONTROL fixed bin static options(constant) init(520); 4 363 dcl reswd_CONTROLS fixed bin static options(constant) init(521); 4 364 dcl reswd_COPY fixed bin static options(constant) init(522); 4 365 dcl (reswd_CORR, 4 366 reswd_CORRESPONDING) fixed bin static options(constant) init(524); 4 367 dcl reswd_CURRENCY fixed bin static options(constant) init(525); 4 368 /* 526 */ 4 369 dcl reswd_DATE_COMPILED fixed bin static options(constant) init(527); 4 370 dcl reswd_DATE_WRITTEN fixed bin static options(constant) init(528); 4 371 dcl reswd_DE fixed bin static options(constant) init(529); 4 372 dcl reswd_DEBUG_CONTENTS fixed bin static options(constant) init(530); 4 373 dcl reswd_DEBUG_ITEM fixed bin static options(constant) init(531); 4 374 dcl reswd_DEBUG_LINE fixed bin static options(constant) init(532); 4 375 dcl reswd_DEBUG_SUB_1 fixed bin static options(constant) init(533); 4 376 dcl reswd_DEBUG_SUB_2 fixed bin static options(constant) init(534); 4 377 dcl reswd_DEBUG_SUB_3 fixed bin static options(constant) init(535); 4 378 /* 536 */ 4 379 dcl reswd_DEBUG_NAME fixed bin static options(constant) init(537); 4 380 dcl reswd_DECIMAL_POINT fixed bin static options(constant) init(538); 4 381 dcl reswd_DETAIL fixed bin static options(constant) init(539); 4 382 dcl reswd_ENVIRONMENT fixed bin static options(constant) init(540); 4 383 /* 541 */ 4 384 dcl reswd_EVERY fixed bin static options(constant) init(542); 4 385 dcl reswd_FILE_CONTROL fixed bin static options(constant) init(543); 4 386 /* 544 545 */ 4 387 dcl reswd_FINAL fixed bin static options(constant) init(546); 4 388 dcl reswd_FOOTING fixed bin static options(constant) init(547); 4 389 dcl reswd_HEADING fixed bin static options(constant) init(548); 4 390 dcl reswd_GROUP fixed bin static options(constant) init(549); 4 391 /* 550 */ 4 392 dcl reswd_I_O_CONTROL fixed bin static options(constant) init(551); 4 393 dcl reswd_IDENTIFICATION fixed bin static options(constant) init(552); 4 394 dcl reswd_INDICATE fixed bin static options(constant) init(553); 4 395 dcl reswd_INSTALLATION fixed bin static options(constant) init(554); 4 396 /* 555 */ 4 397 dcl reswd_LAST fixed bin static options(constant) init(556); 4 398 /* 557 558 */ 4 399 dcl reswd_PRINTING fixed bin static options(constant) init(559); 4 400 /* 560 */ 4 401 dcl reswd_LIMIT fixed bin static options(constant) init(561); 4 402 dcl reswd_LIMITS fixed bin static options(constant) init(562); 4 403 dcl reswd_LINAGE fixed bin static options(constant) init(563); 4 404 dcl reswd_LINAGE_COUNTER fixed bin static options(constant) init(564); 4 405 dcl reswd_LINE_COUNTER fixed bin static options(constant) init(565); 4 406 /* 566 567 */ 4 407 dcl reswd_MEMORY fixed bin static options(constant) init(568); 4 408 dcl reswd_MODULES fixed bin static options(constant) init(569); 4 409 dcl reswd_MULTIPLE fixed bin static options(constant) init(570); 4 410 dcl reswd_NUMBER fixed bin static options(constant) init(571); 4 411 dcl reswd_OBJECT_COMPUTER fixed bin static options(constant) init(572); 4 412 /* 573 */ 4 413 dcl reswd_OFF fixed bin static options(constant) init(574); 4 414 /* 575 */ 4 415 dcl reswd_OPTIONAL fixed bin static options(constant) init(576); 4 416 /* 577 */ 4 417 dcl reswd_PAGE_COUNTER fixed bin static options(constant) init(578); 4 418 dcl reswd_PF fixed bin static options(constant) init(579); 4 419 dcl reswd_PH fixed bin static options(constant) init(580); 4 420 dcl reswd_PLUS fixed bin static options(constant) init(581); 4 421 dcl reswd_POSITION fixed bin static options(constant) init(582); 4 422 dcl reswd_PROGRAM_ID fixed bin static options(constant) init(583); 4 423 dcl reswd_RD fixed bin static options(constant) init(584); 4 424 /* 585 586 */ 4 425 dcl reswd_SEQUENCE fixed bin static options(constant) init(587); 4 426 dcl reswd_RERUN fixed bin static options(constant) init(588); 4 427 dcl reswd_RESERVE fixed bin static options(constant) init(589); 4 428 dcl reswd_RESET fixed bin static options(constant) init(590); 4 429 dcl reswd_RF fixed bin static options(constant) init(591); 4 430 dcl reswd_RH fixed bin static options(constant) init(592); 4 431 dcl reswd_SAME fixed bin static options(constant) init(593); 4 432 dcl reswd_SECURITY fixed bin static options(constant) init(594); 4 433 dcl reswd_SEGMENT_LIMIT fixed bin static options(constant) init(595); 4 434 dcl reswd_SELECT fixed bin static options(constant) init(596); 4 435 dcl reswd_SEQUENTIAL fixed bin static options(constant) init(597); 4 436 dcl reswd_SORT_MERGE fixed bin static options(constant) init(598); 4 437 dcl reswd_SOURCE_COMPUTER fixed bin static options(constant) init(599); 4 438 dcl reswd_SPECIAL_NAMES fixed bin static options(constant) init(600); 4 439 dcl reswd_SPANNED fixed bin static options(constant) init(601); 4 440 /* (602) */ 4 441 dcl reswd_SUM fixed bin static options(constant) init(603); 4 442 dcl reswd_EXOR fixed bin static options(constant) init(604); 4 443 /* 605 */ 4 444 dcl reswd_TAPE fixed bin static options(constant) init(606); 4 445 dcl reswd_TEXT fixed bin static options(constant) init(607); 4 446 dcl reswd_TYPE fixed bin static options(constant) init(608); 4 447 dcl reswd_WORDS fixed bin static options(constant) init(609); 4 448 dcl (reswd_COMP_8, 4 449 reswd_COMPUTATIONAL_8) fixed bin static options(constant) init(610); 4 450 /* DATABASE WORDS 4 451*dcl reswd_ALIAS fixed bin static options(constant) init(263); 4 452*dcl reswd_ALIGN fixed bin static options(constant) init(278); 4 453*dcl reswd_ALTERING fixed bin static options(constant) init(268); 4 454*dcl reswd_BECOMES fixed bin static options(constant) init(267); 4 455*dcl reswd_CHECK fixed bin static options(constant) init(264); 4 456*dcl reswd_INVOKING fixed bin static options(constant) init(269); 4 457*dcl reswd_KEY_LOCATION fixed bin static options(constant) init(286); 4 458*dcl reswd_LOCKS fixed bin static options(constant) init(125); 4 459*dcl reswd_PREFIX fixed bin static options(constant) init(293); 4 460*dcl reswd_REALM fixed bin static options(constant) init(265); 4 461*dcl reswd_REALM_ID fixed bin static options(constant) init(270); 4 462*dcl reswd_SELECTION fixed bin static options(constant) init(271); 4 463*dcl reswd_SYMBOLS fixed bin static options(constant) init(602); 4 464*dcl reswd_VIA fixed bin static options(constant) init(262); 4 465*END DATABASE WORDS */ 4 466 4 467 4 468 /* END INCLUDE FILE ... cobol_reswd_values.incl.pl1 */ 4 469 238 239 240 end cobol_proc_sort; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 05/24/89 0835.5 cobol_proc_sort.pl1 >spec>install>MR12.3-1048>cobol_proc_sort.pl1 235 1 11/11/82 1712.8 cobol_fixed_common.incl.pl1 >ldd>include>cobol_fixed_common.incl.pl1 236 2 03/27/82 0431.3 cobol_ext_.incl.pl1 >ldd>include>cobol_ext_.incl.pl1 237 3 03/27/82 0431.6 cobol_ext_lex.incl.pl1 >ldd>include>cobol_ext_lex.incl.pl1 238 4 03/27/82 0439.8 cobol_reswd_values.incl.pl1 >ldd>include>cobol_reswd_values.incl.pl1 NAMES DECLARED IN THIS COMPILATION. IDENTIFIER OFFSET LOC STORAGE CLASS DATA TYPE ATTRIBUTES AND REFERENCES (* indicates a set context) NAMES DECLARED BY DECLARE STATEMENT. addr builtin function dcl 105 ref 111 194 194 bits 35(19) 000100 automatic structure level 2 packed packed unaligned dcl 30 set ref 117* bsn 3 000100 automatic char(30) level 2 packed packed unaligned dcl 30 set ref 176* bsns 2 000100 automatic fixed bin(17,0) level 2 dcl 30 set ref 114* 175* chain based char(5) level 2 in structure "sio_b" packed packed unaligned dcl 50 in procedure "cobol_proc_sort" set ref 209* 227* chain 000100 automatic char(5) level 2 in structure "sio" packed packed unaligned dcl 30 in procedure "cobol_proc_sort" set ref 113* class 14 based bit(26) level 2 packed packed unaligned dcl 70 ref 146 cobol_cards defined structure level 1 unaligned dcl 3-65 cobol_cmfp defined pointer dcl 2-21 set ref 194* 206* 211* 224* 229* cobol_com_ptr defined pointer dcl 2-25 ref 201 219 cobol_current defined pointer dcl 3-10 ref 118 122 125 126 126 131 134 140 146 152 152 161 164 169 172 175 176 176 177 178 178 182 182 187 190 191 191 cobol_ext_$cobol_cmfp 000020 external static pointer dcl 2-20 ref 194 194 206 206 211 211 224 224 229 229 cobol_ext_$cobol_com_ptr 000022 external static pointer dcl 2-24 ref 201 201 219 219 cobol_ext_lex$cobol_current 000024 external static pointer dcl 3-9 ref 118 118 122 122 125 125 126 126 126 126 131 131 134 134 140 140 146 146 152 152 152 152 161 161 164 164 169 169 172 172 175 175 176 176 176 176 177 177 178 178 178 178 182 182 182 182 187 187 190 190 191 191 191 191 cobol_ext_lex$cobol_si_key 000026 external static char(5) packed unaligned dcl 3-38 set ref 199 199 202* 202 206 206 211 211 213* 213 cobol_ext_lex$cobol_so_key 000030 external static char(5) packed unaligned dcl 3-40 set ref 217 217 220* 220 224 224 229 229 231* 231 cobol_gns1 000010 constant entry external dcl 94 ref 120 128 158 167 169 180 185 cobol_si_key defined char(5) packed unaligned dcl 3-39 set ref 199 202* 206* 211* 213* cobol_so_key defined char(5) packed unaligned dcl 3-41 set ref 217 220* 224* 229* 231* cobol_vdwf_dget 000014 constant entry external dcl 102 ref 206 224 cobol_vdwf_dput 000016 constant entry external dcl 103 ref 211 229 cobol_vdwf_sput 000012 constant entry external dcl 101 ref 194 column 11 based fixed bin(17,0) level 2 dcl 82 ref 152 esn 14 000100 automatic char(30) level 2 packed packed unaligned dcl 30 set ref 178* 191* esns 13 000100 automatic fixed bin(17,0) level 2 dcl 30 set ref 115* 177* 190* fixed_common based structure level 1 unaligned dcl 1-26 io 35(18) 000100 automatic bit(1) level 2 packed packed unaligned dcl 30 set ref 136* 142* 196 key 13 based fixed bin(17,0) level 2 dcl 70 ref 118 134 140 164 182 length 14 based fixed bin(17,0) level 2 dcl 82 ref 125 126 175 176 177 178 190 191 merge 35(24) 000100 automatic bit(1) level 4 packed packed unaligned dcl 30 set ref 118* ne_key 000176 automatic char(5) packed unaligned dcl 97 set ref 194* 201 202 209 213 219 220 227 231 oe_len 000206 automatic fixed bin(17,0) dcl 100 set ref 206* 208 211* 224* 226 229* oe_ptr 000202 automatic pointer dcl 99 set ref 206* 208 224* 226 repl 35(21) 000100 automatic structure level 3 packed packed unaligned dcl 30 reserved_word based structure level 1 unaligned dcl 70 reswd_INPUT constant fixed bin(17,0) initial dcl 4-125 ref 134 reswd_MERGE constant fixed bin(17,0) initial dcl 4-33 ref 118 reswd_OUTPUT constant fixed bin(17,0) initial dcl 4-151 ref 140 reswd_PROCEDURE constant fixed bin(17,0) initial dcl 4-156 ref 164 reswd_THRU constant fixed bin(17,0) initial dcl 4-180 ref 182 sfn 26 000100 automatic char(30) level 2 packed packed unaligned dcl 30 set ref 126* sfns 25 000100 automatic fixed bin(17,0) level 2 dcl 30 set ref 125* sio 000100 automatic structure level 1 unaligned dcl 30 set ref 194 194 sio_b based structure level 1 unaligned dcl 50 sio_t 000136 automatic char(125) packed unaligned dcl 95 set ref 111 208* 226* sio_tb based char packed unaligned dcl 96 ref 208 226 siot_ad 000204 automatic pointer dcl 99 set ref 111* 209 211* 227 229* sort_in_info 60(18) based char(5) level 2 packed packed unaligned dcl 1-26 set ref 201* sort_out_info 114(27) based char(5) level 2 packed packed unaligned dcl 1-26 set ref 219* ssn 24 000100 automatic fixed bin(17,0) level 2 dcl 30 set ref 116* st 000200 automatic bit(32) packed unaligned dcl 98 set ref 194* 206* 211* 224* 229* substr builtin function dcl 106 ref 126 146 176 178 191 type 12 based fixed bin(17,0) level 2 in structure "reserved_word" dcl 70 in procedure "cobol_proc_sort" ref 131 161 169 182 type 12 based fixed bin(17,0) level 2 in structure "user_word" dcl 82 in procedure "cobol_proc_sort" ref 122 152 172 187 user_word based structure level 1 unaligned dcl 82 word 15 based char(30) level 2 packed packed unaligned dcl 82 ref 126 176 178 191 NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. cobol_afp defined pointer dcl 2-11 cobol_allo_init_sw defined bit(1) packed unaligned dcl 3-82 cobol_analin_fileno defined pointer dcl 2-13 cobol_c_l_n defined fixed bin(17,0) dcl 3-48 cobol_cfp defined pointer dcl 3-20 cobol_com_fileno defined pointer dcl 2-23 cobol_comma_character defined char(1) packed unaligned dcl 3-33 cobol_continuation defined bit(1) packed unaligned dcl 3-78 cobol_copy_active defined bit(1) packed unaligned dcl 3-110 cobol_copy_found defined bit(1) packed unaligned dcl 3-92 cobol_curr_in defined pointer dcl 2-53 cobol_curr_out defined pointer dcl 2-55 cobol_debug_mode defined bit(1) packed unaligned dcl 3-102 cobol_decimal_point_character defined char(1) packed unaligned dcl 3-35 cobol_dfp defined pointer dcl 2-27 cobol_dp_sw defined bit(1) packed unaligned dcl 3-98 cobol_elnp_sw defined bit(1) packed unaligned dcl 3-96 cobol_elt_buf_ptr defined pointer dcl 3-24 cobol_elt_idx defined fixed bin(17,0) dcl 3-60 cobol_eltp defined pointer dcl 2-19 cobol_endprog_sw defined bit(1) packed unaligned dcl 3-100 cobol_ext_$cobol_afp external static pointer dcl 2-10 cobol_ext_$cobol_analin_fileno external static pointer dcl 2-12 cobol_ext_$cobol_com_fileno external static pointer dcl 2-22 cobol_ext_$cobol_curr_in external static pointer dcl 2-52 cobol_ext_$cobol_curr_out external static pointer dcl 2-54 cobol_ext_$cobol_dfp external static pointer dcl 2-26 cobol_ext_$cobol_eltp external static pointer dcl 2-18 cobol_ext_$cobol_fileno1 external static fixed bin(24,0) dcl 2-78 cobol_ext_$cobol_hfp external static pointer dcl 2-28 cobol_ext_$cobol_lpr external static char(5) packed unaligned dcl 2-95 cobol_ext_$cobol_m1fp external static pointer dcl 2-30 cobol_ext_$cobol_m2fp external static pointer dcl 2-32 cobol_ext_$cobol_min1_fileno external static pointer dcl 2-34 cobol_ext_$cobol_min2_fileno_ptr external static pointer dcl 2-36 cobol_ext_$cobol_name_fileno external static pointer dcl 2-38 cobol_ext_$cobol_name_fileno_ptr external static pointer dcl 2-40 cobol_ext_$cobol_ntfp external static pointer dcl 2-42 cobol_ext_$cobol_options external static char(120) packed unaligned dcl 2-97 cobol_ext_$cobol_options_len external static fixed bin(24,0) dcl 2-80 cobol_ext_$cobol_pdofp external static pointer dcl 2-44 cobol_ext_$cobol_pdout_fileno external static fixed bin(24,0) dcl 2-82 cobol_ext_$cobol_pfp external static pointer dcl 2-46 cobol_ext_$cobol_print_fileno external static fixed bin(24,0) dcl 2-84 cobol_ext_$cobol_rm2fp external static pointer dcl 2-48 cobol_ext_$cobol_rmin2_fileno external static fixed bin(24,0) dcl 2-86 cobol_ext_$cobol_rmin2fp external static pointer dcl 2-50 cobol_ext_$cobol_rwdd external static pointer dcl 2-72 cobol_ext_$cobol_rwpd external static pointer dcl 2-74 cobol_ext_$cobol_sfp external static pointer dcl 2-56 cobol_ext_$cobol_w1p external static pointer dcl 2-58 cobol_ext_$cobol_w2p external static pointer dcl 2-60 cobol_ext_$cobol_w3p external static pointer dcl 2-62 cobol_ext_$cobol_w5p external static pointer dcl 2-64 cobol_ext_$cobol_w6p external static pointer dcl 2-66 cobol_ext_$cobol_w7p external static pointer dcl 2-68 cobol_ext_$cobol_x1_fileno external static fixed bin(24,0) dcl 2-88 cobol_ext_$cobol_x2_fileno external static fixed bin(24,0) dcl 2-90 cobol_ext_$cobol_x3_fileno external static fixed bin(24,0) dcl 2-92 cobol_ext_$cobol_x3fp external static pointer dcl 2-70 cobol_ext_$cobol_xlast8 external static bit(1) packed unaligned dcl 2-100 cobol_ext_$report_exists external static bit(1) packed unaligned dcl 2-102 cobol_ext_$report_first_token external static pointer dcl 2-14 cobol_ext_$report_last_token external static pointer dcl 2-16 cobol_ext_lex$cobol_allo_init_sw external static bit(1) packed unaligned dcl 3-81 cobol_ext_lex$cobol_c_l_n external static fixed bin(17,0) dcl 3-47 cobol_ext_lex$cobol_cards external static structure level 1 unaligned dcl 3-64 cobol_ext_lex$cobol_cfp external static pointer dcl 3-19 cobol_ext_lex$cobol_comma_character external static char(1) packed unaligned dcl 3-32 cobol_ext_lex$cobol_continuation external static bit(1) packed unaligned dcl 3-77 cobol_ext_lex$cobol_copy_active external static bit(1) packed unaligned dcl 3-109 cobol_ext_lex$cobol_copy_found external static bit(1) packed unaligned dcl 3-91 cobol_ext_lex$cobol_debug_mode external static bit(1) packed unaligned dcl 3-101 cobol_ext_lex$cobol_decimal_point_character external static char(1) packed unaligned dcl 3-34 cobol_ext_lex$cobol_dp_sw external static bit(1) packed unaligned dcl 3-97 cobol_ext_lex$cobol_elnp_sw external static bit(1) packed unaligned dcl 3-95 cobol_ext_lex$cobol_elt_buf_ptr external static pointer dcl 3-23 cobol_ext_lex$cobol_elt_idx external static fixed bin(17,0) dcl 3-59 cobol_ext_lex$cobol_endprog_sw external static bit(1) packed unaligned dcl 3-99 cobol_ext_lex$cobol_frst external static pointer dcl 3-13 cobol_ext_lex$cobol_head_words external static bit(1) array packed unaligned dcl 3-93 cobol_ext_lex$cobol_init_ta_sw external static bit(1) packed unaligned dcl 3-105 cobol_ext_lex$cobol_lex_exit external static label variable dcl 3-25 cobol_ext_lex$cobol_ln_sw external static bit(1) array packed unaligned dcl 3-111 cobol_ext_lex$cobol_lu_sw external static bit(1) packed unaligned dcl 3-83 cobol_ext_lex$cobol_mfp external static pointer dcl 3-15 cobol_ext_lex$cobol_name_number external static fixed bin(17,0) dcl 3-53 cobol_ext_lex$cobol_new_line_character external static char(1) packed unaligned dcl 3-36 cobol_ext_lex$cobol_output_sw external static bit(1) packed unaligned dcl 3-87 cobol_ext_lex$cobol_pic_switch external static bit(1) packed unaligned dcl 3-79 cobol_ext_lex$cobol_prime_sw external static bit(1) packed unaligned dcl 3-113 cobol_ext_lex$cobol_progid_sw external static bit(1) packed unaligned dcl 3-117 cobol_ext_lex$cobol_rec1_sw external static bit(1) array packed unaligned dcl 3-115 cobol_ext_lex$cobol_rep_sw external static bit(1) packed unaligned dcl 3-107 cobol_ext_lex$cobol_rt_ptr external static pointer dcl 3-17 cobol_ext_lex$cobol_rwt_init_sw external static bit(1) packed unaligned dcl 3-103 cobol_ext_lex$cobol_save_cln external static fixed bin(17,0) dcl 3-49 cobol_ext_lex$cobol_save_col external static fixed bin(17,0) dcl 3-51 cobol_ext_lex$cobol_scanoff_sw external static bit(1) packed unaligned dcl 3-85 cobol_ext_lex$cobol_section_number external static fixed bin(17,0) dcl 3-55 cobol_ext_lex$cobol_sr external static fixed bin(17,0) dcl 3-57 cobol_ext_lex$cobol_stack_sw external static bit(1) packed unaligned dcl 3-89 cobol_ext_lex$cobol_ta_ptr external static pointer dcl 3-21 cobol_ext_lex$cobol_tarea external static char(300) packed unaligned dcl 3-30 cobol_ext_lex$cobol_top external static pointer dcl 3-11 cobol_ext_lex$ph_num external static fixed bin(17,0) dcl 3-45 cobol_ext_lex$processing_report external static bit(1) packed unaligned dcl 3-73 cobol_ext_lex$real_end_report external static bit(1) packed unaligned dcl 3-75 cobol_fileno1 defined fixed bin(24,0) dcl 2-79 cobol_frst defined pointer dcl 3-14 cobol_head_words defined bit(1) array packed unaligned dcl 3-94 cobol_hfp defined pointer dcl 2-29 cobol_init_ta_sw defined bit(1) packed unaligned dcl 3-106 cobol_lex_exit defined label variable dcl 3-26 cobol_ln_sw defined bit(1) array packed unaligned dcl 3-112 cobol_lpr defined char(5) packed unaligned dcl 2-96 cobol_lu_sw defined bit(1) packed unaligned dcl 3-84 cobol_m1fp defined pointer dcl 2-31 cobol_m2fp defined pointer dcl 2-33 cobol_mfp defined pointer dcl 3-16 cobol_min1_fileno defined pointer dcl 2-35 cobol_min2_fileno_ptr defined pointer dcl 2-37 cobol_name_fileno defined pointer dcl 2-39 cobol_name_fileno_ptr defined pointer dcl 2-41 cobol_name_number defined fixed bin(17,0) dcl 3-54 cobol_new_line_character defined char(1) packed unaligned dcl 3-37 cobol_ntfp defined pointer dcl 2-43 cobol_options defined char(120) packed unaligned dcl 2-98 cobol_options_len defined fixed bin(24,0) dcl 2-81 cobol_output_sw defined bit(1) packed unaligned dcl 3-88 cobol_pdofp defined pointer dcl 2-45 cobol_pdout_fileno defined fixed bin(24,0) dcl 2-83 cobol_pfp defined pointer dcl 2-47 cobol_pic_switch defined bit(1) packed unaligned dcl 3-80 cobol_prime_sw defined bit(1) packed unaligned dcl 3-114 cobol_print_fileno defined fixed bin(24,0) dcl 2-85 cobol_progid_sw defined bit(1) packed unaligned dcl 3-118 cobol_rec1_sw defined bit(1) array packed unaligned dcl 3-116 cobol_rep_sw defined bit(1) packed unaligned dcl 3-108 cobol_rm2fp defined pointer dcl 2-49 cobol_rmin2_fileno defined fixed bin(24,0) dcl 2-87 cobol_rmin2fp defined pointer dcl 2-51 cobol_rt_ptr defined pointer dcl 3-18 cobol_rwdd defined pointer dcl 2-73 cobol_rwpd defined pointer dcl 2-75 cobol_rwt_init_sw defined bit(1) packed unaligned dcl 3-104 cobol_save_cln defined fixed bin(17,0) dcl 3-50 cobol_save_col defined fixed bin(17,0) dcl 3-52 cobol_scanoff_sw defined bit(1) packed unaligned dcl 3-86 cobol_section_number defined fixed bin(17,0) dcl 3-56 cobol_sfp defined pointer dcl 2-57 cobol_sr defined fixed bin(17,0) dcl 3-58 cobol_stack_sw defined bit(1) packed unaligned dcl 3-90 cobol_ta_ptr defined pointer dcl 3-22 cobol_tarea defined char(300) packed unaligned dcl 3-31 cobol_top defined pointer dcl 3-12 cobol_w1p defined pointer dcl 2-59 cobol_w2p defined pointer dcl 2-61 cobol_w3p defined pointer dcl 2-63 cobol_w5p defined pointer dcl 2-65 cobol_w6p defined pointer dcl 2-67 cobol_w7p defined pointer dcl 2-69 cobol_x1_fileno defined fixed bin(24,0) dcl 2-89 cobol_x2_fileno defined fixed bin(24,0) dcl 2-91 cobol_x3_fileno defined fixed bin(24,0) dcl 2-93 cobol_x3fp defined pointer dcl 2-71 cobol_xlast8 defined bit(1) packed unaligned dcl 2-101 oe_key automatic char(5) packed unaligned dcl 97 ph_num defined fixed bin(17,0) dcl 3-46 processing_report defined bit(1) packed unaligned dcl 3-74 real_end_report defined bit(1) packed unaligned dcl 3-76 report_exists defined bit(1) packed unaligned dcl 2-103 report_first_token defined pointer dcl 2-15 report_last_token defined pointer dcl 2-17 reschar_2EQs internal static fixed bin(17,0) initial dcl 4-286 reschar_2STARs internal static fixed bin(17,0) initial dcl 4-204 reschar_EQ internal static fixed bin(17,0) initial dcl 4-108 reschar_GT internal static fixed bin(17,0) initial dcl 4-121 reschar_LPARENS internal static fixed bin(17,0) initial dcl 4-205 reschar_LT internal static fixed bin(17,0) initial dcl 4-135 reschar_MINUS internal static fixed bin(17,0) initial dcl 4-201 reschar_PERIOD internal static fixed bin(17,0) initial dcl 4-207 reschar_PLUS internal static fixed bin(17,0) initial dcl 4-200 reschar_RPARENS internal static fixed bin(17,0) initial dcl 4-206 reschar_SLASH internal static fixed bin(17,0) initial dcl 4-203 reschar_STAR internal static fixed bin(17,0) initial dcl 4-202 reswd_ACCEPT internal static fixed bin(17,0) initial dcl 4-19 reswd_ACCESS internal static fixed bin(17,0) initial dcl 4-343 reswd_ADD internal static fixed bin(17,0) initial dcl 4-20 reswd_ADDRESS internal static fixed bin(17,0) initial dcl 4-345 reswd_ADVANCING internal static fixed bin(17,0) initial dcl 4-74 reswd_AFTER internal static fixed bin(17,0) initial dcl 4-75 reswd_ALL internal static fixed bin(17,0) initial dcl 4-76 reswd_ALPHABET internal static fixed bin(17,0) initial dcl 4-346 reswd_ALPHABETIC internal static fixed bin(17,0) initial dcl 4-77 reswd_ALPHANUMERIC internal static fixed bin(17,0) initial dcl 4-78 reswd_ALPHANUMERIC_EDITED internal static fixed bin(17,0) initial dcl 4-79 reswd_ALSO internal static fixed bin(17,0) initial dcl 4-100 reswd_ALTER internal static fixed bin(17,0) initial dcl 4-22 reswd_ALTERNATE internal static fixed bin(17,0) initial dcl 4-349 reswd_AND internal static fixed bin(17,0) initial dcl 4-80 reswd_APPLY internal static fixed bin(17,0) initial dcl 4-350 reswd_ARE internal static fixed bin(17,0) initial dcl 4-128 reswd_AREA internal static fixed bin(17,0) initial dcl 4-219 reswd_AREAS internal static fixed bin(17,0) initial dcl 4-219 reswd_ASCENDING internal static fixed bin(17,0) initial dcl 4-81 reswd_ASSIGN internal static fixed bin(17,0) initial dcl 4-351 reswd_AT internal static fixed bin(17,0) initial dcl 4-82 reswd_AUTHOR internal static fixed bin(17,0) initial dcl 4-352 reswd_BEFORE internal static fixed bin(17,0) initial dcl 4-83 reswd_BEGINNING internal static fixed bin(17,0) initial dcl 4-84 reswd_BIT internal static fixed bin(17,0) initial dcl 4-213 reswd_BITS internal static fixed bin(17,0) initial dcl 4-213 reswd_BLANK internal static fixed bin(17,0) initial dcl 4-222 reswd_BLOCK internal static fixed bin(17,0) initial dcl 4-223 reswd_BOOLEAN internal static fixed bin(17,0) initial dcl 4-152 reswd_BOTTOM internal static fixed bin(17,0) initial dcl 4-264 reswd_BSN internal static fixed bin(17,0) initial dcl 4-330 reswd_BY internal static fixed bin(17,0) initial dcl 4-85 reswd_CALL internal static fixed bin(17,0) initial dcl 4-23 reswd_CANCEL internal static fixed bin(17,0) initial dcl 4-25 reswd_CATALOGUE_NAME internal static fixed bin(17,0) initial dcl 4-322 reswd_CATALOG_NAME internal static fixed bin(17,0) initial dcl 4-322 reswd_CD internal static fixed bin(17,0) initial dcl 4-224 reswd_CF internal static fixed bin(17,0) initial dcl 4-353 reswd_CH internal static fixed bin(17,0) initial dcl 4-354 reswd_CHARACTER internal static fixed bin(17,0) initial dcl 4-86 reswd_CHARACTERS internal static fixed bin(17,0) initial dcl 4-86 reswd_CLOCK_UNITS internal static fixed bin(17,0) initial dcl 4-355 reswd_CLOSE internal static fixed bin(17,0) initial dcl 4-26 reswd_COBOL internal static fixed bin(17,0) initial dcl 4-209 reswd_CODE internal static fixed bin(17,0) initial dcl 4-356 reswd_CODE_SET internal static fixed bin(17,0) initial dcl 4-314 reswd_COLLATING internal static fixed bin(17,0) initial dcl 4-357 reswd_COLUMN internal static fixed bin(17,0) initial dcl 4-358 reswd_COMMA internal static fixed bin(17,0) initial dcl 4-359 reswd_COMMUNICATION internal static fixed bin(17,0) initial dcl 4-225 reswd_COMP internal static fixed bin(17,0) initial dcl 4-113 reswd_COMPUTATIONAL internal static fixed bin(17,0) initial dcl 4-113 reswd_COMPUTATIONAL_1 internal static fixed bin(17,0) initial dcl 4-233 reswd_COMPUTATIONAL_2 internal static fixed bin(17,0) initial dcl 4-235 reswd_COMPUTATIONAL_3 internal static fixed bin(17,0) initial dcl 4-231 reswd_COMPUTATIONAL_4 internal static fixed bin(17,0) initial dcl 4-227 reswd_COMPUTATIONAL_5 internal static fixed bin(17,0) initial dcl 4-229 reswd_COMPUTATIONAL_6 internal static fixed bin(17,0) initial dcl 4-308 reswd_COMPUTATIONAL_7 internal static fixed bin(17,0) initial dcl 4-305 reswd_COMPUTATIONAL_8 internal static fixed bin(17,0) initial dcl 4-448 reswd_COMPUTE internal static fixed bin(17,0) initial dcl 4-57 reswd_COMP_1 internal static fixed bin(17,0) initial dcl 4-233 reswd_COMP_2 internal static fixed bin(17,0) initial dcl 4-235 reswd_COMP_3 internal static fixed bin(17,0) initial dcl 4-231 reswd_COMP_4 internal static fixed bin(17,0) initial dcl 4-227 reswd_COMP_5 internal static fixed bin(17,0) initial dcl 4-229 reswd_COMP_6 internal static fixed bin(17,0) initial dcl 4-308 reswd_COMP_7 internal static fixed bin(17,0) initial dcl 4-305 reswd_COMP_8 internal static fixed bin(17,0) initial dcl 4-448 reswd_CONFIGURATION internal static fixed bin(17,0) initial dcl 4-360 reswd_CONSTANT internal static fixed bin(17,0) initial dcl 4-237 reswd_CONTAINS internal static fixed bin(17,0) initial dcl 4-238 reswd_CONTROL internal static fixed bin(17,0) initial dcl 4-362 reswd_CONTROLS internal static fixed bin(17,0) initial dcl 4-363 reswd_CONVERSION internal static fixed bin(17,0) initial dcl 4-361 reswd_COPY internal static fixed bin(17,0) initial dcl 4-364 reswd_CORR internal static fixed bin(17,0) initial dcl 4-365 reswd_CORRESPONDING internal static fixed bin(17,0) initial dcl 4-365 reswd_COUNT internal static fixed bin(17,0) initial dcl 4-88 reswd_CURRENCY internal static fixed bin(17,0) initial dcl 4-367 reswd_DATA internal static fixed bin(17,0) initial dcl 4-216 reswd_DATE internal static fixed bin(17,0) initial dcl 4-90 reswd_DATE_COMPILED internal static fixed bin(17,0) initial dcl 4-369 reswd_DATE_WRITTEN internal static fixed bin(17,0) initial dcl 4-370 reswd_DAY internal static fixed bin(17,0) initial dcl 4-91 reswd_DAY_OF_WEEK internal static fixed bin(17,0) initial dcl 4-317 reswd_DE internal static fixed bin(17,0) initial dcl 4-371 reswd_DEBUGGING internal static fixed bin(17,0) initial dcl 4-92 reswd_DEBUG_CONTENTS internal static fixed bin(17,0) initial dcl 4-372 reswd_DEBUG_ITEM internal static fixed bin(17,0) initial dcl 4-373 reswd_DEBUG_LINE internal static fixed bin(17,0) initial dcl 4-374 reswd_DEBUG_NAME internal static fixed bin(17,0) initial dcl 4-379 reswd_DEBUG_SUB_1 internal static fixed bin(17,0) initial dcl 4-375 reswd_DEBUG_SUB_2 internal static fixed bin(17,0) initial dcl 4-376 reswd_DEBUG_SUB_3 internal static fixed bin(17,0) initial dcl 4-377 reswd_DECIMAL_POINT internal static fixed bin(17,0) initial dcl 4-380 reswd_DECLARATIVES internal static fixed bin(17,0) initial dcl 4-93 reswd_DEFAULT internal static fixed bin(17,0) initial dcl 4-312 reswd_DELETE internal static fixed bin(17,0) initial dcl 4-40 reswd_DELIMITED internal static fixed bin(17,0) initial dcl 4-94 reswd_DELIMITER internal static fixed bin(17,0) initial dcl 4-95 reswd_DEPENDING internal static fixed bin(17,0) initial dcl 4-96 reswd_DESCENDING internal static fixed bin(17,0) initial dcl 4-97 reswd_DESTINATION internal static fixed bin(17,0) initial dcl 4-241 reswd_DETAIL internal static fixed bin(17,0) initial dcl 4-381 reswd_DISABLE internal static fixed bin(17,0) initial dcl 4-58 reswd_DISPLAY internal static fixed bin(17,0) initial dcl 4-59 reswd_DIVIDE internal static fixed bin(17,0) initial dcl 4-27 reswd_DIVISION internal static fixed bin(17,0) initial dcl 4-98 reswd_DOWN internal static fixed bin(17,0) initial dcl 4-99 reswd_DUPLICATES internal static fixed bin(17,0) initial dcl 4-252 reswd_DYNAMIC internal static fixed bin(17,0) initial dcl 4-185 reswd_EGI internal static fixed bin(17,0) initial dcl 4-260 reswd_ELSE internal static fixed bin(17,0) initial dcl 4-100 reswd_EMI internal static fixed bin(17,0) initial dcl 4-102 reswd_ENABLE internal static fixed bin(17,0) initial dcl 4-60 reswd_END internal static fixed bin(17,0) initial dcl 4-103 reswd_ENDING internal static fixed bin(17,0) initial dcl 4-104 reswd_END_OF_PAGE internal static fixed bin(17,0) initial dcl 4-105 reswd_ENTER internal static fixed bin(17,0) initial dcl 4-61 reswd_ENVIRONMENT internal static fixed bin(17,0) initial dcl 4-382 reswd_EOP internal static fixed bin(17,0) initial dcl 4-105 reswd_EQUAL internal static fixed bin(17,0) initial dcl 4-108 reswd_EQUALS internal static fixed bin(17,0) initial dcl 4-108 reswd_ERROR internal static fixed bin(17,0) initial dcl 4-21 reswd_ESI internal static fixed bin(17,0) initial dcl 4-112 reswd_EVERY internal static fixed bin(17,0) initial dcl 4-384 reswd_EXAMINE internal static fixed bin(17,0) initial dcl 4-67 reswd_EXCEEDS internal static fixed bin(17,0) initial dcl 4-121 reswd_EXCEPTION internal static fixed bin(17,0) initial dcl 4-115 reswd_EXIT internal static fixed bin(17,0) initial dcl 4-30 reswd_EXOR internal static fixed bin(17,0) initial dcl 4-442 reswd_EXTEND internal static fixed bin(17,0) initial dcl 4-239 reswd_EXTERNAL internal static fixed bin(17,0) initial dcl 4-315 reswd_FD internal static fixed bin(17,0) initial dcl 4-242 reswd_FILE internal static fixed bin(17,0) initial dcl 4-116 reswd_FILES internal static fixed bin(17,0) initial dcl 4-299 reswd_FILE_CONTROL internal static fixed bin(17,0) initial dcl 4-385 reswd_FILLER internal static fixed bin(17,0) initial dcl 4-243 reswd_FINAL internal static fixed bin(17,0) initial dcl 4-387 reswd_FIRST internal static fixed bin(17,0) initial dcl 4-117 reswd_FLR internal static fixed bin(17,0) initial dcl 4-296 reswd_FOOTING internal static fixed bin(17,0) initial dcl 4-388 reswd_FOR internal static fixed bin(17,0) initial dcl 4-118 reswd_FROM internal static fixed bin(17,0) initial dcl 4-119 reswd_GENERATE internal static fixed bin(17,0) initial dcl 4-62 reswd_GIVING internal static fixed bin(17,0) initial dcl 4-120 reswd_GO internal static fixed bin(17,0) initial dcl 4-32 reswd_GREATER internal static fixed bin(17,0) initial dcl 4-121 reswd_GROUP internal static fixed bin(17,0) initial dcl 4-390 reswd_HEADING internal static fixed bin(17,0) initial dcl 4-389 reswd_HIGH_VALUE internal static fixed bin(17,0) initial dcl 4-244 reswd_HIGH_VALUES internal static fixed bin(17,0) initial dcl 4-244 reswd_HOLD internal static fixed bin(17,0) initial dcl 4-63 reswd_IDENTIFICATION internal static fixed bin(17,0) initial dcl 4-393 reswd_IDS_II internal static fixed bin(17,0) initial dcl 4-334 reswd_IF internal static fixed bin(17,0) initial dcl 4-64 reswd_IN internal static fixed bin(17,0) initial dcl 4-107 reswd_INDEX internal static fixed bin(17,0) initial dcl 4-246 reswd_INDEXED internal static fixed bin(17,0) initial dcl 4-247 reswd_INDICATE internal static fixed bin(17,0) initial dcl 4-394 reswd_INITIAL internal static fixed bin(17,0) initial dcl 4-124 reswd_INITIALIZE internal static fixed bin(17,0) initial dcl 4-31 reswd_INITIATE internal static fixed bin(17,0) initial dcl 4-34 reswd_INPUT_OUTPUT internal static fixed bin(17,0) initial dcl 4-130 reswd_INSPECT internal static fixed bin(17,0) initial dcl 4-35 reswd_INSTALLATION internal static fixed bin(17,0) initial dcl 4-395 reswd_INTERCHANGE internal static fixed bin(17,0) initial dcl 4-318 reswd_INTO internal static fixed bin(17,0) initial dcl 4-126 reswd_INVALID internal static fixed bin(17,0) initial dcl 4-127 reswd_IS internal static fixed bin(17,0) initial dcl 4-128 reswd_I_O internal static fixed bin(17,0) initial dcl 4-130 reswd_I_O_CONTROL internal static fixed bin(17,0) initial dcl 4-392 reswd_JUST internal static fixed bin(17,0) initial dcl 4-248 reswd_JUSTIFIED internal static fixed bin(17,0) initial dcl 4-248 reswd_KEY internal static fixed bin(17,0) initial dcl 4-132 reswd_KEYED internal static fixed bin(17,0) initial dcl 4-332 reswd_LABEL internal static fixed bin(17,0) initial dcl 4-133 reswd_LAST internal static fixed bin(17,0) initial dcl 4-397 reswd_LEADING internal static fixed bin(17,0) initial dcl 4-134 reswd_LEFT internal static fixed bin(17,0) initial dcl 4-250 reswd_LENGTH internal static fixed bin(17,0) initial dcl 4-251 reswd_LESS internal static fixed bin(17,0) initial dcl 4-135 reswd_LIMIT internal static fixed bin(17,0) initial dcl 4-401 reswd_LIMITS internal static fixed bin(17,0) initial dcl 4-402 reswd_LINAGE internal static fixed bin(17,0) initial dcl 4-403 reswd_LINAGE_COUNTER internal static fixed bin(17,0) initial dcl 4-404 reswd_LINE internal static fixed bin(17,0) initial dcl 4-137 reswd_LINES internal static fixed bin(17,0) initial dcl 4-137 reswd_LINE_COUNTER internal static fixed bin(17,0) initial dcl 4-405 reswd_LINKAGE internal static fixed bin(17,0) initial dcl 4-253 reswd_LOCK internal static fixed bin(17,0) initial dcl 4-139 reswd_LOW_VALUE internal static fixed bin(17,0) initial dcl 4-254 reswd_LOW_VALUES internal static fixed bin(17,0) initial dcl 4-254 reswd_MEMORY internal static fixed bin(17,0) initial dcl 4-407 reswd_MESSAGE internal static fixed bin(17,0) initial dcl 4-140 reswd_MODE internal static fixed bin(17,0) initial dcl 4-256 reswd_MODULES internal static fixed bin(17,0) initial dcl 4-408 reswd_MOVE internal static fixed bin(17,0) initial dcl 4-36 reswd_MULTIPLE internal static fixed bin(17,0) initial dcl 4-409 reswd_MULTIPLY internal static fixed bin(17,0) initial dcl 4-28 reswd_NATIVE internal static fixed bin(17,0) initial dcl 4-303 reswd_NEGATIVE internal static fixed bin(17,0) initial dcl 4-141 reswd_NEXT internal static fixed bin(17,0) initial dcl 4-142 reswd_NO internal static fixed bin(17,0) initial dcl 4-143 reswd_NOT internal static fixed bin(17,0) initial dcl 4-144 reswd_NUMBER internal static fixed bin(17,0) initial dcl 4-410 reswd_NUMERIC internal static fixed bin(17,0) initial dcl 4-145 reswd_NUMERIC_EDITED internal static fixed bin(17,0) initial dcl 4-146 reswd_OBJECT internal static fixed bin(17,0) initial dcl 4-307 reswd_OBJECT_COMPUTER internal static fixed bin(17,0) initial dcl 4-411 reswd_OCCURS internal static fixed bin(17,0) initial dcl 4-257 reswd_OF internal static fixed bin(17,0) initial dcl 4-147 reswd_OFF internal static fixed bin(17,0) initial dcl 4-413 reswd_OMITTED internal static fixed bin(17,0) initial dcl 4-221 reswd_ON internal static fixed bin(17,0) initial dcl 4-148 reswd_OPEN internal static fixed bin(17,0) initial dcl 4-37 reswd_OPTIONAL internal static fixed bin(17,0) initial dcl 4-415 reswd_OR internal static fixed bin(17,0) initial dcl 4-149 reswd_ORGANIZATION internal static fixed bin(17,0) initial dcl 4-199 reswd_OVERFLOW internal static fixed bin(17,0) initial dcl 4-24 reswd_PAGE internal static fixed bin(17,0) initial dcl 4-153 reswd_PAGE_COUNTER internal static fixed bin(17,0) initial dcl 4-417 reswd_PERFORM internal static fixed bin(17,0) initial dcl 4-38 reswd_PF internal static fixed bin(17,0) initial dcl 4-418 reswd_PH internal static fixed bin(17,0) initial dcl 4-419 reswd_PIC internal static fixed bin(17,0) initial dcl 4-258 reswd_PICTURE internal static fixed bin(17,0) initial dcl 4-258 reswd_PLUS internal static fixed bin(17,0) initial dcl 4-420 reswd_POINTER internal static fixed bin(17,0) initial dcl 4-154 reswd_POSITION internal static fixed bin(17,0) initial dcl 4-421 reswd_POSITIVE internal static fixed bin(17,0) initial dcl 4-155 reswd_PRINTING internal static fixed bin(17,0) initial dcl 4-399 reswd_PROCEDURES internal static fixed bin(17,0) initial dcl 4-157 reswd_PROCEED internal static fixed bin(17,0) initial dcl 4-158 reswd_PROCESS internal static fixed bin(17,0) initial dcl 4-65 reswd_PROCESSING internal static fixed bin(17,0) initial dcl 4-159 reswd_PROCESS_AREA internal static fixed bin(17,0) initial dcl 4-320 reswd_PROGRAM internal static fixed bin(17,0) initial dcl 4-160 reswd_PROGRAM_ID internal static fixed bin(17,0) initial dcl 4-422 reswd_PURGE internal static fixed bin(17,0) initial dcl 4-72 reswd_QUEUE internal static fixed bin(17,0) initial dcl 4-261 reswd_QUOTE internal static fixed bin(17,0) initial dcl 4-262 reswd_QUOTES internal static fixed bin(17,0) initial dcl 4-262 reswd_RANDOM internal static fixed bin(17,0) initial dcl 4-161 reswd_RD internal static fixed bin(17,0) initial dcl 4-423 reswd_READ internal static fixed bin(17,0) initial dcl 4-39 reswd_RECEIVE internal static fixed bin(17,0) initial dcl 4-41 reswd_RECORD internal static fixed bin(17,0) initial dcl 4-162 reswd_RECORDING internal static fixed bin(17,0) initial dcl 4-265 reswd_RECORDS internal static fixed bin(17,0) initial dcl 4-215 reswd_REDEFINES internal static fixed bin(17,0) initial dcl 4-266 reswd_REEL internal static fixed bin(17,0) initial dcl 4-163 reswd_REFERENCES internal static fixed bin(17,0) initial dcl 4-164 reswd_RELATIVE internal static fixed bin(17,0) initial dcl 4-182 reswd_RELEASE internal static fixed bin(17,0) initial dcl 4-42 reswd_REMAINDER internal static fixed bin(17,0) initial dcl 4-165 reswd_REMOVAL internal static fixed bin(17,0) initial dcl 4-291 reswd_RENAMES internal static fixed bin(17,0) initial dcl 4-267 reswd_REPLACE internal static fixed bin(17,0) initial dcl 4-336 reswd_REPLACING internal static fixed bin(17,0) initial dcl 4-166 reswd_REPORT internal static fixed bin(17,0) initial dcl 4-268 reswd_REPORTING internal static fixed bin(17,0) initial dcl 4-167 reswd_REPORTS internal static fixed bin(17,0) initial dcl 4-268 reswd_RERUN internal static fixed bin(17,0) initial dcl 4-426 reswd_RESERVE internal static fixed bin(17,0) initial dcl 4-427 reswd_RESET internal static fixed bin(17,0) initial dcl 4-428 reswd_RETURN internal static fixed bin(17,0) initial dcl 4-43 reswd_REVERSED internal static fixed bin(17,0) initial dcl 4-168 reswd_REWIND internal static fixed bin(17,0) initial dcl 4-169 reswd_REWRITE internal static fixed bin(17,0) initial dcl 4-45 reswd_RF internal static fixed bin(17,0) initial dcl 4-429 reswd_RH internal static fixed bin(17,0) initial dcl 4-430 reswd_RIGHT internal static fixed bin(17,0) initial dcl 4-270 reswd_ROUNDED internal static fixed bin(17,0) initial dcl 4-170 reswd_RUN internal static fixed bin(17,0) initial dcl 4-171 reswd_SA internal static fixed bin(17,0) initial dcl 4-271 reswd_SAME internal static fixed bin(17,0) initial dcl 4-431 reswd_SD internal static fixed bin(17,0) initial dcl 4-272 reswd_SEARCH internal static fixed bin(17,0) initial dcl 4-44 reswd_SECTION internal static fixed bin(17,0) initial dcl 4-172 reswd_SECURITY internal static fixed bin(17,0) initial dcl 4-432 reswd_SEGMENT internal static fixed bin(17,0) initial dcl 4-173 reswd_SEGMENT_LIMIT internal static fixed bin(17,0) initial dcl 4-433 reswd_SELECT internal static fixed bin(17,0) initial dcl 4-434 reswd_SEND internal static fixed bin(17,0) initial dcl 4-47 reswd_SENTENCE internal static fixed bin(17,0) initial dcl 4-174 reswd_SEPARATE internal static fixed bin(17,0) initial dcl 4-273 reswd_SEQUENCE internal static fixed bin(17,0) initial dcl 4-425 reswd_SEQUENTIAL internal static fixed bin(17,0) initial dcl 4-435 reswd_SET internal static fixed bin(17,0) initial dcl 4-48 reswd_SIGN internal static fixed bin(17,0) initial dcl 4-274 reswd_SIZE internal static fixed bin(17,0) initial dcl 4-175 reswd_SORT internal static fixed bin(17,0) initial dcl 4-66 reswd_SORT_MERGE internal static fixed bin(17,0) initial dcl 4-436 reswd_SOURCE internal static fixed bin(17,0) initial dcl 4-275 reswd_SOURCE_COMPUTER internal static fixed bin(17,0) initial dcl 4-437 reswd_SPACE internal static fixed bin(17,0) initial dcl 4-210 reswd_SPACES internal static fixed bin(17,0) initial dcl 4-210 reswd_SPANNED internal static fixed bin(17,0) initial dcl 4-439 reswd_SPECIAL_NAMES internal static fixed bin(17,0) initial dcl 4-438 reswd_SSF internal static fixed bin(17,0) initial dcl 4-89 reswd_STANDARD internal static fixed bin(17,0) initial dcl 4-176 reswd_STANDARD_1 internal static fixed bin(17,0) initial dcl 4-347 reswd_STANDARD_2 internal static fixed bin(17,0) initial dcl 4-226 reswd_START internal static fixed bin(17,0) initial dcl 4-70 reswd_STATUS internal static fixed bin(17,0) initial dcl 4-276 reswd_STOP internal static fixed bin(17,0) initial dcl 4-50 reswd_STREAM internal static fixed bin(17,0) initial dcl 4-328 reswd_STRING internal static fixed bin(17,0) initial dcl 4-51 reswd_SUBSTITUTION internal static fixed bin(17,0) initial dcl 4-338 reswd_SUBTRACT internal static fixed bin(17,0) initial dcl 4-29 reswd_SUB_QUEUE_1 internal static fixed bin(17,0) initial dcl 4-277 reswd_SUB_QUEUE_2 internal static fixed bin(17,0) initial dcl 4-278 reswd_SUB_QUEUE_3 internal static fixed bin(17,0) initial dcl 4-279 reswd_SUM internal static fixed bin(17,0) initial dcl 4-441 reswd_SUPPRESS internal static fixed bin(17,0) initial dcl 4-71 reswd_SUSPEND internal static fixed bin(17,0) initial dcl 4-52 reswd_SYMBOLIC internal static fixed bin(17,0) initial dcl 4-280 reswd_SYNC internal static fixed bin(17,0) initial dcl 4-281 reswd_SYNCHRONIZED internal static fixed bin(17,0) initial dcl 4-281 reswd_TABLE internal static fixed bin(17,0) initial dcl 4-283 reswd_TALLY internal static fixed bin(17,0) initial dcl 4-212 reswd_TALLYING internal static fixed bin(17,0) initial dcl 4-177 reswd_TAPE internal static fixed bin(17,0) initial dcl 4-444 reswd_TERMINAL internal static fixed bin(17,0) initial dcl 4-178 reswd_TERMINATE internal static fixed bin(17,0) initial dcl 4-53 reswd_TEXT internal static fixed bin(17,0) initial dcl 4-445 reswd_THAN internal static fixed bin(17,0) initial dcl 4-179 reswd_THROUGH internal static fixed bin(17,0) initial dcl 4-180 reswd_TIME internal static fixed bin(17,0) initial dcl 4-183 reswd_TIMES internal static fixed bin(17,0) initial dcl 4-183 reswd_TO internal static fixed bin(17,0) initial dcl 4-186 reswd_TOP internal static fixed bin(17,0) initial dcl 4-208 reswd_TRAILING internal static fixed bin(17,0) initial dcl 4-285 reswd_TRANSFORM internal static fixed bin(17,0) initial dcl 4-68 reswd_TYPE internal static fixed bin(17,0) initial dcl 4-446 reswd_UNEQUAL internal static fixed bin(17,0) initial dcl 4-187 reswd_UNIT internal static fixed bin(17,0) initial dcl 4-188 reswd_UNSTRING internal static fixed bin(17,0) initial dcl 4-54 reswd_UNTIL internal static fixed bin(17,0) initial dcl 4-189 reswd_UP internal static fixed bin(17,0) initial dcl 4-190 reswd_UPON internal static fixed bin(17,0) initial dcl 4-191 reswd_USAGE internal static fixed bin(17,0) initial dcl 4-287 reswd_USE internal static fixed bin(17,0) initial dcl 4-56 reswd_USING internal static fixed bin(17,0) initial dcl 4-192 reswd_VALUE internal static fixed bin(17,0) initial dcl 4-288 reswd_VALUES internal static fixed bin(17,0) initial dcl 4-288 reswd_VARYING internal static fixed bin(17,0) initial dcl 4-193 reswd_VLR internal static fixed bin(17,0) initial dcl 4-218 reswd_WHEN internal static fixed bin(17,0) initial dcl 4-194 reswd_WITH internal static fixed bin(17,0) initial dcl 4-195 reswd_WORDS internal static fixed bin(17,0) initial dcl 4-447 reswd_WORKING_STORAGE internal static fixed bin(17,0) initial dcl 4-290 reswd_WRITE internal static fixed bin(17,0) initial dcl 4-55 reswd_ZERO internal static fixed bin(17,0) initial dcl 4-196 reswd_ZEROES internal static fixed bin(17,0) initial dcl 4-196 reswd_ZEROS internal static fixed bin(17,0) initial dcl 4-196 NAMES DECLARED BY EXPLICIT CONTEXT. cobol_proc_sort 000003 constant entry external dcl 27 get_io 000052 constant label dcl 128 ref 156 get_io1 000057 constant label dcl 131 ref 203 214 221 233 proc_com_ent 000115 constant label dcl 158 ref 137 143 start 000010 constant label dcl 111 NAME DECLARED BY CONTEXT OR IMPLICATION. string builtin function ref 117 STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 606 640 454 616 Length 1122 454 32 245 131 0 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME cobol_proc_sort 150 external procedure is an external procedure. STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME cobol_proc_sort 000100 sio cobol_proc_sort 000136 sio_t cobol_proc_sort 000176 ne_key cobol_proc_sort 000200 st cobol_proc_sort 000202 oe_ptr cobol_proc_sort 000204 siot_ad cobol_proc_sort 000206 oe_len cobol_proc_sort THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. r_e_as call_ext_out return_mac ext_entry THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. cobol_gns1 cobol_vdwf_dget cobol_vdwf_dput cobol_vdwf_sput THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. cobol_ext_$cobol_cmfp cobol_ext_$cobol_com_ptr cobol_ext_lex$cobol_current cobol_ext_lex$cobol_si_key cobol_ext_lex$cobol_so_key LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 27 000002 111 000010 113 000012 114 000014 115 000015 116 000016 117 000017 118 000021 120 000032 122 000036 125 000044 126 000046 128 000052 131 000057 134 000065 136 000070 137 000072 140 000073 142 000075 143 000077 146 000100 152 000105 156 000114 158 000115 161 000121 164 000127 167 000132 169 000136 172 000150 175 000156 176 000160 177 000164 178 000166 180 000172 182 000176 185 000207 187 000213 190 000221 191 000223 194 000227 196 000251 199 000254 201 000263 202 000271 203 000275 206 000276 208 000314 209 000321 211 000326 213 000345 214 000352 217 000353 219 000362 220 000370 221 000374 224 000375 226 000413 227 000420 229 000425 231 000444 233 000451 ----------------------------------------------------------- Historical Background This edition of the Multics software materials and documentation is provided and donated to Massachusetts Institute of Technology by Group BULL including BULL HN Information Systems Inc. as a contribution to computer science knowledge. This donation is made also to give evidence of the common contributions of Massachusetts Institute of Technology, Bell Laboratories, General Electric, Honeywell Information Systems Inc., Honeywell BULL Inc., Groupe BULL and BULL HN Information Systems Inc. to the development of this operating system. Multics development was initiated by Massachusetts Institute of Technology Project MAC (1963-1970), renamed the MIT Laboratory for Computer Science and Artificial Intelligence in the mid 1970s, under the leadership of Professor Fernando Jose Corbato. Users consider that Multics provided the best software architecture for managing computer hardware properly and for executing programs. Many subsequent operating systems incorporated Multics principles. Multics was distributed in 1975 to 2000 by Group Bull in Europe , and in the U.S. by Bull HN Information Systems Inc., as successor in interest by change in name only to Honeywell Bull Inc. and Honeywell Information Systems Inc. . ----------------------------------------------------------- Permission to use, copy, modify, and distribute these programs and their documentation for any purpose and without fee is hereby granted,provided that the below copyright notice and historical background appear in all copies and that both the copyright notice and historical background and this permission notice appear in supporting documentation, and that the names of MIT, HIS, BULL or BULL HN not be used in advertising or publicity pertaining to distribution of the programs without specific prior written permission. Copyright 1972 by Massachusetts Institute of Technology and Honeywell Information Systems Inc. Copyright 2006 by BULL HN Information Systems Inc. Copyright 2006 by Bull SAS All Rights Reserved