COMPILATION LISTING OF SEGMENT cobol_sort_gen 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 0954.2 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,MCR8072), 17* audit(89-05-05,RWaters), install(89-05-24,MR12.3-1048): 18* MCR8072 cobol_sort_gen.pl1 Correct inverted sorts for some binary data 19* types. 20* END HISTORY COMMENTS */ 21 22 23 /* Modified on 10/23/84 by FCH, [5.3-1], BUG564(phx17268), sort can produce inverted results */ 24 /* Modified on 11/15/76 by Bob Chang to cooperate with merge statement for setting static data. */ 25 /* Modified since Version 2.0 */ 26 /* format: style3 */ 27 cobol_sort_gen: 28 proc (in_token_ptr); /* Code and relocation sequences. */ 29 30 dcl 1 pr_struc static, 31 2 what_ptr fixed bin, 32 2 pointer_no bit (3), 33 2 lock fixed bin init (1), 34 2 switch fixed bin init (0); 35 dcl 1 alpha_type9 static, 36 2 header (4) fixed bin init (112, 0, 0, 9), 37 2 repl_ptr (2) ptr init ((2) null ()), 38 2 fill1 bit (108) init (""b), 39 2 file_key_info, 40 3 fb1 (3) fixed bin init (0, 0, 0), 41 3 size fixed bin init (0), 42 3 fb2 (2) fixed bin init (0, 0), 43 3 flags1 bit (36) init ("000000100100000000010000000100000000"b), 44 3 flags2 bit (36) init (""b), 45 3 seg fixed bin init (0), 46 3 off fixed bin, 47 2 fill2 (7) fixed bin init (0, 0, 0, 0, 0, 0, 0); 48 dcl 1 alpha_type9_based based, 49 2 header (4) fixed bin, 50 2 repl_ptr (2) ptr, 51 2 fill1 bit (108), 52 2 file_key_info, 53 3 fb1 (3) fixed bin, 54 3 size fixed bin, 55 3 fb2 (2) fixed bin, 56 3 flags1 bit (36), 57 3 flags2 bit (36), 58 3 seg fixed bin, 59 3 off fixed bin, 60 2 fill2 (7) fixed bin; 61 dcl 1 type19 static, 62 2 header (4) fixed bin init (38, 0, 0, 19), 63 2 verb fixed bin init (0), 64 2 e fixed bin init (0), 65 2 h fixed bin init (0), 66 2 ij (2) fixed bin init (0, 0), 67 2 abcdfgk bit (16) init ("0000000000000000"b); 68 dcl instr_seq (2) bit (18) static init ("000000000000000000"b, "111001000000000100"b); 69 /* tra 0,ic */ 70 71 dcl instr_seq7 (14) bit (18) static init ("000000000000000000"b, "000000000000000000"b, 72 /* descr_relp_offset. */ 73 "000000000000000000"b, "000000000000000000"b, "000000000000000000"b, "110010111000000000"b, 74 /* eax7 0 */ 75 "111000000000101000"b, "011101010001010000"b, 76 /* epp2 pr7|40,* */ 77 "010000000000000110"b, "011101010101010000"b, 78 /* epbp2 pr2|6,* */ 79 "010000000000001010"b, "010111010001000000"b, 80 /* tsp2 pr2|10 */ 81 "000000000000000000"b, "000000000000000000"b); 82 /* no symbol table for compare routine. */ 83 dcl rel_seq7 (14) bit (5) aligned static 84 init ("10000"b, "00000"b, "10101"b, "00000"b, "00000"b, "00000"b, "00000"b, "00000"b, 85 "00000"b, "00000"b, "00000"b, "00000"b, "00000"b, "00000"b); 86 dcl instr_seq8 (2) bit (18) static init ("000000000000000011"b, "111001000001000000"b); 87 /* tra pr0|3 */ 88 dcl rel_seq8 (2) bit (5) aligned static init ("00000"b, "00000"b); 89 dcl instr_seq11 (10) bit (18) static init ("000000000000000011"b, "110000010000000100"b, 90 /* tnc 3,ic */ 91 "000000100000010011"b, "010011110001000000"b, 92 /* ldq pr0|2048+23 for -2 */ 93 "111000000000000110"b, "111101110001010000"b, 94 /* stq pr7|6,* */ 95 "111000000000000110"b, "000101100001010000"b, 96 /* aos pr7|6,* */ 97 "000000000000000000"b, "111001000000000100"b); 98 /* tra 0,ic */ 99 dcl rel_seq10 (10) bit (5) aligned static 100 init ("00000"b, "00000"b, "00000"b, "00000"b, "00000"b, "00000"b, "00000"b, "00000"b, 101 "00000"b, "00000"b); 102 dcl 1 sort_in_token static, 103 2 n fixed bin init (3), 104 2 code fixed bin init (0), 105 2 pt1 ptr, 106 2 pt2 ptr, 107 2 pt3 ptr; 108 109 110 dcl mvt_ptr ptr, 111 mvt_table char (512) based (mvt_ptr), 112 to_offset fixed bin; /* 113*Automatic data */ 114 115 dcl workpt2 ptr, /* work pointer */ 116 last_token fixed bin, 117 dn_ptr ptr, /* pointer to the type 9 token */ 118 alpha_ptr ptr, 119 ft_ptr ptr, /* pointer to the type 12 token */ 120 sort_file_ptr ptr, /* pointer to the type 12 token */ 121 sort_gen_ptr ptr, 122 line_temp fixed bin, 123 compare_hold_ic fixed bin, 124 hold_addr bit (18) based, 125 desc_off (3) fixed bin, 126 desc_ptr ptr, 127 object_name_len fixed bin, 128 name_ptr ptr, 129 object_name char (32), 130 first_call fixed bin static init (0), 131 sort_stack_off fixed bin static init (0), /* returned value of cobol_alloc$stack */ 132 temp fixed bin, 133 sort_gen_text_wd_off 134 fixed bin, 135 retry_tag fixed bin, 136 passed_tag fixed bin, 137 passed_tag1 fixed bin, 138 i fixed bin, /* work variable */ 139 linkoff fixed bin; /* word offset of entry point link */ 140 dcl bit18 bit (18) based; 141 142 143 /* 144*Procedures Called */ 145 146 dcl cobol_compare_gen$sort 147 entry (ptr, ptr), 148 cobol_def_util entry (fixed bin, char (32), fixed bin, ptr, fixed bin, ptr, ptr), 149 cobol_sort_util entry (ptr, ptr, char (32), fixed bin), 150 cobol_emit entry (ptr, ptr, fixed bin), 151 cobol_alloc$stack entry (fixed bin, fixed bin, fixed bin), 152 cobol_pointer_register$priority 153 ext entry (fixed bin, fixed bin, bit (3)), 154 cobol_pointer_register$get 155 ext entry (ptr), 156 cobol_call_op entry (fixed bin, fixed bin), 157 cobol_define_tag entry (fixed bin), 158 cobol_reg_manager$after_op 159 entry (fixed bin), 160 cobol_pool entry (char (*), fixed bin, fixed bin), 161 cobol_define_tag_nc entry (fixed bin, fixed bin), 162 cobol_make_tagref entry (fixed bin, fixed bin, ptr), 163 cobol_read_ft entry (fixed bin (15), ptr), 164 cobol_release_gen entry (ptr); 165 166 start: 167 eos_ptr = in_token.token_ptr (1); 168 sort_file_ptr = in_token.token_ptr (2); 169 170 desc_ptr = addr (desc_off (1)); 171 if first_call ^= cobol_$compile_count 172 then do; 173 first_call = cobol_$compile_count; 174 call cobol_alloc$stack (56, 2, sort_stack_off); 175 cobol_$init_stack_off = cobol_$stack_off; 176 end; 177 178 179 if end_stmt.type = 19 180 then if (end_stmt.verb = reswd_SORT & end_stmt.h = 91) 181 then call cobol_release_gen (null ()); 182 else if end_stmt.h = 90 183 then do; 184 call cobol_call_op (18, 0); 185 call cobol_call_op (17, 0); 186 end; 187 else ; 188 else do; 189 190 eos_ptr = in_token.token_ptr (in_token.n); 191 call initiate; 192 last_token = in_token.n - 1; 193 alpha_name_ptr = null (); 194 if end_stmt.d ^= "00"b 195 then do; 196 alpha_name_ptr = in_token.token_ptr (in_token.n - 1); 197 last_token = in_token.n - 2; 198 if alphabet_name.iw_key = 11 /* ascii */ 199 then do; 200 alpha_name_ptr = null (); 201 goto continue; 202 end; 203 if alphabet_name.iw_key = 0 204 then do; 205 mvt_ptr = addr (alphabet_name.table); 206 call cobol_pool (mvt_table, 2, to_offset); 207 alphabet_name.offset = to_offset * 4; 208 alphabet_name.segno = 3000; 209 end; 210 end; /* CODE for internal procedure building */ 211 continue: 212 dn_ptr = addr (alpha_type9); 213 214 passed_tag = cobol_$next_tag; 215 passed_tag1 = cobol_$next_tag + 1; 216 cobol_$next_tag = cobol_$next_tag + 2; 217 substr (instr_seq7 (3), 1, 18) = substr (cobol_$text_base_ptr -> bit18, 1, 18); 218 call cobol_emit (addr (instr_seq), null (), 1); 219 text_ptr = addrel (cobol_$text_base_ptr, cobol_$text_wd_off); 220 call cobol_sort_util (sort_file_ptr, desc_ptr, object_name, object_name_len); 221 call cobol_def_util (3, object_name, object_name_len, text_ptr, 0, desc_ptr, null ()); 222 entry_seq.flags.function = "1"b; 223 instr_seq7 (1) = entry_seq.descr_relp_offset; 224 instr_seq7 (3) = entry_seq.def_relp; 225 instr_seq7 (4) = string (entry_seq.flags); 226 call cobol_emit (addr (instr_seq7 (1)), addr (rel_seq7 (1)), 7); 227 sort_gen_text_wd_off = cobol_$text_wd_off - 5; 228 call cobol_make_tagref (passed_tag, cobol_$text_wd_off - 8, null ()); 229 230 call cobol_call_op (19, 0); 231 232 /* Lock the pointer register 1 2 and 7 */ 233 pr_struc.what_ptr = 7; 234 call cobol_pointer_register$get (addr (pr_struc)); 235 pr_struc.what_ptr = 1; 236 call cobol_pointer_register$get (addr (pr_struc)); 237 pr_struc.what_ptr = 2; 238 call cobol_pointer_register$get (addr (pr_struc)); 239 /* INSERT compare code */ 240 do i = 3 to (last_token); 241 pt1 = in_token.token_ptr (i); 242 pt2 = addr (alpha_type9); 243 alpha_type9 = pt1 -> alpha_type9_based; 244 pt3 = addr (type19); 245 type19.e = 102; /* EQUAL */ 246 pt2 -> data_name.seg_num = 5002; 247 pt1 -> data_name.seg_num = 5001; 248 if data_name.numeric = "0"b 249 then do; /* switch compare operands around */ 250 workpt2 = pt2; 251 pt2 = pt1; 252 pt1 = workpt2; 253 end; 254 type19.h = cobol_$next_tag; 255 cobol_$next_tag = cobol_$next_tag + 1; 256 call cobol_compare_gen$sort (addr (sort_in_token), alpha_name_ptr); 257 258 /*[5.3-1]*/ 259 ad_bit = data_name.ad_bit; 260 261 /*[5.3-1]*/ 262 if data_name.display /*[5.3-1]*/ 263 then if data_name.numeric /*[5.3-1]*/ 264 then call cmpn_test; /*[5.3-1]*/ 265 else call cmpc_test; /*[5.3-1]*/ 266 else if data_name.bin_18 | data_name.bin_36 267 /*[5.3-1]*/ 268 then call cmpq_test; /*[5.3-1]*/ 269 else call cmpn_test; 270 271 /*[5.3-1]*/ 272 substr (instr_seq11 (2), 7, 3) = op; 273 274 temp = fixed (op_con.zero_con, 18) - 2; 275 instr_seq11 (3) = substr (unspec (temp), 19, 18); 276 if i ^= last_token 277 then do; 278 call cobol_emit (addr (instr_seq11 (1)), null (), 5); 279 call cobol_make_tagref (passed_tag1, cobol_$text_wd_off - 1, null ()); 280 call cobol_define_tag_nc (type19.h, cobol_$text_wd_off); 281 end; 282 else call cobol_emit (addr (instr_seq11 (1)), null (), 4); 283 substr (instr_seq11 (2), 7, 3) = "010"b; 284 /* reset */ 285 end; 286 287 call cobol_pointer_register$priority (2, 0, "001"b); 288 call cobol_pointer_register$priority (2, 0, "010"b); 289 call cobol_pointer_register$priority (2, 0, "111"b); 290 291 call cobol_define_tag (type19.h); 292 call cobol_define_tag (passed_tag1); 293 call cobol_emit (addr (instr_seq8 (1)), null (), 1); 294 295 temp = cobol_$stack_off + 16; 296 substr (unspec (temp), 33, 4) = "0000"b; 297 sort_gen_ptr = addrel (cobol_$text_base_ptr, sort_gen_text_wd_off); 298 substr (sort_gen_ptr -> bit18, 1, 18) = substr (unspec (temp), 19, 18); 299 call cobol_define_tag (passed_tag); 300 end; 301 return; 302 303 /*[5.3-1]*/ 304 dcl 1 instr static, /*[5.3-1]*/ 305 2 tmi bit (3) init ("100"b), /*[5.3-1]*/ 306 2 tpl bit (3) init ("101"b), /*[5.3-1]*/ 307 2 tnc bit (3) init ("010"b), /*[5.3-1]*/ 308 2 trc bit (3) init ("011"b); 309 310 /*[5.3-1]*/ 311 dcl ad_bit bit (1) aligned, 312 op bit (3) aligned; 313 314 cmpn_test: 315 proc; 316 317 /*[5.3-1]*/ 318 if ad_bit 319 then op = tmi; 320 else op = tpl; 321 322 end; 323 324 cmpc_test: 325 proc; 326 327 /*[5.3-1]*/ 328 if ad_bit 329 then op = tnc; 330 else op = trc; 331 332 end; 333 334 cmpq_test: 335 proc; 336 337 /*[5.3-1]*/ 338 if ad_bit 339 then op = tpl; 340 else op = tmi; 341 342 end; 343 344 345 346 347 /* Interal procedure to generate codes to call sort_$initiate. 348* The call is through the operator sort_initiate. */ 349 initiate: 350 proc; 351 352 353 dcl inst_seq (4) bit (18) init ("000000000000000000"b, "011101011100000100"b, 354 /* epp3 compare,ic */ 355 "000000000000000000"b, "111010010000000111"b); 356 /* lxl2 sort_stack_off,dl */ 357 dcl rel_seq (4) bit (5) aligned init ("00000"b, "00000"b, "00000"b, "00000"b); 358 359 360 call cobol_call_op (16, 0); 361 retry_tag = cobol_$next_tag; 362 call cobol_define_tag_nc (retry_tag, cobol_$text_wd_off); 363 cobol_$next_tag = cobol_$next_tag + 1; 364 if cobol_$same_sort_merge_proc ^= "0"b 365 then temp = -sort_stack_off; 366 else temp = sort_stack_off; 367 inst_seq (3) = substr (unspec (temp), 19, 18); 368 call cobol_emit (addr (inst_seq), addr (rel_seq), 2); 369 370 compare_hold_ic = cobol_$text_wd_off - 2; 371 call cobol_call_op (14, retry_tag); 372 call cobol_reg_manager$after_op (14); 373 374 temp = cobol_$text_wd_off + 3 - compare_hold_ic; 375 addrel (cobol_$text_base_ptr, compare_hold_ic) -> hold_addr = substr (unspec (temp), 19, 18); 376 377 end initiate; 378 379 380 /***** Declaration for builtin function *****/ 381 382 dcl (substr, mod, binary, fixed, addr, addrel, rel, length, string, unspec, null, index) 383 builtin; 384 385 /***** End of declaration for builtin function *****/ 386 1 1 1 2 /* BEGIN INCLUDE FILE ... cobol_in_token.incl.pl1 */ 1 3 1 4 /* Last modified August 22, 1974 by AEG */ 1 5 1 6 1 7 declare in_token_ptr ptr; 1 8 1 9 declare 1 in_token aligned based(in_token_ptr), 1 10 2 n fixed bin aligned, 1 11 2 code fixed bin aligned, 1 12 2 token_ptr(0 refer(in_token.n)) ptr aligned; 1 13 1 14 1 15 /* END INCLUDE FILE ... cobol_in_token.incl.pl1 */ 1 16 387 2 1 2 2 /* BEGIN INCLUDE FILE ... cobol_op_con.incl.pl1 */ 2 3 /* Created on June 3, 76 by bc */ 2 4 2 5 /* 2 6* This include file is used by cobol_pool to find the constants which are 2 7* resided on the cobol_operators_. 2 8* Any change in this file must be cooperated with the change in 2 9* cobol_op_con.incl.alm. The cobol_operators_ should be recompiled. 2 10**/ 2 11 2 12 dcl 1 op_con static options(constant), 2 13 2 null_ptr bit(18) init( 2 14 "000000100000000010"b), /* null()---4002 */ 2 15 2 mask bit(18) init( 2 16 "000000100000000100"b), /* 077777000077, 777777077077---4004*/ 2 17 2 zero_con bit(18) init( 2 18 "000000100001010001"b), /* 0---4121 */ 2 19 2 space_con bit(18) init( 2 20 "000000100000000110"b), /* spaces---4006 */ 2 21 2 ascii_ebcdic bit(18) init( 2 22 "000000100100000000"b), /* ascii to ebcdic table---4400 */ 2 23 2 ebcdic_ascii bit(18) init( 2 24 "000000100110000000"b), /* ebcdic to ascii table---4600 */ 2 25 2 ascii_gbcd bit(18) init( 2 26 "000000101000000000"b), /* ascii to gbcd table---5000 */ 2 27 2 gbcd_ascii bit(18) init( 2 28 "000000101010000000"b), /* gbcd to ascii table ---5200 */ 2 29 2 ascii_hbcd bit(18) init( 2 30 "000000101000000000"b), /* ascii to hbcd table---5000 */ 2 31 2 hbcd_ascii bit(18) init( 2 32 "000000101010000000"b), /* hbcd to ascii table ---5200 */ 2 33 2 ascii_ibcd bit(18) init( 2 34 "000000101000000000"b), /* ascii to ibcd table---5000 */ 2 35 2 ibcd_ascii bit(18) init( 2 36 "000000101010000000"b), /* ibcd to ascii table ---5200 */ 2 37 2 ascii_jis bit(18) init( 2 38 "000000101000000000"b), /* ascii to jis table---5000 */ 2 39 2 jis_ascii bit(18) init( 2 40 "000000101010000000"b); /* jis to ascii table ---5200 */ 2 41 /****** Please insert the next constant before this line. */ 2 42 2 43 2 44 /* END INCLUDE FILE ... cobol_op_con.incl.pl1 */ 2 45 388 389 3 1 3 2 /* BEGIN INCLUDE FILE ... cobol_entry_seq.incl.pl1 */ 3 3 /* Created May 22, 1976 by BC. */ 3 4 3 5 declare parm_desc_ptr ptr; 3 6 3 7 declare 1 parm_desc aligned based(parm_desc_ptr), 3 8 2 n_args fixed bin unaligned, 3 9 2 descriptor_relp (0 refer(parm_desc.n_args)) bit(18) unaligned; 3 10 3 11 3 12 dcl text_ptr ptr; 3 13 3 14 dcl 1 entry_seq aligned based(text_ptr), 3 15 2 descr_relp_offset bit(18) unaligned, 3 16 2 reserved bit(18) unaligned, 3 17 2 def_relp bit(18) unaligned, /* set to offset of definition section */ 3 18 2 flags unaligned, 3 19 3 basic_indicator bit(1) unaligned, 3 20 3 revision_1 bit(1) unaligned, 3 21 3 has_descriptors bit(1) unaligned, 3 22 3 variable bit(1) unaligned, 3 23 3 function bit(1) unaligned, 3 24 3 pad bit(13) unaligned, 3 25 2 eax7 bit(36) aligned, /* addr field set to max stack size mod 16 */ 3 26 2 epp2 bit(36) aligned, /* preset */ 3 27 2 tsp2 bit(36) aligned, /* preset */ 3 28 2 zero_fill bit(18) unaligned, /* preset */ 3 29 2 trace_cntrl_relp bit(18) unaligned, /* set to 6 + length of internal static (32) */ 3 30 2 link_relp bit(18) unaligned, 3 31 2 block_relp bit(18) unaligned; 3 32 3 33 3 34 /* END INCLUDE FILE ... cobol_entry_seq.incl.pl1 */ 3 35 390 4 1 4 2 /* BEGIN INCLUDE FILE ... cobol_fixed_static.incl.pl1 */ 4 3 /* Last Modified May 5, 1977 by BC */ 4 4 4 5 /* This structure exists in the static data portion of the 4 6*linkage section of each cobol object segment. This 4 7*include file provides a "based" template for it. */ 4 8 4 9 /* This include file also contains internal static initialized 4 10*variables that define the offset of each field in this static 4 11*data portion of the linkage section from the 4 12*pointer upon which it is based. */ 4 13 4 14 4 15 /* WARNING: The fields in this structure,data_ptr 4 16*up to, but not including reserved, 4 17*must retain their positions in this structure forever. 4 18*No new fields not having space already allocated may be 4 19*defined as the position of the first link which follows 4 20*this fixed static area (to cobol_rts_) is in a fixed location 4 21*known to cobol_operators_. */ 4 22 dcl stat_ptr ptr; 4 23 dcl 1 stat based(stat_ptr) aligned, 4 24 2 data_ptr ptr aligned, 4 25 2 control_ptr ptr aligned, 4 26 2 file_info_ptr ptr aligned, 4 27 2 call_cnt fixed bin aligned, 4 28 2 data_len fixed bin aligned, 4 29 2 entry_pt_ptr ptr aligned, 4 30 2 prog_id_len fixed bin aligned, 4 31 2 prog_id char(65) aligned, 4 32 2 line_no (2) fixed bin aligned, 4 33 2 fo_flag fixed bin aligned, 4 34 2 fo_disp fixed bin aligned, 4 35 2 main_prog_sw fixed bin aligned, 4 36 2 sort_merge_sw fixed bin aligned, 4 37 2 ind_mask bit(36), /* overflow masking indicator bits. */ 4 38 2 pr3_save ptr, 4 39 2 pr5_save ptr, 4 40 2 user_output_ptr ptr, 4 41 2 error_output_ptr ptr, 4 42 2 user_input_ptr ptr, 4 43 2 error_con char(30) varying, 4 44 2 trace_control_word fixed bin aligned; 4 45 4 46 4 47 /* INTERNAL STATIC INITIALIZED VARIABLES THAT DEFINE THE 4 48*OFFSET OF EACH FIELD IN THE STATIC PORTION OF THE LINKAGE 4 49*SEGMENT. */ 4 50 4 51 dcl fixed_static_length fixed bin static options(constant) init(56); 4 52 dcl first_link_offset fixed bin static options(constant) init(64); 4 53 /*dcl stat_data_ptr_off fixed bin static options(constant) init(0); 4 54*/*dcl stat_control_ptr_off fixed bin static options(constant) init(2); 4 55*/*dcl stat_file_info_ptr_off fixed bin static options(constant) init(4); 4 56*/*dcl stat_call_cnt_off fixed bin static options(constant) init(6); 4 57*/*dcl stat_data_len_off fixed bin static options(constant) init(7); 4 58*/*dcl stat_entry_pt_ptr_off fixed bin static options(constant) init(8); 4 59*/*dcl stat_prog_id_len_off fixed bin static options(constant) init(10); 4 60*/*dcl stat_prog_id_off fixed bin static options(constant) init(11); 4 61*/*dcl stat_line_no_off fixed bin static options(constant) init(28); 4 62*/*dcl stat_fo_flag_off fixed bin static options(constant) init(30); 4 63*/*dcl stat_fo_disp_off fixed bin static options(constant) init(31); 4 64*/*dcl stat_main_prog_sw_off fixed bin static options(constant) init(32); 4 65*/*dcl stat_pr3_ptr_off fixed bin static options(constant) init(34); 4 66*/*dcl stat_pr5_ptr_off fixed bin static options(constant) init(36); 4 67*/*dcl stat_user_output_ptr_off fixed bin static options(constant) init(38); 4 68*/*dcl stat_error_output_ptr_off fixed bin static options(constant) init(40); 4 69*/*dcl stat_user_input_ptr_off fixed bin static options(constant) init(42); 4 70*/*dcl stat_error_con_off fixed bin static options(constant) init(44); 4 71*/*dcl stat_trace_control_word_off fixed bin static options(constant) init(53); 4 72*/**/ 4 73 4 74 /* END INCLUDE FILE ... cobol_fixed_static.incl.pl1 */ 4 75 391 5 1 5 2 /* BEGIN INCLUDE FILE ... cobol_.incl.pl1 */ 5 3 /* last modified Feb 4, 1977 by ORN */ 5 4 5 5 /* This file defines all external data used in the generator phase of Multics Cobol */ 5 6 5 7 /* POINTERS */ 5 8 dcl cobol_$text_base_ptr ptr ext; 5 9 dcl text_base_ptr ptr defined (cobol_$text_base_ptr); 5 10 dcl cobol_$con_end_ptr ptr ext; 5 11 dcl con_end_ptr ptr defined (cobol_$con_end_ptr); 5 12 dcl cobol_$def_base_ptr ptr ext; 5 13 dcl def_base_ptr ptr defined (cobol_$def_base_ptr); 5 14 dcl cobol_$link_base_ptr ptr ext; 5 15 dcl link_base_ptr ptr defined (cobol_$link_base_ptr); 5 16 dcl cobol_$sym_base_ptr ptr ext; 5 17 dcl sym_base_ptr ptr defined (cobol_$sym_base_ptr); 5 18 dcl cobol_$reloc_text_base_ptr ptr ext; 5 19 dcl reloc_text_base_ptr ptr defined (cobol_$reloc_text_base_ptr); 5 20 dcl cobol_$reloc_def_base_ptr ptr ext; 5 21 dcl reloc_def_base_ptr ptr defined (cobol_$reloc_def_base_ptr); 5 22 dcl cobol_$reloc_link_base_ptr ptr ext; 5 23 dcl reloc_link_base_ptr ptr defined (cobol_$reloc_link_base_ptr); 5 24 dcl cobol_$reloc_sym_base_ptr ptr ext; 5 25 dcl reloc_sym_base_ptr ptr defined (cobol_$reloc_sym_base_ptr); 5 26 dcl cobol_$reloc_work_base_ptr ptr ext; 5 27 dcl reloc_work_base_ptr ptr defined (cobol_$reloc_work_base_ptr); 5 28 dcl cobol_$pd_map_ptr ptr ext; 5 29 dcl pd_map_ptr ptr defined (cobol_$pd_map_ptr); 5 30 dcl cobol_$fixup_ptr ptr ext; 5 31 dcl fixup_ptr ptr defined (cobol_$fixup_ptr); 5 32 dcl cobol_$initval_base_ptr ptr ext; 5 33 dcl initval_base_ptr ptr defined (cobol_$initval_base_ptr); 5 34 dcl cobol_$initval_file_ptr ptr ext; 5 35 dcl initval_file_ptr ptr defined (cobol_$initval_file_ptr); 5 36 dcl cobol_$perform_list_ptr ptr ext; 5 37 dcl perform_list_ptr ptr defined (cobol_$perform_list_ptr); 5 38 dcl cobol_$alter_list_ptr ptr ext; 5 39 dcl alter_list_ptr ptr defined (cobol_$alter_list_ptr); 5 40 dcl cobol_$seg_init_list_ptr ptr ext; 5 41 dcl seg_init_list_ptr ptr defined (cobol_$seg_init_list_ptr); 5 42 dcl cobol_$temp_token_area_ptr ptr ext; 5 43 dcl temp_token_area_ptr ptr defined (cobol_$temp_token_area_ptr); 5 44 dcl cobol_$temp_token_ptr ptr ext; 5 45 dcl temp_token_ptr ptr defined (cobol_$temp_token_ptr); 5 46 dcl cobol_$token_block1_ptr ptr ext; 5 47 dcl token_block1_ptr ptr defined (cobol_$token_block1_ptr); 5 48 dcl cobol_$token_block2_ptr ptr ext; 5 49 dcl token_block2_ptr ptr defined (cobol_$token_block2_ptr); 5 50 dcl cobol_$minpral5_ptr ptr ext; 5 51 dcl minpral5_ptr ptr defined (cobol_$minpral5_ptr); 5 52 dcl cobol_$tag_table_ptr ptr ext; 5 53 dcl tag_table_ptr ptr defined (cobol_$tag_table_ptr); 5 54 dcl cobol_$map_data_ptr ptr ext; 5 55 dcl map_data_ptr ptr defined (cobol_$map_data_ptr); 5 56 dcl cobol_$ptr_status_ptr ptr ext; 5 57 dcl ptr_status_ptr ptr defined (cobol_$ptr_status_ptr); 5 58 dcl cobol_$reg_status_ptr ptr ext; 5 59 dcl reg_status_ptr ptr defined (cobol_$reg_status_ptr); 5 60 dcl cobol_$misc_base_ptr ptr ext; 5 61 dcl misc_base_ptr ptr defined (cobol_$misc_base_ptr); 5 62 dcl cobol_$misc_end_ptr ptr ext; 5 63 dcl misc_end_ptr ptr defined (cobol_$misc_end_ptr); 5 64 dcl cobol_$list_ptr ptr ext; 5 65 dcl list_ptr ptr defined (cobol_$list_ptr); 5 66 dcl cobol_$allo1_ptr ptr ext; 5 67 dcl allo1_ptr ptr defined (cobol_$allo1_ptr); 5 68 dcl cobol_$eln_ptr ptr ext; 5 69 dcl eln_ptr ptr defined (cobol_$eln_ptr); 5 70 dcl cobol_$diag_ptr ptr ext; 5 71 dcl diag_ptr ptr defined (cobol_$diag_ptr); 5 72 dcl cobol_$xref_token_ptr ptr ext; 5 73 dcl xref_token_ptr ptr defined (cobol_$xref_token_ptr); 5 74 dcl cobol_$xref_chain_ptr ptr ext; 5 75 dcl xref_chain_ptr ptr defined (cobol_$xref_chain_ptr); 5 76 dcl cobol_$statement_info_ptr ptr ext; 5 77 dcl statement_info_ptr ptr defined (cobol_$statement_info_ptr); 5 78 dcl cobol_$reswd_ptr ptr ext; 5 79 dcl reswd_ptr ptr defined (cobol_$reswd_ptr); 5 80 dcl cobol_$op_con_ptr ptr ext; 5 81 dcl op_con_ptr ptr defined (cobol_$op_con_ptr); 5 82 dcl cobol_$ntbuf_ptr ptr ext; 5 83 dcl ntbuf_ptr ptr defined (cobol_$ntbuf_ptr); 5 84 dcl cobol_$main_pcs_ptr ptr ext; 5 85 dcl main_pcs_ptr ptr defined (cobol_$main_pcs_ptr); 5 86 dcl cobol_$include_info_ptr ptr ext; 5 87 dcl include_info_ptr ptr defined (cobol_$include_info_ptr); 5 88 5 89 /* FIXED BIN */ 5 90 dcl cobol_$text_wd_off fixed bin ext; 5 91 dcl text_wd_off fixed bin defined (cobol_$text_wd_off); 5 92 dcl cobol_$con_wd_off fixed bin ext; 5 93 dcl con_wd_off fixed bin defined (cobol_$con_wd_off); 5 94 dcl cobol_$def_wd_off fixed bin ext; 5 95 dcl def_wd_off fixed bin defined (cobol_$def_wd_off); 5 96 dcl cobol_$def_max fixed bin ext; 5 97 dcl def_max fixed bin defined (cobol_$def_max); 5 98 dcl cobol_$link_wd_off fixed bin ext; 5 99 dcl link_wd_off fixed bin defined (cobol_$link_wd_off); 5 100 dcl cobol_$link_max fixed bin ext; 5 101 dcl link_max fixed bin defined (cobol_$link_max); 5 102 dcl cobol_$sym_wd_off fixed bin ext; 5 103 dcl sym_wd_off fixed bin defined (cobol_$sym_wd_off); 5 104 dcl cobol_$sym_max fixed bin ext; 5 105 dcl sym_max fixed bin defined (cobol_$sym_max); 5 106 dcl cobol_$reloc_text_max fixed bin(24) ext; 5 107 dcl reloc_text_max fixed bin(24) defined (cobol_$reloc_text_max); 5 108 dcl cobol_$reloc_def_max fixed bin(24) ext; 5 109 dcl reloc_def_max fixed bin(24) defined (cobol_$reloc_def_max); 5 110 dcl cobol_$reloc_link_max fixed bin(24) ext; 5 111 dcl reloc_link_max fixed bin(24) defined (cobol_$reloc_link_max); 5 112 dcl cobol_$reloc_sym_max fixed bin(24) ext; 5 113 dcl reloc_sym_max fixed bin(24) defined (cobol_$reloc_sym_max); 5 114 dcl cobol_$reloc_work_max fixed bin(24) ext; 5 115 dcl reloc_work_max fixed bin(24) defined (cobol_$reloc_work_max); 5 116 dcl cobol_$pd_map_index fixed bin ext; 5 117 dcl pd_map_index fixed bin defined (cobol_$pd_map_index); 5 118 dcl cobol_$cobol_data_wd_off fixed bin ext; 5 119 dcl cobol_data_wd_off fixed bin defined (cobol_$cobol_data_wd_off); 5 120 dcl cobol_$stack_off fixed bin ext; 5 121 dcl stack_off fixed bin defined (cobol_$stack_off); 5 122 dcl cobol_$max_stack_off fixed bin ext; 5 123 dcl max_stack_off fixed bin defined (cobol_$max_stack_off); 5 124 dcl cobol_$init_stack_off fixed bin ext; 5 125 dcl init_stack_off fixed bin defined (cobol_$init_stack_off); 5 126 dcl cobol_$pd_map_sw fixed bin ext; 5 127 dcl pd_map_sw fixed bin defined (cobol_$pd_map_sw); 5 128 dcl cobol_$next_tag fixed bin ext; 5 129 dcl next_tag fixed bin defined (cobol_$next_tag); 5 130 dcl cobol_$data_init_flag fixed bin ext; 5 131 dcl data_init_flag fixed bin defined (cobol_$data_init_flag); 5 132 dcl cobol_$seg_init_flag fixed bin ext; 5 133 dcl seg_init_flag fixed bin defined (cobol_$seg_init_flag); 5 134 dcl cobol_$alter_flag fixed bin ext; 5 135 dcl alter_flag fixed bin defined (cobol_$alter_flag); 5 136 dcl cobol_$sect_eop_flag fixed bin ext; 5 137 dcl sect_eop_flag fixed bin defined (cobol_$sect_eop_flag); 5 138 dcl cobol_$para_eop_flag fixed bin ext; 5 139 dcl para_eop_flag fixed bin defined (cobol_$para_eop_flag); 5 140 dcl cobol_$priority_no fixed bin ext; 5 141 dcl priority_no fixed bin defined (cobol_$priority_no); 5 142 dcl cobol_$compile_count fixed bin ext; 5 143 dcl compile_count fixed bin defined (cobol_$compile_count); 5 144 dcl cobol_$ptr_assumption_ind fixed bin ext; 5 145 dcl ptr_assumption_ind fixed bin defined (cobol_$ptr_assumption_ind); 5 146 dcl cobol_$reg_assumption_ind fixed bin ext; 5 147 dcl reg_assumption_ind fixed bin defined (cobol_$reg_assumption_ind); 5 148 dcl cobol_$perform_para_index fixed bin ext; 5 149 dcl perform_para_index fixed bin defined (cobol_$perform_para_index); 5 150 dcl cobol_$perform_sect_index fixed bin ext; 5 151 dcl perform_sect_index fixed bin defined (cobol_$perform_sect_index); 5 152 dcl cobol_$alter_index fixed bin ext; 5 153 dcl alter_index fixed bin defined (cobol_$alter_index); 5 154 dcl cobol_$list_off fixed bin ext; 5 155 dcl list_off fixed bin defined (cobol_$list_off); 5 156 dcl cobol_$constant_offset fixed bin ext; 5 157 dcl constant_offset fixed bin defined (cobol_$constant_offset); 5 158 dcl cobol_$misc_max fixed bin ext; 5 159 dcl misc_max fixed bin defined (cobol_$misc_max); 5 160 dcl cobol_$pd_map_max fixed bin ext; 5 161 dcl pd_map_max fixed bin defined (cobol_$pd_map_max); 5 162 dcl cobol_$map_data_max fixed bin ext; 5 163 dcl map_data_max fixed bin defined (cobol_$map_data_max); 5 164 dcl cobol_$fixup_max fixed bin ext; 5 165 dcl fixup_max fixed bin defined (cobol_$fixup_max); 5 166 dcl cobol_$tag_table_max fixed bin ext; 5 167 dcl tag_table_max fixed bin defined (cobol_$tag_table_max); 5 168 dcl cobol_$temp_token_max fixed bin ext; 5 169 dcl temp_token_max fixed bin defined (cobol_$temp_token_max); 5 170 dcl cobol_$allo1_max fixed bin ext; 5 171 dcl allo1_max fixed bin defined (cobol_$allo1_max); 5 172 dcl cobol_$eln_max fixed bin ext; 5 173 dcl eln_max fixed bin defined (cobol_$eln_max); 5 174 dcl cobol_$debug_enable fixed bin ext; 5 175 dcl debug_enable fixed bin defined (cobol_$debug_enable); 5 176 dcl cobol_$non_source_offset fixed bin ext; 5 177 dcl non_source_offset fixed bin defined (cobol_$non_source_offset); 5 178 dcl cobol_$initval_flag fixed bin ext; 5 179 dcl initval_flag fixed bin defined (cobol_$initval_flag); 5 180 dcl cobol_$date_compiled_sw fixed bin ext; 5 181 dcl date_compiled_sw fixed bin defined (cobol_$date_compiled_sw); 5 182 dcl cobol_$include_cnt fixed bin ext; 5 183 dcl include_cnt fixed bin defined (cobol_$include_cnt); 5 184 dcl cobol_$fs_charcnt fixed bin ext; 5 185 dcl fs_charcnt fixed bin defined (cobol_$fs_charcnt); 5 186 dcl cobol_$ws_charcnt fixed bin ext; 5 187 dcl ws_charcnt fixed bin defined (cobol_$ws_charcnt); 5 188 dcl cobol_$coms_charcnt fixed bin ext; 5 189 dcl coms_charcnt fixed bin defined (cobol_$coms_charcnt); 5 190 dcl cobol_$ls_charcnt fixed bin ext; 5 191 dcl ls_charcnt fixed bin defined (cobol_$ls_charcnt); 5 192 dcl cobol_$cons_charcnt fixed bin ext; 5 193 dcl cons_charcnt fixed bin defined (cobol_$cons_charcnt); 5 194 dcl cobol_$value_cnt fixed bin ext; 5 195 dcl value_cnt fixed bin defined (cobol_$value_cnt); 5 196 dcl cobol_$cd_cnt fixed bin ext; 5 197 dcl cd_cnt fixed bin defined (cobol_$cd_cnt); 5 198 dcl cobol_$fs_wdoff fixed bin ext; 5 199 dcl fs_wdoff fixed bin defined (cobol_$fs_wdoff); 5 200 dcl cobol_$ws_wdoff fixed bin ext; 5 201 dcl ws_wdoff fixed bin defined (cobol_$ws_wdoff); 5 202 dcl cobol_$coms_wdoff fixed bin ext; 5 203 dcl coms_wdoff fixed bin defined (cobol_$coms_wdoff); 5 204 5 205 /* CHARACTER */ 5 206 dcl cobol_$scratch_dir char (168) aligned ext; 5 207 dcl scratch_dir char (168) aligned defined (cobol_$scratch_dir); /* -42- */ 5 208 dcl cobol_$obj_seg_name char (32) aligned ext; 5 209 dcl obj_seg_name char (32) aligned defined (cobol_$obj_seg_name); /* -8- */ 5 210 5 211 /* BIT */ 5 212 dcl cobol_$xref_bypass bit(1) aligned ext; 5 213 dcl xref_bypass bit(1) aligned defined (cobol_$xref_bypass); /* -1- */ 5 214 dcl cobol_$same_sort_merge_proc bit(1) aligned ext; 5 215 dcl same_sort_merge_proc bit(1) aligned defined (cobol_$same_sort_merge_proc); /* -1- */ 5 216 5 217 5 218 /* END INCLUDE FILE ... cobol_incl.pl1*/ 5 219 5 220 392 6 1 6 2 /* BEGIN INCLUDE FILE ... cobol_file_table.incl.pl1 */ 6 3 /* <<< INCLUDE FILE FOR FILE TABLE IN COMMON >>> */ 6 4 6 5 /* Modified on 09/30/80 by FCH, [4.4-1], density is 6250 is supported */ 6 6 /* Modified on 12/05/78 by RAL, [3.0-3], added dupl_alt from dummy102 */ 6 7 /* Modified on 11/21/78 by RAL, [3.0-2], added space for abs_record_offset from filler */ 6 8 /* Modified on 10/26/78 by RAL, [3.0-1], added space for file_desc_1 table offset from filler */ 6 9 /* <<< LAST MODIFIED ON 06-02-77 by GM >>> */ 6 10 /* <<< LAST MODIFIED ON 05-31-77 by GM >>> */ 6 11 /* <<< LAST MODIFIED ON 06-30-76 by GM >>> */ 6 12 /* <<< LAST MODIFIED ON 06-07-76 by GM >>> */ 6 13 /* <<< LAST MODIFIED ON 11-29-74 by orn >>> */ 6 14 6 15 /* 6 16*A file table is created in variable common for each file selected in the 6 17*environment division. The fields of a given file table provide information 6 18*about the specific file for which the file table is generated. The 6 19*addresses which may be contained in the various "info" fields of the file 6 20*table are addresses in variable common. 6 21**/ 6 22 6 23 /* THE FILE TABLE STRUCTURE */ 6 24 6 25 dcl 1 file_table based (ft_ptr), 6 26 2 next char (5), 6 27 2 ifn char (16), 6 28 2 attach_options_info char(5), /*06/02/77*/ 6 29 2 replacement_info char(5), /*06/02/77*/ 6 30 2 file_id_info char(5), /*05/31/77*/ 6 31 2 retention_info char(5), /*05/31/77*/ 6 32 2 filler0 char (3) , /* [3.0-1] */ 6 33 2 file_desc_1_offset fixed bin (24), /* [3.0-1] */ 6 34 2 abs_record_offset fixed bin (24), /* [3.-02] */ 6 35 2 filler char(5), /* this area is available.*/ 6 36 2 padding_char char (1), 6 37 2 banner_char char (1), 6 38 2 file_status_info char (5), 6 39 2 extra_status_info char (5), 6 40 2 cat_id_info char (5), 6 41 2 r_key_info char (5), 6 42 2 alt_key_info char (5), 6 43 2 rec_do_info char (5), 6 44 2 label_info char (5), 6 45 2 data_info char (5), 6 46 2 report_info char (5), 6 47 2 linage_info char (5), 6 48 2 optional bit (1), /*06/07/76*/ 6 49 2 external bit (1), 6 50 2 file_status bit (1), 6 51 2 extra_status bit (1), 6 52 2 sysin bit (1), 6 53 2 sysout bit (1), 6 54 2 move_mode bit (1), 6 55 2 locate_mode bit (1), 6 56 2 fixed_recs bit (1), 6 57 2 variable_recs bit (1), 6 58 2 spanned_recs bit (1), /*06/07/76*/ 6 59 2 interchange bit (1), /*06/07/76*/ 6 60 2 relative_key bit (1), 6 61 2 record_key bit (1), 6 62 2 even_parity bit (1), 6 63 2 odd_parity bit (1), 6 64 2 padding bit (1), 6 65 2 banner bit (1), 6 66 2 random bit (1), 6 67 2 no_file_lockout bit (1), 6 68 2 no_write_check bit (1), 6 69 2 no_resident_index bit (1), 6 70 2 same_file bit (1), 6 71 2 sort_file bit (1), 6 72 2 rec_do bit (1), 6 73 2 linage bit (1), 6 74 2 code_set_clause bit (1), 6 75 /* history */ 6 76 2 close bit (1), 6 77 2 delete bit (1), 6 78 2 open_in bit (1), 6 79 2 open_out bit (1), 6 80 2 open_io bit (1), 6 81 2 open_ext bit (1), 6 82 2 read bit (1), 6 83 2 release bit (1), 6 84 2 return_bit bit (1), 6 85 2 rewrite bit (1), 6 86 2 sort bit (1), 6 87 2 start bit (1), 6 88 2 use_error bit (1), 6 89 2 write bit (1), 6 90 2 read_next bit (1), 6 91 2 read_key bit (1), 6 92 2 accept bit (1), 6 93 2 display bit (1), 6 94 2 unequal_recs bit (1), 6 95 2 dummy_sysin bit (1), 6 96 2 dummy_sysout bit (1), 6 97 2 file_no fixed bin, 6 98 2 uca_offset fixed bin(24), 6 99 2 cra_seg fixed bin, 6 100 2 cra_offset fixed bin(24), 6 101 2 max_cra_size fixed bin(24), 6 102 2 catalogued fixed bin, 6 103 2 organization fixed bin, 6 104 2 org_qual fixed bin, 6 105 2 access fixed bin, 6 106 2 buffers fixed bin, 6 107 2 device fixed bin, 6 108 2 record_prefix fixed bin, /*06/07/76*/ 6 109 2 alternate_keys fixed bin, 6 110 2 record_format fixed bin, 6 111 2 label_format fixed bin, 6 112 2 key_location fixed bin, 6 113 2 key_size fixed bin, 6 114 2 temporary fixed bin, 6 115 2 address_format fixed bin, 6 116 2 same_area_clause fixed bin, 6 117 2 same_rec_clause fixed bin, 6 118 2 same_sort_clause fixed bin, 6 119 2 mult_clause_no fixed bin, 6 120 2 mult_position_no fixed bin, 6 121 2 block_desc fixed bin, 6 122 2 block_min fixed bin(24), 6 123 2 block_max fixed bin(24), 6 124 2 rec_min fixed bin(24), 6 125 2 rec_max fixed bin(24), 6 126 2 label_count fixed bin, 6 127 2 ifn_size fixed bin, 6 128 2 data_count fixed bin, 6 129 2 report_count fixed bin, 6 130 2 code_set fixed bin, 6 131 2 error_exit fixed bin, 6 132 2 prefix_size fixed bin, 6 133 2 blocked bit (1), 6 134 2 variable bit (1), 6 135 2 unbannered bit (1), 6 136 2 prefix_clause bit (1), 6 137 2 symbolic bit (1), 6 138 2 address_format_bit bit (1), 6 139 2 bsn bit(1), /*06/07/76*/ 6 140 2 process_area bit(1), /*06/07/76*/ 6 141 2 dupl_alt bit (1), /* [3.0-3] */ 6 142 2 dummy102 bit (23), 6 143 2 name_size fixed bin, 6 144 2 name char(32), 6 145 2 id char(32), 6 146 2 temp bit(1) , 6 147 2 perm bit(1) , 6 148 2 attach bit(1) , 6 149 2 detach bit(1) , 6 150 2 fsb , /* file state block */ 6 151 3 seg fixed bin(24), /* internal addr */ 6 152 3 off fixed bin(24), 6 153 2 tape, 6 154 3 density bit(1) , /* 0-hi 1-lo */ 6 155 3 retain bit(1), /* 0 not retained across attachment, 1 retained */ 6 156 3 force bit(1), /* 0 check retention date, 1 no check */ 6 157 3 protect bit(1) , /* 0-no 1-yes */ 6 158 3 den_6250 bit(1), /* 0-no 1-yes */ /*[4.4-1]*/ 6 159 2 cat_nm char(200), 6 160 2 ao_len fixed bin(24), /* attach options */ 6 161 2 ao_string char(256), 6 162 2 output_mode fixed bin, /* 0 not specified 6 163* 1 generation 6 164* 2 modification 6 165* 3 replacement literal 6 166* 4 replacement dataname */ 6 167 2 om_len fixed bin, /* length of output mode */ 6 168 2 om_string char(17), 6 169 2 tape_device fixed bin, /* 0 not specified 6 170* 1 integer 6 171* 2 dataname */ 6 172 2 tape_device_num fixed bin, 6 173 2 tape_device_key char(5), 6 174 2 add_cat_key char(5); 6 175 6 176 6 177 /* END INCLUDE FILE ... cobol_file_table.incl.pl1 */ 6 178 393 7 1 7 2 /* BEGIN INCLUDE FILE ... cobol_type1.incl.pl1 */ 7 3 /* Last modified on 11/19/76 by ORN */ 7 4 7 5 /* 7 6*A reserved word token is created in the minpral files for each occurrence 7 7*of a reserved word in the source program. The value of the key field 7 8*indicates the specific reserved word which a type 1 token represents. 7 9**/ 7 10 7 11 dcl rw_ptr ptr; 7 12 7 13 /* BEGIN DECLARATION OF TYPE1 (RESERVED WORD) TOKEN */ 7 14 dcl 1 reserved_word based (rw_ptr), 8 1 8 2 /* begin include file ... cobol_TYPE1.incl.pl1 */ 8 3 /* Last modified on 11/17/76 by ORN */ 8 4 /* Last modified on 12/28/76 by FCH */ 8 5 /* Last modified on 12/16/80 by FCH */ 8 6 8 7 /* header */ 8 8 2 size fixed bin, 8 9 2 line fixed bin, 8 10 2 column fixed bin, 8 11 2 type fixed bin, 8 12 /* body */ 8 13 2 key fixed bin, 8 14 /* procedure division class bits */ 8 15 2 verb bit (1), 8 16 2 arith_op bit (1), 8 17 2 figcon bit (1), 8 18 2 terminator bit (1), 8 19 2 end_dec bit (1), 8 20 2 rel_op bit (1), 8 21 2 imper_verb bit (1), 8 22 2 end_cobol bit (1), 8 23 /* data division class bits */ 8 24 2 section_header bit (1), 8 25 2 fs_ind bit (1), 8 26 2 fd_clause bit (1), 8 27 2 dd_clause bit (1), 8 28 2 cd_input bit (1), 8 29 2 cd_output bit (1), 8 30 2 cset_name bit (1), 8 31 2 ss_division bit (1), 8 32 2 repl_jump_ind bit (4), 8 33 2 ided_recovery bit (1), 8 34 2 report_writer bit (5), 8 35 2 ss_desc_entry bit (1), 8 36 2 jump_index fixed bin, 8 37 2 length fixed bin, 8 38 2 name char(0 refer(reserved_word.length)); 8 39 8 40 8 41 8 42 /* end include file ... cobol_TYPE1.incl.pl1 */ 8 43 7 15 7 16 /* END DECLARATION OF TYPE1 (RESERVED WORD) TOKEN */ 7 17 7 18 /* END INCLUDE FILE ... cobol_type1.incl.pl1 */ 7 19 394 9 1 9 2 /* BEGIN INCLUDE FILE ... cobol_type9.incl.pl1 */ 9 3 /* Last modified on 11/19/76 by ORN */ 9 4 9 5 /* 9 6*A type 9 data name token is entered into the name table by the data 9 7*division syntax phase for each data name described in the data division. 9 8*The replacement phase subsequently replaces type 8 user word references 9 9*to data names in the procedure division minpral file with the corresponding 9 10*type 9 tokens from the name table. 9 11**/ 9 12 9 13 /* dcl dn_ptr ptr; */ 9 14 9 15 /* BEGIN DECLARATION OF TYPE9 (DATA NAME) TOKEN */ 9 16 dcl 1 data_name based (dn_ptr), 10 1 10 2 /* begin include file ... cobol_TYPE9.incl.pl1 */ 10 3 /* Last modified on 06/19/77 by ORN */ 10 4 /* Last modified on 12/28/76 by FCH */ 10 5 10 6 /* header */ 10 7 2 size fixed bin, 10 8 2 line fixed bin, 10 9 2 column fixed bin, 10 10 2 type fixed bin, 10 11 /* body */ 10 12 2 string_ptr ptr, 10 13 2 prev_rec ptr, 10 14 2 searched bit (1), 10 15 2 duplicate bit (1), 10 16 2 saved bit (1), 10 17 2 debug_ind bit (1), 10 18 2 filler2 bit (3), 10 19 2 used_as_sub bit (1), 10 20 2 def_line fixed bin, 10 21 2 level fixed bin, 10 22 2 linkage fixed bin, 10 23 2 file_num fixed bin, 10 24 2 size_rtn fixed bin, 10 25 2 item_length fixed bin(24), 10 26 2 places_left fixed bin, 10 27 2 places_right fixed bin, 10 28 /* description */ 10 29 2 file_section bit (1), 10 30 2 working_storage bit (1), 10 31 2 constant_section bit (1), 10 32 2 linkage_section bit (1), 10 33 2 communication_section bit (1), 10 34 2 report_section bit (1), 10 35 2 level_77 bit (1), 10 36 2 level_01 bit (1), 10 37 2 non_elementary bit (1), 10 38 2 elementary bit (1), 10 39 2 filler_item bit (1), 10 40 2 s_of_rdf bit (1), 10 41 2 o_of_rdf bit (1), 10 42 2 bin_18 bit (1), 10 43 2 bin_36 bit (1), 10 44 2 pic_has_l bit (1), 10 45 2 pic_is_do bit (1), 10 46 2 numeric bit (1), 10 47 2 numeric_edited bit (1), 10 48 2 alphanum bit (1), 10 49 2 alphanum_edited bit (1), 10 50 2 alphabetic bit (1), 10 51 2 alphabetic_edited bit (1), 10 52 2 pic_has_p bit (1), 10 53 2 pic_has_ast bit (1), 10 54 2 item_signed bit(1), 10 55 2 sign_separate bit (1), 10 56 2 display bit (1), 10 57 2 comp bit (1), 10 58 2 ascii_packed_dec_h bit (1), /* as of 8/16/76 this field used for comp8. */ 10 59 2 ascii_packed_dec bit (1), 10 60 2 ebcdic_packed_dec bit (1), 10 61 2 bin_16 bit (1), 10 62 2 bin_32 bit (1), 10 63 2 usage_index bit (1), 10 64 2 just_right bit (1), 10 65 2 compare_argument bit (1), 10 66 2 sync bit (1), 10 67 2 temporary bit (1), 10 68 2 bwz bit (1), 10 69 2 variable_length bit (1), 10 70 2 subscripted bit (1), 10 71 2 occurs_do bit (1), 10 72 2 key_a bit (1), 10 73 2 key_d bit (1), 10 74 2 indexed_by bit (1), 10 75 2 value_numeric bit (1), 10 76 2 value_non_numeric bit (1), 10 77 2 value_signed bit (1), 10 78 2 sign_type bit (3), 10 79 2 pic_integer bit (1), 10 80 2 ast_when_zero bit (1), 10 81 2 label_record bit (1), 10 82 2 sign_clause_occurred bit (1), 10 83 2 okey_dn bit (1), 10 84 2 subject_of_keyis bit (1), 10 85 2 exp_redefining bit (1), 10 86 2 sync_in_rec bit (1), 10 87 2 rounded bit (1), 10 88 2 ad_bit bit (1), 10 89 2 debug_all bit (1), 10 90 2 overlap bit (1), 10 91 2 sum_counter bit (1), 10 92 2 exp_occurs bit (1), 10 93 2 linage_counter bit (1), 10 94 2 rnm_01 bit (1), 10 95 2 aligned bit (1), 10 96 2 not_user_writable bit (1), 10 97 2 database_key bit (1), 10 98 2 database_data_item bit (1), 10 99 2 seg_num fixed bin, 10 100 2 offset fixed bin(24), 10 101 2 initial_ptr fixed bin, 10 102 2 edit_ptr fixed bin, 10 103 2 occurs_ptr fixed bin, 10 104 2 do_rec char(5), 10 105 2 bitt bit (1), 10 106 2 byte bit (1), 10 107 2 half_word bit (1), 10 108 2 word bit (1), 10 109 2 double_word bit (1), 10 110 2 half_byte bit (1), 10 111 2 filler5 bit (1), 10 112 2 bit_offset bit (4), 10 113 2 son_cnt bit (16), 10 114 2 max_red_size fixed bin(24), 10 115 2 name_size fixed bin, 10 116 2 name char(0 refer(data_name.name_size)); 10 117 10 118 10 119 10 120 /* end include file ... cobol_TYPE9.incl.pl1 */ 10 121 9 17 9 18 /* END DECLARATION OF TYPE9 (DATA NAME) TOKEN */ 9 19 9 20 /* END INCLUDE FILE ... cobol_type9.incl.pl1 */ 9 21 395 11 1 11 2 /* BEGIN INCLUDE FILE ... cobol_type12.incl.pl1 */ 11 3 /* Last modified on 11/19/76 by ORN */ 11 4 11 5 /* 11 6*A type 12 file name token is entered into the name table by the data 11 7*division syntax phase for each file name appearing in the data division. 11 8*When the replacement phase processes the procedure division minpral file, 11 9*each reference to a file name is replaced with the type 12 token created 11 10*for that file name. 11 11**/ 11 12 11 13 /* dcl name_ptr ptr; */ 11 14 11 15 /* BEGIN DECLARATION OF TYPE12 (FILE NAME) TOKEN */ 11 16 dcl 1 fd_token based (name_ptr), 12 1 12 2 /* begin include file ... cobol_TYPE12.incl.pl1 */ 12 3 /* Last modified on 11/17/76 by ORN */ 12 4 12 5 /* header */ 12 6 2 size fixed bin, 12 7 2 line fixed bin, 12 8 2 column fixed bin, 12 9 2 type fixed bin, 12 10 /* body */ 12 11 2 string_ptr ptr, 12 12 2 prev_rec ptr, 12 13 2 info bit (8), 12 14 2 def_line fixed bin, 12 15 2 file_no fixed bin, 12 16 2 name_size fixed bin, 12 17 2 name char(0 refer(fd_token.name_size)); 12 18 12 19 /* end include file ... cobol_TYPE12.incl.pl1 */ 12 20 11 17 11 18 /* END DECLARATION OF TYPE12 (FILE NAME) TOKEN */ 11 19 11 20 11 21 /* END INCLUDE FILE ... cobol_type12.incl.pl1 */ 11 22 396 13 1 13 2 /* BEGIN INCLUDE FILE ... cobol_type19.incl.pl1 */ 13 3 /* last modified on 11/19/76 by ORN */ 13 4 13 5 /* 13 6*A type 19 end of statement token is created in the procedure division 13 7*minpral file at the end of each minpral statement generated by the 13 8*procedure division syntax phase. A minpral statement may be a complete or 13 9*partial source language statement. A type 19 token contains information 13 10*describing the statement which it delimits. 13 11**/ 13 12 13 13 dcl eos_ptr ptr; 13 14 13 15 /* BEGIN DECLARATION OF TYPE19 (END STATEMENT) TOKEN */ 13 16 dcl 1 end_stmt based (eos_ptr), 14 1 14 2 /* begin include file ... cobol_TYPE19.incl.pl1 */ 14 3 /* Last modified on 11/17/76 by ORN */ 14 4 14 5 /* header */ 14 6 2 size fixed bin, 14 7 2 line fixed bin, 14 8 2 column fixed bin, 14 9 2 type fixed bin, 14 10 /* body */ 14 11 2 verb fixed bin, 14 12 2 e fixed bin, 14 13 2 h fixed bin, 14 14 2 i fixed bin, 14 15 2 j fixed bin, 14 16 2 a bit (3), 14 17 2 b bit (1), 14 18 2 c bit (1), 14 19 2 d bit (2), 14 20 2 f bit (2), 14 21 2 g bit (2), 14 22 2 k bit (5), 14 23 2 always_an bit (1); 14 24 14 25 /* end include file ... cobol_TYPE19.incl.pl1 */ 14 26 13 17 13 18 /* END DECLARATION OF TYPE19 (END STATEMENT) TOKEN */ 13 19 13 20 /* 13 21*FIELD CONTENTS 13 22* 13 23*size The total size in bytes of this end of statement token. 13 24*line 0 13 25*column 0 13 26*type 19 13 27*verb A value indicating the verb in this statement 13 28* 1 = accept 13 29* 2 = add 13 30* 3 = on size error 13 31* 4 = alter 13 32* 5 = call 13 33* 7 = cancel 13 34* 8 = close 13 35* 9 = divide 13 36* 10 = multiply 13 37* 11 = subtract 13 38* 12 = exit 13 39* 14 = go 13 40* 15 = merge 13 41* 16 = initiate 13 42* 17 = inspect 13 43* 18 = move 13 44* 19 = open 13 45* 20 = perform 13 46* 21 = read 13 47* 23 = receive 13 48* 24 = release 13 49* 25 = return 13 50* 26 = search 13 51* 27 = rewrite 13 52* 29 = seek 13 53* 30 = send 13 54* 31 = set 13 55* 33 = stop 13 56* 34 = string 13 57* 35 = suspend 13 58* 36 = terminate 13 59* 37 = unstring 13 60* 38 = write 13 61* 39 = use 13 62* 40 = compute 13 63* 41 = disable 13 64* 42 = display 13 65* 43 = enable 13 66* 45 = generate 13 67* 46 = hold 13 68* 48 = process 13 69* 49 = sort 13 70* 52 = procedure 13 71* 53 = declaratives 13 72* 54 = section name 13 73* 55 = paragraph name 13 74* 98 = end 13 75*e,h,i,j The significance of these fields differs with each 13 76* statement. These fields are normally used as counters. 13 77*a,b,c,d,f,g,k The significance of these fields differs with each 13 78* statement. These fields are normally used as indicators. 13 79**/ 13 80 13 81 /* END INCLUDE FILE ... cobol_type19.incl.pl1 */ 13 82 397 15 1 15 2 /* BEGIN INCLUDE FILE ... cobol_type40.incl.pl1 */ 15 3 /* Last modified on 11/19/76 by ORN */ 15 4 15 5 /* 15 6*A type 40 token is entered into the name table by the IDED syntax. 15 7*This token contains the information for the alphabet name. 15 8**/ 15 9 15 10 dcl alpha_name_ptr ptr; 15 11 15 12 /* BEGIN DECLARATION OF TYPE40 (ALPHABET NAME) TOKEN */ 15 13 dcl 1 alphabet_name based (alpha_name_ptr), 16 1 16 2 /* begin include file ... cobol_TYPE40.incl.pl1 */ 16 3 /* Last modified on 11/17/76 by ORN */ 16 4 16 5 /* header */ 16 6 2 size fixed bin, 16 7 2 line fixed bin, 16 8 2 column fixed bin, 16 9 2 type fixed bin, 16 10 /* body */ 16 11 2 string_ptr ptr, 16 12 2 prev_rec ptr, 16 13 2 info, 16 14 3 repl bit(8), 16 15 3 one_one bit(1), 16 16 3 onto bit(1), 16 17 2 hival_char char(1), 16 18 2 loval_char char(1), 16 19 2 iw_key fixed bin, 16 20 2 def_line fixed bin, 16 21 2 char_size fixed bin, 16 22 2 hi_value char(1), 16 23 2 segno fixed bin, 16 24 2 offset fixed bin, 16 25 2 dn_offset fixed bin, 16 26 2 table char(512), 16 27 2 name_size fixed bin, 16 28 2 name char(0 refer(alphabet_name.name_size)); 16 29 16 30 /* end include file ... cobol_TYPE40.incl.pl1 */ 16 31 15 14 15 15 /* END DECLARATION OF TYPE40 (ALPHABET NAME) TOKEN */ 15 16 15 17 /* END INCLUDE FILE ... cobol_type40.incl.pl1 */ 15 18 398 17 1 17 2 /* BEGIN INCLUDE FILE ... cobol_reswd_values.incl.pl1 */ 17 3 /* CREATED ON 06/15/76 BY ORN */ 17 4 17 5 /* This include file contains the value associated with each reserved word 17 6* used by the Multics COBOL compiler. These are declared as constants 17 7* and are not allocated unless referenced. Eash name is in the form: 17 8* 17 9* reswd_ 17 10* or 17 11* reschar_ 17 12* 17 13* where is the upper case transliteration of the 17 14* reserved word with any hyphens replaced by underscores and 17 15* is the upper case name of the one 17 16* character reserved words (e.g. EQ, GT, MINUS, LPARENS, etc.) */ 17 17 17 18 17 19 dcl reswd_ACCEPT fixed bin static options(constant) init(001); 17 20 dcl reswd_ADD fixed bin static options(constant) init(002); 17 21 dcl reswd_ERROR fixed bin static options(constant) init(003); 17 22 dcl reswd_ALTER fixed bin static options(constant) init(004); 17 23 dcl reswd_CALL fixed bin static options(constant) init(005); 17 24 dcl reswd_OVERFLOW fixed bin static options(constant) init(006); 17 25 dcl reswd_CANCEL fixed bin static options(constant) init(007); 17 26 dcl reswd_CLOSE fixed bin static options(constant) init(008); 17 27 dcl reswd_DIVIDE fixed bin static options(constant) init(009); 17 28 dcl reswd_MULTIPLY fixed bin static options(constant) init(010); 17 29 dcl reswd_SUBTRACT fixed bin static options(constant) init(011); 17 30 dcl reswd_EXIT fixed bin static options(constant) init(012); 17 31 dcl reswd_INITIALIZE fixed bin static options(constant) init(013); 17 32 dcl reswd_GO fixed bin static options(constant) init(014); 17 33 dcl reswd_MERGE fixed bin static options(constant) init(015); 17 34 dcl reswd_INITIATE fixed bin static options(constant) init(016); 17 35 dcl reswd_INSPECT fixed bin static options(constant) init(017); 17 36 dcl reswd_MOVE fixed bin static options(constant) init(018); 17 37 dcl reswd_OPEN fixed bin static options(constant) init(019); 17 38 dcl reswd_PERFORM fixed bin static options(constant) init(020); 17 39 dcl reswd_READ fixed bin static options(constant) init(021); 17 40 dcl reswd_DELETE fixed bin static options(constant) init(022); 17 41 dcl reswd_RECEIVE fixed bin static options(constant) init(023); 17 42 dcl reswd_RELEASE fixed bin static options(constant) init(024); 17 43 dcl reswd_RETURN fixed bin static options(constant) init(025); 17 44 dcl reswd_SEARCH fixed bin static options(constant) init(026); 17 45 dcl reswd_REWRITE fixed bin static options(constant) init(027); 17 46 /* 028 029 */ 17 47 dcl reswd_SEND fixed bin static options(constant) init(030); 17 48 dcl reswd_SET fixed bin static options(constant) init(031); 17 49 /* 032 */ 17 50 dcl reswd_STOP fixed bin static options(constant) init(033); 17 51 dcl reswd_STRING fixed bin static options(constant) init(034); 17 52 dcl reswd_SUSPEND fixed bin static options(constant) init(035); 17 53 dcl reswd_TERMINATE fixed bin static options(constant) init(036); 17 54 dcl reswd_UNSTRING fixed bin static options(constant) init(037); 17 55 dcl reswd_WRITE fixed bin static options(constant) init(038); 17 56 dcl reswd_USE fixed bin static options(constant) init(039); 17 57 dcl reswd_COMPUTE fixed bin static options(constant) init(040); 17 58 dcl reswd_DISABLE fixed bin static options(constant) init(041); 17 59 dcl reswd_DISPLAY fixed bin static options(constant) init(042); 17 60 dcl reswd_ENABLE fixed bin static options(constant) init(043); 17 61 dcl reswd_ENTER fixed bin static options(constant) init(044); 17 62 dcl reswd_GENERATE fixed bin static options(constant) init(045); 17 63 dcl reswd_HOLD fixed bin static options(constant) init(046); 17 64 dcl reswd_IF fixed bin static options(constant) init(047); 17 65 dcl reswd_PROCESS fixed bin static options(constant) init(048); 17 66 dcl reswd_SORT fixed bin static options(constant) init(049); 17 67 dcl reswd_EXAMINE fixed bin static options(constant) init(050); 17 68 dcl reswd_TRANSFORM fixed bin static options(constant) init(051); 17 69 /* 052 053 054 055 */ 17 70 dcl reswd_START fixed bin static options(constant) init(056); 17 71 dcl reswd_SUPPRESS fixed bin static options(constant) init(057); 17 72 dcl reswd_PURGE fixed bin static options(constant) init(058); 17 73 /* 059 060 061 062 063 064 065 066 067 068 069 070 */ 17 74 dcl reswd_ADVANCING fixed bin static options(constant) init(071); 17 75 dcl reswd_AFTER fixed bin static options(constant) init(072); 17 76 dcl reswd_ALL fixed bin static options(constant) init(073); 17 77 dcl reswd_ALPHABETIC fixed bin static options(constant) init(074); 17 78 dcl reswd_ALPHANUMERIC fixed bin static options(constant) init(075); 17 79 dcl reswd_ALPHANUMERIC_EDITED fixed bin static options(constant) init(076); 17 80 dcl reswd_AND fixed bin static options(constant) init(077); 17 81 dcl reswd_ASCENDING fixed bin static options(constant) init(078); 17 82 dcl reswd_AT fixed bin static options(constant) init(079); 17 83 dcl reswd_BEFORE fixed bin static options(constant) init(080); 17 84 dcl reswd_BEGINNING fixed bin static options(constant) init(081); 17 85 dcl reswd_BY fixed bin static options(constant) init(082); 17 86 dcl (reswd_CHARACTER, 17 87 reswd_CHARACTERS) fixed bin static options(constant) init(083); 17 88 dcl reswd_COUNT fixed bin static options(constant) init(084); 17 89 dcl reswd_SSF fixed bin static options(constant) init(085); 17 90 dcl reswd_DATE fixed bin static options(constant) init(086); 17 91 dcl reswd_DAY fixed bin static options(constant) init(087); 17 92 dcl reswd_DEBUGGING fixed bin static options(constant) init(088); 17 93 dcl reswd_DECLARATIVES fixed bin static options(constant) init(089); 17 94 dcl reswd_DELIMITED fixed bin static options(constant) init(090); 17 95 dcl reswd_DELIMITER fixed bin static options(constant) init(091); 17 96 dcl reswd_DEPENDING fixed bin static options(constant) init(092); 17 97 dcl reswd_DESCENDING fixed bin static options(constant) init(093); 17 98 dcl reswd_DIVISION fixed bin static options(constant) init(094); 17 99 dcl reswd_DOWN fixed bin static options(constant) init(095); 17 100 dcl (reswd_ALSO, 17 101 reswd_ELSE) fixed bin static options(constant) init(096); 17 102 dcl reswd_EMI fixed bin static options(constant) init(097); 17 103 dcl reswd_END fixed bin static options(constant) init(098); 17 104 dcl reswd_ENDING fixed bin static options(constant) init(099); 17 105 dcl (reswd_END_OF_PAGE, 17 106 reswd_EOP) fixed bin static options(constant) init(100); 17 107 dcl reswd_IN fixed bin static options(constant) init(101); 17 108 dcl (reschar_EQ, 17 109 reswd_EQUAL, 17 110 reswd_EQUALS) fixed bin static options(constant) init(102); 17 111 /* 103 104 */ 17 112 dcl reswd_ESI fixed bin static options(constant) init(105); 17 113 dcl (reswd_COMP, 17 114 reswd_COMPUTATIONAL) fixed bin static options(constant) init(106); 17 115 dcl reswd_EXCEPTION fixed bin static options(constant) init(107); 17 116 dcl reswd_FILE fixed bin static options(constant) init(108); 17 117 dcl reswd_FIRST fixed bin static options(constant) init(109); 17 118 dcl reswd_FOR fixed bin static options(constant) init(110); 17 119 dcl reswd_FROM fixed bin static options(constant) init(111); 17 120 dcl reswd_GIVING fixed bin static options(constant) init(112); 17 121 dcl (reschar_GT, 17 122 reswd_EXCEEDS, 17 123 reswd_GREATER) fixed bin static options(constant) init(113); 17 124 dcl reswd_INITIAL fixed bin static options(constant) init(114); 17 125 dcl reswd_INPUT fixed bin static options(constant) init(115); 17 126 dcl reswd_INTO fixed bin static options(constant) init(116); 17 127 dcl reswd_INVALID fixed bin static options(constant) init(117); 17 128 dcl (reswd_ARE, 17 129 reswd_IS) fixed bin static options(constant) init(118); 17 130 dcl (reswd_I_O, 17 131 reswd_INPUT_OUTPUT) fixed bin static options(constant) init(119); 17 132 dcl reswd_KEY fixed bin static options(constant) init(120); 17 133 dcl reswd_LABEL fixed bin static options(constant) init(121); 17 134 dcl reswd_LEADING fixed bin static options(constant) init(122); 17 135 dcl (reschar_LT, 17 136 reswd_LESS) fixed bin static options(constant) init(123); 17 137 dcl (reswd_LINE, 17 138 reswd_LINES) fixed bin static options(constant) init(124); 17 139 dcl reswd_LOCK fixed bin static options(constant) init(125); 17 140 dcl reswd_MESSAGE fixed bin static options(constant) init(126); 17 141 dcl reswd_NEGATIVE fixed bin static options(constant) init(127); 17 142 dcl reswd_NEXT fixed bin static options(constant) init(128); 17 143 dcl reswd_NO fixed bin static options(constant) init(129); 17 144 dcl reswd_NOT fixed bin static options(constant) init(130); 17 145 dcl reswd_NUMERIC fixed bin static options(constant) init(131); 17 146 dcl reswd_NUMERIC_EDITED fixed bin static options(constant) init(132); 17 147 dcl reswd_OF fixed bin static options(constant) init(133); 17 148 dcl reswd_ON fixed bin static options(constant) init(134); 17 149 dcl reswd_OR fixed bin static options(constant) init(135); 17 150 /* 136 */ 17 151 dcl reswd_OUTPUT fixed bin static options(constant) init(137); 17 152 dcl reswd_BOOLEAN fixed bin static options(constant) init(138); 17 153 dcl reswd_PAGE fixed bin static options(constant) init(139); 17 154 dcl reswd_POINTER fixed bin static options(constant) init(140); 17 155 dcl reswd_POSITIVE fixed bin static options(constant) init(141); 17 156 dcl reswd_PROCEDURE fixed bin static options(constant) init(142); 17 157 dcl reswd_PROCEDURES fixed bin static options(constant) init(143); 17 158 dcl reswd_PROCEED fixed bin static options(constant) init(144); 17 159 dcl reswd_PROCESSING fixed bin static options(constant) init(145); 17 160 dcl reswd_PROGRAM fixed bin static options(constant) init(146); 17 161 dcl reswd_RANDOM fixed bin static options(constant) init(147); 17 162 dcl reswd_RECORD fixed bin static options(constant) init(148); 17 163 dcl reswd_REEL fixed bin static options(constant) init(149); 17 164 dcl reswd_REFERENCES fixed bin static options(constant) init(150); 17 165 dcl reswd_REMAINDER fixed bin static options(constant) init(151); 17 166 dcl reswd_REPLACING fixed bin static options(constant) init(152); 17 167 dcl reswd_REPORTING fixed bin static options(constant) init(153); 17 168 dcl reswd_REVERSED fixed bin static options(constant) init(154); 17 169 dcl reswd_REWIND fixed bin static options(constant) init(155); 17 170 dcl reswd_ROUNDED fixed bin static options(constant) init(156); 17 171 dcl reswd_RUN fixed bin static options(constant) init(157); 17 172 dcl reswd_SECTION fixed bin static options(constant) init(158); 17 173 dcl reswd_SEGMENT fixed bin static options(constant) init(159); 17 174 dcl reswd_SENTENCE fixed bin static options(constant) init(160); 17 175 dcl reswd_SIZE fixed bin static options(constant) init(161); 17 176 dcl reswd_STANDARD fixed bin static options(constant) init(162); 17 177 dcl reswd_TALLYING fixed bin static options(constant) init(163); 17 178 dcl reswd_TERMINAL fixed bin static options(constant) init(164); 17 179 dcl reswd_THAN fixed bin static options(constant) init(165); 17 180 dcl (reswd_THROUGH, 17 181 reswd_THRU) fixed bin static options(constant) init(166); 17 182 dcl reswd_RELATIVE fixed bin static options(constant) init(167); 17 183 dcl (reswd_TIME, 17 184 reswd_TIMES) fixed bin static options(constant) init(168); 17 185 dcl reswd_DYNAMIC fixed bin static options(constant) init(169); 17 186 dcl reswd_TO fixed bin static options(constant) init(170); 17 187 dcl reswd_UNEQUAL fixed bin static options(constant) init(171); 17 188 dcl reswd_UNIT fixed bin static options(constant) init(172); 17 189 dcl reswd_UNTIL fixed bin static options(constant) init(173); 17 190 dcl reswd_UP fixed bin static options(constant) init(174); 17 191 dcl reswd_UPON fixed bin static options(constant) init(175); 17 192 dcl reswd_USING fixed bin static options(constant) init(176); 17 193 dcl reswd_VARYING fixed bin static options(constant) init(177); 17 194 dcl reswd_WHEN fixed bin static options(constant) init(178); 17 195 dcl reswd_WITH fixed bin static options(constant) init(179); 17 196 dcl (reswd_ZERO, 17 197 reswd_ZEROES, 17 198 reswd_ZEROS) fixed bin static options(constant) init(180); 17 199 dcl reswd_ORGANIZATION fixed bin static options(constant) init(181); 17 200 dcl reschar_PLUS fixed bin static options(constant) init(182); 17 201 dcl reschar_MINUS fixed bin static options(constant) init(183); 17 202 dcl reschar_STAR fixed bin static options(constant) init(184); 17 203 dcl reschar_SLASH fixed bin static options(constant) init(185); 17 204 dcl reschar_2STARs fixed bin static options(constant) init(186); 17 205 dcl reschar_LPARENS fixed bin static options(constant) init(187); 17 206 dcl reschar_RPARENS fixed bin static options(constant) init(188); 17 207 dcl reschar_PERIOD fixed bin static options(constant) init(189); 17 208 dcl reswd_TOP fixed bin static options(constant) init(190); 17 209 dcl reswd_COBOL fixed bin static options(constant) init(191); 17 210 dcl (reswd_SPACE, 17 211 reswd_SPACES) fixed bin static options(constant) init(192); 17 212 dcl reswd_TALLY fixed bin static options(constant) init(193); 17 213 dcl (reswd_BIT, 17 214 reswd_BITS) fixed bin static options(constant) init(194); 17 215 dcl reswd_RECORDS fixed bin static options(constant) init(195); 17 216 dcl reswd_DATA fixed bin static options(constant) init(196); 17 217 /* 197 198 199 */ 17 218 dcl reswd_VLR fixed bin static options(constant) init(201); 17 219 dcl (reswd_AREA, 17 220 reswd_AREAS) fixed bin static options(constant) init(202); 17 221 dcl reswd_OMITTED fixed bin static options(constant) init(203); 17 222 dcl reswd_BLANK fixed bin static options(constant) init(204); 17 223 dcl reswd_BLOCK fixed bin static options(constant) init(205); 17 224 dcl reswd_CD fixed bin static options(constant) init(206); 17 225 dcl reswd_COMMUNICATION fixed bin static options(constant) init(207); 17 226 dcl reswd_STANDARD_2 fixed bin static options(constant) init(208); 17 227 dcl (reswd_COMP_4, 17 228 reswd_COMPUTATIONAL_4) fixed bin static options(constant) init(209); 17 229 dcl (reswd_COMP_5, 17 230 reswd_COMPUTATIONAL_5) fixed bin static options(constant) init(210); 17 231 dcl (reswd_COMP_3, 17 232 reswd_COMPUTATIONAL_3) fixed bin static options(constant) init(211); 17 233 dcl (reswd_COMP_1, 17 234 reswd_COMPUTATIONAL_1) fixed bin static options(constant) init(212); 17 235 dcl (reswd_COMP_2, 17 236 reswd_COMPUTATIONAL_2) fixed bin static options(constant) init(213); 17 237 dcl reswd_CONSTANT fixed bin static options(constant) init(214); 17 238 dcl reswd_CONTAINS fixed bin static options(constant) init(215); 17 239 dcl reswd_EXTEND fixed bin static options(constant) init(216); 17 240 /* 217 */ 17 241 dcl reswd_DESTINATION fixed bin static options(constant) init(218); 17 242 dcl reswd_FD fixed bin static options(constant) init(219); 17 243 dcl reswd_FILLER fixed bin static options(constant) init(220); 17 244 dcl (reswd_HIGH_VALUE, 17 245 reswd_HIGH_VALUES) fixed bin static options(constant) init(221); 17 246 dcl reswd_INDEX fixed bin static options(constant) init(222); 17 247 dcl reswd_INDEXED fixed bin static options(constant) init(223); 17 248 dcl (reswd_JUST, 17 249 reswd_JUSTIFIED) fixed bin static options(constant) init(224); 17 250 dcl reswd_LEFT fixed bin static options(constant) init(225); 17 251 dcl reswd_LENGTH fixed bin static options(constant) init(226); 17 252 dcl reswd_DUPLICATES fixed bin static options(constant) init(227); 17 253 dcl reswd_LINKAGE fixed bin static options(constant) init(228); 17 254 dcl (reswd_LOW_VALUE, 17 255 reswd_LOW_VALUES) fixed bin static options(constant) init(229); 17 256 dcl reswd_MODE fixed bin static options(constant) init(230); 17 257 dcl reswd_OCCURS fixed bin static options(constant) init(231); 17 258 dcl (reswd_PIC, 17 259 reswd_PICTURE) fixed bin static options(constant) init(232); 17 260 dcl reswd_EGI fixed bin static options(constant) init(233); 17 261 dcl reswd_QUEUE fixed bin static options(constant) init(234); 17 262 dcl (reswd_QUOTE, 17 263 reswd_QUOTES) fixed bin static options(constant) init(235); 17 264 dcl reswd_BOTTOM fixed bin static options(constant) init(236); 17 265 dcl reswd_RECORDING fixed bin static options(constant) init(237); 17 266 dcl reswd_REDEFINES fixed bin static options(constant) init(238); 17 267 dcl reswd_RENAMES fixed bin static options(constant) init(239); 17 268 dcl (reswd_REPORT, 17 269 reswd_REPORTS) fixed bin static options(constant) init(240); 17 270 dcl reswd_RIGHT fixed bin static options(constant) init(241); 17 271 dcl reswd_SA fixed bin static options(constant) init(242); 17 272 dcl reswd_SD fixed bin static options(constant) init(243); 17 273 dcl reswd_SEPARATE fixed bin static options(constant) init(244); 17 274 dcl reswd_SIGN fixed bin static options(constant) init(245); 17 275 dcl reswd_SOURCE fixed bin static options(constant) init(246); 17 276 dcl reswd_STATUS fixed bin static options(constant) init(247); 17 277 dcl reswd_SUB_QUEUE_1 fixed bin static options(constant) init(248); 17 278 dcl reswd_SUB_QUEUE_2 fixed bin static options(constant) init(249); 17 279 dcl reswd_SUB_QUEUE_3 fixed bin static options(constant) init(250); 17 280 dcl reswd_SYMBOLIC fixed bin static options(constant) init(251); 17 281 dcl (reswd_SYNC, 17 282 reswd_SYNCHRONIZED) fixed bin static options(constant) init(252); 17 283 dcl reswd_TABLE fixed bin static options(constant) init(253); 17 284 /* 254 */ 17 285 dcl reswd_TRAILING fixed bin static options(constant) init(255); 17 286 dcl reschar_2EQs fixed bin static options(constant) init(256); 17 287 dcl reswd_USAGE fixed bin static options(constant) init(257); 17 288 dcl (reswd_VALUE, 17 289 reswd_VALUES) fixed bin static options(constant) init(258); 17 290 dcl reswd_WORKING_STORAGE fixed bin static options(constant) init(259); 17 291 dcl reswd_REMOVAL fixed bin static options(constant) init(260); 17 292 /* 261 */ 17 293 /* (262 263 264 265) */ 17 294 /* 266 */ 17 295 /* (267 268 269 270 271) */ 17 296 dcl reswd_FLR fixed bin static options(constant) init(272); 17 297 /* 273 274 275 276 277 */ 17 298 /* (278) */ 17 299 dcl reswd_FILES fixed bin static options(constant) init(279); 17 300 /* 280 281 282 283 284 285 */ 17 301 /* (286) */ 17 302 /* 287 */ 17 303 dcl reswd_NATIVE fixed bin static options(constant) init(288); 17 304 /* 289 */ 17 305 dcl (reswd_COMP_7, 17 306 reswd_COMPUTATIONAL_7) fixed bin static options(constant) init(290); 17 307 dcl reswd_OBJECT fixed bin static options(constant) init(291); 17 308 dcl (reswd_COMP_6, 17 309 reswd_COMPUTATIONAL_6) fixed bin static options(constant) init(292); 17 310 /* (293) */ 17 311 /* 294 */ 17 312 dcl reswd_DEFAULT fixed bin static options(constant) init(295); 17 313 /* 296 207 298 299 300 301 302 303 304 305 */ 17 314 dcl reswd_CODE_SET fixed bin static options(constant) init(306); 17 315 dcl reswd_EXTERNAL fixed bin static options(constant) init(307); 17 316 /* 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 */ 17 317 dcl reswd_DAY_OF_WEEK fixed bin static options(constant) init(326); 17 318 dcl reswd_INTERCHANGE fixed bin static options(constant) init(327); 17 319 /* 328 */ 17 320 dcl reswd_PROCESS_AREA fixed bin static options(constant) init(329); 17 321 /* 330 */ 17 322 dcl (reswd_CATALOG_NAME, 17 323 reswd_CATALOGUE_NAME) fixed bin static options(constant) init(331); 17 324 /* 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 */ 17 325 /* 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 */ 17 326 /* 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 */ 17 327 /* 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 */ 17 328 dcl reswd_STREAM fixed bin static options(constant) init(407); 17 329 /* 408 409 410 411 412 413 */ 17 330 dcl reswd_BSN fixed bin static options(constant) init(413); 17 331 /* 414 415 */ 17 332 dcl reswd_KEYED fixed bin static options(constant) init(416); 17 333 /* 417 418 419 420 421 422 */ 17 334 dcl reswd_IDS_II fixed bin static options(constant) init(423); 17 335 /* 424 */ 17 336 dcl reswd_REPLACE fixed bin static options(constant) init(425); 17 337 /* 426 427 428 429 430 431 432 433 434 */ 17 338 dcl reswd_SUBSTITUTION fixed bin static options(constant) init(435); 17 339 /* 436 437 438 439 440 441 442 443 444 445 446 447 448 449 */ 17 340 /* 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 */ 17 341 /* 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 */ 17 342 /* 490 491 492 493 494 495 496 497 498 499 500 */ 17 343 dcl reswd_ACCESS fixed bin static options(constant) init(501); 17 344 /* 502 */ 17 345 dcl reswd_ADDRESS fixed bin static options(constant) init(503); 17 346 dcl reswd_ALPHABET fixed bin static options(constant) init(504); 17 347 dcl reswd_STANDARD_1 fixed bin static options(constant) init(505); 17 348 /* 506 */ 17 349 dcl reswd_ALTERNATE fixed bin static options(constant) init(507); 17 350 dcl reswd_APPLY fixed bin static options(constant) init(508); 17 351 dcl reswd_ASSIGN fixed bin static options(constant) init(509); 17 352 dcl reswd_AUTHOR fixed bin static options(constant) init(510); 17 353 dcl reswd_CF fixed bin static options(constant) init(511); 17 354 dcl reswd_CH fixed bin static options(constant) init(512); 17 355 dcl reswd_CLOCK_UNITS fixed bin static options(constant) init(513); 17 356 dcl reswd_CODE fixed bin static options(constant) init(514); 17 357 dcl reswd_COLLATING fixed bin static options(constant) init(515); 17 358 dcl reswd_COLUMN fixed bin static options(constant) init(516); 17 359 dcl reswd_COMMA fixed bin static options(constant) init(517); 17 360 dcl reswd_CONFIGURATION fixed bin static options(constant) init(518); 17 361 dcl reswd_CONVERSION fixed bin static options(constant) init(519); 17 362 dcl reswd_CONTROL fixed bin static options(constant) init(520); 17 363 dcl reswd_CONTROLS fixed bin static options(constant) init(521); 17 364 dcl reswd_COPY fixed bin static options(constant) init(522); 17 365 dcl (reswd_CORR, 17 366 reswd_CORRESPONDING) fixed bin static options(constant) init(524); 17 367 dcl reswd_CURRENCY fixed bin static options(constant) init(525); 17 368 /* 526 */ 17 369 dcl reswd_DATE_COMPILED fixed bin static options(constant) init(527); 17 370 dcl reswd_DATE_WRITTEN fixed bin static options(constant) init(528); 17 371 dcl reswd_DE fixed bin static options(constant) init(529); 17 372 dcl reswd_DEBUG_CONTENTS fixed bin static options(constant) init(530); 17 373 dcl reswd_DEBUG_ITEM fixed bin static options(constant) init(531); 17 374 dcl reswd_DEBUG_LINE fixed bin static options(constant) init(532); 17 375 dcl reswd_DEBUG_SUB_1 fixed bin static options(constant) init(533); 17 376 dcl reswd_DEBUG_SUB_2 fixed bin static options(constant) init(534); 17 377 dcl reswd_DEBUG_SUB_3 fixed bin static options(constant) init(535); 17 378 /* 536 */ 17 379 dcl reswd_DEBUG_NAME fixed bin static options(constant) init(537); 17 380 dcl reswd_DECIMAL_POINT fixed bin static options(constant) init(538); 17 381 dcl reswd_DETAIL fixed bin static options(constant) init(539); 17 382 dcl reswd_ENVIRONMENT fixed bin static options(constant) init(540); 17 383 /* 541 */ 17 384 dcl reswd_EVERY fixed bin static options(constant) init(542); 17 385 dcl reswd_FILE_CONTROL fixed bin static options(constant) init(543); 17 386 /* 544 545 */ 17 387 dcl reswd_FINAL fixed bin static options(constant) init(546); 17 388 dcl reswd_FOOTING fixed bin static options(constant) init(547); 17 389 dcl reswd_HEADING fixed bin static options(constant) init(548); 17 390 dcl reswd_GROUP fixed bin static options(constant) init(549); 17 391 /* 550 */ 17 392 dcl reswd_I_O_CONTROL fixed bin static options(constant) init(551); 17 393 dcl reswd_IDENTIFICATION fixed bin static options(constant) init(552); 17 394 dcl reswd_INDICATE fixed bin static options(constant) init(553); 17 395 dcl reswd_INSTALLATION fixed bin static options(constant) init(554); 17 396 /* 555 */ 17 397 dcl reswd_LAST fixed bin static options(constant) init(556); 17 398 /* 557 558 */ 17 399 dcl reswd_PRINTING fixed bin static options(constant) init(559); 17 400 /* 560 */ 17 401 dcl reswd_LIMIT fixed bin static options(constant) init(561); 17 402 dcl reswd_LIMITS fixed bin static options(constant) init(562); 17 403 dcl reswd_LINAGE fixed bin static options(constant) init(563); 17 404 dcl reswd_LINAGE_COUNTER fixed bin static options(constant) init(564); 17 405 dcl reswd_LINE_COUNTER fixed bin static options(constant) init(565); 17 406 /* 566 567 */ 17 407 dcl reswd_MEMORY fixed bin static options(constant) init(568); 17 408 dcl reswd_MODULES fixed bin static options(constant) init(569); 17 409 dcl reswd_MULTIPLE fixed bin static options(constant) init(570); 17 410 dcl reswd_NUMBER fixed bin static options(constant) init(571); 17 411 dcl reswd_OBJECT_COMPUTER fixed bin static options(constant) init(572); 17 412 /* 573 */ 17 413 dcl reswd_OFF fixed bin static options(constant) init(574); 17 414 /* 575 */ 17 415 dcl reswd_OPTIONAL fixed bin static options(constant) init(576); 17 416 /* 577 */ 17 417 dcl reswd_PAGE_COUNTER fixed bin static options(constant) init(578); 17 418 dcl reswd_PF fixed bin static options(constant) init(579); 17 419 dcl reswd_PH fixed bin static options(constant) init(580); 17 420 dcl reswd_PLUS fixed bin static options(constant) init(581); 17 421 dcl reswd_POSITION fixed bin static options(constant) init(582); 17 422 dcl reswd_PROGRAM_ID fixed bin static options(constant) init(583); 17 423 dcl reswd_RD fixed bin static options(constant) init(584); 17 424 /* 585 586 */ 17 425 dcl reswd_SEQUENCE fixed bin static options(constant) init(587); 17 426 dcl reswd_RERUN fixed bin static options(constant) init(588); 17 427 dcl reswd_RESERVE fixed bin static options(constant) init(589); 17 428 dcl reswd_RESET fixed bin static options(constant) init(590); 17 429 dcl reswd_RF fixed bin static options(constant) init(591); 17 430 dcl reswd_RH fixed bin static options(constant) init(592); 17 431 dcl reswd_SAME fixed bin static options(constant) init(593); 17 432 dcl reswd_SECURITY fixed bin static options(constant) init(594); 17 433 dcl reswd_SEGMENT_LIMIT fixed bin static options(constant) init(595); 17 434 dcl reswd_SELECT fixed bin static options(constant) init(596); 17 435 dcl reswd_SEQUENTIAL fixed bin static options(constant) init(597); 17 436 dcl reswd_SORT_MERGE fixed bin static options(constant) init(598); 17 437 dcl reswd_SOURCE_COMPUTER fixed bin static options(constant) init(599); 17 438 dcl reswd_SPECIAL_NAMES fixed bin static options(constant) init(600); 17 439 dcl reswd_SPANNED fixed bin static options(constant) init(601); 17 440 /* (602) */ 17 441 dcl reswd_SUM fixed bin static options(constant) init(603); 17 442 dcl reswd_EXOR fixed bin static options(constant) init(604); 17 443 /* 605 */ 17 444 dcl reswd_TAPE fixed bin static options(constant) init(606); 17 445 dcl reswd_TEXT fixed bin static options(constant) init(607); 17 446 dcl reswd_TYPE fixed bin static options(constant) init(608); 17 447 dcl reswd_WORDS fixed bin static options(constant) init(609); 17 448 dcl (reswd_COMP_8, 17 449 reswd_COMPUTATIONAL_8) fixed bin static options(constant) init(610); 17 450 /* DATABASE WORDS 17 451*dcl reswd_ALIAS fixed bin static options(constant) init(263); 17 452*dcl reswd_ALIGN fixed bin static options(constant) init(278); 17 453*dcl reswd_ALTERING fixed bin static options(constant) init(268); 17 454*dcl reswd_BECOMES fixed bin static options(constant) init(267); 17 455*dcl reswd_CHECK fixed bin static options(constant) init(264); 17 456*dcl reswd_INVOKING fixed bin static options(constant) init(269); 17 457*dcl reswd_KEY_LOCATION fixed bin static options(constant) init(286); 17 458*dcl reswd_LOCKS fixed bin static options(constant) init(125); 17 459*dcl reswd_PREFIX fixed bin static options(constant) init(293); 17 460*dcl reswd_REALM fixed bin static options(constant) init(265); 17 461*dcl reswd_REALM_ID fixed bin static options(constant) init(270); 17 462*dcl reswd_SELECTION fixed bin static options(constant) init(271); 17 463*dcl reswd_SYMBOLS fixed bin static options(constant) init(602); 17 464*dcl reswd_VIA fixed bin static options(constant) init(262); 17 465*END DATABASE WORDS */ 17 466 17 467 17 468 /* END INCLUDE FILE ... cobol_reswd_values.incl.pl1 */ 17 469 399 18 1 18 2 /* BEGIN INCLUDE FILE... cobol_alpha_def.incl.pl1 */ 18 3 18 4 declare 18 5 1 alphabet based(alpha_ptr), 18 6 2 prev fixed bin, 18 7 2 info, 18 8 3 one_one bit(1), 18 9 3 onto bit(1), 18 10 2 type fixed bin, 18 11 2 alf_size fixed bin, 18 12 2 char_size fixed bin, 18 13 2 hi_value fixed bin, 18 14 2 lo_value fixed bin, 18 15 2 to_table fixed bin, 18 16 2 from_table fixed bin, 18 17 2 name_ptr ptr; 18 18 18 19 /* 18 20* FIELD CONTENTS 18 21* prev key of previous alphabet definition in variable 18 22* common. 18 23* The last field in the chain contains 0. 18 24* one_one set to "1"b if transformation is (1-1) 18 25* onto set to "1"b if transformation is onto 18 26* type A numeric value which defines the alphabet type. The 18 27* following values apply 18 28* 18 29* 0 undefined 18 30* 1 user defined 18 31* 18 32* 2 NATIVE 18 33* 3 STANDARD-1 18 34* 4 STANDARD-2 18 35* 18 36* 10 ANSI 18 37* 11 ASCII 18 38* 12 EBCDIC 18 39* 13 GBCD 18 40* 14 HBCD 18 41* 15 IBCD 18 42* 16 JIS 18 43* 18 44* alf_size The number of characters in the alphabet. 18 45* char_size The size of a character in bits. 18 46* hi_value The native value associated with the character 18 47* having the highest ordinal position in the alphabet 18 48* lo_value The native value associated with the character 18 49* having the lowest ordinal position in the alphabet 18 50* to_table key in variable common of table for translating 18 51* from native to user defined alphabet 18 52* from_table key in variable common of table for translating 18 53* from user defined alphabet to native 18 54* name_ptr pointer to name table entry which defines the 18 55* alphabet name. 18 56* */ 18 57 18 58 /* END INCLUDE FILE... cobol_alpha_def.incl.pl1 */ 18 59 400 19 1 19 2 /* BEGIN INCLUDE FILE ... cobol_ext_.incl.pl1 */ 19 3 /* Last modified on 06/17/76 by ORN */ 19 4 /* Last modified on 12/28/76 by FCH */ 19 5 /* Last modified on 12/01/80 by FCH */ 19 6 19 7 /* <<< SHARED EXTERNALS INCLUDE FILE >>> */ 19 8 19 9 19 10 dcl cobol_ext_$cobol_afp ptr ext; 19 11 dcl cobol_afp ptr defined ( cobol_ext_$cobol_afp); 19 12 dcl cobol_ext_$cobol_analin_fileno ptr ext; 19 13 dcl cobol_analin_fileno ptr defined ( cobol_ext_$cobol_analin_fileno); 19 14 dcl cobol_ext_$report_first_token ptr ext; 19 15 dcl report_first_token ptr defined( cobol_ext_$report_first_token); 19 16 dcl cobol_ext_$report_last_token ptr ext; 19 17 dcl report_last_token ptr defined ( cobol_ext_$report_last_token); 19 18 dcl cobol_ext_$cobol_eltp ptr ext; 19 19 dcl cobol_eltp ptr defined ( cobol_ext_$cobol_eltp); 19 20 dcl cobol_ext_$cobol_cmfp ptr ext; 19 21 dcl cobol_cmfp ptr defined ( cobol_ext_$cobol_cmfp); 19 22 dcl cobol_ext_$cobol_com_fileno ptr ext; 19 23 dcl cobol_com_fileno ptr defined ( cobol_ext_$cobol_com_fileno); 19 24 dcl cobol_ext_$cobol_com_ptr ptr ext; 19 25 dcl cobol_com_ptr ptr defined ( cobol_ext_$cobol_com_ptr); 19 26 dcl cobol_ext_$cobol_dfp ptr ext; 19 27 dcl cobol_dfp ptr defined ( cobol_ext_$cobol_dfp); 19 28 dcl cobol_ext_$cobol_hfp ptr ext; 19 29 dcl cobol_hfp ptr defined ( cobol_ext_$cobol_hfp); 19 30 dcl cobol_ext_$cobol_m1fp ptr ext; 19 31 dcl cobol_m1fp ptr defined ( cobol_ext_$cobol_m1fp); 19 32 dcl cobol_ext_$cobol_m2fp ptr ext; 19 33 dcl cobol_m2fp ptr defined ( cobol_ext_$cobol_m2fp); 19 34 dcl cobol_ext_$cobol_min1_fileno ptr ext; 19 35 dcl cobol_min1_fileno ptr defined ( cobol_ext_$cobol_min1_fileno); 19 36 dcl cobol_ext_$cobol_min2_fileno_ptr ptr ext; 19 37 dcl cobol_min2_fileno_ptr ptr defined ( cobol_ext_$cobol_min2_fileno_ptr); 19 38 dcl cobol_ext_$cobol_name_fileno ptr ext; 19 39 dcl cobol_name_fileno ptr defined ( cobol_ext_$cobol_name_fileno); 19 40 dcl cobol_ext_$cobol_name_fileno_ptr ptr ext; 19 41 dcl cobol_name_fileno_ptr ptr defined ( cobol_ext_$cobol_name_fileno_ptr); 19 42 dcl cobol_ext_$cobol_ntfp ptr ext; 19 43 dcl cobol_ntfp ptr defined ( cobol_ext_$cobol_ntfp); 19 44 dcl cobol_ext_$cobol_pdofp ptr ext; 19 45 dcl cobol_pdofp ptr defined ( cobol_ext_$cobol_pdofp); 19 46 dcl cobol_ext_$cobol_pfp ptr ext; 19 47 dcl cobol_pfp ptr defined ( cobol_ext_$cobol_pfp); 19 48 dcl cobol_ext_$cobol_rm2fp ptr ext; 19 49 dcl cobol_rm2fp ptr defined ( cobol_ext_$cobol_rm2fp); 19 50 dcl cobol_ext_$cobol_rmin2fp ptr ext; 19 51 dcl cobol_rmin2fp ptr defined ( cobol_ext_$cobol_rmin2fp); 19 52 dcl cobol_ext_$cobol_curr_in ptr ext; 19 53 dcl cobol_curr_in ptr defined ( cobol_ext_$cobol_curr_in); 19 54 dcl cobol_ext_$cobol_curr_out ptr ext; 19 55 dcl cobol_curr_out ptr defined ( cobol_ext_$cobol_curr_out); 19 56 dcl cobol_ext_$cobol_sfp ptr ext; 19 57 dcl cobol_sfp ptr defined ( cobol_ext_$cobol_sfp); 19 58 dcl cobol_ext_$cobol_w1p ptr ext; 19 59 dcl cobol_w1p ptr defined ( cobol_ext_$cobol_w1p); 19 60 dcl cobol_ext_$cobol_w2p ptr ext; 19 61 dcl cobol_w2p ptr defined ( cobol_ext_$cobol_w2p); 19 62 dcl cobol_ext_$cobol_w3p ptr ext; 19 63 dcl cobol_w3p ptr defined ( cobol_ext_$cobol_w3p); 19 64 dcl cobol_ext_$cobol_w5p ptr ext; 19 65 dcl cobol_w5p ptr defined ( cobol_ext_$cobol_w5p); 19 66 dcl cobol_ext_$cobol_w6p ptr ext; 19 67 dcl cobol_w6p ptr defined ( cobol_ext_$cobol_w6p); 19 68 dcl cobol_ext_$cobol_w7p ptr ext; 19 69 dcl cobol_w7p ptr defined ( cobol_ext_$cobol_w7p); 19 70 dcl cobol_ext_$cobol_x3fp ptr ext; 19 71 dcl cobol_x3fp ptr defined ( cobol_ext_$cobol_x3fp); 19 72 dcl cobol_ext_$cobol_rwdd ptr ext; 19 73 dcl cobol_rwdd ptr defined(cobol_ext_$cobol_rwdd); 19 74 dcl cobol_ext_$cobol_rwpd ptr ext; 19 75 dcl cobol_rwpd ptr defined(cobol_ext_$cobol_rwpd); 19 76 19 77 19 78 dcl cobol_ext_$cobol_fileno1 fixed bin(24)ext; 19 79 dcl cobol_fileno1 fixed bin(24)defined ( cobol_ext_$cobol_fileno1); 19 80 dcl cobol_ext_$cobol_options_len fixed bin(24)ext; 19 81 dcl cobol_options_len fixed bin(24)defined ( cobol_ext_$cobol_options_len); 19 82 dcl cobol_ext_$cobol_pdout_fileno fixed bin(24)ext; 19 83 dcl cobol_pdout_fileno fixed bin(24)defined ( cobol_ext_$cobol_pdout_fileno); 19 84 dcl cobol_ext_$cobol_print_fileno fixed bin(24)ext; 19 85 dcl cobol_print_fileno fixed bin(24)defined ( cobol_ext_$cobol_print_fileno); 19 86 dcl cobol_ext_$cobol_rmin2_fileno fixed bin(24)ext; 19 87 dcl cobol_rmin2_fileno fixed bin(24)defined ( cobol_ext_$cobol_rmin2_fileno); 19 88 dcl cobol_ext_$cobol_x1_fileno fixed bin(24)ext; 19 89 dcl cobol_x1_fileno fixed bin(24)defined ( cobol_ext_$cobol_x1_fileno); 19 90 dcl cobol_ext_$cobol_x2_fileno fixed bin(24)ext; 19 91 dcl cobol_x2_fileno fixed bin(24)defined ( cobol_ext_$cobol_x2_fileno); 19 92 dcl cobol_ext_$cobol_x3_fileno fixed bin(24)ext; 19 93 dcl cobol_x3_fileno fixed bin(24)defined ( cobol_ext_$cobol_x3_fileno); 19 94 19 95 dcl cobol_ext_$cobol_lpr char (5) ext; 19 96 dcl cobol_lpr char (5) defined ( cobol_ext_$cobol_lpr); /* -2- */ 19 97 dcl cobol_ext_$cobol_options char (120) ext; 19 98 dcl cobol_options char (120) defined ( cobol_ext_$cobol_options); /* -30- */ 19 99 19 100 dcl cobol_ext_$cobol_xlast8 bit (1) ext; 19 101 dcl cobol_xlast8 bit (1) defined ( cobol_ext_$cobol_xlast8); /* -1- */ 19 102 dcl cobol_ext_$report_exists bit (1) ext; 19 103 dcl report_exists bit (1) defined ( cobol_ext_$report_exists); 19 104 19 105 19 106 /* <<< END OF SHARED EXTERNALS INCLUDE FILE >>> */ 19 107 /* END INCLUDE FILE ... cobol_ext_.incl.pl1 */ 19 108 401 20 1 20 2 /* BEGIN INCLUDE FILE ... cobol_definitions.incl.pl1 */ 20 3 20 4 /* Last modified June 27, 1974 by AEG */ 20 5 20 6 20 7 declare 1 def_header aligned based(def_base_ptr), 20 8 2 def_list_relp bit(18) unaligned, 20 9 2 unused bit(36) unaligned, 20 10 2 flags unaligned, 20 11 3 new_format bit(1) unaligned, 20 12 3 ignore bit(1) unaligned, 20 13 3 unused bit(16) unaligned; 20 14 20 15 20 16 /* Non-Class-3 Definitions */ 20 17 20 18 20 19 declare def_ptr ptr; 20 20 20 21 20 22 declare 1 definition aligned based(def_ptr), 20 23 2 forward_thread bit(18) unaligned, 20 24 2 backward_thread bit(18) unaligned, 20 25 2 value bit(18) unaligned, 20 26 2 flags unaligned, 20 27 3 new_format bit(1) unaligned, 20 28 3 ignore bit(1) unaligned, 20 29 3 entrypoint bit(1) unaligned, 20 30 3 retain bit(1) unaligned, 20 31 3 descr_sw bit(1) unaligned, 20 32 3 unused bit(10) unaligned, 20 33 2 class bit(3) unaligned, 20 34 2 symbol_relp bit(18) unaligned, 20 35 2 segname_relp bit(18) unaligned, 20 36 2 n_args fixed bin(17) unaligned, 20 37 2 descriptor (0 refer(definition.n_args)) bit(18) unaligned; 20 38 20 39 20 40 /* Class-3 Definition */ 20 41 20 42 20 43 declare 1 segname aligned based(def_ptr), 20 44 2 forward_thread bit(18) unaligned, 20 45 2 backward_thread bit(18) unaligned, 20 46 2 segname_thread bit(18) unaligned, 20 47 2 flags bit(15) unaligned, 20 48 2 class bit(3) unaligned, 20 49 2 symbol_relp bit(18) unaligned, 20 50 2 first_relp bit(18) unaligned; 20 51 20 52 20 53 20 54 /* END INCLUDE FILE ... cobol_definitions.incl.pl1 */ 20 55 402 403 end cobol_sort_gen; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 05/24/89 0832.5 cobol_sort_gen.pl1 >spec>install>MR12.3-1048>cobol_sort_gen.pl1 387 1 11/11/82 1712.7 cobol_in_token.incl.pl1 >ldd>include>cobol_in_token.incl.pl1 388 2 03/27/82 0439.7 cobol_op_con.incl.pl1 >ldd>include>cobol_op_con.incl.pl1 390 3 11/11/82 1712.7 cobol_entry_seq.incl.pl1 >ldd>include>cobol_entry_seq.incl.pl1 391 4 10/10/83 1730.8 cobol_fixed_static.incl.pl1 >ldd>include>cobol_fixed_static.incl.pl1 392 5 11/11/82 1712.7 cobol_.incl.pl1 >ldd>include>cobol_.incl.pl1 393 6 11/11/82 1712.7 cobol_file_table.incl.pl1 >ldd>include>cobol_file_table.incl.pl1 394 7 03/27/82 0439.8 cobol_type1.incl.pl1 >ldd>include>cobol_type1.incl.pl1 7-15 8 11/11/82 1712.8 cobol_TYPE1.incl.pl1 >ldd>include>cobol_TYPE1.incl.pl1 395 9 03/27/82 0439.9 cobol_type9.incl.pl1 >ldd>include>cobol_type9.incl.pl1 9-17 10 11/11/82 1712.7 cobol_TYPE9.incl.pl1 >ldd>include>cobol_TYPE9.incl.pl1 396 11 11/11/82 1712.8 cobol_type12.incl.pl1 >ldd>include>cobol_type12.incl.pl1 11-17 12 03/27/82 0439.6 cobol_TYPE12.incl.pl1 >ldd>include>cobol_TYPE12.incl.pl1 397 13 03/27/82 0439.8 cobol_type19.incl.pl1 >ldd>include>cobol_type19.incl.pl1 13-17 14 03/27/82 0439.6 cobol_TYPE19.incl.pl1 >ldd>include>cobol_TYPE19.incl.pl1 398 15 03/27/82 0439.8 cobol_type40.incl.pl1 >ldd>include>cobol_type40.incl.pl1 15-14 16 11/11/82 1712.8 cobol_TYPE40.incl.pl1 >ldd>include>cobol_TYPE40.incl.pl1 399 17 03/27/82 0439.8 cobol_reswd_values.incl.pl1 >ldd>include>cobol_reswd_values.incl.pl1 400 18 03/27/82 0439.6 cobol_alpha_def.incl.pl1 >ldd>include>cobol_alpha_def.incl.pl1 401 19 03/27/82 0431.3 cobol_ext_.incl.pl1 >ldd>include>cobol_ext_.incl.pl1 402 20 11/11/82 1712.7 cobol_definitions.incl.pl1 >ldd>include>cobol_definitions.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. ad_bit 000143 automatic bit(1) dcl 311 in procedure "cobol_sort_gen" set ref 259* 318 328 338 ad_bit 22(25) based bit(1) level 2 in structure "data_name" packed packed unaligned dcl 9-16 in procedure "cobol_sort_gen" ref 259 addr builtin function dcl 382 ref 170 205 211 218 218 226 226 226 226 234 234 236 236 238 238 242 244 256 256 278 278 282 282 293 293 368 368 368 368 addrel builtin function dcl 382 ref 219 297 375 alpha_name_ptr 000152 automatic pointer dcl 15-10 set ref 193* 196* 198 200* 203 205 207 208 256* alpha_type9 000014 internal static structure level 1 unaligned dcl 35 set ref 211 242 243* alpha_type9_based based structure level 1 unaligned dcl 48 ref 243 alphabet_name based structure level 1 unaligned dcl 15-13 bin_18 21(13) based bit(1) level 2 packed packed unaligned dcl 9-16 ref 266 bin_36 21(14) based bit(1) level 2 packed packed unaligned dcl 9-16 ref 266 bit18 based bit(18) packed unaligned dcl 140 set ref 217 298* cobol_$compile_count 000176 external static fixed bin(17,0) dcl 5-142 ref 171 173 cobol_$init_stack_off 000172 external static fixed bin(17,0) dcl 5-124 set ref 175* cobol_$next_tag 000174 external static fixed bin(17,0) dcl 5-128 set ref 214 215 216* 216 254 255* 255 361 363* 363 cobol_$same_sort_merge_proc 000200 external static bit(1) dcl 5-214 ref 364 cobol_$stack_off 000170 external static fixed bin(17,0) dcl 5-120 ref 175 295 cobol_$text_base_ptr 000164 external static pointer dcl 5-8 ref 217 219 297 375 cobol_$text_wd_off 000166 external static fixed bin(17,0) dcl 5-90 set ref 219 227 228 279 280* 362* 370 374 cobol_alloc$stack 000140 constant entry external dcl 146 ref 174 cobol_call_op 000146 constant entry external dcl 146 ref 184 185 230 360 371 cobol_compare_gen$sort 000130 constant entry external dcl 146 ref 256 cobol_def_util 000132 constant entry external dcl 146 ref 221 cobol_define_tag 000150 constant entry external dcl 146 ref 291 292 299 cobol_define_tag_nc 000156 constant entry external dcl 146 ref 280 362 cobol_emit 000136 constant entry external dcl 146 ref 218 226 278 282 293 368 cobol_make_tagref 000160 constant entry external dcl 146 ref 228 279 cobol_pointer_register$get 000144 constant entry external dcl 146 ref 234 236 238 cobol_pointer_register$priority 000142 constant entry external dcl 146 ref 287 288 289 cobol_pool 000154 constant entry external dcl 146 ref 206 cobol_reg_manager$after_op 000152 constant entry external dcl 146 ref 372 cobol_release_gen 000162 constant entry external dcl 146 ref 179 cobol_sort_util 000134 constant entry external dcl 146 ref 220 compare_hold_ic 000116 automatic fixed bin(17,0) dcl 115 set ref 370* 374 375 d 11(05) based bit(2) level 2 packed packed unaligned dcl 13-16 ref 194 data_name based structure level 1 unaligned dcl 9-16 def_relp 1 based bit(18) level 2 packed packed unaligned dcl 3-14 ref 224 desc_off 000117 automatic fixed bin(17,0) array dcl 115 set ref 170 desc_ptr 000122 automatic pointer dcl 115 set ref 170* 220* 221* descr_relp_offset based bit(18) level 2 packed packed unaligned dcl 3-14 ref 223 display 21(27) based bit(1) level 2 packed packed unaligned dcl 9-16 ref 262 dn_ptr 000110 automatic pointer dcl 115 set ref 211* 248 259 262 262 266 266 e 5 000050 internal static fixed bin(17,0) initial level 2 dcl 61 set ref 245* end_stmt based structure level 1 unaligned dcl 13-16 entry_seq based structure level 1 dcl 3-14 eos_ptr 000150 automatic pointer dcl 13-13 set ref 166* 179 179 179 182 190* 194 first_call 000126 internal static fixed bin(17,0) initial dcl 115 set ref 171 173* fixed builtin function dcl 382 ref 274 flags 1(18) based structure level 2 packed packed unaligned dcl 3-14 set ref 225 function 1(22) based bit(1) level 3 packed packed unaligned dcl 3-14 set ref 222* h 6 based fixed bin(17,0) level 2 in structure "end_stmt" dcl 13-16 in procedure "cobol_sort_gen" ref 179 182 h 6 000050 internal static fixed bin(17,0) initial level 2 in structure "type19" dcl 61 in procedure "cobol_sort_gen" set ref 254* 280* 291* hold_addr based bit(18) packed unaligned dcl 115 set ref 375* i 000142 automatic fixed bin(17,0) dcl 115 set ref 240* 241 276* in_token based structure level 1 dcl 1-9 in_token_ptr parameter pointer dcl 1-7 ref 27 166 168 190 190 192 196 196 197 241 inst_seq 000206 automatic bit(18) initial array packed unaligned dcl 353 set ref 353* 353* 353* 353* 367* 368 368 instr 000000 constant structure level 1 packed packed unaligned dcl 304 instr_seq 000062 internal static bit(18) initial array packed unaligned dcl 68 set ref 218 218 instr_seq11 000111 internal static bit(18) initial array packed unaligned dcl 89 set ref 272* 275* 278 278 282 282 283* instr_seq7 000063 internal static bit(18) initial array packed unaligned dcl 71 set ref 217* 223* 224* 225* 226 226 instr_seq8 000110 internal static bit(18) initial array packed unaligned dcl 86 set ref 293 293 iw_key 11 based fixed bin(17,0) level 2 dcl 15-13 ref 198 203 last_token 000106 automatic fixed bin(17,0) dcl 115 set ref 192* 197* 240 276 mvt_ptr 000100 automatic pointer dcl 110 set ref 205* 206 mvt_table based char(512) packed unaligned dcl 110 set ref 206* n based fixed bin(17,0) level 2 dcl 1-9 ref 190 192 196 197 null builtin function dcl 382 ref 179 179 193 200 218 218 221 221 228 228 278 278 279 279 282 282 293 293 numeric 21(17) based bit(1) level 2 packed packed unaligned dcl 9-16 ref 248 262 object_name 000125 automatic char(32) packed unaligned dcl 115 set ref 220* 221* object_name_len 000124 automatic fixed bin(17,0) dcl 115 set ref 220* 221* offset 16 based fixed bin(17,0) level 2 dcl 15-13 set ref 207* op 000144 automatic bit(3) dcl 311 set ref 272 318* 320* 328* 330* 338* 340* op_con 000001 constant structure level 1 packed packed unaligned dcl 2-12 passed_tag 000140 automatic fixed bin(17,0) dcl 115 set ref 214* 228* 299* passed_tag1 000141 automatic fixed bin(17,0) dcl 115 set ref 215* 279* 292* pr_struc 000010 internal static structure level 1 unaligned dcl 30 set ref 234 234 236 236 238 238 pt1 2 000116 internal static pointer level 2 dcl 102 set ref 241* 243 247 251 252* pt2 4 000116 internal static pointer level 2 dcl 102 set ref 242* 246 250 251* pt3 6 000116 internal static pointer level 2 dcl 102 set ref 244* rel_seq 000210 automatic bit(5) initial array dcl 357 set ref 357* 357* 357* 357* 368 368 rel_seq7 000072 internal static bit(5) initial array dcl 83 set ref 226 226 reswd_SORT constant fixed bin(17,0) initial dcl 17-66 ref 179 retry_tag 000137 automatic fixed bin(17,0) dcl 115 set ref 361* 362* 371* seg_num 23 based fixed bin(17,0) level 2 dcl 9-16 set ref 246* 247* segno 15 based fixed bin(17,0) level 2 dcl 15-13 set ref 208* sort_file_ptr 000112 automatic pointer dcl 115 set ref 168* 220* sort_gen_ptr 000114 automatic pointer dcl 115 set ref 297* 298 sort_gen_text_wd_off 000136 automatic fixed bin(17,0) dcl 115 set ref 227* 297 sort_in_token 000116 internal static structure level 1 unaligned dcl 102 set ref 256 256 sort_stack_off 000127 internal static fixed bin(17,0) initial dcl 115 set ref 174* 364 366 string builtin function dcl 382 ref 225 substr builtin function dcl 382 set ref 217* 217 272* 275 283* 296* 298* 298 367 375 table 20 based char(512) level 2 packed packed unaligned dcl 15-13 set ref 205 temp 000135 automatic fixed bin(17,0) dcl 115 set ref 274* 275 295* 296 298 364* 366* 367 374* 375 text_ptr 000146 automatic pointer dcl 3-12 set ref 219* 221* 222 223 224 225 tmi 000000 constant bit(3) initial level 2 packed packed unaligned dcl 304 ref 318 340 tnc 0(06) 000000 constant bit(3) initial level 2 packed packed unaligned dcl 304 ref 328 to_offset 000102 automatic fixed bin(17,0) dcl 110 set ref 206* 207 token_ptr 2 based pointer array level 2 dcl 1-9 ref 166 168 190 196 241 tpl 0(03) 000000 constant bit(3) initial level 2 packed packed unaligned dcl 304 ref 320 338 trc 0(09) 000000 constant bit(3) initial level 2 packed packed unaligned dcl 304 ref 330 type 3 based fixed bin(17,0) level 2 dcl 13-16 ref 179 type19 000050 internal static structure level 1 unaligned dcl 61 set ref 244 unspec builtin function dcl 382 ref 275 296 298 367 375 verb 4 based fixed bin(17,0) level 2 dcl 13-16 ref 179 what_ptr 000010 internal static fixed bin(17,0) level 2 dcl 30 set ref 233* 235* 237* workpt2 000104 automatic pointer dcl 115 set ref 250* 252 zero_con 1 000001 constant bit(18) initial level 2 packed packed unaligned dcl 2-12 ref 274 NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. allo1_max defined fixed bin(17,0) dcl 5-171 allo1_ptr defined pointer dcl 5-67 alpha_ptr automatic pointer dcl 115 alphabet based structure level 1 unaligned dcl 18-4 alter_flag defined fixed bin(17,0) dcl 5-135 alter_index defined fixed bin(17,0) dcl 5-153 alter_list_ptr defined pointer dcl 5-39 binary builtin function dcl 382 cd_cnt defined fixed bin(17,0) dcl 5-197 cobol_$allo1_max external static fixed bin(17,0) dcl 5-170 cobol_$allo1_ptr external static pointer dcl 5-66 cobol_$alter_flag external static fixed bin(17,0) dcl 5-134 cobol_$alter_index external static fixed bin(17,0) dcl 5-152 cobol_$alter_list_ptr external static pointer dcl 5-38 cobol_$cd_cnt external static fixed bin(17,0) dcl 5-196 cobol_$cobol_data_wd_off external static fixed bin(17,0) dcl 5-118 cobol_$coms_charcnt external static fixed bin(17,0) dcl 5-188 cobol_$coms_wdoff external static fixed bin(17,0) dcl 5-202 cobol_$con_end_ptr external static pointer dcl 5-10 cobol_$con_wd_off external static fixed bin(17,0) dcl 5-92 cobol_$cons_charcnt external static fixed bin(17,0) dcl 5-192 cobol_$constant_offset external static fixed bin(17,0) dcl 5-156 cobol_$data_init_flag external static fixed bin(17,0) dcl 5-130 cobol_$date_compiled_sw external static fixed bin(17,0) dcl 5-180 cobol_$debug_enable external static fixed bin(17,0) dcl 5-174 cobol_$def_base_ptr external static pointer dcl 5-12 cobol_$def_max external static fixed bin(17,0) dcl 5-96 cobol_$def_wd_off external static fixed bin(17,0) dcl 5-94 cobol_$diag_ptr external static pointer dcl 5-70 cobol_$eln_max external static fixed bin(17,0) dcl 5-172 cobol_$eln_ptr external static pointer dcl 5-68 cobol_$fixup_max external static fixed bin(17,0) dcl 5-164 cobol_$fixup_ptr external static pointer dcl 5-30 cobol_$fs_charcnt external static fixed bin(17,0) dcl 5-184 cobol_$fs_wdoff external static fixed bin(17,0) dcl 5-198 cobol_$include_cnt external static fixed bin(17,0) dcl 5-182 cobol_$include_info_ptr external static pointer dcl 5-86 cobol_$initval_base_ptr external static pointer dcl 5-32 cobol_$initval_file_ptr external static pointer dcl 5-34 cobol_$initval_flag external static fixed bin(17,0) dcl 5-178 cobol_$link_base_ptr external static pointer dcl 5-14 cobol_$link_max external static fixed bin(17,0) dcl 5-100 cobol_$link_wd_off external static fixed bin(17,0) dcl 5-98 cobol_$list_off external static fixed bin(17,0) dcl 5-154 cobol_$list_ptr external static pointer dcl 5-64 cobol_$ls_charcnt external static fixed bin(17,0) dcl 5-190 cobol_$main_pcs_ptr external static pointer dcl 5-84 cobol_$map_data_max external static fixed bin(17,0) dcl 5-162 cobol_$map_data_ptr external static pointer dcl 5-54 cobol_$max_stack_off external static fixed bin(17,0) dcl 5-122 cobol_$minpral5_ptr external static pointer dcl 5-50 cobol_$misc_base_ptr external static pointer dcl 5-60 cobol_$misc_end_ptr external static pointer dcl 5-62 cobol_$misc_max external static fixed bin(17,0) dcl 5-158 cobol_$non_source_offset external static fixed bin(17,0) dcl 5-176 cobol_$ntbuf_ptr external static pointer dcl 5-82 cobol_$obj_seg_name external static char(32) dcl 5-208 cobol_$op_con_ptr external static pointer dcl 5-80 cobol_$para_eop_flag external static fixed bin(17,0) dcl 5-138 cobol_$pd_map_index external static fixed bin(17,0) dcl 5-116 cobol_$pd_map_max external static fixed bin(17,0) dcl 5-160 cobol_$pd_map_ptr external static pointer dcl 5-28 cobol_$pd_map_sw external static fixed bin(17,0) dcl 5-126 cobol_$perform_list_ptr external static pointer dcl 5-36 cobol_$perform_para_index external static fixed bin(17,0) dcl 5-148 cobol_$perform_sect_index external static fixed bin(17,0) dcl 5-150 cobol_$priority_no external static fixed bin(17,0) dcl 5-140 cobol_$ptr_assumption_ind external static fixed bin(17,0) dcl 5-144 cobol_$ptr_status_ptr external static pointer dcl 5-56 cobol_$reg_assumption_ind external static fixed bin(17,0) dcl 5-146 cobol_$reg_status_ptr external static pointer dcl 5-58 cobol_$reloc_def_base_ptr external static pointer dcl 5-20 cobol_$reloc_def_max external static fixed bin(24,0) dcl 5-108 cobol_$reloc_link_base_ptr external static pointer dcl 5-22 cobol_$reloc_link_max external static fixed bin(24,0) dcl 5-110 cobol_$reloc_sym_base_ptr external static pointer dcl 5-24 cobol_$reloc_sym_max external static fixed bin(24,0) dcl 5-112 cobol_$reloc_text_base_ptr external static pointer dcl 5-18 cobol_$reloc_text_max external static fixed bin(24,0) dcl 5-106 cobol_$reloc_work_base_ptr external static pointer dcl 5-26 cobol_$reloc_work_max external static fixed bin(24,0) dcl 5-114 cobol_$reswd_ptr external static pointer dcl 5-78 cobol_$scratch_dir external static char(168) dcl 5-206 cobol_$sect_eop_flag external static fixed bin(17,0) dcl 5-136 cobol_$seg_init_flag external static fixed bin(17,0) dcl 5-132 cobol_$seg_init_list_ptr external static pointer dcl 5-40 cobol_$statement_info_ptr external static pointer dcl 5-76 cobol_$sym_base_ptr external static pointer dcl 5-16 cobol_$sym_max external static fixed bin(17,0) dcl 5-104 cobol_$sym_wd_off external static fixed bin(17,0) dcl 5-102 cobol_$tag_table_max external static fixed bin(17,0) dcl 5-166 cobol_$tag_table_ptr external static pointer dcl 5-52 cobol_$temp_token_area_ptr external static pointer dcl 5-42 cobol_$temp_token_max external static fixed bin(17,0) dcl 5-168 cobol_$temp_token_ptr external static pointer dcl 5-44 cobol_$token_block1_ptr external static pointer dcl 5-46 cobol_$token_block2_ptr external static pointer dcl 5-48 cobol_$value_cnt external static fixed bin(17,0) dcl 5-194 cobol_$ws_charcnt external static fixed bin(17,0) dcl 5-186 cobol_$ws_wdoff external static fixed bin(17,0) dcl 5-200 cobol_$xref_bypass external static bit(1) dcl 5-212 cobol_$xref_chain_ptr external static pointer dcl 5-74 cobol_$xref_token_ptr external static pointer dcl 5-72 cobol_afp defined pointer dcl 19-11 cobol_analin_fileno defined pointer dcl 19-13 cobol_cmfp defined pointer dcl 19-21 cobol_com_fileno defined pointer dcl 19-23 cobol_com_ptr defined pointer dcl 19-25 cobol_curr_in defined pointer dcl 19-53 cobol_curr_out defined pointer dcl 19-55 cobol_data_wd_off defined fixed bin(17,0) dcl 5-119 cobol_dfp defined pointer dcl 19-27 cobol_eltp defined pointer dcl 19-19 cobol_ext_$cobol_afp external static pointer dcl 19-10 cobol_ext_$cobol_analin_fileno external static pointer dcl 19-12 cobol_ext_$cobol_cmfp external static pointer dcl 19-20 cobol_ext_$cobol_com_fileno external static pointer dcl 19-22 cobol_ext_$cobol_com_ptr external static pointer dcl 19-24 cobol_ext_$cobol_curr_in external static pointer dcl 19-52 cobol_ext_$cobol_curr_out external static pointer dcl 19-54 cobol_ext_$cobol_dfp external static pointer dcl 19-26 cobol_ext_$cobol_eltp external static pointer dcl 19-18 cobol_ext_$cobol_fileno1 external static fixed bin(24,0) dcl 19-78 cobol_ext_$cobol_hfp external static pointer dcl 19-28 cobol_ext_$cobol_lpr external static char(5) packed unaligned dcl 19-95 cobol_ext_$cobol_m1fp external static pointer dcl 19-30 cobol_ext_$cobol_m2fp external static pointer dcl 19-32 cobol_ext_$cobol_min1_fileno external static pointer dcl 19-34 cobol_ext_$cobol_min2_fileno_ptr external static pointer dcl 19-36 cobol_ext_$cobol_name_fileno external static pointer dcl 19-38 cobol_ext_$cobol_name_fileno_ptr external static pointer dcl 19-40 cobol_ext_$cobol_ntfp external static pointer dcl 19-42 cobol_ext_$cobol_options external static char(120) packed unaligned dcl 19-97 cobol_ext_$cobol_options_len external static fixed bin(24,0) dcl 19-80 cobol_ext_$cobol_pdofp external static pointer dcl 19-44 cobol_ext_$cobol_pdout_fileno external static fixed bin(24,0) dcl 19-82 cobol_ext_$cobol_pfp external static pointer dcl 19-46 cobol_ext_$cobol_print_fileno external static fixed bin(24,0) dcl 19-84 cobol_ext_$cobol_rm2fp external static pointer dcl 19-48 cobol_ext_$cobol_rmin2_fileno external static fixed bin(24,0) dcl 19-86 cobol_ext_$cobol_rmin2fp external static pointer dcl 19-50 cobol_ext_$cobol_rwdd external static pointer dcl 19-72 cobol_ext_$cobol_rwpd external static pointer dcl 19-74 cobol_ext_$cobol_sfp external static pointer dcl 19-56 cobol_ext_$cobol_w1p external static pointer dcl 19-58 cobol_ext_$cobol_w2p external static pointer dcl 19-60 cobol_ext_$cobol_w3p external static pointer dcl 19-62 cobol_ext_$cobol_w5p external static pointer dcl 19-64 cobol_ext_$cobol_w6p external static pointer dcl 19-66 cobol_ext_$cobol_w7p external static pointer dcl 19-68 cobol_ext_$cobol_x1_fileno external static fixed bin(24,0) dcl 19-88 cobol_ext_$cobol_x2_fileno external static fixed bin(24,0) dcl 19-90 cobol_ext_$cobol_x3_fileno external static fixed bin(24,0) dcl 19-92 cobol_ext_$cobol_x3fp external static pointer dcl 19-70 cobol_ext_$cobol_xlast8 external static bit(1) packed unaligned dcl 19-100 cobol_ext_$report_exists external static bit(1) packed unaligned dcl 19-102 cobol_ext_$report_first_token external static pointer dcl 19-14 cobol_ext_$report_last_token external static pointer dcl 19-16 cobol_fileno1 defined fixed bin(24,0) dcl 19-79 cobol_hfp defined pointer dcl 19-29 cobol_lpr defined char(5) packed unaligned dcl 19-96 cobol_m1fp defined pointer dcl 19-31 cobol_m2fp defined pointer dcl 19-33 cobol_min1_fileno defined pointer dcl 19-35 cobol_min2_fileno_ptr defined pointer dcl 19-37 cobol_name_fileno defined pointer dcl 19-39 cobol_name_fileno_ptr defined pointer dcl 19-41 cobol_ntfp defined pointer dcl 19-43 cobol_options defined char(120) packed unaligned dcl 19-98 cobol_options_len defined fixed bin(24,0) dcl 19-81 cobol_pdofp defined pointer dcl 19-45 cobol_pdout_fileno defined fixed bin(24,0) dcl 19-83 cobol_pfp defined pointer dcl 19-47 cobol_print_fileno defined fixed bin(24,0) dcl 19-85 cobol_read_ft 000000 constant entry external dcl 146 cobol_rm2fp defined pointer dcl 19-49 cobol_rmin2_fileno defined fixed bin(24,0) dcl 19-87 cobol_rmin2fp defined pointer dcl 19-51 cobol_rwdd defined pointer dcl 19-73 cobol_rwpd defined pointer dcl 19-75 cobol_sfp defined pointer dcl 19-57 cobol_w1p defined pointer dcl 19-59 cobol_w2p defined pointer dcl 19-61 cobol_w3p defined pointer dcl 19-63 cobol_w5p defined pointer dcl 19-65 cobol_w6p defined pointer dcl 19-67 cobol_w7p defined pointer dcl 19-69 cobol_x1_fileno defined fixed bin(24,0) dcl 19-89 cobol_x2_fileno defined fixed bin(24,0) dcl 19-91 cobol_x3_fileno defined fixed bin(24,0) dcl 19-93 cobol_x3fp defined pointer dcl 19-71 cobol_xlast8 defined bit(1) packed unaligned dcl 19-101 compile_count defined fixed bin(17,0) dcl 5-143 coms_charcnt defined fixed bin(17,0) dcl 5-189 coms_wdoff defined fixed bin(17,0) dcl 5-203 con_end_ptr defined pointer dcl 5-11 con_wd_off defined fixed bin(17,0) dcl 5-93 cons_charcnt defined fixed bin(17,0) dcl 5-193 constant_offset defined fixed bin(17,0) dcl 5-157 data_init_flag defined fixed bin(17,0) dcl 5-131 date_compiled_sw defined fixed bin(17,0) dcl 5-181 debug_enable defined fixed bin(17,0) dcl 5-175 def_base_ptr defined pointer dcl 5-13 def_header based structure level 1 dcl 20-7 def_max defined fixed bin(17,0) dcl 5-97 def_ptr automatic pointer dcl 20-19 def_wd_off defined fixed bin(17,0) dcl 5-95 definition based structure level 1 dcl 20-22 diag_ptr defined pointer dcl 5-71 eln_max defined fixed bin(17,0) dcl 5-173 eln_ptr defined pointer dcl 5-69 fd_token based structure level 1 unaligned dcl 11-16 file_table based structure level 1 unaligned dcl 6-25 first_link_offset internal static fixed bin(17,0) initial dcl 4-52 fixed_static_length internal static fixed bin(17,0) initial dcl 4-51 fixup_max defined fixed bin(17,0) dcl 5-165 fixup_ptr defined pointer dcl 5-31 fs_charcnt defined fixed bin(17,0) dcl 5-185 fs_wdoff defined fixed bin(17,0) dcl 5-199 ft_ptr automatic pointer dcl 115 include_cnt defined fixed bin(17,0) dcl 5-183 include_info_ptr defined pointer dcl 5-87 index builtin function dcl 382 init_stack_off defined fixed bin(17,0) dcl 5-125 initval_base_ptr defined pointer dcl 5-33 initval_file_ptr defined pointer dcl 5-35 initval_flag defined fixed bin(17,0) dcl 5-179 length builtin function dcl 382 line_temp automatic fixed bin(17,0) dcl 115 link_base_ptr defined pointer dcl 5-15 link_max defined fixed bin(17,0) dcl 5-101 link_wd_off defined fixed bin(17,0) dcl 5-99 linkoff automatic fixed bin(17,0) dcl 115 list_off defined fixed bin(17,0) dcl 5-155 list_ptr defined pointer dcl 5-65 ls_charcnt defined fixed bin(17,0) dcl 5-191 main_pcs_ptr defined pointer dcl 5-85 map_data_max defined fixed bin(17,0) dcl 5-163 map_data_ptr defined pointer dcl 5-55 max_stack_off defined fixed bin(17,0) dcl 5-123 minpral5_ptr defined pointer dcl 5-51 misc_base_ptr defined pointer dcl 5-61 misc_end_ptr defined pointer dcl 5-63 misc_max defined fixed bin(17,0) dcl 5-159 mod builtin function dcl 382 name_ptr automatic pointer dcl 115 next_tag defined fixed bin(17,0) dcl 5-129 non_source_offset defined fixed bin(17,0) dcl 5-177 ntbuf_ptr defined pointer dcl 5-83 obj_seg_name defined char(32) dcl 5-209 op_con_ptr defined pointer dcl 5-81 para_eop_flag defined fixed bin(17,0) dcl 5-139 parm_desc based structure level 1 dcl 3-7 parm_desc_ptr automatic pointer dcl 3-5 pd_map_index defined fixed bin(17,0) dcl 5-117 pd_map_max defined fixed bin(17,0) dcl 5-161 pd_map_ptr defined pointer dcl 5-29 pd_map_sw defined fixed bin(17,0) dcl 5-127 perform_list_ptr defined pointer dcl 5-37 perform_para_index defined fixed bin(17,0) dcl 5-149 perform_sect_index defined fixed bin(17,0) dcl 5-151 priority_no defined fixed bin(17,0) dcl 5-141 ptr_assumption_ind defined fixed bin(17,0) dcl 5-145 ptr_status_ptr defined pointer dcl 5-57 reg_assumption_ind defined fixed bin(17,0) dcl 5-147 reg_status_ptr defined pointer dcl 5-59 rel builtin function dcl 382 rel_seq10 internal static bit(5) initial array dcl 99 rel_seq8 internal static bit(5) initial array dcl 88 reloc_def_base_ptr defined pointer dcl 5-21 reloc_def_max defined fixed bin(24,0) dcl 5-109 reloc_link_base_ptr defined pointer dcl 5-23 reloc_link_max defined fixed bin(24,0) dcl 5-111 reloc_sym_base_ptr defined pointer dcl 5-25 reloc_sym_max defined fixed bin(24,0) dcl 5-113 reloc_text_base_ptr defined pointer dcl 5-19 reloc_text_max defined fixed bin(24,0) dcl 5-107 reloc_work_base_ptr defined pointer dcl 5-27 reloc_work_max defined fixed bin(24,0) dcl 5-115 report_exists defined bit(1) packed unaligned dcl 19-103 report_first_token defined pointer dcl 19-15 report_last_token defined pointer dcl 19-17 reschar_2EQs internal static fixed bin(17,0) initial dcl 17-286 reschar_2STARs internal static fixed bin(17,0) initial dcl 17-204 reschar_EQ internal static fixed bin(17,0) initial dcl 17-108 reschar_GT internal static fixed bin(17,0) initial dcl 17-121 reschar_LPARENS internal static fixed bin(17,0) initial dcl 17-205 reschar_LT internal static fixed bin(17,0) initial dcl 17-135 reschar_MINUS internal static fixed bin(17,0) initial dcl 17-201 reschar_PERIOD internal static fixed bin(17,0) initial dcl 17-207 reschar_PLUS internal static fixed bin(17,0) initial dcl 17-200 reschar_RPARENS internal static fixed bin(17,0) initial dcl 17-206 reschar_SLASH internal static fixed bin(17,0) initial dcl 17-203 reschar_STAR internal static fixed bin(17,0) initial dcl 17-202 reserved_word based structure level 1 unaligned dcl 7-14 reswd_ACCEPT internal static fixed bin(17,0) initial dcl 17-19 reswd_ACCESS internal static fixed bin(17,0) initial dcl 17-343 reswd_ADD internal static fixed bin(17,0) initial dcl 17-20 reswd_ADDRESS internal static fixed bin(17,0) initial dcl 17-345 reswd_ADVANCING internal static fixed bin(17,0) initial dcl 17-74 reswd_AFTER internal static fixed bin(17,0) initial dcl 17-75 reswd_ALL internal static fixed bin(17,0) initial dcl 17-76 reswd_ALPHABET internal static fixed bin(17,0) initial dcl 17-346 reswd_ALPHABETIC internal static fixed bin(17,0) initial dcl 17-77 reswd_ALPHANUMERIC internal static fixed bin(17,0) initial dcl 17-78 reswd_ALPHANUMERIC_EDITED internal static fixed bin(17,0) initial dcl 17-79 reswd_ALSO internal static fixed bin(17,0) initial dcl 17-100 reswd_ALTER internal static fixed bin(17,0) initial dcl 17-22 reswd_ALTERNATE internal static fixed bin(17,0) initial dcl 17-349 reswd_AND internal static fixed bin(17,0) initial dcl 17-80 reswd_APPLY internal static fixed bin(17,0) initial dcl 17-350 reswd_ARE internal static fixed bin(17,0) initial dcl 17-128 reswd_AREA internal static fixed bin(17,0) initial dcl 17-219 reswd_AREAS internal static fixed bin(17,0) initial dcl 17-219 reswd_ASCENDING internal static fixed bin(17,0) initial dcl 17-81 reswd_ASSIGN internal static fixed bin(17,0) initial dcl 17-351 reswd_AT internal static fixed bin(17,0) initial dcl 17-82 reswd_AUTHOR internal static fixed bin(17,0) initial dcl 17-352 reswd_BEFORE internal static fixed bin(17,0) initial dcl 17-83 reswd_BEGINNING internal static fixed bin(17,0) initial dcl 17-84 reswd_BIT internal static fixed bin(17,0) initial dcl 17-213 reswd_BITS internal static fixed bin(17,0) initial dcl 17-213 reswd_BLANK internal static fixed bin(17,0) initial dcl 17-222 reswd_BLOCK internal static fixed bin(17,0) initial dcl 17-223 reswd_BOOLEAN internal static fixed bin(17,0) initial dcl 17-152 reswd_BOTTOM internal static fixed bin(17,0) initial dcl 17-264 reswd_BSN internal static fixed bin(17,0) initial dcl 17-330 reswd_BY internal static fixed bin(17,0) initial dcl 17-85 reswd_CALL internal static fixed bin(17,0) initial dcl 17-23 reswd_CANCEL internal static fixed bin(17,0) initial dcl 17-25 reswd_CATALOGUE_NAME internal static fixed bin(17,0) initial dcl 17-322 reswd_CATALOG_NAME internal static fixed bin(17,0) initial dcl 17-322 reswd_CD internal static fixed bin(17,0) initial dcl 17-224 reswd_CF internal static fixed bin(17,0) initial dcl 17-353 reswd_CH internal static fixed bin(17,0) initial dcl 17-354 reswd_CHARACTER internal static fixed bin(17,0) initial dcl 17-86 reswd_CHARACTERS internal static fixed bin(17,0) initial dcl 17-86 reswd_CLOCK_UNITS internal static fixed bin(17,0) initial dcl 17-355 reswd_CLOSE internal static fixed bin(17,0) initial dcl 17-26 reswd_COBOL internal static fixed bin(17,0) initial dcl 17-209 reswd_CODE internal static fixed bin(17,0) initial dcl 17-356 reswd_CODE_SET internal static fixed bin(17,0) initial dcl 17-314 reswd_COLLATING internal static fixed bin(17,0) initial dcl 17-357 reswd_COLUMN internal static fixed bin(17,0) initial dcl 17-358 reswd_COMMA internal static fixed bin(17,0) initial dcl 17-359 reswd_COMMUNICATION internal static fixed bin(17,0) initial dcl 17-225 reswd_COMP internal static fixed bin(17,0) initial dcl 17-113 reswd_COMPUTATIONAL internal static fixed bin(17,0) initial dcl 17-113 reswd_COMPUTATIONAL_1 internal static fixed bin(17,0) initial dcl 17-233 reswd_COMPUTATIONAL_2 internal static fixed bin(17,0) initial dcl 17-235 reswd_COMPUTATIONAL_3 internal static fixed bin(17,0) initial dcl 17-231 reswd_COMPUTATIONAL_4 internal static fixed bin(17,0) initial dcl 17-227 reswd_COMPUTATIONAL_5 internal static fixed bin(17,0) initial dcl 17-229 reswd_COMPUTATIONAL_6 internal static fixed bin(17,0) initial dcl 17-308 reswd_COMPUTATIONAL_7 internal static fixed bin(17,0) initial dcl 17-305 reswd_COMPUTATIONAL_8 internal static fixed bin(17,0) initial dcl 17-448 reswd_COMPUTE internal static fixed bin(17,0) initial dcl 17-57 reswd_COMP_1 internal static fixed bin(17,0) initial dcl 17-233 reswd_COMP_2 internal static fixed bin(17,0) initial dcl 17-235 reswd_COMP_3 internal static fixed bin(17,0) initial dcl 17-231 reswd_COMP_4 internal static fixed bin(17,0) initial dcl 17-227 reswd_COMP_5 internal static fixed bin(17,0) initial dcl 17-229 reswd_COMP_6 internal static fixed bin(17,0) initial dcl 17-308 reswd_COMP_7 internal static fixed bin(17,0) initial dcl 17-305 reswd_COMP_8 internal static fixed bin(17,0) initial dcl 17-448 reswd_CONFIGURATION internal static fixed bin(17,0) initial dcl 17-360 reswd_CONSTANT internal static fixed bin(17,0) initial dcl 17-237 reswd_CONTAINS internal static fixed bin(17,0) initial dcl 17-238 reswd_CONTROL internal static fixed bin(17,0) initial dcl 17-362 reswd_CONTROLS internal static fixed bin(17,0) initial dcl 17-363 reswd_CONVERSION internal static fixed bin(17,0) initial dcl 17-361 reswd_COPY internal static fixed bin(17,0) initial dcl 17-364 reswd_CORR internal static fixed bin(17,0) initial dcl 17-365 reswd_CORRESPONDING internal static fixed bin(17,0) initial dcl 17-365 reswd_COUNT internal static fixed bin(17,0) initial dcl 17-88 reswd_CURRENCY internal static fixed bin(17,0) initial dcl 17-367 reswd_DATA internal static fixed bin(17,0) initial dcl 17-216 reswd_DATE internal static fixed bin(17,0) initial dcl 17-90 reswd_DATE_COMPILED internal static fixed bin(17,0) initial dcl 17-369 reswd_DATE_WRITTEN internal static fixed bin(17,0) initial dcl 17-370 reswd_DAY internal static fixed bin(17,0) initial dcl 17-91 reswd_DAY_OF_WEEK internal static fixed bin(17,0) initial dcl 17-317 reswd_DE internal static fixed bin(17,0) initial dcl 17-371 reswd_DEBUGGING internal static fixed bin(17,0) initial dcl 17-92 reswd_DEBUG_CONTENTS internal static fixed bin(17,0) initial dcl 17-372 reswd_DEBUG_ITEM internal static fixed bin(17,0) initial dcl 17-373 reswd_DEBUG_LINE internal static fixed bin(17,0) initial dcl 17-374 reswd_DEBUG_NAME internal static fixed bin(17,0) initial dcl 17-379 reswd_DEBUG_SUB_1 internal static fixed bin(17,0) initial dcl 17-375 reswd_DEBUG_SUB_2 internal static fixed bin(17,0) initial dcl 17-376 reswd_DEBUG_SUB_3 internal static fixed bin(17,0) initial dcl 17-377 reswd_DECIMAL_POINT internal static fixed bin(17,0) initial dcl 17-380 reswd_DECLARATIVES internal static fixed bin(17,0) initial dcl 17-93 reswd_DEFAULT internal static fixed bin(17,0) initial dcl 17-312 reswd_DELETE internal static fixed bin(17,0) initial dcl 17-40 reswd_DELIMITED internal static fixed bin(17,0) initial dcl 17-94 reswd_DELIMITER internal static fixed bin(17,0) initial dcl 17-95 reswd_DEPENDING internal static fixed bin(17,0) initial dcl 17-96 reswd_DESCENDING internal static fixed bin(17,0) initial dcl 17-97 reswd_DESTINATION internal static fixed bin(17,0) initial dcl 17-241 reswd_DETAIL internal static fixed bin(17,0) initial dcl 17-381 reswd_DISABLE internal static fixed bin(17,0) initial dcl 17-58 reswd_DISPLAY internal static fixed bin(17,0) initial dcl 17-59 reswd_DIVIDE internal static fixed bin(17,0) initial dcl 17-27 reswd_DIVISION internal static fixed bin(17,0) initial dcl 17-98 reswd_DOWN internal static fixed bin(17,0) initial dcl 17-99 reswd_DUPLICATES internal static fixed bin(17,0) initial dcl 17-252 reswd_DYNAMIC internal static fixed bin(17,0) initial dcl 17-185 reswd_EGI internal static fixed bin(17,0) initial dcl 17-260 reswd_ELSE internal static fixed bin(17,0) initial dcl 17-100 reswd_EMI internal static fixed bin(17,0) initial dcl 17-102 reswd_ENABLE internal static fixed bin(17,0) initial dcl 17-60 reswd_END internal static fixed bin(17,0) initial dcl 17-103 reswd_ENDING internal static fixed bin(17,0) initial dcl 17-104 reswd_END_OF_PAGE internal static fixed bin(17,0) initial dcl 17-105 reswd_ENTER internal static fixed bin(17,0) initial dcl 17-61 reswd_ENVIRONMENT internal static fixed bin(17,0) initial dcl 17-382 reswd_EOP internal static fixed bin(17,0) initial dcl 17-105 reswd_EQUAL internal static fixed bin(17,0) initial dcl 17-108 reswd_EQUALS internal static fixed bin(17,0) initial dcl 17-108 reswd_ERROR internal static fixed bin(17,0) initial dcl 17-21 reswd_ESI internal static fixed bin(17,0) initial dcl 17-112 reswd_EVERY internal static fixed bin(17,0) initial dcl 17-384 reswd_EXAMINE internal static fixed bin(17,0) initial dcl 17-67 reswd_EXCEEDS internal static fixed bin(17,0) initial dcl 17-121 reswd_EXCEPTION internal static fixed bin(17,0) initial dcl 17-115 reswd_EXIT internal static fixed bin(17,0) initial dcl 17-30 reswd_EXOR internal static fixed bin(17,0) initial dcl 17-442 reswd_EXTEND internal static fixed bin(17,0) initial dcl 17-239 reswd_EXTERNAL internal static fixed bin(17,0) initial dcl 17-315 reswd_FD internal static fixed bin(17,0) initial dcl 17-242 reswd_FILE internal static fixed bin(17,0) initial dcl 17-116 reswd_FILES internal static fixed bin(17,0) initial dcl 17-299 reswd_FILE_CONTROL internal static fixed bin(17,0) initial dcl 17-385 reswd_FILLER internal static fixed bin(17,0) initial dcl 17-243 reswd_FINAL internal static fixed bin(17,0) initial dcl 17-387 reswd_FIRST internal static fixed bin(17,0) initial dcl 17-117 reswd_FLR internal static fixed bin(17,0) initial dcl 17-296 reswd_FOOTING internal static fixed bin(17,0) initial dcl 17-388 reswd_FOR internal static fixed bin(17,0) initial dcl 17-118 reswd_FROM internal static fixed bin(17,0) initial dcl 17-119 reswd_GENERATE internal static fixed bin(17,0) initial dcl 17-62 reswd_GIVING internal static fixed bin(17,0) initial dcl 17-120 reswd_GO internal static fixed bin(17,0) initial dcl 17-32 reswd_GREATER internal static fixed bin(17,0) initial dcl 17-121 reswd_GROUP internal static fixed bin(17,0) initial dcl 17-390 reswd_HEADING internal static fixed bin(17,0) initial dcl 17-389 reswd_HIGH_VALUE internal static fixed bin(17,0) initial dcl 17-244 reswd_HIGH_VALUES internal static fixed bin(17,0) initial dcl 17-244 reswd_HOLD internal static fixed bin(17,0) initial dcl 17-63 reswd_IDENTIFICATION internal static fixed bin(17,0) initial dcl 17-393 reswd_IDS_II internal static fixed bin(17,0) initial dcl 17-334 reswd_IF internal static fixed bin(17,0) initial dcl 17-64 reswd_IN internal static fixed bin(17,0) initial dcl 17-107 reswd_INDEX internal static fixed bin(17,0) initial dcl 17-246 reswd_INDEXED internal static fixed bin(17,0) initial dcl 17-247 reswd_INDICATE internal static fixed bin(17,0) initial dcl 17-394 reswd_INITIAL internal static fixed bin(17,0) initial dcl 17-124 reswd_INITIALIZE internal static fixed bin(17,0) initial dcl 17-31 reswd_INITIATE internal static fixed bin(17,0) initial dcl 17-34 reswd_INPUT internal static fixed bin(17,0) initial dcl 17-125 reswd_INPUT_OUTPUT internal static fixed bin(17,0) initial dcl 17-130 reswd_INSPECT internal static fixed bin(17,0) initial dcl 17-35 reswd_INSTALLATION internal static fixed bin(17,0) initial dcl 17-395 reswd_INTERCHANGE internal static fixed bin(17,0) initial dcl 17-318 reswd_INTO internal static fixed bin(17,0) initial dcl 17-126 reswd_INVALID internal static fixed bin(17,0) initial dcl 17-127 reswd_IS internal static fixed bin(17,0) initial dcl 17-128 reswd_I_O internal static fixed bin(17,0) initial dcl 17-130 reswd_I_O_CONTROL internal static fixed bin(17,0) initial dcl 17-392 reswd_JUST internal static fixed bin(17,0) initial dcl 17-248 reswd_JUSTIFIED internal static fixed bin(17,0) initial dcl 17-248 reswd_KEY internal static fixed bin(17,0) initial dcl 17-132 reswd_KEYED internal static fixed bin(17,0) initial dcl 17-332 reswd_LABEL internal static fixed bin(17,0) initial dcl 17-133 reswd_LAST internal static fixed bin(17,0) initial dcl 17-397 reswd_LEADING internal static fixed bin(17,0) initial dcl 17-134 reswd_LEFT internal static fixed bin(17,0) initial dcl 17-250 reswd_LENGTH internal static fixed bin(17,0) initial dcl 17-251 reswd_LESS internal static fixed bin(17,0) initial dcl 17-135 reswd_LIMIT internal static fixed bin(17,0) initial dcl 17-401 reswd_LIMITS internal static fixed bin(17,0) initial dcl 17-402 reswd_LINAGE internal static fixed bin(17,0) initial dcl 17-403 reswd_LINAGE_COUNTER internal static fixed bin(17,0) initial dcl 17-404 reswd_LINE internal static fixed bin(17,0) initial dcl 17-137 reswd_LINES internal static fixed bin(17,0) initial dcl 17-137 reswd_LINE_COUNTER internal static fixed bin(17,0) initial dcl 17-405 reswd_LINKAGE internal static fixed bin(17,0) initial dcl 17-253 reswd_LOCK internal static fixed bin(17,0) initial dcl 17-139 reswd_LOW_VALUE internal static fixed bin(17,0) initial dcl 17-254 reswd_LOW_VALUES internal static fixed bin(17,0) initial dcl 17-254 reswd_MEMORY internal static fixed bin(17,0) initial dcl 17-407 reswd_MERGE internal static fixed bin(17,0) initial dcl 17-33 reswd_MESSAGE internal static fixed bin(17,0) initial dcl 17-140 reswd_MODE internal static fixed bin(17,0) initial dcl 17-256 reswd_MODULES internal static fixed bin(17,0) initial dcl 17-408 reswd_MOVE internal static fixed bin(17,0) initial dcl 17-36 reswd_MULTIPLE internal static fixed bin(17,0) initial dcl 17-409 reswd_MULTIPLY internal static fixed bin(17,0) initial dcl 17-28 reswd_NATIVE internal static fixed bin(17,0) initial dcl 17-303 reswd_NEGATIVE internal static fixed bin(17,0) initial dcl 17-141 reswd_NEXT internal static fixed bin(17,0) initial dcl 17-142 reswd_NO internal static fixed bin(17,0) initial dcl 17-143 reswd_NOT internal static fixed bin(17,0) initial dcl 17-144 reswd_NUMBER internal static fixed bin(17,0) initial dcl 17-410 reswd_NUMERIC internal static fixed bin(17,0) initial dcl 17-145 reswd_NUMERIC_EDITED internal static fixed bin(17,0) initial dcl 17-146 reswd_OBJECT internal static fixed bin(17,0) initial dcl 17-307 reswd_OBJECT_COMPUTER internal static fixed bin(17,0) initial dcl 17-411 reswd_OCCURS internal static fixed bin(17,0) initial dcl 17-257 reswd_OF internal static fixed bin(17,0) initial dcl 17-147 reswd_OFF internal static fixed bin(17,0) initial dcl 17-413 reswd_OMITTED internal static fixed bin(17,0) initial dcl 17-221 reswd_ON internal static fixed bin(17,0) initial dcl 17-148 reswd_OPEN internal static fixed bin(17,0) initial dcl 17-37 reswd_OPTIONAL internal static fixed bin(17,0) initial dcl 17-415 reswd_OR internal static fixed bin(17,0) initial dcl 17-149 reswd_ORGANIZATION internal static fixed bin(17,0) initial dcl 17-199 reswd_OUTPUT internal static fixed bin(17,0) initial dcl 17-151 reswd_OVERFLOW internal static fixed bin(17,0) initial dcl 17-24 reswd_PAGE internal static fixed bin(17,0) initial dcl 17-153 reswd_PAGE_COUNTER internal static fixed bin(17,0) initial dcl 17-417 reswd_PERFORM internal static fixed bin(17,0) initial dcl 17-38 reswd_PF internal static fixed bin(17,0) initial dcl 17-418 reswd_PH internal static fixed bin(17,0) initial dcl 17-419 reswd_PIC internal static fixed bin(17,0) initial dcl 17-258 reswd_PICTURE internal static fixed bin(17,0) initial dcl 17-258 reswd_PLUS internal static fixed bin(17,0) initial dcl 17-420 reswd_POINTER internal static fixed bin(17,0) initial dcl 17-154 reswd_POSITION internal static fixed bin(17,0) initial dcl 17-421 reswd_POSITIVE internal static fixed bin(17,0) initial dcl 17-155 reswd_PRINTING internal static fixed bin(17,0) initial dcl 17-399 reswd_PROCEDURE internal static fixed bin(17,0) initial dcl 17-156 reswd_PROCEDURES internal static fixed bin(17,0) initial dcl 17-157 reswd_PROCEED internal static fixed bin(17,0) initial dcl 17-158 reswd_PROCESS internal static fixed bin(17,0) initial dcl 17-65 reswd_PROCESSING internal static fixed bin(17,0) initial dcl 17-159 reswd_PROCESS_AREA internal static fixed bin(17,0) initial dcl 17-320 reswd_PROGRAM internal static fixed bin(17,0) initial dcl 17-160 reswd_PROGRAM_ID internal static fixed bin(17,0) initial dcl 17-422 reswd_PURGE internal static fixed bin(17,0) initial dcl 17-72 reswd_QUEUE internal static fixed bin(17,0) initial dcl 17-261 reswd_QUOTE internal static fixed bin(17,0) initial dcl 17-262 reswd_QUOTES internal static fixed bin(17,0) initial dcl 17-262 reswd_RANDOM internal static fixed bin(17,0) initial dcl 17-161 reswd_RD internal static fixed bin(17,0) initial dcl 17-423 reswd_READ internal static fixed bin(17,0) initial dcl 17-39 reswd_RECEIVE internal static fixed bin(17,0) initial dcl 17-41 reswd_RECORD internal static fixed bin(17,0) initial dcl 17-162 reswd_RECORDING internal static fixed bin(17,0) initial dcl 17-265 reswd_RECORDS internal static fixed bin(17,0) initial dcl 17-215 reswd_REDEFINES internal static fixed bin(17,0) initial dcl 17-266 reswd_REEL internal static fixed bin(17,0) initial dcl 17-163 reswd_REFERENCES internal static fixed bin(17,0) initial dcl 17-164 reswd_RELATIVE internal static fixed bin(17,0) initial dcl 17-182 reswd_RELEASE internal static fixed bin(17,0) initial dcl 17-42 reswd_REMAINDER internal static fixed bin(17,0) initial dcl 17-165 reswd_REMOVAL internal static fixed bin(17,0) initial dcl 17-291 reswd_RENAMES internal static fixed bin(17,0) initial dcl 17-267 reswd_REPLACE internal static fixed bin(17,0) initial dcl 17-336 reswd_REPLACING internal static fixed bin(17,0) initial dcl 17-166 reswd_REPORT internal static fixed bin(17,0) initial dcl 17-268 reswd_REPORTING internal static fixed bin(17,0) initial dcl 17-167 reswd_REPORTS internal static fixed bin(17,0) initial dcl 17-268 reswd_RERUN internal static fixed bin(17,0) initial dcl 17-426 reswd_RESERVE internal static fixed bin(17,0) initial dcl 17-427 reswd_RESET internal static fixed bin(17,0) initial dcl 17-428 reswd_RETURN internal static fixed bin(17,0) initial dcl 17-43 reswd_REVERSED internal static fixed bin(17,0) initial dcl 17-168 reswd_REWIND internal static fixed bin(17,0) initial dcl 17-169 reswd_REWRITE internal static fixed bin(17,0) initial dcl 17-45 reswd_RF internal static fixed bin(17,0) initial dcl 17-429 reswd_RH internal static fixed bin(17,0) initial dcl 17-430 reswd_RIGHT internal static fixed bin(17,0) initial dcl 17-270 reswd_ROUNDED internal static fixed bin(17,0) initial dcl 17-170 reswd_RUN internal static fixed bin(17,0) initial dcl 17-171 reswd_SA internal static fixed bin(17,0) initial dcl 17-271 reswd_SAME internal static fixed bin(17,0) initial dcl 17-431 reswd_SD internal static fixed bin(17,0) initial dcl 17-272 reswd_SEARCH internal static fixed bin(17,0) initial dcl 17-44 reswd_SECTION internal static fixed bin(17,0) initial dcl 17-172 reswd_SECURITY internal static fixed bin(17,0) initial dcl 17-432 reswd_SEGMENT internal static fixed bin(17,0) initial dcl 17-173 reswd_SEGMENT_LIMIT internal static fixed bin(17,0) initial dcl 17-433 reswd_SELECT internal static fixed bin(17,0) initial dcl 17-434 reswd_SEND internal static fixed bin(17,0) initial dcl 17-47 reswd_SENTENCE internal static fixed bin(17,0) initial dcl 17-174 reswd_SEPARATE internal static fixed bin(17,0) initial dcl 17-273 reswd_SEQUENCE internal static fixed bin(17,0) initial dcl 17-425 reswd_SEQUENTIAL internal static fixed bin(17,0) initial dcl 17-435 reswd_SET internal static fixed bin(17,0) initial dcl 17-48 reswd_SIGN internal static fixed bin(17,0) initial dcl 17-274 reswd_SIZE internal static fixed bin(17,0) initial dcl 17-175 reswd_SORT_MERGE internal static fixed bin(17,0) initial dcl 17-436 reswd_SOURCE internal static fixed bin(17,0) initial dcl 17-275 reswd_SOURCE_COMPUTER internal static fixed bin(17,0) initial dcl 17-437 reswd_SPACE internal static fixed bin(17,0) initial dcl 17-210 reswd_SPACES internal static fixed bin(17,0) initial dcl 17-210 reswd_SPANNED internal static fixed bin(17,0) initial dcl 17-439 reswd_SPECIAL_NAMES internal static fixed bin(17,0) initial dcl 17-438 reswd_SSF internal static fixed bin(17,0) initial dcl 17-89 reswd_STANDARD internal static fixed bin(17,0) initial dcl 17-176 reswd_STANDARD_1 internal static fixed bin(17,0) initial dcl 17-347 reswd_STANDARD_2 internal static fixed bin(17,0) initial dcl 17-226 reswd_START internal static fixed bin(17,0) initial dcl 17-70 reswd_STATUS internal static fixed bin(17,0) initial dcl 17-276 reswd_STOP internal static fixed bin(17,0) initial dcl 17-50 reswd_STREAM internal static fixed bin(17,0) initial dcl 17-328 reswd_STRING internal static fixed bin(17,0) initial dcl 17-51 reswd_SUBSTITUTION internal static fixed bin(17,0) initial dcl 17-338 reswd_SUBTRACT internal static fixed bin(17,0) initial dcl 17-29 reswd_SUB_QUEUE_1 internal static fixed bin(17,0) initial dcl 17-277 reswd_SUB_QUEUE_2 internal static fixed bin(17,0) initial dcl 17-278 reswd_SUB_QUEUE_3 internal static fixed bin(17,0) initial dcl 17-279 reswd_SUM internal static fixed bin(17,0) initial dcl 17-441 reswd_SUPPRESS internal static fixed bin(17,0) initial dcl 17-71 reswd_SUSPEND internal static fixed bin(17,0) initial dcl 17-52 reswd_SYMBOLIC internal static fixed bin(17,0) initial dcl 17-280 reswd_SYNC internal static fixed bin(17,0) initial dcl 17-281 reswd_SYNCHRONIZED internal static fixed bin(17,0) initial dcl 17-281 reswd_TABLE internal static fixed bin(17,0) initial dcl 17-283 reswd_TALLY internal static fixed bin(17,0) initial dcl 17-212 reswd_TALLYING internal static fixed bin(17,0) initial dcl 17-177 reswd_TAPE internal static fixed bin(17,0) initial dcl 17-444 reswd_TERMINAL internal static fixed bin(17,0) initial dcl 17-178 reswd_TERMINATE internal static fixed bin(17,0) initial dcl 17-53 reswd_TEXT internal static fixed bin(17,0) initial dcl 17-445 reswd_THAN internal static fixed bin(17,0) initial dcl 17-179 reswd_THROUGH internal static fixed bin(17,0) initial dcl 17-180 reswd_THRU internal static fixed bin(17,0) initial dcl 17-180 reswd_TIME internal static fixed bin(17,0) initial dcl 17-183 reswd_TIMES internal static fixed bin(17,0) initial dcl 17-183 reswd_TO internal static fixed bin(17,0) initial dcl 17-186 reswd_TOP internal static fixed bin(17,0) initial dcl 17-208 reswd_TRAILING internal static fixed bin(17,0) initial dcl 17-285 reswd_TRANSFORM internal static fixed bin(17,0) initial dcl 17-68 reswd_TYPE internal static fixed bin(17,0) initial dcl 17-446 reswd_UNEQUAL internal static fixed bin(17,0) initial dcl 17-187 reswd_UNIT internal static fixed bin(17,0) initial dcl 17-188 reswd_UNSTRING internal static fixed bin(17,0) initial dcl 17-54 reswd_UNTIL internal static fixed bin(17,0) initial dcl 17-189 reswd_UP internal static fixed bin(17,0) initial dcl 17-190 reswd_UPON internal static fixed bin(17,0) initial dcl 17-191 reswd_USAGE internal static fixed bin(17,0) initial dcl 17-287 reswd_USE internal static fixed bin(17,0) initial dcl 17-56 reswd_USING internal static fixed bin(17,0) initial dcl 17-192 reswd_VALUE internal static fixed bin(17,0) initial dcl 17-288 reswd_VALUES internal static fixed bin(17,0) initial dcl 17-288 reswd_VARYING internal static fixed bin(17,0) initial dcl 17-193 reswd_VLR internal static fixed bin(17,0) initial dcl 17-218 reswd_WHEN internal static fixed bin(17,0) initial dcl 17-194 reswd_WITH internal static fixed bin(17,0) initial dcl 17-195 reswd_WORDS internal static fixed bin(17,0) initial dcl 17-447 reswd_WORKING_STORAGE internal static fixed bin(17,0) initial dcl 17-290 reswd_WRITE internal static fixed bin(17,0) initial dcl 17-55 reswd_ZERO internal static fixed bin(17,0) initial dcl 17-196 reswd_ZEROES internal static fixed bin(17,0) initial dcl 17-196 reswd_ZEROS internal static fixed bin(17,0) initial dcl 17-196 reswd_ptr defined pointer dcl 5-79 rw_ptr automatic pointer dcl 7-11 same_sort_merge_proc defined bit(1) dcl 5-215 scratch_dir defined char(168) dcl 5-207 sect_eop_flag defined fixed bin(17,0) dcl 5-137 seg_init_flag defined fixed bin(17,0) dcl 5-133 seg_init_list_ptr defined pointer dcl 5-41 segname based structure level 1 dcl 20-43 stack_off defined fixed bin(17,0) dcl 5-121 stat based structure level 1 dcl 4-23 stat_ptr automatic pointer dcl 4-22 statement_info_ptr defined pointer dcl 5-77 sym_base_ptr defined pointer dcl 5-17 sym_max defined fixed bin(17,0) dcl 5-105 sym_wd_off defined fixed bin(17,0) dcl 5-103 tag_table_max defined fixed bin(17,0) dcl 5-167 tag_table_ptr defined pointer dcl 5-53 temp_token_area_ptr defined pointer dcl 5-43 temp_token_max defined fixed bin(17,0) dcl 5-169 temp_token_ptr defined pointer dcl 5-45 text_base_ptr defined pointer dcl 5-9 text_wd_off defined fixed bin(17,0) dcl 5-91 token_block1_ptr defined pointer dcl 5-47 token_block2_ptr defined pointer dcl 5-49 value_cnt defined fixed bin(17,0) dcl 5-195 ws_charcnt defined fixed bin(17,0) dcl 5-187 ws_wdoff defined fixed bin(17,0) dcl 5-201 xref_bypass defined bit(1) dcl 5-213 xref_chain_ptr defined pointer dcl 5-75 xref_token_ptr defined pointer dcl 5-73 NAMES DECLARED BY EXPLICIT CONTEXT. cmpc_test 001113 constant entry internal dcl 324 ref 265 cmpn_test 001077 constant entry internal dcl 314 ref 262 269 cmpq_test 001130 constant entry internal dcl 334 ref 266 cobol_sort_gen 000021 constant entry external dcl 27 continue 000240 constant label dcl 211 ref 201 initiate 001144 constant entry internal dcl 349 ref 191 start 000026 constant label dcl 166 THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 1632 2034 1345 1642 Length 2676 1345 202 626 265 120 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME cobol_sort_gen 208 external procedure is an external procedure. cmpn_test internal procedure shares stack frame of external procedure cobol_sort_gen. cmpc_test internal procedure shares stack frame of external procedure cobol_sort_gen. cmpq_test internal procedure shares stack frame of external procedure cobol_sort_gen. initiate internal procedure shares stack frame of external procedure cobol_sort_gen. STORAGE FOR INTERNAL STATIC VARIABLES. LOC IDENTIFIER BLOCK NAME 000010 pr_struc cobol_sort_gen 000014 alpha_type9 cobol_sort_gen 000050 type19 cobol_sort_gen 000062 instr_seq cobol_sort_gen 000063 instr_seq7 cobol_sort_gen 000072 rel_seq7 cobol_sort_gen 000110 instr_seq8 cobol_sort_gen 000111 instr_seq11 cobol_sort_gen 000116 sort_in_token cobol_sort_gen 000126 first_call cobol_sort_gen 000127 sort_stack_off cobol_sort_gen STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME cobol_sort_gen 000100 mvt_ptr cobol_sort_gen 000102 to_offset cobol_sort_gen 000104 workpt2 cobol_sort_gen 000106 last_token cobol_sort_gen 000110 dn_ptr cobol_sort_gen 000112 sort_file_ptr cobol_sort_gen 000114 sort_gen_ptr cobol_sort_gen 000116 compare_hold_ic cobol_sort_gen 000117 desc_off cobol_sort_gen 000122 desc_ptr cobol_sort_gen 000124 object_name_len cobol_sort_gen 000125 object_name cobol_sort_gen 000135 temp cobol_sort_gen 000136 sort_gen_text_wd_off cobol_sort_gen 000137 retry_tag cobol_sort_gen 000140 passed_tag cobol_sort_gen 000141 passed_tag1 cobol_sort_gen 000142 i cobol_sort_gen 000143 ad_bit cobol_sort_gen 000144 op cobol_sort_gen 000146 text_ptr cobol_sort_gen 000150 eos_ptr cobol_sort_gen 000152 alpha_name_ptr cobol_sort_gen 000206 inst_seq initiate 000210 rel_seq initiate THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. call_ext_out_desc call_ext_out return_mac ext_entry THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. cobol_alloc$stack cobol_call_op cobol_compare_gen$sort cobol_def_util cobol_define_tag cobol_define_tag_nc cobol_emit cobol_make_tagref cobol_pointer_register$get cobol_pointer_register$priority cobol_pool cobol_reg_manager$after_op cobol_release_gen cobol_sort_util THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. cobol_$compile_count cobol_$init_stack_off cobol_$next_tag cobol_$same_sort_merge_proc cobol_$stack_off cobol_$text_base_ptr cobol_$text_wd_off LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 27 000016 166 000026 168 000033 170 000035 171 000037 173 000042 174 000044 175 000062 179 000065 182 000110 184 000113 185 000126 187 000142 190 000143 191 000152 192 000153 193 000160 194 000162 196 000166 197 000173 198 000176 200 000201 201 000203 203 000204 205 000206 206 000210 207 000232 208 000236 211 000240 214 000243 215 000245 216 000247 217 000251 218 000256 219 000276 220 000304 221 000320 222 000350 223 000353 224 000356 225 000360 226 000362 227 000402 228 000406 230 000425 233 000441 234 000444 235 000454 236 000457 237 000467 238 000472 240 000502 241 000511 242 000520 243 000522 244 000526 245 000530 246 000532 247 000535 248 000540 250 000544 251 000545 252 000546 254 000550 255 000552 256 000553 259 000565 262 000572 265 000602 266 000604 269 000611 272 000612 274 000620 275 000624 276 000627 278 000632 279 000652 280 000672 281 000703 282 000704 283 000724 285 000731 287 000733 288 000753 289 000773 291 001013 292 001022 293 001031 295 001052 296 001056 297 001060 298 001065 299 001070 301 001076 314 001077 318 001100 320 001106 322 001112 324 001113 328 001114 330 001123 332 001127 334 001130 338 001131 340 001140 342 001143 349 001144 353 001145 357 001176 360 001213 361 001227 362 001232 363 001242 364 001244 366 001251 367 001253 368 001256 370 001276 371 001302 372 001314 374 001325 375 001332 377 001341 ----------------------------------------------------------- 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