COMPILATION LISTING OF SEGMENT cobol_send_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 0955.3 mst Wed Options: optimize map 1 /****^ *********************************************************** 2* * * 3* * Copyright, (C) BULL HN Information Systems Inc., 1989 * 4* * * 5* * Copyright, (C) Honeywell Information Systems Inc., 1982 * 6* * * 7* * Copyright (c) 1972 by Massachusetts Institute of * 8* * Technology and Honeywell Information Systems, Inc. * 9* * * 10* *********************************************************** */ 11 12 13 14 15 /****^ HISTORY COMMENTS: 16* 1) change(89-04-23,Zimmerman), approve(89-04-23,MCR8060), 17* audit(89-05-05,RWaters), install(89-05-24,MR12.3-1048): 18* MCR8060 cobol_send_gen.pl1 Reformatted code to new Cobol standard. 19* END HISTORY COMMENTS */ 20 21 22 /* Modified on 10/02/77 by Bob Chang to fix the bug for mcs_ocdp. */ 23 /* Modified on 05/05/77 by Bob Chang to fix the bug for mnemonic name hof. */ 24 /* Modified on 04/12/77 by Bob Chang to fix the bug for end_indicator. */ 25 /* Modified on 03/24/77 by Bob Chang to implement communication send verb. */ 26 /* Created as a stub on 11/18/76 by ORN */ 27 28 /* format: style3 */ 29 cobol_send_gen: 30 proc (in_token_ptr); 31 32 /* Declaration for static data. */ 33 dcl 1 pr_struc static, 34 2 what_ptr fixed bin init (2), 35 2 pointer_no bit (3), 36 2 lock fixed bin init (0), 37 2 switch fixed bin init (0); 38 39 dcl 1 alpha_type9 static, 40 2 header (4) fixed bin init (112, 0, 0, 9), 41 2 repl_ptr (2) ptr init ((2) null ()), 42 2 fill1 bit (108) init (""b), 43 2 file_key_info, 44 3 fb1 (3) fixed bin init (0, 0, 0), 45 3 size fixed bin init (0), 46 3 fb2 (2) fixed bin init (0, 0), 47 3 flags1 bit (36) init ("000000100100000000010000000100000000"b), 48 3 flags2 bit (36) init (""b), 49 3 seg fixed bin init (0), 50 3 off fixed bin, 51 2 fill2 (7) fixed bin init (0, 0, 0, 0, 0, 0, 0); 52 53 dcl 1 type19_move static, 54 2 header (4) fixed bin init (38, 0, 0, 19), 55 2 verb fixed bin init (0), 56 2 e fixed bin init (1), 57 2 h fixed bin init (0), 58 2 ij (2) fixed bin init (0, 0), 59 2 abcdfgk bit (16) init ("0000000000000000"b); 60 dcl 1 mpout static, 61 2 n fixed bin init (4), 62 2 pt1 ptr, 63 2 pt2 ptr, 64 2 pt3 ptr, 65 2 pt4 ptr; 66 dcl 1 fb17_type9 static, 67 2 header (4) fixed bin init (112, 0, 0, 9), 68 2 repl_ptr (2) ptr init ((2) null ()), 69 2 fill1 bit (108) init (""b), 70 2 file_key_info, 71 3 fb1 (3) fixed bin init (0, 0, 0), 72 3 size fixed bin init (2), 73 3 places_left fixed bin init (4), 74 3 places_right fixed bin init (0), 75 3 flags1 bit (36) init ("000000100100010001000000000000000000"b), 76 3 flags2 bit (36) init (""b), 77 3 seg fixed bin init (0), 78 3 off fixed bin, 79 2 fill2 (7) fixed bin init (0, 0, 0, 0, 0, 0, 0); 80 81 dcl inst_seq (20) bit (18) unaligned static init ("110000000000000000"b, "010101010001000000"b, 82 /* spri2 pr6|offset */ 83 "000000000000000000"b, "010011101000000111"b, 84 /* lda 0,dl */ 85 "110000000000000000"b, "111101101001000000"b, 86 /* sta pr6|offset */ 87 "110000000000000000"b, "100101000001000000"b, 88 /* stz pr6|offset */ 89 "110000000000000000"b, "010011100001000000"b, 90 /* szn pr6|offset */ 91 "000000000000000000"b, "110000000000000100"b, 92 /* tze 0,ic */ 93 "000000000000000000"b, "010011101000000100"b, 94 /* lda 0,ic */ 95 "000000000000000000"b, "010011111001000000"b, 96 /* ldaq pr0|offset */ 97 "000000000000000000"b, "010011101000000011"b, 98 /* lda 0,du */ 99 "110000000000000000"b, "111101111001000000"b); 100 /* staq pr6|offset */ 101 102 dcl inst_buff bit (36), 103 inst_char char (4) based (addr (inst_buff)); 104 dcl btd (6) bit (18) static init ("000000000001000000"b, "011000001101000000"b, 105 /* btd */ 106 "110000000000000000"b, "000000000000000100"b, "110000000000000000"b, "000011000000000100"b); 107 108 109 /* Automatic data */ 110 dcl null_ptr ptr static init (null), 111 null_ptr_char char (8) based (addr (null_ptr)), 112 conoff fixed bin, 113 temp_char char (4), 114 temp_char1 char (1), 115 temp_bit1 bit (9) based (addr (temp_char1)), 116 con_flag fixed bin, 117 stoff fixed bin, 118 dn_ptr ptr, 119 name_ptr ptr, 120 in_op fixed bin, 121 char_conv char (9), 122 dec_conv fixed dec (6), 123 temp fixed bin; 124 125 /* External procedure */ 126 dcl cobol_call_op entry (fixed bin, fixed bin), 127 cobol_reg_manager$after_op 128 entry (fixed bin, fixed bin), 129 cobol_move_gen entry (ptr), 130 cobol_pool entry (char (*), fixed bin, fixed bin), 131 cobol_pool$search_op 132 entry (char (*), fixed bin, fixed bin, fixed bin), 133 cobol_pointer_register$priority 134 entry (fixed bin, fixed bin, bit (3)), 135 cobol_emit entry (ptr, ptr, fixed bin), 136 cobol_define_tag entry (fixed bin), 137 cobol_make_tagref entry (fixed bin, fixed bin, ptr), 138 cobol_set_pr entry (ptr, ptr), 139 cobol_get_size entry (ptr, fixed bin, fixed bin); 140 141 start: 142 mpout.pt1 = in_token.token_ptr (1); 143 mpout.pt4 = addr (type19_move); 144 eos_ptr = in_token.token_ptr (in_token.n); 145 146 /* Generate epp2 instruction for communication token. */ 147 cdtoken_ptr = in_token.token_ptr (2); 148 alpha_type9.seg = cdtoken.cd_seg; 149 alpha_type9.off = cdtoken.cd_off - 20; 150 call cobol_set_pr (addr (pr_struc), addr (alpha_type9)); 151 152 /* Allocate 12 words in stack frame for parameters */ 153 stoff = 74; /* Communication stack frame from pr6|74 */ 154 155 /* Store cd_token address. */ 156 substr (inst_seq (1), 4, 15) = substr (unspec (stoff), 22, 15); 157 call cobol_emit (addr (inst_seq (1)), null, 1); 158 159 /* Set up parameter for message type. */ 160 temp = stoff + 4; 161 if end_stmt.a = "000"b | end_stmt.b 162 then do; /* Generate epp2 instruction for receiving data item. */ 163 dn_ptr = in_token.token_ptr (3); 164 call cobol_set_pr (addr (pr_struc), dn_ptr); 165 /* Store into stack frame. */ 166 temp = stoff + 2; 167 substr (inst_seq (1), 4, 15) = substr (unspec (temp), 22, 15); 168 call cobol_emit (addr (inst_seq (1)), null, 1); 169 if ^data_name.variable_length 170 then do; 171 dec_conv = dec (data_name.item_length); 172 char_conv = char (dec_conv); 173 temp_char = substr (char_conv, 6, 4); 174 con_flag = 1; 175 end; 176 else do; 177 temp = stoff + 16; 178 call cobol_get_size (dn_ptr, temp, 0); 179 /* Generate btd instruction */ 180 substr (btd (3), 4, 15) = substr (unspec (temp), 22, 15); 181 temp = stoff + 4; 182 substr (btd (5), 4, 15) = substr (unspec (temp), 22, 15); 183 call cobol_emit (addr (btd), null, 3); 184 con_flag = 0; 185 end; 186 end; 187 else do; 188 call cobol_pool$search_op (null_ptr_char, 2, conoff, in_op); 189 substr (inst_seq (15), 4, 15) = substr (unspec (conoff), 22, 15); 190 call cobol_emit (addr (inst_seq (15)), null, 1); 191 /* Store into stack frame. */ 192 temp = stoff + 2; 193 substr (inst_seq (19), 4, 15) = substr (unspec (temp), 22, 15); 194 call cobol_emit (addr (inst_seq (19)), null, 1); 195 temp_char = "9999"; 196 con_flag = 1; 197 end; 198 if con_flag = 1 199 then do; 200 call cobol_pool (temp_char, 1, conoff); 201 temp = -cobol_$text_wd_off - conoff; 202 inst_seq (13) = substr (unspec (temp), 19, 18); 203 temp = stoff + 4; 204 substr (inst_seq (5), 4, 15) = substr (unspec (temp), 22, 15); 205 call cobol_emit (addr (inst_seq (13)), null, 1); 206 call cobol_emit (addr (inst_seq (5)), null, 1); 207 end; 208 209 if end_stmt.a = "000"b 210 then do; 211 temp = stoff + 5; 212 substr (inst_seq (7), 4, 15) = substr (unspec (temp), 22, 15); 213 call cobol_emit (addr (inst_seq (7)), null, 1); 214 temp = stoff + 6; 215 substr (inst_seq (7), 4, 15) = substr (unspec (temp), 22, 15); 216 call cobol_emit (addr (inst_seq (7)), null, 1); 217 end; 218 else do; 219 if end_stmt.d = "00"b 220 then do; 221 if end_stmt.b 222 then mpout.pt2 = in_token.token_ptr (4); 223 else mpout.pt2 = in_token.token_ptr (3); 224 mpout.pt3 = addr (alpha_type9); 225 alpha_type9.size = 1; 226 alpha_type9.seg = 1000; 227 alpha_type9.off = (stoff + 5) * 4; 228 call cobol_move_gen (addr (mpout)); 229 end; 230 else do; 231 dec_conv = dec (fixed (end_stmt.d)); 232 char_conv = char (dec_conv); 233 temp_char1 = substr (char_conv, 9, 1); 234 substr (inst_seq (17), 1, 9) = temp_bit1; 235 call cobol_emit (addr (inst_seq (17)), null, 1); 236 temp = stoff + 5; 237 substr (inst_seq (5), 4, 15) = substr (unspec (temp), 22, 15); 238 call cobol_emit (addr (inst_seq (5)), null, 1); 239 end; 240 if end_stmt.f = "00"b 241 then do; /* no linage */ 242 temp = stoff + 6; 243 substr (inst_seq (7), 4, 15) = substr (unspec (temp), 22, 15); 244 call cobol_emit (addr (inst_seq (7)), null, 1); 245 end; 246 else do; 247 dn_ptr = in_token.token_ptr (in_token.n - 1); 248 if data_name.type = 9 249 then do; /* line count in identifier */ 250 mpout.pt2 = dn_ptr; 251 mpout.pt3 = addr (fb17_type9); 252 fb17_type9.seg = 1000; 253 fb17_type9.off = (stoff + 6) * 4 + 2; 254 call cobol_move_gen (addr (mpout)); 255 end; 256 if end_stmt.f = "01"b 257 then substr (inst_buff, 1, 9) = "000000001"b; 258 else substr (inst_buff, 1, 9) = "000000010"b; 259 if data_name.type = 9 260 then do; /* ldx2 type of line control */ 261 substr (inst_buff, 19, 18) = "010010010000000011"b; 262 substr (inst_buff, 10, 9) = "000000001"b; 263 call cobol_emit (addr (inst_buff), null, 1); 264 /* stx2 pr6|stoff+6 */ 265 temp = stoff + 6; 266 substr (inst_buff, 1, 3) = "110"b; 267 substr (inst_buff, 4, 15) = substr (unspec (temp), 22, 15); 268 substr (inst_buff, 19, 18) = "111100010001000000"b; 269 call cobol_emit (addr (inst_buff), null, 1); 270 end; 271 else do; 272 if data_name.type = 2 273 then do; /* advancing integer lines. */ 274 substr (inst_buff, 10, 9) = "000000001"b; 275 temp = 276 fixed ( 277 substr (dn_ptr -> numeric_lit.literal, 1, 278 dn_ptr -> numeric_lit.places_left)); 279 substr (inst_buff, 19, 18) = substr (unspec (temp), 19, 18); 280 end; 281 else if data_name.type = 1 & dn_ptr -> reserved_word.key = reswd_PAGE 282 then /* advancing page. */ 283 substr (inst_buff, 10, 27) = "000000010000000000000000001"b; 284 else if data_name.type = 17 285 then do; 286 if dn_ptr -> mnemonic_name.iw_key < 227 287 & dn_ptr -> mnemonic_name.iw_key > 210 288 then do; /* slew, channel number mnemonic name. */ 289 substr (inst_buff, 10, 9) = "000000011"b; 290 temp = dn_ptr -> mnemonic_name.iw_key - 210; 291 substr (inst_buff, 19, 18) = substr (unspec (temp), 19, 18); 292 end; 293 else substr (inst_buff, 10, 27) = "000000010000000000000000001"b; 294 end; 295 call cobol_pool (inst_char, 1, conoff); 296 temp = -cobol_$text_wd_off - conoff; 297 inst_seq (13) = substr (unspec (temp), 19, 18); 298 temp = stoff + 6; 299 substr (inst_seq (5), 4, 15) = substr (unspec (temp), 22, 15); 300 call cobol_emit (addr (inst_seq (13)), null, 1); 301 call cobol_emit (addr (inst_seq (5)), null, 1); 302 end; 303 end; 304 end; 305 306 /* Call cobol_operators_ */ 307 call cobol_call_op (73, 0); 308 309 call cobol_reg_manager$after_op (73, 0); 310 311 312 exit: 313 return; 314 315 /***** Declaration for builtin function *****/ 316 317 dcl (substr, mod, binary, fixed, addr, addrel, rel, char, string, unspec, null, index) 318 builtin; 319 320 /***** End of declaration for builtin function *****/ 321 322 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 323 2 1 2 2 /* BEGIN INCLUDE FILE ... cobol_.incl.pl1 */ 2 3 /* last modified Feb 4, 1977 by ORN */ 2 4 2 5 /* This file defines all external data used in the generator phase of Multics Cobol */ 2 6 2 7 /* POINTERS */ 2 8 dcl cobol_$text_base_ptr ptr ext; 2 9 dcl text_base_ptr ptr defined (cobol_$text_base_ptr); 2 10 dcl cobol_$con_end_ptr ptr ext; 2 11 dcl con_end_ptr ptr defined (cobol_$con_end_ptr); 2 12 dcl cobol_$def_base_ptr ptr ext; 2 13 dcl def_base_ptr ptr defined (cobol_$def_base_ptr); 2 14 dcl cobol_$link_base_ptr ptr ext; 2 15 dcl link_base_ptr ptr defined (cobol_$link_base_ptr); 2 16 dcl cobol_$sym_base_ptr ptr ext; 2 17 dcl sym_base_ptr ptr defined (cobol_$sym_base_ptr); 2 18 dcl cobol_$reloc_text_base_ptr ptr ext; 2 19 dcl reloc_text_base_ptr ptr defined (cobol_$reloc_text_base_ptr); 2 20 dcl cobol_$reloc_def_base_ptr ptr ext; 2 21 dcl reloc_def_base_ptr ptr defined (cobol_$reloc_def_base_ptr); 2 22 dcl cobol_$reloc_link_base_ptr ptr ext; 2 23 dcl reloc_link_base_ptr ptr defined (cobol_$reloc_link_base_ptr); 2 24 dcl cobol_$reloc_sym_base_ptr ptr ext; 2 25 dcl reloc_sym_base_ptr ptr defined (cobol_$reloc_sym_base_ptr); 2 26 dcl cobol_$reloc_work_base_ptr ptr ext; 2 27 dcl reloc_work_base_ptr ptr defined (cobol_$reloc_work_base_ptr); 2 28 dcl cobol_$pd_map_ptr ptr ext; 2 29 dcl pd_map_ptr ptr defined (cobol_$pd_map_ptr); 2 30 dcl cobol_$fixup_ptr ptr ext; 2 31 dcl fixup_ptr ptr defined (cobol_$fixup_ptr); 2 32 dcl cobol_$initval_base_ptr ptr ext; 2 33 dcl initval_base_ptr ptr defined (cobol_$initval_base_ptr); 2 34 dcl cobol_$initval_file_ptr ptr ext; 2 35 dcl initval_file_ptr ptr defined (cobol_$initval_file_ptr); 2 36 dcl cobol_$perform_list_ptr ptr ext; 2 37 dcl perform_list_ptr ptr defined (cobol_$perform_list_ptr); 2 38 dcl cobol_$alter_list_ptr ptr ext; 2 39 dcl alter_list_ptr ptr defined (cobol_$alter_list_ptr); 2 40 dcl cobol_$seg_init_list_ptr ptr ext; 2 41 dcl seg_init_list_ptr ptr defined (cobol_$seg_init_list_ptr); 2 42 dcl cobol_$temp_token_area_ptr ptr ext; 2 43 dcl temp_token_area_ptr ptr defined (cobol_$temp_token_area_ptr); 2 44 dcl cobol_$temp_token_ptr ptr ext; 2 45 dcl temp_token_ptr ptr defined (cobol_$temp_token_ptr); 2 46 dcl cobol_$token_block1_ptr ptr ext; 2 47 dcl token_block1_ptr ptr defined (cobol_$token_block1_ptr); 2 48 dcl cobol_$token_block2_ptr ptr ext; 2 49 dcl token_block2_ptr ptr defined (cobol_$token_block2_ptr); 2 50 dcl cobol_$minpral5_ptr ptr ext; 2 51 dcl minpral5_ptr ptr defined (cobol_$minpral5_ptr); 2 52 dcl cobol_$tag_table_ptr ptr ext; 2 53 dcl tag_table_ptr ptr defined (cobol_$tag_table_ptr); 2 54 dcl cobol_$map_data_ptr ptr ext; 2 55 dcl map_data_ptr ptr defined (cobol_$map_data_ptr); 2 56 dcl cobol_$ptr_status_ptr ptr ext; 2 57 dcl ptr_status_ptr ptr defined (cobol_$ptr_status_ptr); 2 58 dcl cobol_$reg_status_ptr ptr ext; 2 59 dcl reg_status_ptr ptr defined (cobol_$reg_status_ptr); 2 60 dcl cobol_$misc_base_ptr ptr ext; 2 61 dcl misc_base_ptr ptr defined (cobol_$misc_base_ptr); 2 62 dcl cobol_$misc_end_ptr ptr ext; 2 63 dcl misc_end_ptr ptr defined (cobol_$misc_end_ptr); 2 64 dcl cobol_$list_ptr ptr ext; 2 65 dcl list_ptr ptr defined (cobol_$list_ptr); 2 66 dcl cobol_$allo1_ptr ptr ext; 2 67 dcl allo1_ptr ptr defined (cobol_$allo1_ptr); 2 68 dcl cobol_$eln_ptr ptr ext; 2 69 dcl eln_ptr ptr defined (cobol_$eln_ptr); 2 70 dcl cobol_$diag_ptr ptr ext; 2 71 dcl diag_ptr ptr defined (cobol_$diag_ptr); 2 72 dcl cobol_$xref_token_ptr ptr ext; 2 73 dcl xref_token_ptr ptr defined (cobol_$xref_token_ptr); 2 74 dcl cobol_$xref_chain_ptr ptr ext; 2 75 dcl xref_chain_ptr ptr defined (cobol_$xref_chain_ptr); 2 76 dcl cobol_$statement_info_ptr ptr ext; 2 77 dcl statement_info_ptr ptr defined (cobol_$statement_info_ptr); 2 78 dcl cobol_$reswd_ptr ptr ext; 2 79 dcl reswd_ptr ptr defined (cobol_$reswd_ptr); 2 80 dcl cobol_$op_con_ptr ptr ext; 2 81 dcl op_con_ptr ptr defined (cobol_$op_con_ptr); 2 82 dcl cobol_$ntbuf_ptr ptr ext; 2 83 dcl ntbuf_ptr ptr defined (cobol_$ntbuf_ptr); 2 84 dcl cobol_$main_pcs_ptr ptr ext; 2 85 dcl main_pcs_ptr ptr defined (cobol_$main_pcs_ptr); 2 86 dcl cobol_$include_info_ptr ptr ext; 2 87 dcl include_info_ptr ptr defined (cobol_$include_info_ptr); 2 88 2 89 /* FIXED BIN */ 2 90 dcl cobol_$text_wd_off fixed bin ext; 2 91 dcl text_wd_off fixed bin defined (cobol_$text_wd_off); 2 92 dcl cobol_$con_wd_off fixed bin ext; 2 93 dcl con_wd_off fixed bin defined (cobol_$con_wd_off); 2 94 dcl cobol_$def_wd_off fixed bin ext; 2 95 dcl def_wd_off fixed bin defined (cobol_$def_wd_off); 2 96 dcl cobol_$def_max fixed bin ext; 2 97 dcl def_max fixed bin defined (cobol_$def_max); 2 98 dcl cobol_$link_wd_off fixed bin ext; 2 99 dcl link_wd_off fixed bin defined (cobol_$link_wd_off); 2 100 dcl cobol_$link_max fixed bin ext; 2 101 dcl link_max fixed bin defined (cobol_$link_max); 2 102 dcl cobol_$sym_wd_off fixed bin ext; 2 103 dcl sym_wd_off fixed bin defined (cobol_$sym_wd_off); 2 104 dcl cobol_$sym_max fixed bin ext; 2 105 dcl sym_max fixed bin defined (cobol_$sym_max); 2 106 dcl cobol_$reloc_text_max fixed bin(24) ext; 2 107 dcl reloc_text_max fixed bin(24) defined (cobol_$reloc_text_max); 2 108 dcl cobol_$reloc_def_max fixed bin(24) ext; 2 109 dcl reloc_def_max fixed bin(24) defined (cobol_$reloc_def_max); 2 110 dcl cobol_$reloc_link_max fixed bin(24) ext; 2 111 dcl reloc_link_max fixed bin(24) defined (cobol_$reloc_link_max); 2 112 dcl cobol_$reloc_sym_max fixed bin(24) ext; 2 113 dcl reloc_sym_max fixed bin(24) defined (cobol_$reloc_sym_max); 2 114 dcl cobol_$reloc_work_max fixed bin(24) ext; 2 115 dcl reloc_work_max fixed bin(24) defined (cobol_$reloc_work_max); 2 116 dcl cobol_$pd_map_index fixed bin ext; 2 117 dcl pd_map_index fixed bin defined (cobol_$pd_map_index); 2 118 dcl cobol_$cobol_data_wd_off fixed bin ext; 2 119 dcl cobol_data_wd_off fixed bin defined (cobol_$cobol_data_wd_off); 2 120 dcl cobol_$stack_off fixed bin ext; 2 121 dcl stack_off fixed bin defined (cobol_$stack_off); 2 122 dcl cobol_$max_stack_off fixed bin ext; 2 123 dcl max_stack_off fixed bin defined (cobol_$max_stack_off); 2 124 dcl cobol_$init_stack_off fixed bin ext; 2 125 dcl init_stack_off fixed bin defined (cobol_$init_stack_off); 2 126 dcl cobol_$pd_map_sw fixed bin ext; 2 127 dcl pd_map_sw fixed bin defined (cobol_$pd_map_sw); 2 128 dcl cobol_$next_tag fixed bin ext; 2 129 dcl next_tag fixed bin defined (cobol_$next_tag); 2 130 dcl cobol_$data_init_flag fixed bin ext; 2 131 dcl data_init_flag fixed bin defined (cobol_$data_init_flag); 2 132 dcl cobol_$seg_init_flag fixed bin ext; 2 133 dcl seg_init_flag fixed bin defined (cobol_$seg_init_flag); 2 134 dcl cobol_$alter_flag fixed bin ext; 2 135 dcl alter_flag fixed bin defined (cobol_$alter_flag); 2 136 dcl cobol_$sect_eop_flag fixed bin ext; 2 137 dcl sect_eop_flag fixed bin defined (cobol_$sect_eop_flag); 2 138 dcl cobol_$para_eop_flag fixed bin ext; 2 139 dcl para_eop_flag fixed bin defined (cobol_$para_eop_flag); 2 140 dcl cobol_$priority_no fixed bin ext; 2 141 dcl priority_no fixed bin defined (cobol_$priority_no); 2 142 dcl cobol_$compile_count fixed bin ext; 2 143 dcl compile_count fixed bin defined (cobol_$compile_count); 2 144 dcl cobol_$ptr_assumption_ind fixed bin ext; 2 145 dcl ptr_assumption_ind fixed bin defined (cobol_$ptr_assumption_ind); 2 146 dcl cobol_$reg_assumption_ind fixed bin ext; 2 147 dcl reg_assumption_ind fixed bin defined (cobol_$reg_assumption_ind); 2 148 dcl cobol_$perform_para_index fixed bin ext; 2 149 dcl perform_para_index fixed bin defined (cobol_$perform_para_index); 2 150 dcl cobol_$perform_sect_index fixed bin ext; 2 151 dcl perform_sect_index fixed bin defined (cobol_$perform_sect_index); 2 152 dcl cobol_$alter_index fixed bin ext; 2 153 dcl alter_index fixed bin defined (cobol_$alter_index); 2 154 dcl cobol_$list_off fixed bin ext; 2 155 dcl list_off fixed bin defined (cobol_$list_off); 2 156 dcl cobol_$constant_offset fixed bin ext; 2 157 dcl constant_offset fixed bin defined (cobol_$constant_offset); 2 158 dcl cobol_$misc_max fixed bin ext; 2 159 dcl misc_max fixed bin defined (cobol_$misc_max); 2 160 dcl cobol_$pd_map_max fixed bin ext; 2 161 dcl pd_map_max fixed bin defined (cobol_$pd_map_max); 2 162 dcl cobol_$map_data_max fixed bin ext; 2 163 dcl map_data_max fixed bin defined (cobol_$map_data_max); 2 164 dcl cobol_$fixup_max fixed bin ext; 2 165 dcl fixup_max fixed bin defined (cobol_$fixup_max); 2 166 dcl cobol_$tag_table_max fixed bin ext; 2 167 dcl tag_table_max fixed bin defined (cobol_$tag_table_max); 2 168 dcl cobol_$temp_token_max fixed bin ext; 2 169 dcl temp_token_max fixed bin defined (cobol_$temp_token_max); 2 170 dcl cobol_$allo1_max fixed bin ext; 2 171 dcl allo1_max fixed bin defined (cobol_$allo1_max); 2 172 dcl cobol_$eln_max fixed bin ext; 2 173 dcl eln_max fixed bin defined (cobol_$eln_max); 2 174 dcl cobol_$debug_enable fixed bin ext; 2 175 dcl debug_enable fixed bin defined (cobol_$debug_enable); 2 176 dcl cobol_$non_source_offset fixed bin ext; 2 177 dcl non_source_offset fixed bin defined (cobol_$non_source_offset); 2 178 dcl cobol_$initval_flag fixed bin ext; 2 179 dcl initval_flag fixed bin defined (cobol_$initval_flag); 2 180 dcl cobol_$date_compiled_sw fixed bin ext; 2 181 dcl date_compiled_sw fixed bin defined (cobol_$date_compiled_sw); 2 182 dcl cobol_$include_cnt fixed bin ext; 2 183 dcl include_cnt fixed bin defined (cobol_$include_cnt); 2 184 dcl cobol_$fs_charcnt fixed bin ext; 2 185 dcl fs_charcnt fixed bin defined (cobol_$fs_charcnt); 2 186 dcl cobol_$ws_charcnt fixed bin ext; 2 187 dcl ws_charcnt fixed bin defined (cobol_$ws_charcnt); 2 188 dcl cobol_$coms_charcnt fixed bin ext; 2 189 dcl coms_charcnt fixed bin defined (cobol_$coms_charcnt); 2 190 dcl cobol_$ls_charcnt fixed bin ext; 2 191 dcl ls_charcnt fixed bin defined (cobol_$ls_charcnt); 2 192 dcl cobol_$cons_charcnt fixed bin ext; 2 193 dcl cons_charcnt fixed bin defined (cobol_$cons_charcnt); 2 194 dcl cobol_$value_cnt fixed bin ext; 2 195 dcl value_cnt fixed bin defined (cobol_$value_cnt); 2 196 dcl cobol_$cd_cnt fixed bin ext; 2 197 dcl cd_cnt fixed bin defined (cobol_$cd_cnt); 2 198 dcl cobol_$fs_wdoff fixed bin ext; 2 199 dcl fs_wdoff fixed bin defined (cobol_$fs_wdoff); 2 200 dcl cobol_$ws_wdoff fixed bin ext; 2 201 dcl ws_wdoff fixed bin defined (cobol_$ws_wdoff); 2 202 dcl cobol_$coms_wdoff fixed bin ext; 2 203 dcl coms_wdoff fixed bin defined (cobol_$coms_wdoff); 2 204 2 205 /* CHARACTER */ 2 206 dcl cobol_$scratch_dir char (168) aligned ext; 2 207 dcl scratch_dir char (168) aligned defined (cobol_$scratch_dir); /* -42- */ 2 208 dcl cobol_$obj_seg_name char (32) aligned ext; 2 209 dcl obj_seg_name char (32) aligned defined (cobol_$obj_seg_name); /* -8- */ 2 210 2 211 /* BIT */ 2 212 dcl cobol_$xref_bypass bit(1) aligned ext; 2 213 dcl xref_bypass bit(1) aligned defined (cobol_$xref_bypass); /* -1- */ 2 214 dcl cobol_$same_sort_merge_proc bit(1) aligned ext; 2 215 dcl same_sort_merge_proc bit(1) aligned defined (cobol_$same_sort_merge_proc); /* -1- */ 2 216 2 217 2 218 /* END INCLUDE FILE ... cobol_incl.pl1*/ 2 219 2 220 324 3 1 3 2 /* BEGIN INCLUDE FILE ... cobol_type19.incl.pl1 */ 3 3 /* last modified on 11/19/76 by ORN */ 3 4 3 5 /* 3 6*A type 19 end of statement token is created in the procedure division 3 7*minpral file at the end of each minpral statement generated by the 3 8*procedure division syntax phase. A minpral statement may be a complete or 3 9*partial source language statement. A type 19 token contains information 3 10*describing the statement which it delimits. 3 11**/ 3 12 3 13 dcl eos_ptr ptr; 3 14 3 15 /* BEGIN DECLARATION OF TYPE19 (END STATEMENT) TOKEN */ 3 16 dcl 1 end_stmt based (eos_ptr), 4 1 4 2 /* begin include file ... cobol_TYPE19.incl.pl1 */ 4 3 /* Last modified on 11/17/76 by ORN */ 4 4 4 5 /* header */ 4 6 2 size fixed bin, 4 7 2 line fixed bin, 4 8 2 column fixed bin, 4 9 2 type fixed bin, 4 10 /* body */ 4 11 2 verb fixed bin, 4 12 2 e fixed bin, 4 13 2 h fixed bin, 4 14 2 i fixed bin, 4 15 2 j fixed bin, 4 16 2 a bit (3), 4 17 2 b bit (1), 4 18 2 c bit (1), 4 19 2 d bit (2), 4 20 2 f bit (2), 4 21 2 g bit (2), 4 22 2 k bit (5), 4 23 2 always_an bit (1); 4 24 4 25 /* end include file ... cobol_TYPE19.incl.pl1 */ 4 26 3 17 3 18 /* END DECLARATION OF TYPE19 (END STATEMENT) TOKEN */ 3 19 3 20 /* 3 21*FIELD CONTENTS 3 22* 3 23*size The total size in bytes of this end of statement token. 3 24*line 0 3 25*column 0 3 26*type 19 3 27*verb A value indicating the verb in this statement 3 28* 1 = accept 3 29* 2 = add 3 30* 3 = on size error 3 31* 4 = alter 3 32* 5 = call 3 33* 7 = cancel 3 34* 8 = close 3 35* 9 = divide 3 36* 10 = multiply 3 37* 11 = subtract 3 38* 12 = exit 3 39* 14 = go 3 40* 15 = merge 3 41* 16 = initiate 3 42* 17 = inspect 3 43* 18 = move 3 44* 19 = open 3 45* 20 = perform 3 46* 21 = read 3 47* 23 = receive 3 48* 24 = release 3 49* 25 = return 3 50* 26 = search 3 51* 27 = rewrite 3 52* 29 = seek 3 53* 30 = send 3 54* 31 = set 3 55* 33 = stop 3 56* 34 = string 3 57* 35 = suspend 3 58* 36 = terminate 3 59* 37 = unstring 3 60* 38 = write 3 61* 39 = use 3 62* 40 = compute 3 63* 41 = disable 3 64* 42 = display 3 65* 43 = enable 3 66* 45 = generate 3 67* 46 = hold 3 68* 48 = process 3 69* 49 = sort 3 70* 52 = procedure 3 71* 53 = declaratives 3 72* 54 = section name 3 73* 55 = paragraph name 3 74* 98 = end 3 75*e,h,i,j The significance of these fields differs with each 3 76* statement. These fields are normally used as counters. 3 77*a,b,c,d,f,g,k The significance of these fields differs with each 3 78* statement. These fields are normally used as indicators. 3 79**/ 3 80 3 81 /* END INCLUDE FILE ... cobol_type19.incl.pl1 */ 3 82 325 5 1 5 2 /* BEGIN INCLUDE FILE ... cobol_type9.incl.pl1 */ 5 3 /* Last modified on 11/19/76 by ORN */ 5 4 5 5 /* 5 6*A type 9 data name token is entered into the name table by the data 5 7*division syntax phase for each data name described in the data division. 5 8*The replacement phase subsequently replaces type 8 user word references 5 9*to data names in the procedure division minpral file with the corresponding 5 10*type 9 tokens from the name table. 5 11**/ 5 12 5 13 /* dcl dn_ptr ptr; */ 5 14 5 15 /* BEGIN DECLARATION OF TYPE9 (DATA NAME) TOKEN */ 5 16 dcl 1 data_name based (dn_ptr), 6 1 6 2 /* begin include file ... cobol_TYPE9.incl.pl1 */ 6 3 /* Last modified on 06/19/77 by ORN */ 6 4 /* Last modified on 12/28/76 by FCH */ 6 5 6 6 /* header */ 6 7 2 size fixed bin, 6 8 2 line fixed bin, 6 9 2 column fixed bin, 6 10 2 type fixed bin, 6 11 /* body */ 6 12 2 string_ptr ptr, 6 13 2 prev_rec ptr, 6 14 2 searched bit (1), 6 15 2 duplicate bit (1), 6 16 2 saved bit (1), 6 17 2 debug_ind bit (1), 6 18 2 filler2 bit (3), 6 19 2 used_as_sub bit (1), 6 20 2 def_line fixed bin, 6 21 2 level fixed bin, 6 22 2 linkage fixed bin, 6 23 2 file_num fixed bin, 6 24 2 size_rtn fixed bin, 6 25 2 item_length fixed bin(24), 6 26 2 places_left fixed bin, 6 27 2 places_right fixed bin, 6 28 /* description */ 6 29 2 file_section bit (1), 6 30 2 working_storage bit (1), 6 31 2 constant_section bit (1), 6 32 2 linkage_section bit (1), 6 33 2 communication_section bit (1), 6 34 2 report_section bit (1), 6 35 2 level_77 bit (1), 6 36 2 level_01 bit (1), 6 37 2 non_elementary bit (1), 6 38 2 elementary bit (1), 6 39 2 filler_item bit (1), 6 40 2 s_of_rdf bit (1), 6 41 2 o_of_rdf bit (1), 6 42 2 bin_18 bit (1), 6 43 2 bin_36 bit (1), 6 44 2 pic_has_l bit (1), 6 45 2 pic_is_do bit (1), 6 46 2 numeric bit (1), 6 47 2 numeric_edited bit (1), 6 48 2 alphanum bit (1), 6 49 2 alphanum_edited bit (1), 6 50 2 alphabetic bit (1), 6 51 2 alphabetic_edited bit (1), 6 52 2 pic_has_p bit (1), 6 53 2 pic_has_ast bit (1), 6 54 2 item_signed bit(1), 6 55 2 sign_separate bit (1), 6 56 2 display bit (1), 6 57 2 comp bit (1), 6 58 2 ascii_packed_dec_h bit (1), /* as of 8/16/76 this field used for comp8. */ 6 59 2 ascii_packed_dec bit (1), 6 60 2 ebcdic_packed_dec bit (1), 6 61 2 bin_16 bit (1), 6 62 2 bin_32 bit (1), 6 63 2 usage_index bit (1), 6 64 2 just_right bit (1), 6 65 2 compare_argument bit (1), 6 66 2 sync bit (1), 6 67 2 temporary bit (1), 6 68 2 bwz bit (1), 6 69 2 variable_length bit (1), 6 70 2 subscripted bit (1), 6 71 2 occurs_do bit (1), 6 72 2 key_a bit (1), 6 73 2 key_d bit (1), 6 74 2 indexed_by bit (1), 6 75 2 value_numeric bit (1), 6 76 2 value_non_numeric bit (1), 6 77 2 value_signed bit (1), 6 78 2 sign_type bit (3), 6 79 2 pic_integer bit (1), 6 80 2 ast_when_zero bit (1), 6 81 2 label_record bit (1), 6 82 2 sign_clause_occurred bit (1), 6 83 2 okey_dn bit (1), 6 84 2 subject_of_keyis bit (1), 6 85 2 exp_redefining bit (1), 6 86 2 sync_in_rec bit (1), 6 87 2 rounded bit (1), 6 88 2 ad_bit bit (1), 6 89 2 debug_all bit (1), 6 90 2 overlap bit (1), 6 91 2 sum_counter bit (1), 6 92 2 exp_occurs bit (1), 6 93 2 linage_counter bit (1), 6 94 2 rnm_01 bit (1), 6 95 2 aligned bit (1), 6 96 2 not_user_writable bit (1), 6 97 2 database_key bit (1), 6 98 2 database_data_item bit (1), 6 99 2 seg_num fixed bin, 6 100 2 offset fixed bin(24), 6 101 2 initial_ptr fixed bin, 6 102 2 edit_ptr fixed bin, 6 103 2 occurs_ptr fixed bin, 6 104 2 do_rec char(5), 6 105 2 bitt bit (1), 6 106 2 byte bit (1), 6 107 2 half_word bit (1), 6 108 2 word bit (1), 6 109 2 double_word bit (1), 6 110 2 half_byte bit (1), 6 111 2 filler5 bit (1), 6 112 2 bit_offset bit (4), 6 113 2 son_cnt bit (16), 6 114 2 max_red_size fixed bin(24), 6 115 2 name_size fixed bin, 6 116 2 name char(0 refer(data_name.name_size)); 6 117 6 118 6 119 6 120 /* end include file ... cobol_TYPE9.incl.pl1 */ 6 121 5 17 5 18 /* END DECLARATION OF TYPE9 (DATA NAME) TOKEN */ 5 19 5 20 /* END INCLUDE FILE ... cobol_type9.incl.pl1 */ 5 21 326 7 1 7 2 /* BEGIN INCLUDE FILE ... cobol_type13.incl.pl1 */ 7 3 /* Last modified on 11/19/76 by ORN */ 7 4 7 5 dcl cdtoken_ptr ptr; 7 6 7 7 /* BEGIN DECLARATION OF TYPE13 (CD NAME) TOKEN */ 7 8 dcl 1 cdtoken based(cdtoken_ptr), 8 1 8 2 /* begin include file ... cobol_TYPE13.incl.pl1 8 3*/* Last modified on 11/18/76 by ORN */ 8 4 8 5 /* header */ 8 6 2 size fixed bin, 8 7 2 line fixed bin, 8 8 2 column fixed bin, 8 9 2 type fixed bin, /* cd = 13 */ 8 10 /* body */ 8 11 2 string_ptr ptr, 8 12 2 prev_rec ptr, 8 13 2 info, 8 14 3 searched bit(1), 8 15 3 duplicate bit(1), 8 16 3 filler1 bit(6), 8 17 2 options, 8 18 3 input bit(1), 8 19 3 output bit(1), 8 20 3 initial bit(1), 8 21 2 def_line fixed bin, 8 22 2 cd_num fixed bin, 8 23 2 cd_seg fixed bin, 8 24 2 cd_off fixed bin(24), 8 25 2 max_redef fixed bin, 8 26 2 mdest fixed bin, 8 27 2 name_size fixed bin, 8 28 2 name char(0 refer(cdtoken.name_size)); 8 29 8 30 /* end include file ... cobol_TYPE13.incl.pl1 */ 8 31 7 9 7 10 /* END DECLARATION OF TYPE13 (CD NAME) TOKEN */ 7 11 7 12 7 13 /* END INCLUDE FILE ... cobol_type13.incl.pl1 */ 7 14 327 9 1 9 2 /* BEGIN INCLUDE FILE ... cobol_type1.incl.pl1 */ 9 3 /* Last modified on 11/19/76 by ORN */ 9 4 9 5 /* 9 6*A reserved word token is created in the minpral files for each occurrence 9 7*of a reserved word in the source program. The value of the key field 9 8*indicates the specific reserved word which a type 1 token represents. 9 9**/ 9 10 9 11 dcl rw_ptr ptr; 9 12 9 13 /* BEGIN DECLARATION OF TYPE1 (RESERVED WORD) TOKEN */ 9 14 dcl 1 reserved_word based (rw_ptr), 10 1 10 2 /* begin include file ... cobol_TYPE1.incl.pl1 */ 10 3 /* Last modified on 11/17/76 by ORN */ 10 4 /* Last modified on 12/28/76 by FCH */ 10 5 /* Last modified on 12/16/80 by FCH */ 10 6 10 7 /* header */ 10 8 2 size fixed bin, 10 9 2 line fixed bin, 10 10 2 column fixed bin, 10 11 2 type fixed bin, 10 12 /* body */ 10 13 2 key fixed bin, 10 14 /* procedure division class bits */ 10 15 2 verb bit (1), 10 16 2 arith_op bit (1), 10 17 2 figcon bit (1), 10 18 2 terminator bit (1), 10 19 2 end_dec bit (1), 10 20 2 rel_op bit (1), 10 21 2 imper_verb bit (1), 10 22 2 end_cobol bit (1), 10 23 /* data division class bits */ 10 24 2 section_header bit (1), 10 25 2 fs_ind bit (1), 10 26 2 fd_clause bit (1), 10 27 2 dd_clause bit (1), 10 28 2 cd_input bit (1), 10 29 2 cd_output bit (1), 10 30 2 cset_name bit (1), 10 31 2 ss_division bit (1), 10 32 2 repl_jump_ind bit (4), 10 33 2 ided_recovery bit (1), 10 34 2 report_writer bit (5), 10 35 2 ss_desc_entry bit (1), 10 36 2 jump_index fixed bin, 10 37 2 length fixed bin, 10 38 2 name char(0 refer(reserved_word.length)); 10 39 10 40 10 41 10 42 /* end include file ... cobol_TYPE1.incl.pl1 */ 10 43 9 15 9 16 /* END DECLARATION OF TYPE1 (RESERVED WORD) TOKEN */ 9 17 9 18 /* END INCLUDE FILE ... cobol_type1.incl.pl1 */ 9 19 328 11 1 11 2 /* BEGIN INCLUDE FILE ... cobol_reswd_values.incl.pl1 */ 11 3 /* CREATED ON 06/15/76 BY ORN */ 11 4 11 5 /* This include file contains the value associated with each reserved word 11 6* used by the Multics COBOL compiler. These are declared as constants 11 7* and are not allocated unless referenced. Eash name is in the form: 11 8* 11 9* reswd_ 11 10* or 11 11* reschar_ 11 12* 11 13* where is the upper case transliteration of the 11 14* reserved word with any hyphens replaced by underscores and 11 15* is the upper case name of the one 11 16* character reserved words (e.g. EQ, GT, MINUS, LPARENS, etc.) */ 11 17 11 18 11 19 dcl reswd_ACCEPT fixed bin static options(constant) init(001); 11 20 dcl reswd_ADD fixed bin static options(constant) init(002); 11 21 dcl reswd_ERROR fixed bin static options(constant) init(003); 11 22 dcl reswd_ALTER fixed bin static options(constant) init(004); 11 23 dcl reswd_CALL fixed bin static options(constant) init(005); 11 24 dcl reswd_OVERFLOW fixed bin static options(constant) init(006); 11 25 dcl reswd_CANCEL fixed bin static options(constant) init(007); 11 26 dcl reswd_CLOSE fixed bin static options(constant) init(008); 11 27 dcl reswd_DIVIDE fixed bin static options(constant) init(009); 11 28 dcl reswd_MULTIPLY fixed bin static options(constant) init(010); 11 29 dcl reswd_SUBTRACT fixed bin static options(constant) init(011); 11 30 dcl reswd_EXIT fixed bin static options(constant) init(012); 11 31 dcl reswd_INITIALIZE fixed bin static options(constant) init(013); 11 32 dcl reswd_GO fixed bin static options(constant) init(014); 11 33 dcl reswd_MERGE fixed bin static options(constant) init(015); 11 34 dcl reswd_INITIATE fixed bin static options(constant) init(016); 11 35 dcl reswd_INSPECT fixed bin static options(constant) init(017); 11 36 dcl reswd_MOVE fixed bin static options(constant) init(018); 11 37 dcl reswd_OPEN fixed bin static options(constant) init(019); 11 38 dcl reswd_PERFORM fixed bin static options(constant) init(020); 11 39 dcl reswd_READ fixed bin static options(constant) init(021); 11 40 dcl reswd_DELETE fixed bin static options(constant) init(022); 11 41 dcl reswd_RECEIVE fixed bin static options(constant) init(023); 11 42 dcl reswd_RELEASE fixed bin static options(constant) init(024); 11 43 dcl reswd_RETURN fixed bin static options(constant) init(025); 11 44 dcl reswd_SEARCH fixed bin static options(constant) init(026); 11 45 dcl reswd_REWRITE fixed bin static options(constant) init(027); 11 46 /* 028 029 */ 11 47 dcl reswd_SEND fixed bin static options(constant) init(030); 11 48 dcl reswd_SET fixed bin static options(constant) init(031); 11 49 /* 032 */ 11 50 dcl reswd_STOP fixed bin static options(constant) init(033); 11 51 dcl reswd_STRING fixed bin static options(constant) init(034); 11 52 dcl reswd_SUSPEND fixed bin static options(constant) init(035); 11 53 dcl reswd_TERMINATE fixed bin static options(constant) init(036); 11 54 dcl reswd_UNSTRING fixed bin static options(constant) init(037); 11 55 dcl reswd_WRITE fixed bin static options(constant) init(038); 11 56 dcl reswd_USE fixed bin static options(constant) init(039); 11 57 dcl reswd_COMPUTE fixed bin static options(constant) init(040); 11 58 dcl reswd_DISABLE fixed bin static options(constant) init(041); 11 59 dcl reswd_DISPLAY fixed bin static options(constant) init(042); 11 60 dcl reswd_ENABLE fixed bin static options(constant) init(043); 11 61 dcl reswd_ENTER fixed bin static options(constant) init(044); 11 62 dcl reswd_GENERATE fixed bin static options(constant) init(045); 11 63 dcl reswd_HOLD fixed bin static options(constant) init(046); 11 64 dcl reswd_IF fixed bin static options(constant) init(047); 11 65 dcl reswd_PROCESS fixed bin static options(constant) init(048); 11 66 dcl reswd_SORT fixed bin static options(constant) init(049); 11 67 dcl reswd_EXAMINE fixed bin static options(constant) init(050); 11 68 dcl reswd_TRANSFORM fixed bin static options(constant) init(051); 11 69 /* 052 053 054 055 */ 11 70 dcl reswd_START fixed bin static options(constant) init(056); 11 71 dcl reswd_SUPPRESS fixed bin static options(constant) init(057); 11 72 dcl reswd_PURGE fixed bin static options(constant) init(058); 11 73 /* 059 060 061 062 063 064 065 066 067 068 069 070 */ 11 74 dcl reswd_ADVANCING fixed bin static options(constant) init(071); 11 75 dcl reswd_AFTER fixed bin static options(constant) init(072); 11 76 dcl reswd_ALL fixed bin static options(constant) init(073); 11 77 dcl reswd_ALPHABETIC fixed bin static options(constant) init(074); 11 78 dcl reswd_ALPHANUMERIC fixed bin static options(constant) init(075); 11 79 dcl reswd_ALPHANUMERIC_EDITED fixed bin static options(constant) init(076); 11 80 dcl reswd_AND fixed bin static options(constant) init(077); 11 81 dcl reswd_ASCENDING fixed bin static options(constant) init(078); 11 82 dcl reswd_AT fixed bin static options(constant) init(079); 11 83 dcl reswd_BEFORE fixed bin static options(constant) init(080); 11 84 dcl reswd_BEGINNING fixed bin static options(constant) init(081); 11 85 dcl reswd_BY fixed bin static options(constant) init(082); 11 86 dcl (reswd_CHARACTER, 11 87 reswd_CHARACTERS) fixed bin static options(constant) init(083); 11 88 dcl reswd_COUNT fixed bin static options(constant) init(084); 11 89 dcl reswd_SSF fixed bin static options(constant) init(085); 11 90 dcl reswd_DATE fixed bin static options(constant) init(086); 11 91 dcl reswd_DAY fixed bin static options(constant) init(087); 11 92 dcl reswd_DEBUGGING fixed bin static options(constant) init(088); 11 93 dcl reswd_DECLARATIVES fixed bin static options(constant) init(089); 11 94 dcl reswd_DELIMITED fixed bin static options(constant) init(090); 11 95 dcl reswd_DELIMITER fixed bin static options(constant) init(091); 11 96 dcl reswd_DEPENDING fixed bin static options(constant) init(092); 11 97 dcl reswd_DESCENDING fixed bin static options(constant) init(093); 11 98 dcl reswd_DIVISION fixed bin static options(constant) init(094); 11 99 dcl reswd_DOWN fixed bin static options(constant) init(095); 11 100 dcl (reswd_ALSO, 11 101 reswd_ELSE) fixed bin static options(constant) init(096); 11 102 dcl reswd_EMI fixed bin static options(constant) init(097); 11 103 dcl reswd_END fixed bin static options(constant) init(098); 11 104 dcl reswd_ENDING fixed bin static options(constant) init(099); 11 105 dcl (reswd_END_OF_PAGE, 11 106 reswd_EOP) fixed bin static options(constant) init(100); 11 107 dcl reswd_IN fixed bin static options(constant) init(101); 11 108 dcl (reschar_EQ, 11 109 reswd_EQUAL, 11 110 reswd_EQUALS) fixed bin static options(constant) init(102); 11 111 /* 103 104 */ 11 112 dcl reswd_ESI fixed bin static options(constant) init(105); 11 113 dcl (reswd_COMP, 11 114 reswd_COMPUTATIONAL) fixed bin static options(constant) init(106); 11 115 dcl reswd_EXCEPTION fixed bin static options(constant) init(107); 11 116 dcl reswd_FILE fixed bin static options(constant) init(108); 11 117 dcl reswd_FIRST fixed bin static options(constant) init(109); 11 118 dcl reswd_FOR fixed bin static options(constant) init(110); 11 119 dcl reswd_FROM fixed bin static options(constant) init(111); 11 120 dcl reswd_GIVING fixed bin static options(constant) init(112); 11 121 dcl (reschar_GT, 11 122 reswd_EXCEEDS, 11 123 reswd_GREATER) fixed bin static options(constant) init(113); 11 124 dcl reswd_INITIAL fixed bin static options(constant) init(114); 11 125 dcl reswd_INPUT fixed bin static options(constant) init(115); 11 126 dcl reswd_INTO fixed bin static options(constant) init(116); 11 127 dcl reswd_INVALID fixed bin static options(constant) init(117); 11 128 dcl (reswd_ARE, 11 129 reswd_IS) fixed bin static options(constant) init(118); 11 130 dcl (reswd_I_O, 11 131 reswd_INPUT_OUTPUT) fixed bin static options(constant) init(119); 11 132 dcl reswd_KEY fixed bin static options(constant) init(120); 11 133 dcl reswd_LABEL fixed bin static options(constant) init(121); 11 134 dcl reswd_LEADING fixed bin static options(constant) init(122); 11 135 dcl (reschar_LT, 11 136 reswd_LESS) fixed bin static options(constant) init(123); 11 137 dcl (reswd_LINE, 11 138 reswd_LINES) fixed bin static options(constant) init(124); 11 139 dcl reswd_LOCK fixed bin static options(constant) init(125); 11 140 dcl reswd_MESSAGE fixed bin static options(constant) init(126); 11 141 dcl reswd_NEGATIVE fixed bin static options(constant) init(127); 11 142 dcl reswd_NEXT fixed bin static options(constant) init(128); 11 143 dcl reswd_NO fixed bin static options(constant) init(129); 11 144 dcl reswd_NOT fixed bin static options(constant) init(130); 11 145 dcl reswd_NUMERIC fixed bin static options(constant) init(131); 11 146 dcl reswd_NUMERIC_EDITED fixed bin static options(constant) init(132); 11 147 dcl reswd_OF fixed bin static options(constant) init(133); 11 148 dcl reswd_ON fixed bin static options(constant) init(134); 11 149 dcl reswd_OR fixed bin static options(constant) init(135); 11 150 /* 136 */ 11 151 dcl reswd_OUTPUT fixed bin static options(constant) init(137); 11 152 dcl reswd_BOOLEAN fixed bin static options(constant) init(138); 11 153 dcl reswd_PAGE fixed bin static options(constant) init(139); 11 154 dcl reswd_POINTER fixed bin static options(constant) init(140); 11 155 dcl reswd_POSITIVE fixed bin static options(constant) init(141); 11 156 dcl reswd_PROCEDURE fixed bin static options(constant) init(142); 11 157 dcl reswd_PROCEDURES fixed bin static options(constant) init(143); 11 158 dcl reswd_PROCEED fixed bin static options(constant) init(144); 11 159 dcl reswd_PROCESSING fixed bin static options(constant) init(145); 11 160 dcl reswd_PROGRAM fixed bin static options(constant) init(146); 11 161 dcl reswd_RANDOM fixed bin static options(constant) init(147); 11 162 dcl reswd_RECORD fixed bin static options(constant) init(148); 11 163 dcl reswd_REEL fixed bin static options(constant) init(149); 11 164 dcl reswd_REFERENCES fixed bin static options(constant) init(150); 11 165 dcl reswd_REMAINDER fixed bin static options(constant) init(151); 11 166 dcl reswd_REPLACING fixed bin static options(constant) init(152); 11 167 dcl reswd_REPORTING fixed bin static options(constant) init(153); 11 168 dcl reswd_REVERSED fixed bin static options(constant) init(154); 11 169 dcl reswd_REWIND fixed bin static options(constant) init(155); 11 170 dcl reswd_ROUNDED fixed bin static options(constant) init(156); 11 171 dcl reswd_RUN fixed bin static options(constant) init(157); 11 172 dcl reswd_SECTION fixed bin static options(constant) init(158); 11 173 dcl reswd_SEGMENT fixed bin static options(constant) init(159); 11 174 dcl reswd_SENTENCE fixed bin static options(constant) init(160); 11 175 dcl reswd_SIZE fixed bin static options(constant) init(161); 11 176 dcl reswd_STANDARD fixed bin static options(constant) init(162); 11 177 dcl reswd_TALLYING fixed bin static options(constant) init(163); 11 178 dcl reswd_TERMINAL fixed bin static options(constant) init(164); 11 179 dcl reswd_THAN fixed bin static options(constant) init(165); 11 180 dcl (reswd_THROUGH, 11 181 reswd_THRU) fixed bin static options(constant) init(166); 11 182 dcl reswd_RELATIVE fixed bin static options(constant) init(167); 11 183 dcl (reswd_TIME, 11 184 reswd_TIMES) fixed bin static options(constant) init(168); 11 185 dcl reswd_DYNAMIC fixed bin static options(constant) init(169); 11 186 dcl reswd_TO fixed bin static options(constant) init(170); 11 187 dcl reswd_UNEQUAL fixed bin static options(constant) init(171); 11 188 dcl reswd_UNIT fixed bin static options(constant) init(172); 11 189 dcl reswd_UNTIL fixed bin static options(constant) init(173); 11 190 dcl reswd_UP fixed bin static options(constant) init(174); 11 191 dcl reswd_UPON fixed bin static options(constant) init(175); 11 192 dcl reswd_USING fixed bin static options(constant) init(176); 11 193 dcl reswd_VARYING fixed bin static options(constant) init(177); 11 194 dcl reswd_WHEN fixed bin static options(constant) init(178); 11 195 dcl reswd_WITH fixed bin static options(constant) init(179); 11 196 dcl (reswd_ZERO, 11 197 reswd_ZEROES, 11 198 reswd_ZEROS) fixed bin static options(constant) init(180); 11 199 dcl reswd_ORGANIZATION fixed bin static options(constant) init(181); 11 200 dcl reschar_PLUS fixed bin static options(constant) init(182); 11 201 dcl reschar_MINUS fixed bin static options(constant) init(183); 11 202 dcl reschar_STAR fixed bin static options(constant) init(184); 11 203 dcl reschar_SLASH fixed bin static options(constant) init(185); 11 204 dcl reschar_2STARs fixed bin static options(constant) init(186); 11 205 dcl reschar_LPARENS fixed bin static options(constant) init(187); 11 206 dcl reschar_RPARENS fixed bin static options(constant) init(188); 11 207 dcl reschar_PERIOD fixed bin static options(constant) init(189); 11 208 dcl reswd_TOP fixed bin static options(constant) init(190); 11 209 dcl reswd_COBOL fixed bin static options(constant) init(191); 11 210 dcl (reswd_SPACE, 11 211 reswd_SPACES) fixed bin static options(constant) init(192); 11 212 dcl reswd_TALLY fixed bin static options(constant) init(193); 11 213 dcl (reswd_BIT, 11 214 reswd_BITS) fixed bin static options(constant) init(194); 11 215 dcl reswd_RECORDS fixed bin static options(constant) init(195); 11 216 dcl reswd_DATA fixed bin static options(constant) init(196); 11 217 /* 197 198 199 */ 11 218 dcl reswd_VLR fixed bin static options(constant) init(201); 11 219 dcl (reswd_AREA, 11 220 reswd_AREAS) fixed bin static options(constant) init(202); 11 221 dcl reswd_OMITTED fixed bin static options(constant) init(203); 11 222 dcl reswd_BLANK fixed bin static options(constant) init(204); 11 223 dcl reswd_BLOCK fixed bin static options(constant) init(205); 11 224 dcl reswd_CD fixed bin static options(constant) init(206); 11 225 dcl reswd_COMMUNICATION fixed bin static options(constant) init(207); 11 226 dcl reswd_STANDARD_2 fixed bin static options(constant) init(208); 11 227 dcl (reswd_COMP_4, 11 228 reswd_COMPUTATIONAL_4) fixed bin static options(constant) init(209); 11 229 dcl (reswd_COMP_5, 11 230 reswd_COMPUTATIONAL_5) fixed bin static options(constant) init(210); 11 231 dcl (reswd_COMP_3, 11 232 reswd_COMPUTATIONAL_3) fixed bin static options(constant) init(211); 11 233 dcl (reswd_COMP_1, 11 234 reswd_COMPUTATIONAL_1) fixed bin static options(constant) init(212); 11 235 dcl (reswd_COMP_2, 11 236 reswd_COMPUTATIONAL_2) fixed bin static options(constant) init(213); 11 237 dcl reswd_CONSTANT fixed bin static options(constant) init(214); 11 238 dcl reswd_CONTAINS fixed bin static options(constant) init(215); 11 239 dcl reswd_EXTEND fixed bin static options(constant) init(216); 11 240 /* 217 */ 11 241 dcl reswd_DESTINATION fixed bin static options(constant) init(218); 11 242 dcl reswd_FD fixed bin static options(constant) init(219); 11 243 dcl reswd_FILLER fixed bin static options(constant) init(220); 11 244 dcl (reswd_HIGH_VALUE, 11 245 reswd_HIGH_VALUES) fixed bin static options(constant) init(221); 11 246 dcl reswd_INDEX fixed bin static options(constant) init(222); 11 247 dcl reswd_INDEXED fixed bin static options(constant) init(223); 11 248 dcl (reswd_JUST, 11 249 reswd_JUSTIFIED) fixed bin static options(constant) init(224); 11 250 dcl reswd_LEFT fixed bin static options(constant) init(225); 11 251 dcl reswd_LENGTH fixed bin static options(constant) init(226); 11 252 dcl reswd_DUPLICATES fixed bin static options(constant) init(227); 11 253 dcl reswd_LINKAGE fixed bin static options(constant) init(228); 11 254 dcl (reswd_LOW_VALUE, 11 255 reswd_LOW_VALUES) fixed bin static options(constant) init(229); 11 256 dcl reswd_MODE fixed bin static options(constant) init(230); 11 257 dcl reswd_OCCURS fixed bin static options(constant) init(231); 11 258 dcl (reswd_PIC, 11 259 reswd_PICTURE) fixed bin static options(constant) init(232); 11 260 dcl reswd_EGI fixed bin static options(constant) init(233); 11 261 dcl reswd_QUEUE fixed bin static options(constant) init(234); 11 262 dcl (reswd_QUOTE, 11 263 reswd_QUOTES) fixed bin static options(constant) init(235); 11 264 dcl reswd_BOTTOM fixed bin static options(constant) init(236); 11 265 dcl reswd_RECORDING fixed bin static options(constant) init(237); 11 266 dcl reswd_REDEFINES fixed bin static options(constant) init(238); 11 267 dcl reswd_RENAMES fixed bin static options(constant) init(239); 11 268 dcl (reswd_REPORT, 11 269 reswd_REPORTS) fixed bin static options(constant) init(240); 11 270 dcl reswd_RIGHT fixed bin static options(constant) init(241); 11 271 dcl reswd_SA fixed bin static options(constant) init(242); 11 272 dcl reswd_SD fixed bin static options(constant) init(243); 11 273 dcl reswd_SEPARATE fixed bin static options(constant) init(244); 11 274 dcl reswd_SIGN fixed bin static options(constant) init(245); 11 275 dcl reswd_SOURCE fixed bin static options(constant) init(246); 11 276 dcl reswd_STATUS fixed bin static options(constant) init(247); 11 277 dcl reswd_SUB_QUEUE_1 fixed bin static options(constant) init(248); 11 278 dcl reswd_SUB_QUEUE_2 fixed bin static options(constant) init(249); 11 279 dcl reswd_SUB_QUEUE_3 fixed bin static options(constant) init(250); 11 280 dcl reswd_SYMBOLIC fixed bin static options(constant) init(251); 11 281 dcl (reswd_SYNC, 11 282 reswd_SYNCHRONIZED) fixed bin static options(constant) init(252); 11 283 dcl reswd_TABLE fixed bin static options(constant) init(253); 11 284 /* 254 */ 11 285 dcl reswd_TRAILING fixed bin static options(constant) init(255); 11 286 dcl reschar_2EQs fixed bin static options(constant) init(256); 11 287 dcl reswd_USAGE fixed bin static options(constant) init(257); 11 288 dcl (reswd_VALUE, 11 289 reswd_VALUES) fixed bin static options(constant) init(258); 11 290 dcl reswd_WORKING_STORAGE fixed bin static options(constant) init(259); 11 291 dcl reswd_REMOVAL fixed bin static options(constant) init(260); 11 292 /* 261 */ 11 293 /* (262 263 264 265) */ 11 294 /* 266 */ 11 295 /* (267 268 269 270 271) */ 11 296 dcl reswd_FLR fixed bin static options(constant) init(272); 11 297 /* 273 274 275 276 277 */ 11 298 /* (278) */ 11 299 dcl reswd_FILES fixed bin static options(constant) init(279); 11 300 /* 280 281 282 283 284 285 */ 11 301 /* (286) */ 11 302 /* 287 */ 11 303 dcl reswd_NATIVE fixed bin static options(constant) init(288); 11 304 /* 289 */ 11 305 dcl (reswd_COMP_7, 11 306 reswd_COMPUTATIONAL_7) fixed bin static options(constant) init(290); 11 307 dcl reswd_OBJECT fixed bin static options(constant) init(291); 11 308 dcl (reswd_COMP_6, 11 309 reswd_COMPUTATIONAL_6) fixed bin static options(constant) init(292); 11 310 /* (293) */ 11 311 /* 294 */ 11 312 dcl reswd_DEFAULT fixed bin static options(constant) init(295); 11 313 /* 296 207 298 299 300 301 302 303 304 305 */ 11 314 dcl reswd_CODE_SET fixed bin static options(constant) init(306); 11 315 dcl reswd_EXTERNAL fixed bin static options(constant) init(307); 11 316 /* 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 */ 11 317 dcl reswd_DAY_OF_WEEK fixed bin static options(constant) init(326); 11 318 dcl reswd_INTERCHANGE fixed bin static options(constant) init(327); 11 319 /* 328 */ 11 320 dcl reswd_PROCESS_AREA fixed bin static options(constant) init(329); 11 321 /* 330 */ 11 322 dcl (reswd_CATALOG_NAME, 11 323 reswd_CATALOGUE_NAME) fixed bin static options(constant) init(331); 11 324 /* 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 */ 11 325 /* 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 */ 11 326 /* 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 */ 11 327 /* 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 */ 11 328 dcl reswd_STREAM fixed bin static options(constant) init(407); 11 329 /* 408 409 410 411 412 413 */ 11 330 dcl reswd_BSN fixed bin static options(constant) init(413); 11 331 /* 414 415 */ 11 332 dcl reswd_KEYED fixed bin static options(constant) init(416); 11 333 /* 417 418 419 420 421 422 */ 11 334 dcl reswd_IDS_II fixed bin static options(constant) init(423); 11 335 /* 424 */ 11 336 dcl reswd_REPLACE fixed bin static options(constant) init(425); 11 337 /* 426 427 428 429 430 431 432 433 434 */ 11 338 dcl reswd_SUBSTITUTION fixed bin static options(constant) init(435); 11 339 /* 436 437 438 439 440 441 442 443 444 445 446 447 448 449 */ 11 340 /* 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 */ 11 341 /* 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 */ 11 342 /* 490 491 492 493 494 495 496 497 498 499 500 */ 11 343 dcl reswd_ACCESS fixed bin static options(constant) init(501); 11 344 /* 502 */ 11 345 dcl reswd_ADDRESS fixed bin static options(constant) init(503); 11 346 dcl reswd_ALPHABET fixed bin static options(constant) init(504); 11 347 dcl reswd_STANDARD_1 fixed bin static options(constant) init(505); 11 348 /* 506 */ 11 349 dcl reswd_ALTERNATE fixed bin static options(constant) init(507); 11 350 dcl reswd_APPLY fixed bin static options(constant) init(508); 11 351 dcl reswd_ASSIGN fixed bin static options(constant) init(509); 11 352 dcl reswd_AUTHOR fixed bin static options(constant) init(510); 11 353 dcl reswd_CF fixed bin static options(constant) init(511); 11 354 dcl reswd_CH fixed bin static options(constant) init(512); 11 355 dcl reswd_CLOCK_UNITS fixed bin static options(constant) init(513); 11 356 dcl reswd_CODE fixed bin static options(constant) init(514); 11 357 dcl reswd_COLLATING fixed bin static options(constant) init(515); 11 358 dcl reswd_COLUMN fixed bin static options(constant) init(516); 11 359 dcl reswd_COMMA fixed bin static options(constant) init(517); 11 360 dcl reswd_CONFIGURATION fixed bin static options(constant) init(518); 11 361 dcl reswd_CONVERSION fixed bin static options(constant) init(519); 11 362 dcl reswd_CONTROL fixed bin static options(constant) init(520); 11 363 dcl reswd_CONTROLS fixed bin static options(constant) init(521); 11 364 dcl reswd_COPY fixed bin static options(constant) init(522); 11 365 dcl (reswd_CORR, 11 366 reswd_CORRESPONDING) fixed bin static options(constant) init(524); 11 367 dcl reswd_CURRENCY fixed bin static options(constant) init(525); 11 368 /* 526 */ 11 369 dcl reswd_DATE_COMPILED fixed bin static options(constant) init(527); 11 370 dcl reswd_DATE_WRITTEN fixed bin static options(constant) init(528); 11 371 dcl reswd_DE fixed bin static options(constant) init(529); 11 372 dcl reswd_DEBUG_CONTENTS fixed bin static options(constant) init(530); 11 373 dcl reswd_DEBUG_ITEM fixed bin static options(constant) init(531); 11 374 dcl reswd_DEBUG_LINE fixed bin static options(constant) init(532); 11 375 dcl reswd_DEBUG_SUB_1 fixed bin static options(constant) init(533); 11 376 dcl reswd_DEBUG_SUB_2 fixed bin static options(constant) init(534); 11 377 dcl reswd_DEBUG_SUB_3 fixed bin static options(constant) init(535); 11 378 /* 536 */ 11 379 dcl reswd_DEBUG_NAME fixed bin static options(constant) init(537); 11 380 dcl reswd_DECIMAL_POINT fixed bin static options(constant) init(538); 11 381 dcl reswd_DETAIL fixed bin static options(constant) init(539); 11 382 dcl reswd_ENVIRONMENT fixed bin static options(constant) init(540); 11 383 /* 541 */ 11 384 dcl reswd_EVERY fixed bin static options(constant) init(542); 11 385 dcl reswd_FILE_CONTROL fixed bin static options(constant) init(543); 11 386 /* 544 545 */ 11 387 dcl reswd_FINAL fixed bin static options(constant) init(546); 11 388 dcl reswd_FOOTING fixed bin static options(constant) init(547); 11 389 dcl reswd_HEADING fixed bin static options(constant) init(548); 11 390 dcl reswd_GROUP fixed bin static options(constant) init(549); 11 391 /* 550 */ 11 392 dcl reswd_I_O_CONTROL fixed bin static options(constant) init(551); 11 393 dcl reswd_IDENTIFICATION fixed bin static options(constant) init(552); 11 394 dcl reswd_INDICATE fixed bin static options(constant) init(553); 11 395 dcl reswd_INSTALLATION fixed bin static options(constant) init(554); 11 396 /* 555 */ 11 397 dcl reswd_LAST fixed bin static options(constant) init(556); 11 398 /* 557 558 */ 11 399 dcl reswd_PRINTING fixed bin static options(constant) init(559); 11 400 /* 560 */ 11 401 dcl reswd_LIMIT fixed bin static options(constant) init(561); 11 402 dcl reswd_LIMITS fixed bin static options(constant) init(562); 11 403 dcl reswd_LINAGE fixed bin static options(constant) init(563); 11 404 dcl reswd_LINAGE_COUNTER fixed bin static options(constant) init(564); 11 405 dcl reswd_LINE_COUNTER fixed bin static options(constant) init(565); 11 406 /* 566 567 */ 11 407 dcl reswd_MEMORY fixed bin static options(constant) init(568); 11 408 dcl reswd_MODULES fixed bin static options(constant) init(569); 11 409 dcl reswd_MULTIPLE fixed bin static options(constant) init(570); 11 410 dcl reswd_NUMBER fixed bin static options(constant) init(571); 11 411 dcl reswd_OBJECT_COMPUTER fixed bin static options(constant) init(572); 11 412 /* 573 */ 11 413 dcl reswd_OFF fixed bin static options(constant) init(574); 11 414 /* 575 */ 11 415 dcl reswd_OPTIONAL fixed bin static options(constant) init(576); 11 416 /* 577 */ 11 417 dcl reswd_PAGE_COUNTER fixed bin static options(constant) init(578); 11 418 dcl reswd_PF fixed bin static options(constant) init(579); 11 419 dcl reswd_PH fixed bin static options(constant) init(580); 11 420 dcl reswd_PLUS fixed bin static options(constant) init(581); 11 421 dcl reswd_POSITION fixed bin static options(constant) init(582); 11 422 dcl reswd_PROGRAM_ID fixed bin static options(constant) init(583); 11 423 dcl reswd_RD fixed bin static options(constant) init(584); 11 424 /* 585 586 */ 11 425 dcl reswd_SEQUENCE fixed bin static options(constant) init(587); 11 426 dcl reswd_RERUN fixed bin static options(constant) init(588); 11 427 dcl reswd_RESERVE fixed bin static options(constant) init(589); 11 428 dcl reswd_RESET fixed bin static options(constant) init(590); 11 429 dcl reswd_RF fixed bin static options(constant) init(591); 11 430 dcl reswd_RH fixed bin static options(constant) init(592); 11 431 dcl reswd_SAME fixed bin static options(constant) init(593); 11 432 dcl reswd_SECURITY fixed bin static options(constant) init(594); 11 433 dcl reswd_SEGMENT_LIMIT fixed bin static options(constant) init(595); 11 434 dcl reswd_SELECT fixed bin static options(constant) init(596); 11 435 dcl reswd_SEQUENTIAL fixed bin static options(constant) init(597); 11 436 dcl reswd_SORT_MERGE fixed bin static options(constant) init(598); 11 437 dcl reswd_SOURCE_COMPUTER fixed bin static options(constant) init(599); 11 438 dcl reswd_SPECIAL_NAMES fixed bin static options(constant) init(600); 11 439 dcl reswd_SPANNED fixed bin static options(constant) init(601); 11 440 /* (602) */ 11 441 dcl reswd_SUM fixed bin static options(constant) init(603); 11 442 dcl reswd_EXOR fixed bin static options(constant) init(604); 11 443 /* 605 */ 11 444 dcl reswd_TAPE fixed bin static options(constant) init(606); 11 445 dcl reswd_TEXT fixed bin static options(constant) init(607); 11 446 dcl reswd_TYPE fixed bin static options(constant) init(608); 11 447 dcl reswd_WORDS fixed bin static options(constant) init(609); 11 448 dcl (reswd_COMP_8, 11 449 reswd_COMPUTATIONAL_8) fixed bin static options(constant) init(610); 11 450 /* DATABASE WORDS 11 451*dcl reswd_ALIAS fixed bin static options(constant) init(263); 11 452*dcl reswd_ALIGN fixed bin static options(constant) init(278); 11 453*dcl reswd_ALTERING fixed bin static options(constant) init(268); 11 454*dcl reswd_BECOMES fixed bin static options(constant) init(267); 11 455*dcl reswd_CHECK fixed bin static options(constant) init(264); 11 456*dcl reswd_INVOKING fixed bin static options(constant) init(269); 11 457*dcl reswd_KEY_LOCATION fixed bin static options(constant) init(286); 11 458*dcl reswd_LOCKS fixed bin static options(constant) init(125); 11 459*dcl reswd_PREFIX fixed bin static options(constant) init(293); 11 460*dcl reswd_REALM fixed bin static options(constant) init(265); 11 461*dcl reswd_REALM_ID fixed bin static options(constant) init(270); 11 462*dcl reswd_SELECTION fixed bin static options(constant) init(271); 11 463*dcl reswd_SYMBOLS fixed bin static options(constant) init(602); 11 464*dcl reswd_VIA fixed bin static options(constant) init(262); 11 465*END DATABASE WORDS */ 11 466 11 467 11 468 /* END INCLUDE FILE ... cobol_reswd_values.incl.pl1 */ 11 469 329 12 1 12 2 /* BEGIN INCLUDE FILE ... cobol_type2.incl.pl1 */ 12 3 /* Last modified on 11/19/76 by ORN */ 12 4 12 5 /* 12 6*A type 2 numeric literal token is entered into the minpral file by the 12 7*lexical analysis phase for each numeric literal encountered in the source 12 8*program. 12 9**/ 12 10 12 11 dcl nlit_ptr ptr; 12 12 12 13 /* BEGIN DECLARATION OF TYPE2 (NUMERIC LITERAL) TOKEN */ 12 14 dcl 1 numeric_lit based (nlit_ptr), 13 1 13 2 /* begin include file ... cobol_TYPE2.incl.pl1 */ 13 3 /* Last modified on 12/28/76 by FCH */ 13 4 13 5 /* header */ 13 6 2 size fixed bin, 13 7 2 line fixed bin, 13 8 2 column fixed bin, 13 9 2 type fixed bin, 13 10 /* body */ 13 11 2 integral bit(1), 13 12 2 floating bit(1), 13 13 2 seg_range bit(1), 13 14 2 filler1 bit(4), 13 15 2 subscript bit(1), 13 16 2 sign char(1), 13 17 2 exp_sign char(1), 13 18 2 exp_places fixed bin, 13 19 2 places_left fixed bin, 13 20 2 places_right fixed bin, 13 21 2 places fixed bin, 13 22 2 literal char(0 refer(numeric_lit.places)); 13 23 13 24 13 25 13 26 /* end include file ... cobol_TYPE2.incl.pl1 */ 13 27 12 15 12 16 /* END DECLARATION OF TYPE2 (NUMERIC LITERAL) TOKEN */ 12 17 12 18 /* END INCLUDE FILE ... cobol_type2.incl.pl1 */ 12 19 330 14 1 14 2 /* BEGIN INCLUDE FILE ... cobol_type17.incl.pl1 */ 14 3 /* Last modified on 11/19/76 by ORN */ 14 4 14 5 /* 14 6*A mnemonic name token is created for each user-defined mnemonic name 14 7*specified in the special-names paragraph. 14 8**/ 14 9 14 10 /* dcl name_ptr ptr; */ 14 11 14 12 /* BEGIN DECLARATION OF TYPE17 (MNEMONIC NAME) TOKEN */ 14 13 dcl 1 mnemonic_name based (name_ptr), 15 1 15 2 /* begin include file ... cobol_TYPE17.incl.pl1 */ 15 3 /* Last modified on 11/17/76 by ORN */ 15 4 15 5 /* header */ 15 6 2 size fixed bin, 15 7 2 line fixed bin, 15 8 2 column fixed bin, 15 9 2 type fixed bin, 15 10 /* body */ 15 11 2 string_ptr ptr, 15 12 2 prev_rec ptr, 15 13 2 info bit(8), 15 14 2 class, 15 15 3 switch_condition bit(1), 15 16 3 switch_name bit(1), 15 17 3 accept_device bit(1), 15 18 3 display_device bit(1), 15 19 3 printer_control bit(1), 15 20 3 alphabet_name bit(1), 15 21 2 on_status bit(1), 15 22 2 off_status bit(1), 15 23 2 def_line fixed bin, 15 24 2 iw_key fixed bin, 15 25 2 reserved bit(36), 15 26 2 alphabet_offset fixed bin, 15 27 2 name_size fixed bin, 15 28 2 name char(0 refer (mnemonic_name.name_size)); 15 29 15 30 15 31 /* end include file ... cobol_TYPE17.incl.pl1 */ 15 32 14 14 14 15 /* END DECLARATION OF TYPE17 (MNEMONIC NAME) TOKEN */ 14 16 14 17 /* END INCLUDE FILE ... cobol_type17.incl.pl1 */ 14 18 331 332 end cobol_send_gen; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 05/24/89 0832.6 cobol_send_gen.pl1 >spec>install>MR12.3-1048>cobol_send_gen.pl1 323 1 11/11/82 1712.7 cobol_in_token.incl.pl1 >ldd>include>cobol_in_token.incl.pl1 324 2 11/11/82 1712.7 cobol_.incl.pl1 >ldd>include>cobol_.incl.pl1 325 3 03/27/82 0439.8 cobol_type19.incl.pl1 >ldd>include>cobol_type19.incl.pl1 3-17 4 03/27/82 0439.6 cobol_TYPE19.incl.pl1 >ldd>include>cobol_TYPE19.incl.pl1 326 5 03/27/82 0439.9 cobol_type9.incl.pl1 >ldd>include>cobol_type9.incl.pl1 5-17 6 11/11/82 1712.7 cobol_TYPE9.incl.pl1 >ldd>include>cobol_TYPE9.incl.pl1 327 7 11/11/82 1712.8 cobol_type13.incl.pl1 >ldd>include>cobol_type13.incl.pl1 7-9 8 03/27/82 0439.6 cobol_TYPE13.incl.pl1 >ldd>include>cobol_TYPE13.incl.pl1 328 9 03/27/82 0439.8 cobol_type1.incl.pl1 >ldd>include>cobol_type1.incl.pl1 9-15 10 11/11/82 1712.8 cobol_TYPE1.incl.pl1 >ldd>include>cobol_TYPE1.incl.pl1 329 11 03/27/82 0439.8 cobol_reswd_values.incl.pl1 >ldd>include>cobol_reswd_values.incl.pl1 330 12 03/27/82 0439.8 cobol_type2.incl.pl1 >ldd>include>cobol_type2.incl.pl1 12-15 13 11/11/82 1712.8 cobol_TYPE2.incl.pl1 >ldd>include>cobol_TYPE2.incl.pl1 331 14 03/27/82 0439.8 cobol_type17.incl.pl1 >ldd>include>cobol_type17.incl.pl1 14-14 15 11/11/82 1712.8 cobol_TYPE17.incl.pl1 >ldd>include>cobol_TYPE17.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. a 11 based bit(3) level 2 packed packed unaligned dcl 3-16 ref 161 209 addr builtin function dcl 317 ref 143 150 150 150 150 157 157 164 164 168 168 183 183 188 190 190 194 194 205 205 206 206 213 213 216 216 224 228 228 234 235 235 238 238 244 244 251 254 254 263 263 269 269 295 300 300 301 301 alpha_type9 000014 internal static structure level 1 unaligned dcl 39 set ref 150 150 224 b 11(03) based bit(1) level 2 packed packed unaligned dcl 3-16 ref 161 221 btd 000142 internal static bit(18) initial array packed unaligned dcl 104 set ref 180* 182* 183 183 cd_off 14 based fixed bin(24,0) level 2 dcl 7-8 ref 149 cd_seg 13 based fixed bin(17,0) level 2 dcl 7-8 ref 148 cdtoken based structure level 1 unaligned dcl 7-8 cdtoken_ptr 000122 automatic pointer dcl 7-5 set ref 147* 148 149 char builtin function dcl 317 ref 172 232 char_conv 000111 automatic char(9) packed unaligned dcl 110 set ref 172* 173 232* 233 cobol_$text_wd_off 000170 external static fixed bin(17,0) dcl 2-90 ref 201 296 cobol_call_op 000150 constant entry external dcl 126 ref 307 cobol_emit 000162 constant entry external dcl 126 ref 157 168 183 190 194 205 206 213 216 235 238 244 263 269 300 301 cobol_get_size 000166 constant entry external dcl 126 ref 178 cobol_move_gen 000154 constant entry external dcl 126 ref 228 254 cobol_pool 000156 constant entry external dcl 126 ref 200 295 cobol_pool$search_op 000160 constant entry external dcl 126 ref 188 cobol_reg_manager$after_op 000152 constant entry external dcl 126 ref 309 cobol_set_pr 000164 constant entry external dcl 126 ref 150 164 con_flag 000104 automatic fixed bin(17,0) dcl 110 set ref 174* 184* 196* 198 conoff 000101 automatic fixed bin(17,0) dcl 110 set ref 188* 189 200* 201 295* 296 d 11(05) based bit(2) level 2 packed packed unaligned dcl 3-16 ref 219 231 data_name based structure level 1 unaligned dcl 5-16 dec_conv 000114 automatic fixed dec(6,0) dcl 110 set ref 171* 172 231* 232 dn_ptr 000106 automatic pointer dcl 110 set ref 163* 164* 169 171 178* 247* 248 250 259 272 275 275 281 281 284 286 286 290 end_stmt based structure level 1 unaligned dcl 3-16 eos_ptr 000120 automatic pointer dcl 3-13 set ref 144* 161 161 209 219 221 231 240 256 f 11(07) based bit(2) level 2 packed packed unaligned dcl 3-16 ref 240 256 fb17_type9 000074 internal static structure level 1 unaligned dcl 66 set ref 251 file_key_info 13 000014 internal static structure level 2 in structure "alpha_type9" unaligned dcl 39 in procedure "cobol_send_gen" file_key_info 13 000074 internal static structure level 2 in structure "fb17_type9" unaligned dcl 66 in procedure "cobol_send_gen" fixed builtin function dcl 317 ref 231 275 in_op 000110 automatic fixed bin(17,0) dcl 110 set ref 188* in_token based structure level 1 dcl 1-9 in_token_ptr parameter pointer dcl 1-7 ref 29 141 144 144 147 163 221 223 247 247 inst_buff 000100 automatic bit(36) packed unaligned dcl 102 set ref 256* 258* 261* 262* 263 263 266* 267* 268* 269 269 274* 279* 281* 289* 291* 293* 295 inst_char based char(4) packed unaligned dcl 102 set ref 295* inst_seq 000130 internal static bit(18) initial array packed unaligned dcl 81 set ref 156* 157 157 167* 168 168 189* 190 190 193* 194 194 202* 204* 205 205 206 206 212* 213 213 215* 216 216 234* 235 235 237* 238 238 243* 244 244 297* 299* 300 300 301 301 item_length 16 based fixed bin(24,0) level 2 dcl 5-16 ref 171 iw_key 12 based fixed bin(17,0) level 2 dcl 14-13 ref 286 286 290 key 4 based fixed bin(17,0) level 2 dcl 9-14 ref 281 literal 11 based char level 2 packed packed unaligned dcl 12-14 ref 275 mnemonic_name based structure level 1 unaligned dcl 14-13 mpout 000062 internal static structure level 1 unaligned dcl 60 set ref 228 228 254 254 n based fixed bin(17,0) level 2 dcl 1-9 ref 144 247 null builtin function dcl 317 ref 157 157 168 168 183 183 190 190 194 194 205 205 206 206 213 213 216 216 235 235 238 238 244 244 263 263 269 269 300 300 301 301 null_ptr 000146 internal static pointer initial dcl 110 set ref 188 null_ptr_char based char(8) packed unaligned dcl 110 set ref 188* numeric_lit based structure level 1 unaligned dcl 12-14 off 24 000074 internal static fixed bin(17,0) level 3 in structure "fb17_type9" dcl 66 in procedure "cobol_send_gen" set ref 253* off 24 000014 internal static fixed bin(17,0) level 3 in structure "alpha_type9" dcl 39 in procedure "cobol_send_gen" set ref 149* 227* places 10 based fixed bin(17,0) level 2 dcl 12-14 ref 275 places_left 6 based fixed bin(17,0) level 2 dcl 12-14 ref 275 pr_struc 000010 internal static structure level 1 unaligned dcl 33 set ref 150 150 164 164 pt1 2 000062 internal static pointer level 2 dcl 60 set ref 141* pt2 4 000062 internal static pointer level 2 dcl 60 set ref 221* 223* 250* pt3 6 000062 internal static pointer level 2 dcl 60 set ref 224* 251* pt4 10 000062 internal static pointer level 2 dcl 60 set ref 143* reserved_word based structure level 1 unaligned dcl 9-14 reswd_PAGE constant fixed bin(17,0) initial dcl 11-153 ref 281 seg 23 000014 internal static fixed bin(17,0) initial level 3 in structure "alpha_type9" dcl 39 in procedure "cobol_send_gen" set ref 148* 226* seg 23 000074 internal static fixed bin(17,0) initial level 3 in structure "fb17_type9" dcl 66 in procedure "cobol_send_gen" set ref 252* size 16 000014 internal static fixed bin(17,0) initial level 3 dcl 39 set ref 225* stoff 000105 automatic fixed bin(17,0) dcl 110 set ref 153* 156 160 166 177 181 192 203 211 214 227 236 242 253 265 298 substr builtin function dcl 317 set ref 156* 156 167* 167 173 180* 180 182* 182 189* 189 193* 193 202 204* 204 212* 212 215* 215 233 234* 237* 237 243* 243 256* 258* 261* 262* 266* 267* 267 268* 274* 275 279* 279 281* 289* 291* 291 293* 297 299* 299 temp 000116 automatic fixed bin(17,0) dcl 110 set ref 160* 166* 167 177* 178* 180 181* 182 192* 193 201* 202 203* 204 211* 212 214* 215 236* 237 242* 243 265* 267 275* 279 290* 291 296* 297 298* 299 temp_bit1 based bit(9) packed unaligned dcl 110 ref 234 temp_char 000102 automatic char(4) packed unaligned dcl 110 set ref 173* 195* 200* temp_char1 000103 automatic char(1) packed unaligned dcl 110 set ref 233* 234 token_ptr 2 based pointer array level 2 dcl 1-9 ref 141 144 147 163 221 223 247 type 3 based fixed bin(17,0) level 2 dcl 5-16 ref 248 259 272 281 284 type19_move 000050 internal static structure level 1 unaligned dcl 53 set ref 143 unspec builtin function dcl 317 ref 156 167 180 182 189 193 202 204 212 215 237 243 267 279 291 297 299 variable_length 22(04) based bit(1) level 2 packed packed unaligned dcl 5-16 ref 169 NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. addrel builtin function dcl 317 allo1_max defined fixed bin(17,0) dcl 2-171 allo1_ptr defined pointer dcl 2-67 alter_flag defined fixed bin(17,0) dcl 2-135 alter_index defined fixed bin(17,0) dcl 2-153 alter_list_ptr defined pointer dcl 2-39 binary builtin function dcl 317 cd_cnt defined fixed bin(17,0) dcl 2-197 cobol_$allo1_max external static fixed bin(17,0) dcl 2-170 cobol_$allo1_ptr external static pointer dcl 2-66 cobol_$alter_flag external static fixed bin(17,0) dcl 2-134 cobol_$alter_index external static fixed bin(17,0) dcl 2-152 cobol_$alter_list_ptr external static pointer dcl 2-38 cobol_$cd_cnt external static fixed bin(17,0) dcl 2-196 cobol_$cobol_data_wd_off external static fixed bin(17,0) dcl 2-118 cobol_$compile_count external static fixed bin(17,0) dcl 2-142 cobol_$coms_charcnt external static fixed bin(17,0) dcl 2-188 cobol_$coms_wdoff external static fixed bin(17,0) dcl 2-202 cobol_$con_end_ptr external static pointer dcl 2-10 cobol_$con_wd_off external static fixed bin(17,0) dcl 2-92 cobol_$cons_charcnt external static fixed bin(17,0) dcl 2-192 cobol_$constant_offset external static fixed bin(17,0) dcl 2-156 cobol_$data_init_flag external static fixed bin(17,0) dcl 2-130 cobol_$date_compiled_sw external static fixed bin(17,0) dcl 2-180 cobol_$debug_enable external static fixed bin(17,0) dcl 2-174 cobol_$def_base_ptr external static pointer dcl 2-12 cobol_$def_max external static fixed bin(17,0) dcl 2-96 cobol_$def_wd_off external static fixed bin(17,0) dcl 2-94 cobol_$diag_ptr external static pointer dcl 2-70 cobol_$eln_max external static fixed bin(17,0) dcl 2-172 cobol_$eln_ptr external static pointer dcl 2-68 cobol_$fixup_max external static fixed bin(17,0) dcl 2-164 cobol_$fixup_ptr external static pointer dcl 2-30 cobol_$fs_charcnt external static fixed bin(17,0) dcl 2-184 cobol_$fs_wdoff external static fixed bin(17,0) dcl 2-198 cobol_$include_cnt external static fixed bin(17,0) dcl 2-182 cobol_$include_info_ptr external static pointer dcl 2-86 cobol_$init_stack_off external static fixed bin(17,0) dcl 2-124 cobol_$initval_base_ptr external static pointer dcl 2-32 cobol_$initval_file_ptr external static pointer dcl 2-34 cobol_$initval_flag external static fixed bin(17,0) dcl 2-178 cobol_$link_base_ptr external static pointer dcl 2-14 cobol_$link_max external static fixed bin(17,0) dcl 2-100 cobol_$link_wd_off external static fixed bin(17,0) dcl 2-98 cobol_$list_off external static fixed bin(17,0) dcl 2-154 cobol_$list_ptr external static pointer dcl 2-64 cobol_$ls_charcnt external static fixed bin(17,0) dcl 2-190 cobol_$main_pcs_ptr external static pointer dcl 2-84 cobol_$map_data_max external static fixed bin(17,0) dcl 2-162 cobol_$map_data_ptr external static pointer dcl 2-54 cobol_$max_stack_off external static fixed bin(17,0) dcl 2-122 cobol_$minpral5_ptr external static pointer dcl 2-50 cobol_$misc_base_ptr external static pointer dcl 2-60 cobol_$misc_end_ptr external static pointer dcl 2-62 cobol_$misc_max external static fixed bin(17,0) dcl 2-158 cobol_$next_tag external static fixed bin(17,0) dcl 2-128 cobol_$non_source_offset external static fixed bin(17,0) dcl 2-176 cobol_$ntbuf_ptr external static pointer dcl 2-82 cobol_$obj_seg_name external static char(32) dcl 2-208 cobol_$op_con_ptr external static pointer dcl 2-80 cobol_$para_eop_flag external static fixed bin(17,0) dcl 2-138 cobol_$pd_map_index external static fixed bin(17,0) dcl 2-116 cobol_$pd_map_max external static fixed bin(17,0) dcl 2-160 cobol_$pd_map_ptr external static pointer dcl 2-28 cobol_$pd_map_sw external static fixed bin(17,0) dcl 2-126 cobol_$perform_list_ptr external static pointer dcl 2-36 cobol_$perform_para_index external static fixed bin(17,0) dcl 2-148 cobol_$perform_sect_index external static fixed bin(17,0) dcl 2-150 cobol_$priority_no external static fixed bin(17,0) dcl 2-140 cobol_$ptr_assumption_ind external static fixed bin(17,0) dcl 2-144 cobol_$ptr_status_ptr external static pointer dcl 2-56 cobol_$reg_assumption_ind external static fixed bin(17,0) dcl 2-146 cobol_$reg_status_ptr external static pointer dcl 2-58 cobol_$reloc_def_base_ptr external static pointer dcl 2-20 cobol_$reloc_def_max external static fixed bin(24,0) dcl 2-108 cobol_$reloc_link_base_ptr external static pointer dcl 2-22 cobol_$reloc_link_max external static fixed bin(24,0) dcl 2-110 cobol_$reloc_sym_base_ptr external static pointer dcl 2-24 cobol_$reloc_sym_max external static fixed bin(24,0) dcl 2-112 cobol_$reloc_text_base_ptr external static pointer dcl 2-18 cobol_$reloc_text_max external static fixed bin(24,0) dcl 2-106 cobol_$reloc_work_base_ptr external static pointer dcl 2-26 cobol_$reloc_work_max external static fixed bin(24,0) dcl 2-114 cobol_$reswd_ptr external static pointer dcl 2-78 cobol_$same_sort_merge_proc external static bit(1) dcl 2-214 cobol_$scratch_dir external static char(168) dcl 2-206 cobol_$sect_eop_flag external static fixed bin(17,0) dcl 2-136 cobol_$seg_init_flag external static fixed bin(17,0) dcl 2-132 cobol_$seg_init_list_ptr external static pointer dcl 2-40 cobol_$stack_off external static fixed bin(17,0) dcl 2-120 cobol_$statement_info_ptr external static pointer dcl 2-76 cobol_$sym_base_ptr external static pointer dcl 2-16 cobol_$sym_max external static fixed bin(17,0) dcl 2-104 cobol_$sym_wd_off external static fixed bin(17,0) dcl 2-102 cobol_$tag_table_max external static fixed bin(17,0) dcl 2-166 cobol_$tag_table_ptr external static pointer dcl 2-52 cobol_$temp_token_area_ptr external static pointer dcl 2-42 cobol_$temp_token_max external static fixed bin(17,0) dcl 2-168 cobol_$temp_token_ptr external static pointer dcl 2-44 cobol_$text_base_ptr external static pointer dcl 2-8 cobol_$token_block1_ptr external static pointer dcl 2-46 cobol_$token_block2_ptr external static pointer dcl 2-48 cobol_$value_cnt external static fixed bin(17,0) dcl 2-194 cobol_$ws_charcnt external static fixed bin(17,0) dcl 2-186 cobol_$ws_wdoff external static fixed bin(17,0) dcl 2-200 cobol_$xref_bypass external static bit(1) dcl 2-212 cobol_$xref_chain_ptr external static pointer dcl 2-74 cobol_$xref_token_ptr external static pointer dcl 2-72 cobol_data_wd_off defined fixed bin(17,0) dcl 2-119 cobol_define_tag 000000 constant entry external dcl 126 cobol_make_tagref 000000 constant entry external dcl 126 cobol_pointer_register$priority 000000 constant entry external dcl 126 compile_count defined fixed bin(17,0) dcl 2-143 coms_charcnt defined fixed bin(17,0) dcl 2-189 coms_wdoff defined fixed bin(17,0) dcl 2-203 con_end_ptr defined pointer dcl 2-11 con_wd_off defined fixed bin(17,0) dcl 2-93 cons_charcnt defined fixed bin(17,0) dcl 2-193 constant_offset defined fixed bin(17,0) dcl 2-157 data_init_flag defined fixed bin(17,0) dcl 2-131 date_compiled_sw defined fixed bin(17,0) dcl 2-181 debug_enable defined fixed bin(17,0) dcl 2-175 def_base_ptr defined pointer dcl 2-13 def_max defined fixed bin(17,0) dcl 2-97 def_wd_off defined fixed bin(17,0) dcl 2-95 diag_ptr defined pointer dcl 2-71 eln_max defined fixed bin(17,0) dcl 2-173 eln_ptr defined pointer dcl 2-69 fixup_max defined fixed bin(17,0) dcl 2-165 fixup_ptr defined pointer dcl 2-31 fs_charcnt defined fixed bin(17,0) dcl 2-185 fs_wdoff defined fixed bin(17,0) dcl 2-199 include_cnt defined fixed bin(17,0) dcl 2-183 include_info_ptr defined pointer dcl 2-87 index builtin function dcl 317 init_stack_off defined fixed bin(17,0) dcl 2-125 initval_base_ptr defined pointer dcl 2-33 initval_file_ptr defined pointer dcl 2-35 initval_flag defined fixed bin(17,0) dcl 2-179 link_base_ptr defined pointer dcl 2-15 link_max defined fixed bin(17,0) dcl 2-101 link_wd_off defined fixed bin(17,0) dcl 2-99 list_off defined fixed bin(17,0) dcl 2-155 list_ptr defined pointer dcl 2-65 ls_charcnt defined fixed bin(17,0) dcl 2-191 main_pcs_ptr defined pointer dcl 2-85 map_data_max defined fixed bin(17,0) dcl 2-163 map_data_ptr defined pointer dcl 2-55 max_stack_off defined fixed bin(17,0) dcl 2-123 minpral5_ptr defined pointer dcl 2-51 misc_base_ptr defined pointer dcl 2-61 misc_end_ptr defined pointer dcl 2-63 misc_max defined fixed bin(17,0) dcl 2-159 mod builtin function dcl 317 name_ptr automatic pointer dcl 110 next_tag defined fixed bin(17,0) dcl 2-129 nlit_ptr automatic pointer dcl 12-11 non_source_offset defined fixed bin(17,0) dcl 2-177 ntbuf_ptr defined pointer dcl 2-83 obj_seg_name defined char(32) dcl 2-209 op_con_ptr defined pointer dcl 2-81 para_eop_flag defined fixed bin(17,0) dcl 2-139 pd_map_index defined fixed bin(17,0) dcl 2-117 pd_map_max defined fixed bin(17,0) dcl 2-161 pd_map_ptr defined pointer dcl 2-29 pd_map_sw defined fixed bin(17,0) dcl 2-127 perform_list_ptr defined pointer dcl 2-37 perform_para_index defined fixed bin(17,0) dcl 2-149 perform_sect_index defined fixed bin(17,0) dcl 2-151 priority_no defined fixed bin(17,0) dcl 2-141 ptr_assumption_ind defined fixed bin(17,0) dcl 2-145 ptr_status_ptr defined pointer dcl 2-57 reg_assumption_ind defined fixed bin(17,0) dcl 2-147 reg_status_ptr defined pointer dcl 2-59 rel builtin function dcl 317 reloc_def_base_ptr defined pointer dcl 2-21 reloc_def_max defined fixed bin(24,0) dcl 2-109 reloc_link_base_ptr defined pointer dcl 2-23 reloc_link_max defined fixed bin(24,0) dcl 2-111 reloc_sym_base_ptr defined pointer dcl 2-25 reloc_sym_max defined fixed bin(24,0) dcl 2-113 reloc_text_base_ptr defined pointer dcl 2-19 reloc_text_max defined fixed bin(24,0) dcl 2-107 reloc_work_base_ptr defined pointer dcl 2-27 reloc_work_max defined fixed bin(24,0) dcl 2-115 reschar_2EQs internal static fixed bin(17,0) initial dcl 11-286 reschar_2STARs internal static fixed bin(17,0) initial dcl 11-204 reschar_EQ internal static fixed bin(17,0) initial dcl 11-108 reschar_GT internal static fixed bin(17,0) initial dcl 11-121 reschar_LPARENS internal static fixed bin(17,0) initial dcl 11-205 reschar_LT internal static fixed bin(17,0) initial dcl 11-135 reschar_MINUS internal static fixed bin(17,0) initial dcl 11-201 reschar_PERIOD internal static fixed bin(17,0) initial dcl 11-207 reschar_PLUS internal static fixed bin(17,0) initial dcl 11-200 reschar_RPARENS internal static fixed bin(17,0) initial dcl 11-206 reschar_SLASH internal static fixed bin(17,0) initial dcl 11-203 reschar_STAR internal static fixed bin(17,0) initial dcl 11-202 reswd_ACCEPT internal static fixed bin(17,0) initial dcl 11-19 reswd_ACCESS internal static fixed bin(17,0) initial dcl 11-343 reswd_ADD internal static fixed bin(17,0) initial dcl 11-20 reswd_ADDRESS internal static fixed bin(17,0) initial dcl 11-345 reswd_ADVANCING internal static fixed bin(17,0) initial dcl 11-74 reswd_AFTER internal static fixed bin(17,0) initial dcl 11-75 reswd_ALL internal static fixed bin(17,0) initial dcl 11-76 reswd_ALPHABET internal static fixed bin(17,0) initial dcl 11-346 reswd_ALPHABETIC internal static fixed bin(17,0) initial dcl 11-77 reswd_ALPHANUMERIC internal static fixed bin(17,0) initial dcl 11-78 reswd_ALPHANUMERIC_EDITED internal static fixed bin(17,0) initial dcl 11-79 reswd_ALSO internal static fixed bin(17,0) initial dcl 11-100 reswd_ALTER internal static fixed bin(17,0) initial dcl 11-22 reswd_ALTERNATE internal static fixed bin(17,0) initial dcl 11-349 reswd_AND internal static fixed bin(17,0) initial dcl 11-80 reswd_APPLY internal static fixed bin(17,0) initial dcl 11-350 reswd_ARE internal static fixed bin(17,0) initial dcl 11-128 reswd_AREA internal static fixed bin(17,0) initial dcl 11-219 reswd_AREAS internal static fixed bin(17,0) initial dcl 11-219 reswd_ASCENDING internal static fixed bin(17,0) initial dcl 11-81 reswd_ASSIGN internal static fixed bin(17,0) initial dcl 11-351 reswd_AT internal static fixed bin(17,0) initial dcl 11-82 reswd_AUTHOR internal static fixed bin(17,0) initial dcl 11-352 reswd_BEFORE internal static fixed bin(17,0) initial dcl 11-83 reswd_BEGINNING internal static fixed bin(17,0) initial dcl 11-84 reswd_BIT internal static fixed bin(17,0) initial dcl 11-213 reswd_BITS internal static fixed bin(17,0) initial dcl 11-213 reswd_BLANK internal static fixed bin(17,0) initial dcl 11-222 reswd_BLOCK internal static fixed bin(17,0) initial dcl 11-223 reswd_BOOLEAN internal static fixed bin(17,0) initial dcl 11-152 reswd_BOTTOM internal static fixed bin(17,0) initial dcl 11-264 reswd_BSN internal static fixed bin(17,0) initial dcl 11-330 reswd_BY internal static fixed bin(17,0) initial dcl 11-85 reswd_CALL internal static fixed bin(17,0) initial dcl 11-23 reswd_CANCEL internal static fixed bin(17,0) initial dcl 11-25 reswd_CATALOGUE_NAME internal static fixed bin(17,0) initial dcl 11-322 reswd_CATALOG_NAME internal static fixed bin(17,0) initial dcl 11-322 reswd_CD internal static fixed bin(17,0) initial dcl 11-224 reswd_CF internal static fixed bin(17,0) initial dcl 11-353 reswd_CH internal static fixed bin(17,0) initial dcl 11-354 reswd_CHARACTER internal static fixed bin(17,0) initial dcl 11-86 reswd_CHARACTERS internal static fixed bin(17,0) initial dcl 11-86 reswd_CLOCK_UNITS internal static fixed bin(17,0) initial dcl 11-355 reswd_CLOSE internal static fixed bin(17,0) initial dcl 11-26 reswd_COBOL internal static fixed bin(17,0) initial dcl 11-209 reswd_CODE internal static fixed bin(17,0) initial dcl 11-356 reswd_CODE_SET internal static fixed bin(17,0) initial dcl 11-314 reswd_COLLATING internal static fixed bin(17,0) initial dcl 11-357 reswd_COLUMN internal static fixed bin(17,0) initial dcl 11-358 reswd_COMMA internal static fixed bin(17,0) initial dcl 11-359 reswd_COMMUNICATION internal static fixed bin(17,0) initial dcl 11-225 reswd_COMP internal static fixed bin(17,0) initial dcl 11-113 reswd_COMPUTATIONAL internal static fixed bin(17,0) initial dcl 11-113 reswd_COMPUTATIONAL_1 internal static fixed bin(17,0) initial dcl 11-233 reswd_COMPUTATIONAL_2 internal static fixed bin(17,0) initial dcl 11-235 reswd_COMPUTATIONAL_3 internal static fixed bin(17,0) initial dcl 11-231 reswd_COMPUTATIONAL_4 internal static fixed bin(17,0) initial dcl 11-227 reswd_COMPUTATIONAL_5 internal static fixed bin(17,0) initial dcl 11-229 reswd_COMPUTATIONAL_6 internal static fixed bin(17,0) initial dcl 11-308 reswd_COMPUTATIONAL_7 internal static fixed bin(17,0) initial dcl 11-305 reswd_COMPUTATIONAL_8 internal static fixed bin(17,0) initial dcl 11-448 reswd_COMPUTE internal static fixed bin(17,0) initial dcl 11-57 reswd_COMP_1 internal static fixed bin(17,0) initial dcl 11-233 reswd_COMP_2 internal static fixed bin(17,0) initial dcl 11-235 reswd_COMP_3 internal static fixed bin(17,0) initial dcl 11-231 reswd_COMP_4 internal static fixed bin(17,0) initial dcl 11-227 reswd_COMP_5 internal static fixed bin(17,0) initial dcl 11-229 reswd_COMP_6 internal static fixed bin(17,0) initial dcl 11-308 reswd_COMP_7 internal static fixed bin(17,0) initial dcl 11-305 reswd_COMP_8 internal static fixed bin(17,0) initial dcl 11-448 reswd_CONFIGURATION internal static fixed bin(17,0) initial dcl 11-360 reswd_CONSTANT internal static fixed bin(17,0) initial dcl 11-237 reswd_CONTAINS internal static fixed bin(17,0) initial dcl 11-238 reswd_CONTROL internal static fixed bin(17,0) initial dcl 11-362 reswd_CONTROLS internal static fixed bin(17,0) initial dcl 11-363 reswd_CONVERSION internal static fixed bin(17,0) initial dcl 11-361 reswd_COPY internal static fixed bin(17,0) initial dcl 11-364 reswd_CORR internal static fixed bin(17,0) initial dcl 11-365 reswd_CORRESPONDING internal static fixed bin(17,0) initial dcl 11-365 reswd_COUNT internal static fixed bin(17,0) initial dcl 11-88 reswd_CURRENCY internal static fixed bin(17,0) initial dcl 11-367 reswd_DATA internal static fixed bin(17,0) initial dcl 11-216 reswd_DATE internal static fixed bin(17,0) initial dcl 11-90 reswd_DATE_COMPILED internal static fixed bin(17,0) initial dcl 11-369 reswd_DATE_WRITTEN internal static fixed bin(17,0) initial dcl 11-370 reswd_DAY internal static fixed bin(17,0) initial dcl 11-91 reswd_DAY_OF_WEEK internal static fixed bin(17,0) initial dcl 11-317 reswd_DE internal static fixed bin(17,0) initial dcl 11-371 reswd_DEBUGGING internal static fixed bin(17,0) initial dcl 11-92 reswd_DEBUG_CONTENTS internal static fixed bin(17,0) initial dcl 11-372 reswd_DEBUG_ITEM internal static fixed bin(17,0) initial dcl 11-373 reswd_DEBUG_LINE internal static fixed bin(17,0) initial dcl 11-374 reswd_DEBUG_NAME internal static fixed bin(17,0) initial dcl 11-379 reswd_DEBUG_SUB_1 internal static fixed bin(17,0) initial dcl 11-375 reswd_DEBUG_SUB_2 internal static fixed bin(17,0) initial dcl 11-376 reswd_DEBUG_SUB_3 internal static fixed bin(17,0) initial dcl 11-377 reswd_DECIMAL_POINT internal static fixed bin(17,0) initial dcl 11-380 reswd_DECLARATIVES internal static fixed bin(17,0) initial dcl 11-93 reswd_DEFAULT internal static fixed bin(17,0) initial dcl 11-312 reswd_DELETE internal static fixed bin(17,0) initial dcl 11-40 reswd_DELIMITED internal static fixed bin(17,0) initial dcl 11-94 reswd_DELIMITER internal static fixed bin(17,0) initial dcl 11-95 reswd_DEPENDING internal static fixed bin(17,0) initial dcl 11-96 reswd_DESCENDING internal static fixed bin(17,0) initial dcl 11-97 reswd_DESTINATION internal static fixed bin(17,0) initial dcl 11-241 reswd_DETAIL internal static fixed bin(17,0) initial dcl 11-381 reswd_DISABLE internal static fixed bin(17,0) initial dcl 11-58 reswd_DISPLAY internal static fixed bin(17,0) initial dcl 11-59 reswd_DIVIDE internal static fixed bin(17,0) initial dcl 11-27 reswd_DIVISION internal static fixed bin(17,0) initial dcl 11-98 reswd_DOWN internal static fixed bin(17,0) initial dcl 11-99 reswd_DUPLICATES internal static fixed bin(17,0) initial dcl 11-252 reswd_DYNAMIC internal static fixed bin(17,0) initial dcl 11-185 reswd_EGI internal static fixed bin(17,0) initial dcl 11-260 reswd_ELSE internal static fixed bin(17,0) initial dcl 11-100 reswd_EMI internal static fixed bin(17,0) initial dcl 11-102 reswd_ENABLE internal static fixed bin(17,0) initial dcl 11-60 reswd_END internal static fixed bin(17,0) initial dcl 11-103 reswd_ENDING internal static fixed bin(17,0) initial dcl 11-104 reswd_END_OF_PAGE internal static fixed bin(17,0) initial dcl 11-105 reswd_ENTER internal static fixed bin(17,0) initial dcl 11-61 reswd_ENVIRONMENT internal static fixed bin(17,0) initial dcl 11-382 reswd_EOP internal static fixed bin(17,0) initial dcl 11-105 reswd_EQUAL internal static fixed bin(17,0) initial dcl 11-108 reswd_EQUALS internal static fixed bin(17,0) initial dcl 11-108 reswd_ERROR internal static fixed bin(17,0) initial dcl 11-21 reswd_ESI internal static fixed bin(17,0) initial dcl 11-112 reswd_EVERY internal static fixed bin(17,0) initial dcl 11-384 reswd_EXAMINE internal static fixed bin(17,0) initial dcl 11-67 reswd_EXCEEDS internal static fixed bin(17,0) initial dcl 11-121 reswd_EXCEPTION internal static fixed bin(17,0) initial dcl 11-115 reswd_EXIT internal static fixed bin(17,0) initial dcl 11-30 reswd_EXOR internal static fixed bin(17,0) initial dcl 11-442 reswd_EXTEND internal static fixed bin(17,0) initial dcl 11-239 reswd_EXTERNAL internal static fixed bin(17,0) initial dcl 11-315 reswd_FD internal static fixed bin(17,0) initial dcl 11-242 reswd_FILE internal static fixed bin(17,0) initial dcl 11-116 reswd_FILES internal static fixed bin(17,0) initial dcl 11-299 reswd_FILE_CONTROL internal static fixed bin(17,0) initial dcl 11-385 reswd_FILLER internal static fixed bin(17,0) initial dcl 11-243 reswd_FINAL internal static fixed bin(17,0) initial dcl 11-387 reswd_FIRST internal static fixed bin(17,0) initial dcl 11-117 reswd_FLR internal static fixed bin(17,0) initial dcl 11-296 reswd_FOOTING internal static fixed bin(17,0) initial dcl 11-388 reswd_FOR internal static fixed bin(17,0) initial dcl 11-118 reswd_FROM internal static fixed bin(17,0) initial dcl 11-119 reswd_GENERATE internal static fixed bin(17,0) initial dcl 11-62 reswd_GIVING internal static fixed bin(17,0) initial dcl 11-120 reswd_GO internal static fixed bin(17,0) initial dcl 11-32 reswd_GREATER internal static fixed bin(17,0) initial dcl 11-121 reswd_GROUP internal static fixed bin(17,0) initial dcl 11-390 reswd_HEADING internal static fixed bin(17,0) initial dcl 11-389 reswd_HIGH_VALUE internal static fixed bin(17,0) initial dcl 11-244 reswd_HIGH_VALUES internal static fixed bin(17,0) initial dcl 11-244 reswd_HOLD internal static fixed bin(17,0) initial dcl 11-63 reswd_IDENTIFICATION internal static fixed bin(17,0) initial dcl 11-393 reswd_IDS_II internal static fixed bin(17,0) initial dcl 11-334 reswd_IF internal static fixed bin(17,0) initial dcl 11-64 reswd_IN internal static fixed bin(17,0) initial dcl 11-107 reswd_INDEX internal static fixed bin(17,0) initial dcl 11-246 reswd_INDEXED internal static fixed bin(17,0) initial dcl 11-247 reswd_INDICATE internal static fixed bin(17,0) initial dcl 11-394 reswd_INITIAL internal static fixed bin(17,0) initial dcl 11-124 reswd_INITIALIZE internal static fixed bin(17,0) initial dcl 11-31 reswd_INITIATE internal static fixed bin(17,0) initial dcl 11-34 reswd_INPUT internal static fixed bin(17,0) initial dcl 11-125 reswd_INPUT_OUTPUT internal static fixed bin(17,0) initial dcl 11-130 reswd_INSPECT internal static fixed bin(17,0) initial dcl 11-35 reswd_INSTALLATION internal static fixed bin(17,0) initial dcl 11-395 reswd_INTERCHANGE internal static fixed bin(17,0) initial dcl 11-318 reswd_INTO internal static fixed bin(17,0) initial dcl 11-126 reswd_INVALID internal static fixed bin(17,0) initial dcl 11-127 reswd_IS internal static fixed bin(17,0) initial dcl 11-128 reswd_I_O internal static fixed bin(17,0) initial dcl 11-130 reswd_I_O_CONTROL internal static fixed bin(17,0) initial dcl 11-392 reswd_JUST internal static fixed bin(17,0) initial dcl 11-248 reswd_JUSTIFIED internal static fixed bin(17,0) initial dcl 11-248 reswd_KEY internal static fixed bin(17,0) initial dcl 11-132 reswd_KEYED internal static fixed bin(17,0) initial dcl 11-332 reswd_LABEL internal static fixed bin(17,0) initial dcl 11-133 reswd_LAST internal static fixed bin(17,0) initial dcl 11-397 reswd_LEADING internal static fixed bin(17,0) initial dcl 11-134 reswd_LEFT internal static fixed bin(17,0) initial dcl 11-250 reswd_LENGTH internal static fixed bin(17,0) initial dcl 11-251 reswd_LESS internal static fixed bin(17,0) initial dcl 11-135 reswd_LIMIT internal static fixed bin(17,0) initial dcl 11-401 reswd_LIMITS internal static fixed bin(17,0) initial dcl 11-402 reswd_LINAGE internal static fixed bin(17,0) initial dcl 11-403 reswd_LINAGE_COUNTER internal static fixed bin(17,0) initial dcl 11-404 reswd_LINE internal static fixed bin(17,0) initial dcl 11-137 reswd_LINES internal static fixed bin(17,0) initial dcl 11-137 reswd_LINE_COUNTER internal static fixed bin(17,0) initial dcl 11-405 reswd_LINKAGE internal static fixed bin(17,0) initial dcl 11-253 reswd_LOCK internal static fixed bin(17,0) initial dcl 11-139 reswd_LOW_VALUE internal static fixed bin(17,0) initial dcl 11-254 reswd_LOW_VALUES internal static fixed bin(17,0) initial dcl 11-254 reswd_MEMORY internal static fixed bin(17,0) initial dcl 11-407 reswd_MERGE internal static fixed bin(17,0) initial dcl 11-33 reswd_MESSAGE internal static fixed bin(17,0) initial dcl 11-140 reswd_MODE internal static fixed bin(17,0) initial dcl 11-256 reswd_MODULES internal static fixed bin(17,0) initial dcl 11-408 reswd_MOVE internal static fixed bin(17,0) initial dcl 11-36 reswd_MULTIPLE internal static fixed bin(17,0) initial dcl 11-409 reswd_MULTIPLY internal static fixed bin(17,0) initial dcl 11-28 reswd_NATIVE internal static fixed bin(17,0) initial dcl 11-303 reswd_NEGATIVE internal static fixed bin(17,0) initial dcl 11-141 reswd_NEXT internal static fixed bin(17,0) initial dcl 11-142 reswd_NO internal static fixed bin(17,0) initial dcl 11-143 reswd_NOT internal static fixed bin(17,0) initial dcl 11-144 reswd_NUMBER internal static fixed bin(17,0) initial dcl 11-410 reswd_NUMERIC internal static fixed bin(17,0) initial dcl 11-145 reswd_NUMERIC_EDITED internal static fixed bin(17,0) initial dcl 11-146 reswd_OBJECT internal static fixed bin(17,0) initial dcl 11-307 reswd_OBJECT_COMPUTER internal static fixed bin(17,0) initial dcl 11-411 reswd_OCCURS internal static fixed bin(17,0) initial dcl 11-257 reswd_OF internal static fixed bin(17,0) initial dcl 11-147 reswd_OFF internal static fixed bin(17,0) initial dcl 11-413 reswd_OMITTED internal static fixed bin(17,0) initial dcl 11-221 reswd_ON internal static fixed bin(17,0) initial dcl 11-148 reswd_OPEN internal static fixed bin(17,0) initial dcl 11-37 reswd_OPTIONAL internal static fixed bin(17,0) initial dcl 11-415 reswd_OR internal static fixed bin(17,0) initial dcl 11-149 reswd_ORGANIZATION internal static fixed bin(17,0) initial dcl 11-199 reswd_OUTPUT internal static fixed bin(17,0) initial dcl 11-151 reswd_OVERFLOW internal static fixed bin(17,0) initial dcl 11-24 reswd_PAGE_COUNTER internal static fixed bin(17,0) initial dcl 11-417 reswd_PERFORM internal static fixed bin(17,0) initial dcl 11-38 reswd_PF internal static fixed bin(17,0) initial dcl 11-418 reswd_PH internal static fixed bin(17,0) initial dcl 11-419 reswd_PIC internal static fixed bin(17,0) initial dcl 11-258 reswd_PICTURE internal static fixed bin(17,0) initial dcl 11-258 reswd_PLUS internal static fixed bin(17,0) initial dcl 11-420 reswd_POINTER internal static fixed bin(17,0) initial dcl 11-154 reswd_POSITION internal static fixed bin(17,0) initial dcl 11-421 reswd_POSITIVE internal static fixed bin(17,0) initial dcl 11-155 reswd_PRINTING internal static fixed bin(17,0) initial dcl 11-399 reswd_PROCEDURE internal static fixed bin(17,0) initial dcl 11-156 reswd_PROCEDURES internal static fixed bin(17,0) initial dcl 11-157 reswd_PROCEED internal static fixed bin(17,0) initial dcl 11-158 reswd_PROCESS internal static fixed bin(17,0) initial dcl 11-65 reswd_PROCESSING internal static fixed bin(17,0) initial dcl 11-159 reswd_PROCESS_AREA internal static fixed bin(17,0) initial dcl 11-320 reswd_PROGRAM internal static fixed bin(17,0) initial dcl 11-160 reswd_PROGRAM_ID internal static fixed bin(17,0) initial dcl 11-422 reswd_PURGE internal static fixed bin(17,0) initial dcl 11-72 reswd_QUEUE internal static fixed bin(17,0) initial dcl 11-261 reswd_QUOTE internal static fixed bin(17,0) initial dcl 11-262 reswd_QUOTES internal static fixed bin(17,0) initial dcl 11-262 reswd_RANDOM internal static fixed bin(17,0) initial dcl 11-161 reswd_RD internal static fixed bin(17,0) initial dcl 11-423 reswd_READ internal static fixed bin(17,0) initial dcl 11-39 reswd_RECEIVE internal static fixed bin(17,0) initial dcl 11-41 reswd_RECORD internal static fixed bin(17,0) initial dcl 11-162 reswd_RECORDING internal static fixed bin(17,0) initial dcl 11-265 reswd_RECORDS internal static fixed bin(17,0) initial dcl 11-215 reswd_REDEFINES internal static fixed bin(17,0) initial dcl 11-266 reswd_REEL internal static fixed bin(17,0) initial dcl 11-163 reswd_REFERENCES internal static fixed bin(17,0) initial dcl 11-164 reswd_RELATIVE internal static fixed bin(17,0) initial dcl 11-182 reswd_RELEASE internal static fixed bin(17,0) initial dcl 11-42 reswd_REMAINDER internal static fixed bin(17,0) initial dcl 11-165 reswd_REMOVAL internal static fixed bin(17,0) initial dcl 11-291 reswd_RENAMES internal static fixed bin(17,0) initial dcl 11-267 reswd_REPLACE internal static fixed bin(17,0) initial dcl 11-336 reswd_REPLACING internal static fixed bin(17,0) initial dcl 11-166 reswd_REPORT internal static fixed bin(17,0) initial dcl 11-268 reswd_REPORTING internal static fixed bin(17,0) initial dcl 11-167 reswd_REPORTS internal static fixed bin(17,0) initial dcl 11-268 reswd_RERUN internal static fixed bin(17,0) initial dcl 11-426 reswd_RESERVE internal static fixed bin(17,0) initial dcl 11-427 reswd_RESET internal static fixed bin(17,0) initial dcl 11-428 reswd_RETURN internal static fixed bin(17,0) initial dcl 11-43 reswd_REVERSED internal static fixed bin(17,0) initial dcl 11-168 reswd_REWIND internal static fixed bin(17,0) initial dcl 11-169 reswd_REWRITE internal static fixed bin(17,0) initial dcl 11-45 reswd_RF internal static fixed bin(17,0) initial dcl 11-429 reswd_RH internal static fixed bin(17,0) initial dcl 11-430 reswd_RIGHT internal static fixed bin(17,0) initial dcl 11-270 reswd_ROUNDED internal static fixed bin(17,0) initial dcl 11-170 reswd_RUN internal static fixed bin(17,0) initial dcl 11-171 reswd_SA internal static fixed bin(17,0) initial dcl 11-271 reswd_SAME internal static fixed bin(17,0) initial dcl 11-431 reswd_SD internal static fixed bin(17,0) initial dcl 11-272 reswd_SEARCH internal static fixed bin(17,0) initial dcl 11-44 reswd_SECTION internal static fixed bin(17,0) initial dcl 11-172 reswd_SECURITY internal static fixed bin(17,0) initial dcl 11-432 reswd_SEGMENT internal static fixed bin(17,0) initial dcl 11-173 reswd_SEGMENT_LIMIT internal static fixed bin(17,0) initial dcl 11-433 reswd_SELECT internal static fixed bin(17,0) initial dcl 11-434 reswd_SEND internal static fixed bin(17,0) initial dcl 11-47 reswd_SENTENCE internal static fixed bin(17,0) initial dcl 11-174 reswd_SEPARATE internal static fixed bin(17,0) initial dcl 11-273 reswd_SEQUENCE internal static fixed bin(17,0) initial dcl 11-425 reswd_SEQUENTIAL internal static fixed bin(17,0) initial dcl 11-435 reswd_SET internal static fixed bin(17,0) initial dcl 11-48 reswd_SIGN internal static fixed bin(17,0) initial dcl 11-274 reswd_SIZE internal static fixed bin(17,0) initial dcl 11-175 reswd_SORT internal static fixed bin(17,0) initial dcl 11-66 reswd_SORT_MERGE internal static fixed bin(17,0) initial dcl 11-436 reswd_SOURCE internal static fixed bin(17,0) initial dcl 11-275 reswd_SOURCE_COMPUTER internal static fixed bin(17,0) initial dcl 11-437 reswd_SPACE internal static fixed bin(17,0) initial dcl 11-210 reswd_SPACES internal static fixed bin(17,0) initial dcl 11-210 reswd_SPANNED internal static fixed bin(17,0) initial dcl 11-439 reswd_SPECIAL_NAMES internal static fixed bin(17,0) initial dcl 11-438 reswd_SSF internal static fixed bin(17,0) initial dcl 11-89 reswd_STANDARD internal static fixed bin(17,0) initial dcl 11-176 reswd_STANDARD_1 internal static fixed bin(17,0) initial dcl 11-347 reswd_STANDARD_2 internal static fixed bin(17,0) initial dcl 11-226 reswd_START internal static fixed bin(17,0) initial dcl 11-70 reswd_STATUS internal static fixed bin(17,0) initial dcl 11-276 reswd_STOP internal static fixed bin(17,0) initial dcl 11-50 reswd_STREAM internal static fixed bin(17,0) initial dcl 11-328 reswd_STRING internal static fixed bin(17,0) initial dcl 11-51 reswd_SUBSTITUTION internal static fixed bin(17,0) initial dcl 11-338 reswd_SUBTRACT internal static fixed bin(17,0) initial dcl 11-29 reswd_SUB_QUEUE_1 internal static fixed bin(17,0) initial dcl 11-277 reswd_SUB_QUEUE_2 internal static fixed bin(17,0) initial dcl 11-278 reswd_SUB_QUEUE_3 internal static fixed bin(17,0) initial dcl 11-279 reswd_SUM internal static fixed bin(17,0) initial dcl 11-441 reswd_SUPPRESS internal static fixed bin(17,0) initial dcl 11-71 reswd_SUSPEND internal static fixed bin(17,0) initial dcl 11-52 reswd_SYMBOLIC internal static fixed bin(17,0) initial dcl 11-280 reswd_SYNC internal static fixed bin(17,0) initial dcl 11-281 reswd_SYNCHRONIZED internal static fixed bin(17,0) initial dcl 11-281 reswd_TABLE internal static fixed bin(17,0) initial dcl 11-283 reswd_TALLY internal static fixed bin(17,0) initial dcl 11-212 reswd_TALLYING internal static fixed bin(17,0) initial dcl 11-177 reswd_TAPE internal static fixed bin(17,0) initial dcl 11-444 reswd_TERMINAL internal static fixed bin(17,0) initial dcl 11-178 reswd_TERMINATE internal static fixed bin(17,0) initial dcl 11-53 reswd_TEXT internal static fixed bin(17,0) initial dcl 11-445 reswd_THAN internal static fixed bin(17,0) initial dcl 11-179 reswd_THROUGH internal static fixed bin(17,0) initial dcl 11-180 reswd_THRU internal static fixed bin(17,0) initial dcl 11-180 reswd_TIME internal static fixed bin(17,0) initial dcl 11-183 reswd_TIMES internal static fixed bin(17,0) initial dcl 11-183 reswd_TO internal static fixed bin(17,0) initial dcl 11-186 reswd_TOP internal static fixed bin(17,0) initial dcl 11-208 reswd_TRAILING internal static fixed bin(17,0) initial dcl 11-285 reswd_TRANSFORM internal static fixed bin(17,0) initial dcl 11-68 reswd_TYPE internal static fixed bin(17,0) initial dcl 11-446 reswd_UNEQUAL internal static fixed bin(17,0) initial dcl 11-187 reswd_UNIT internal static fixed bin(17,0) initial dcl 11-188 reswd_UNSTRING internal static fixed bin(17,0) initial dcl 11-54 reswd_UNTIL internal static fixed bin(17,0) initial dcl 11-189 reswd_UP internal static fixed bin(17,0) initial dcl 11-190 reswd_UPON internal static fixed bin(17,0) initial dcl 11-191 reswd_USAGE internal static fixed bin(17,0) initial dcl 11-287 reswd_USE internal static fixed bin(17,0) initial dcl 11-56 reswd_USING internal static fixed bin(17,0) initial dcl 11-192 reswd_VALUE internal static fixed bin(17,0) initial dcl 11-288 reswd_VALUES internal static fixed bin(17,0) initial dcl 11-288 reswd_VARYING internal static fixed bin(17,0) initial dcl 11-193 reswd_VLR internal static fixed bin(17,0) initial dcl 11-218 reswd_WHEN internal static fixed bin(17,0) initial dcl 11-194 reswd_WITH internal static fixed bin(17,0) initial dcl 11-195 reswd_WORDS internal static fixed bin(17,0) initial dcl 11-447 reswd_WORKING_STORAGE internal static fixed bin(17,0) initial dcl 11-290 reswd_WRITE internal static fixed bin(17,0) initial dcl 11-55 reswd_ZERO internal static fixed bin(17,0) initial dcl 11-196 reswd_ZEROES internal static fixed bin(17,0) initial dcl 11-196 reswd_ZEROS internal static fixed bin(17,0) initial dcl 11-196 reswd_ptr defined pointer dcl 2-79 rw_ptr automatic pointer dcl 9-11 same_sort_merge_proc defined bit(1) dcl 2-215 scratch_dir defined char(168) dcl 2-207 sect_eop_flag defined fixed bin(17,0) dcl 2-137 seg_init_flag defined fixed bin(17,0) dcl 2-133 seg_init_list_ptr defined pointer dcl 2-41 stack_off defined fixed bin(17,0) dcl 2-121 statement_info_ptr defined pointer dcl 2-77 string builtin function dcl 317 sym_base_ptr defined pointer dcl 2-17 sym_max defined fixed bin(17,0) dcl 2-105 sym_wd_off defined fixed bin(17,0) dcl 2-103 tag_table_max defined fixed bin(17,0) dcl 2-167 tag_table_ptr defined pointer dcl 2-53 temp_token_area_ptr defined pointer dcl 2-43 temp_token_max defined fixed bin(17,0) dcl 2-169 temp_token_ptr defined pointer dcl 2-45 text_base_ptr defined pointer dcl 2-9 text_wd_off defined fixed bin(17,0) dcl 2-91 token_block1_ptr defined pointer dcl 2-47 token_block2_ptr defined pointer dcl 2-49 value_cnt defined fixed bin(17,0) dcl 2-195 ws_charcnt defined fixed bin(17,0) dcl 2-187 ws_wdoff defined fixed bin(17,0) dcl 2-201 xref_bypass defined bit(1) dcl 2-213 xref_chain_ptr defined pointer dcl 2-75 xref_token_ptr defined pointer dcl 2-73 NAMES DECLARED BY EXPLICIT CONTEXT. cobol_send_gen 000013 constant entry external dcl 29 exit 001344 constant label dcl 312 start 000020 constant label dcl 141 NAME DECLARED BY CONTEXT OR IMPLICATION. dec builtin function ref 171 231 STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 1476 1670 1350 1506 Length 2410 1350 172 504 126 140 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME cobol_send_gen 280 external procedure is an external procedure. STORAGE FOR INTERNAL STATIC VARIABLES. LOC IDENTIFIER BLOCK NAME 000010 pr_struc cobol_send_gen 000014 alpha_type9 cobol_send_gen 000050 type19_move cobol_send_gen 000062 mpout cobol_send_gen 000074 fb17_type9 cobol_send_gen 000130 inst_seq cobol_send_gen 000142 btd cobol_send_gen 000146 null_ptr cobol_send_gen STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME cobol_send_gen 000100 inst_buff cobol_send_gen 000101 conoff cobol_send_gen 000102 temp_char cobol_send_gen 000103 temp_char1 cobol_send_gen 000104 con_flag cobol_send_gen 000105 stoff cobol_send_gen 000106 dn_ptr cobol_send_gen 000110 in_op cobol_send_gen 000111 char_conv cobol_send_gen 000114 dec_conv cobol_send_gen 000116 temp cobol_send_gen 000120 eos_ptr cobol_send_gen 000122 cdtoken_ptr cobol_send_gen THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. call_ext_out_desc call_ext_out return_mac ext_entry any_to_any_truncate_ THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. cobol_call_op cobol_emit cobol_get_size cobol_move_gen cobol_pool cobol_pool$search_op cobol_reg_manager$after_op cobol_set_pr THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. cobol_$text_wd_off LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 29 000010 141 000020 143 000025 144 000027 147 000035 148 000040 149 000042 150 000045 153 000061 156 000063 157 000071 160 000111 161 000114 163 000123 164 000130 166 000143 167 000146 168 000154 169 000174 171 000200 172 000203 173 000207 174 000212 175 000214 177 000215 178 000220 180 000234 181 000242 182 000245 183 000252 184 000272 186 000273 188 000274 189 000321 190 000327 192 000347 193 000352 194 000360 195 000400 196 000402 198 000404 200 000407 201 000431 202 000435 203 000440 204 000443 205 000450 206 000470 209 000511 211 000515 212 000520 213 000526 214 000546 215 000551 216 000557 217 000577 219 000600 221 000605 223 000617 224 000625 225 000627 226 000631 227 000633 228 000637 229 000647 231 000650 232 000655 233 000661 234 000664 235 000667 236 000707 237 000712 238 000720 240 000740 242 000744 243 000747 244 000755 245 000775 247 000776 248 001005 250 001010 251 001012 252 001014 253 001016 254 001023 256 001033 258 001044 259 001046 261 001052 262 001054 263 001056 265 001077 266 001102 267 001106 268 001113 269 001115 270 001136 272 001137 274 001141 275 001143 279 001156 280 001160 281 001161 284 001171 286 001174 289 001201 290 001203 291 001205 292 001207 293 001210 295 001212 296 001234 297 001240 298 001243 299 001246 300 001253 301 001273 307 001314 309 001330 312 001344 ----------------------------------------------------------- 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