COMPILATION LISTING OF SEGMENT rw_display_process_args Compiled by: Multics PL/I Compiler, Release 28d, of October 4, 1983 Compiled at: Honeywell Multics Op. - System M Compiled on: 11/16/84 1125.5 mst Fri Options: optimize map 1 /* *********************************************************** 2* * * 3* * Copyright, (C) Honeywell Information Systems Inc., 1982 * 4* * * 5* *********************************************************** */ 6 /* format: off */ 7 8 /* This is the procedure called by the report writer display request to 9* process its control args and return the result through the include 10* file rw_display_arg_list. Description and usage follows. 11* 12* Description: 13* 14* This proc is called to setup the default control arguments, and then 15* update them with any user supplied control args. It is broken out 16* from the report writer display request so that it can (hopefully) be 17* replaced when a general process_args subroutine comes along. 18* 19* Usage: 20* 21* See the paremeter list for usage. 22* 23* Known Bugs: 24* 25* Other Problems: 26* 27* History: 28* 29* Written - Al Dupuis - August 1983 30* Changed - Al Dupuis - October 1984 - Became report_writer_. 31* 32**/ 33 34 rw_display_process_args: proc ( 35 36 report_cip_parm, /* input: points to report_control_info */ 37 area_ptr_parm, /* input: ptr to an area for allocations */ 38 table_info_ptr_parm, /* input: ptr to table_info structure */ 39 display_arg_results_ptr_parm /* input: ptr to the display_arg_results structure */ 40 ); 41 42 dcl area_ptr_parm ptr parm; 43 dcl display_arg_results_ptr_parm ptr parm; 44 dcl report_cip_parm ptr parm; 45 dcl table_info_ptr_parm ptr parm; 46 47 /* 48* Mainline Processing Overview. 49* 50* 1) Set the default control arg flags. 51* 2) Loop through the control args updating the default flags. 52* 3) Process any pathnames supplied. 53* 4) Print execution time if we're being timed. 54* 55**/ 56 57 time1 = vclock; 58 59 call initialize; 60 call process_args; 61 62 if based_display_arg_results.output_file_flag 63 | based_display_arg_results.temp_dir_flag 64 then call setup_additional_pathnames; 65 66 if based_display_arg_results.time_flag 67 then do; 68 time2 = vclock; 69 call ioa_$ioa_switch (iox_$error_output, 70 "Time used to process the arguments was ^10.5f seconds.", 71 (time2 - time1) / 1000000); 72 end; 73 74 return; 75 76 initialize: proc; 77 78 report_cip = report_cip_parm; 79 sci_ptr = report_control_info.subsystem_control_info_ptr; 80 the_area_ptr = area_ptr_parm; 81 table_ip = table_info_ptr_parm; 82 based_display_arg_results_ptr = display_arg_results_ptr_parm; 83 84 /* Set the default control args up. */ 85 86 unspec (based_display_arg_results.flags) = OFF; 87 based_display_arg_results.pathnames = BLANK; 88 unspec (based_display_arg_results.miscellaneous) = OFF; 89 based_display_arg_results.sort_information_ptr = null (); 90 based_display_arg_results.scroll_info_ptr = null (); 91 92 based_display_arg_results.flags.all_flag = ON; 93 based_display_arg_results.flags.new_report_flag = ON; 94 based_display_arg_results.flags.new_retrieval_flag = ON; 95 based_display_arg_results.flags.long_flag = ON; 96 based_display_arg_results.flags.truncate_flag = ON; 97 98 /* Setup the scrolling structure to it's default state. */ 99 100 allocate scroll_info in (the_area) set (scroll_ip); 101 unspec (scroll_info) = OFF; 102 based_display_arg_results.scroll_info_ptr = scroll_ip; 103 terminal_info_ptr = addr (local_terminal_info); 104 terminal_info.version = terminal_info_version; 105 call iox_$control (iox_$user_io, "terminal_info", terminal_info_ptr, code); 106 if code ^= 0 107 then if code = error_table_$no_operation 108 then window_system_cant_be_used = ON; 109 else call ssu_$abort_line (sci_ptr, code, 110 "Unable to get the terminal information."); 111 else do; 112 window_system_cant_be_used = OFF; 113 call ttt_info_$function_key_data (terminal_info.term_type, 114 the_area_ptr, function_key_data_ptr, code); 115 if code ^= 0 116 then if code ^= error_table_$no_table 117 then call ssu_$abort_line (sci_ptr, code, 118 "Unable to get the function key information."); 119 else function_keys_can_be_used = OFF; 120 else do; 121 scroll_info.function_key_data_pointer = function_key_data_ptr; 122 if function_key_data.highest < HIGHEST_NUMBERED_FUNCTION_KEY_NEEDED 123 | (function_key_data.cursor_motion_keys.down (KEY_PLAIN).sequence_length = 0) 124 | (function_key_data.cursor_motion_keys.up (KEY_PLAIN).sequence_length = 0) 125 | (function_key_data.cursor_motion_keys.left (KEY_PLAIN).sequence_length = 0) 126 | (function_key_data.cursor_motion_keys.right (KEY_PLAIN).sequence_length = 0) 127 then function_keys_can_be_used = OFF; 128 else function_keys_can_be_used = ON; 129 end; 130 if function_keys_can_be_used 131 then call process_enable_function_keys; 132 else call process_enable_escape_keys; 133 end; 134 135 return; 136 137 end initialize; 138 139 process_args: proc; 140 141 /* 142* Loop through the control args setting flags and collecting arguments 143* to control args. Conflicting control args are overidden by the 144* last one supplied. Args to control args (e.g. dir names, page 145* numbers) are processed immediately. 146**/ 147 148 call ssu_$arg_count (sci_ptr, no_of_args_supplied); 149 150 if no_of_args_supplied = 0 151 then return; 152 153 still_processing_args = ON; 154 current_arg = 1; 155 156 do while (still_processing_args); 157 158 call get_next_arg; 159 argument_number = lookup_arg_number (arg); 160 if argument_number = 0 161 then call ssu_$abort_line (sci_ptr, error_table_$badopt, 162 "^/^a is not a valid control argument. Type ""help display"" for correct usage.", 163 arg); 164 call process_arg_procs (argument_number); 165 166 end; 167 168 return; 169 170 lookup_arg_number: proc (arg_parm) returns (fixed bin); 171 172 dcl arg_parm char (*) parm; 173 174 loop1 = 1; 175 loop2 = hbound (ARGUMENT_NAME_TABLE, 1); 176 177 do while (loop1 <= loop2); 178 179 loop3 = divide (loop1 + loop2, 2, 17); 180 if arg_parm = ARGUMENT_NAME_TABLE (loop3) 181 then return (loop3); 182 183 if arg_parm < ARGUMENT_NAME_TABLE (loop3) 184 then loop2 = loop3 - 1; 185 else loop1 = loop3 + 1; 186 187 end; 188 189 return (0); 190 191 192 end lookup_arg_number; 193 194 end process_args; 195 196 process_all: proc; 197 198 based_display_arg_results.all_flag = ON; 199 200 based_display_arg_results.pages_flag = OFF; 201 based_display_arg_results.scroll_flag = OFF; 202 203 return; 204 205 end process_all; 206 207 process_brief: proc; 208 209 based_display_arg_results.long_flag = OFF; 210 211 return; 212 213 end process_brief; 214 215 process_character_positions: proc; 216 217 based_display_arg_results.scroll_flag = OFF; 218 based_display_arg_results.character_positions_flag = ON; 219 220 if ^still_processing_args 221 then call ssu_$abort_line (sci_ptr, error_table_$inconsistent, 222 "^/-character_positions must be followed by a left, and optionally a right margin value."); 223 call get_next_arg; 224 based_display_arg_results.left_margin_position = cv_dec_check_ (arg, code); 225 if code ^= 0 226 then call ssu_$abort_line (sci_ptr, error_table_$inconsistent, 227 "^/-character_positions must be followed by a valid left margin value, not ^a.", arg); 228 if ^still_processing_args 229 then generate_right_margin_position = ON; 230 else do; 231 call get_next_arg; 232 if substr (arg, 1, 1) = HYPHEN 233 then do; 234 generate_right_margin_position = ON; 235 current_arg = current_arg - 1; 236 still_processing_args = ON; 237 end; 238 else do; 239 generate_right_margin_position = OFF; 240 based_display_arg_results.right_margin_position 241 = cv_dec_check_ (arg, code); 242 if code ^= 0 243 then call ssu_$abort_line (sci_ptr, error_table_$inconsistent, 244 "^/-character_positions must be followed by a valid left and right margin value, not ^a.", arg); 245 end; 246 end; 247 if generate_right_margin_position 248 then do; 249 call rw_options$get (report_cip, OPTIONS.GENERAL_REPORT.NAME 250 (INDEX_FOR_PAGE_WIDTH), "", normalized_option_name, 251 option_value, code); 252 if code ^= 0 253 then call ssu_$abort_line (sci_ptr, code, 254 "^/While trying to get the default report page width."); 255 based_display_arg_results.right_margin_position = cv_dec_check_ ((option_value), code); 256 if based_display_arg_results.right_margin_position = 0 257 then based_display_arg_results.right_margin_position = 100000; 258 if code ^= 0 259 then call ssu_$abort_line (sci_ptr, rw_error_$bad_report_setup, 260 "^/Could not convert the page width ""^a"" to a number.", option_value); 261 end; 262 263 return; 264 265 end process_character_positions; 266 267 process_debug: proc; 268 269 based_display_arg_results.flags.debug_flag = ON; 270 271 return; 272 273 end process_debug; 274 275 process_discard_report: proc; 276 277 based_display_arg_results.keep_report_flag = OFF; 278 279 return; 280 281 end process_discard_report; 282 283 process_discard_retrieval: proc; 284 285 based_display_arg_results.keep_retrieval_flag = OFF; 286 287 return; 288 289 end process_discard_retrieval; 290 291 process_enable_escape_keys: proc; 292 293 dcl peek_loop fixed bin; 294 295 if window_system_cant_be_used 296 then call ssu_$abort_line (sci_ptr, video_et_$unable_to_call_wsys); 297 298 scroll_info.flags.escapes_in_use = ON; 299 300 do peek_loop = 1 to HIGHEST_DISPLAY_FUNCTION_NUMBER; 301 keys_as_a_table (peek_loop) = ESCAPE_KEYS_AS_A_TABLE (peek_loop); 302 mnemonic_key_sequences_as_a_table (peek_loop) = ESCAPE_KEY_MNEMONICS_AS_A_TABLE (peek_loop); 303 end; 304 305 return; 306 307 end process_enable_escape_keys; 308 309 process_enable_function_keys: proc; 310 311 dcl pefk_inner_loop fixed bin; 312 dcl pefk_loop fixed bin; 313 314 if window_system_cant_be_used 315 then call ssu_$abort_line (sci_ptr, video_et_$unable_to_call_wsys); 316 317 if ^function_keys_can_be_used 318 then return; 319 320 scroll_info.flags.escapes_in_use = OFF; 321 scroll_info.keys.forward = substr (function_key_seqs, 322 function_key_data.cursor_motion_keys.down (KEY_PLAIN).sequence_index, 323 function_key_data.cursor_motion_keys.down (KEY_PLAIN).sequence_length); 324 scroll_info.keys.backward = substr (function_key_seqs, 325 function_key_data.cursor_motion_keys.up (KEY_PLAIN).sequence_index, 326 function_key_data.cursor_motion_keys.up (KEY_PLAIN).sequence_length); 327 scroll_info.keys.left = substr (function_key_seqs, 328 function_key_data.cursor_motion_keys.left (KEY_PLAIN).sequence_index, 329 function_key_data.cursor_motion_keys.left (KEY_PLAIN).sequence_length); 330 scroll_info.keys.right = substr (function_key_seqs, 331 function_key_data.cursor_motion_keys.right (KEY_PLAIN).sequence_index, 332 function_key_data.cursor_motion_keys.right (KEY_PLAIN).sequence_length); 333 334 pefk_inner_loop = 1; 335 do pefk_loop = 5 to HIGHEST_DISPLAY_FUNCTION_NUMBER; 336 keys_as_a_table (pefk_loop) = substr (function_key_seqs, 337 function_key_data.function_keys (pefk_inner_loop, KEY_PLAIN).sequence_index, 338 function_key_data.function_keys (pefk_inner_loop, KEY_PLAIN).sequence_length); 339 pefk_inner_loop = pefk_inner_loop + 1; 340 end; 341 342 do pefk_loop = 1 to HIGHEST_DISPLAY_FUNCTION_NUMBER; 343 mnemonic_key_sequences_as_a_table (pefk_loop) 344 = KEY_MNEMONICS_AS_A_TABLE (pefk_loop); 345 end; 346 347 return; 348 349 end process_enable_function_keys; 350 351 process_extend: proc; 352 353 based_display_arg_results.truncate_flag = OFF; 354 355 return; 356 357 end process_extend; 358 359 process_keep_report: proc; 360 361 based_display_arg_results.keep_report_flag = ON; 362 363 return; 364 365 end process_keep_report; 366 367 process_keep_retrieval: proc; 368 369 based_display_arg_results.keep_retrieval_flag = ON; 370 371 return; 372 373 end process_keep_retrieval; 374 375 process_long: proc; 376 377 based_display_arg_results.long_flag = ON; 378 379 return; 380 381 end process_long; 382 383 process_new_report: proc; 384 385 based_display_arg_results.new_report_flag = ON; 386 387 return; 388 389 end process_new_report; 390 391 process_new_retrieval: proc; 392 393 based_display_arg_results.new_retrieval_flag = ON; 394 395 return; 396 397 end process_new_retrieval; 398 399 process_old_report: proc; 400 401 based_display_arg_results.new_report_flag = OFF; 402 403 return; 404 405 end process_old_report; 406 407 process_old_retrieval: proc; 408 409 based_display_arg_results.new_retrievaH0ˆ€ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿúÿýþÿÿûÿÿÿÿûsÿ÷ÿÿÿÿÿÿûÿÿÿÿÿÿÿÿ}ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ÷ÿÿÿ¿ÿÿÿÿÿÿÿûÿÿÿÿÿÿ÷÷ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿð`FìüžF8ëÐ--0ˆ€€€€?ÿÿÿÿÿÿúÿýþÿÿûÿÿÿÿûsÿ÷ÿÿÿÿÿÿûÿÿÿÿÿÿÿÿ}ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ÷ÿÿÿ¿ÿÿÿÿÿÿÿûÿÿÿÿÿÿ÷÷ÿÿÿÿÿ€ÿÿÿÿÿÿÿÿÿÿÿÿÿÿð8Pë˜nx.˜‰¤OÀí  ß¼(à0sñÛ\$D@@@@üPëHÿÿÿÖtPost Multics €£E¾@ÒTê„0˜ÐÊ´´Rë,dñ B?ÿÿüÀ?ðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿ¿ÿ¿ÿÿÿÿÿÿÿîÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿïÿÿÿÿÿÿÿÿÿÿÿÀ?ÿÿà ð÷ÿÿÿÿÿàÿÿÿÏþþðÿÿÿ€ð ø!àðÿXòRHëÚÌÆH^ë’t.˜‰¤OÀí  ß¼(à0ÿÿŽñÛ\$D@ìÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýÿþÿÿÿýÿÿÿÿý¹ÿûÿÿÿÿÿÿýÿÿÿÿÿÿÿÿ¾ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿûÿÿÿßÿÿÿÿÿÿÿýÿÿÿÿÿÿ?ûûÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø^^ë4i˜.˜‰¤OÀí  ß¼(à0sñÛ\$D@@@@ÿÿÿÿÿÿÿÿýÿþÿÿÿýÿÿÿÿý¹ÿûÿÿÿÿÿÿýÿÿÿÿÿÿÿÿ¾ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿûÿÿÿßÿÿÿÿÿÿÿýÿÿÿÿÿÿ?ûûÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø^êÖÿÿÿÖLubey Office €÷æ@ª­S\Q°:§Ž êº &” ê®ÿÿÿÖuPlatnich Office ˜€’ëZ€;6Ržòh0 ^Dp^ê’:‹\0Hž€1Û@" A¿x2PÀ`æ8â·¸H0ˆ€ òÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿúÿýþÿÿûø ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿð^Bê4Ø&BêòÿÿÿÖvKokol Office €”L«YS2R*ìpZƒ,Ö4êÔ [ñÿB@€4Lê f .˜‰¤OÀí  ß¼(à0sñÛ\$D@@@_page_number = cv_dec_check_ ((test_string), code); 506 if code ^= 0 507 then call ssu_$abort_line (sci_ptr, error_table_$bad_arg, 508 INVALID_PAGE_RANGE, arg); 509 end; 510 end; 511 if (beginning_page_number > ending_page_number) 512 | (beginning_page_number < smallest_page_number) 513 | (ending_page_number > largest_page_number) 514 then call ssu_$abort_line (sci_ptr, error_table_$bad_arg, 515 INVALID_PAGE_RANGE, arg); 516 do loop = beginning_page_number to ending_page_number; 517 based_display_arg_results.specified_pages (loop) = ON; 518 end; 519 end; 520 if still_processing_args 521 then do; 522 call get_next_arg; 523 if substr (arg, 1, 1) = HYPHEN 524 then do; 525 current_arg = current_arg - 1; 526 still_processing_page_numbers = OFF; 527 still_processing_args = ON; 528 end; 529 end; 530 else still_processing_page_numbers = OFF; 531 end; 532 533 return; 534 535 end process_pages; 536 537 process_passes: proc; 538 539 if ^still_processing_args 540 then call ssu_$abort_line (sci_ptr, error_table_$inconsistent, 541 "^/-passes must be followed by the number of passes."); 542 call get_next_arg; 543 if verify (arg, DIGITS) ^= 0 | arg_length > REASONABLE_NUMBER_OF_DIGITS 544 then call ssu_$abort_line (sci_ptr, error_table_$bad_conversion, 545 "^/The value ^a is unacceptable for the number of passes.", arg); 546 based_display_arg_results.flags.passes_flag = ON; 547 based_display_arg_results.miscellaneous.number_of_passes 548 = convert (based_display_arg_results.miscellaneous.number_of_passes, arg); 549 if based_display_arg_results.miscellaneous.number_of_passes = 0 550 then call ssu_$abort_line (sci_ptr, error_table_$bad_conversion, 551 "^/The value zero is unacceptable for the number of passes."); 552 else if based_display_arg_results.miscellaneous.number_of_passes = 1 553 then based_display_arg_results.flags.passes_flag = OFF; 554 else; 555 556 return; 557 558 end process_passes; 559 560 process_scroll: proc; 561 562 if window_system_cant_be_used 563 then call ssu_$abort_line (sci_ptr, video_et_$unable_to_call_wsys); 564 565 based_display_arg_results.scroll_flag = ON; 566 567 based_display_arg_results.all_flag = OFF; 568 based_display_arg_results.character_positions_flag = OFF; 569 based_display_arg_results.pages_flag = OFF; 570 based_display_arg_results.output_file_flag = OFF; 571 based_display_arg_results.output_switch_flag = OFF; 572 573 return; 574 575 end process_scroll; 576 577 process_set_keys: proc; 578 579 dcl psk_pair_of_key_bindings_found bit (1) aligned; 580 dcl psk_function_name char (32); 581 dcl psk_function_key_sequence char (32); 582 583 if ^still_processing_args 584 then call ssu_$abort_line (sci_ptr, error_table_$inconsistent, SET_KEYS_ERROR_MESSAGE); 585 586 psk_pair_of_key_bindings_found = OFF; 587 still_processing_set_key_args = ON; 588 589 do while (still_processing_set_key_args); 590 call get_next_arg; 591 if substr (arg, 1, 1) = HYPHEN | ^still_processing_args 592 then do; 593 if ^psk_pair_of_key_bindings_found | ^still_processing_args 594 then call ssu_$abort_line (sci_ptr, 595 error_table_$inconsistent, SET_KEYS_ERROR_MESSAGE); 596 current_arg = current_arg - 1; 597 still_processing_args = ON; 598 return; 599 end; 600 psk_function_name = arg; 601 call get_next_arg; 602 psk_function_key_sequence = arg; 603 psk_pair_of_key_bindings_found = ON; 604 call rw_display_scroll$set_fkey (scroll_ip, 605 psk_function_name, psk_function_key_sequence, code); 606 if code ^= 0 607 then if code = rw_error_$bad_fkey_name 608 then call ssu_$abort_line (sci_ptr, rw_error_$bad_fkey_name, 609 "^/^a is not a valid display scroll function name.", psk_function_name); 610 else if code = rw_error_$bad_fkey_sequence 611 then call ssu_$abort_line (sci_ptr, rw_error_$bad_fkey_sequence, 612 "^/^a is not a valid mnemonic function key sequence.", psk_function_key_sequence); 613 else call ssu_$abort_line (sci_ptr, code); 614 if ^still_processing_args 615 then still_processing_set_key_args = OFF; 616 end; 617 618 return; 619 620 end process_set_keys; 621 622 process_sort: proc; 623 624 if ^still_processing_args 625 then call ssu_$abort_line (sci_ptr, error_table_$inconsistent, 626 "^/-sort must be followed by at least one column name or number."); 627 628 call get_next_arg; 629 if substr (arg, 1, 1) = HYPHEN 630 then call ssu_$abort_line (sci_ptr, error_table_$bad_arg, 631 "^/-sort must be followed by a column name or number, not ^a.", arg); 632 633 /* 634* Allocate the info structure big enough to hold all columns 635* if they are all given. Keep track of which ones are given during 636* the processing and if duplicates are given then shut things down. 637* A bit map is used to keep track of duplicates. 638**/ 639 no_of_candidate_columns = table_info.column_count; 640 allocate sort_info in (the_area) 641 set (sort_info_ptr); 642 based_display_arg_results.sort_information_ptr = sort_info_ptr; 643 unspec (sort_info) = OFF; 644 645 allocate sort_bit_map in (the_area) 646 set (sort_bit_map_ptr); 647 unspec (sort_bit_map) = OFF; 648 649 based_display_arg_results.sort_flag = ON; 650 still_processing_sort_specs = ON; 651 sort_info.number_of_columns_to_sort = 0; 652 653 /* 654* (1) The name can be given as a name or number so it's normalized 655* so that it's a name. If its not found things are shut down. 656* (2) The name is looked up to find out its order in the 657* selection expression. This operation can't fail because the name 658* used for the lookup is the normalized name. (3) The name found is 659* checked to make sure it's the first time it was given. If its been 660* given before then things are shut down. (4) The number of columns 661* to be sorted is bumped and the number of the column is stored. 662* (5) The next arg (if there is one) is checked to see if its 663* -ascending or one of its brothers. If it is fine. If it's a new 664* control arg then a backup in necessary. If it's the next column 665* name or number then it will be processed the next time through the 666* loop. If it was one of the -ascending family then the next column 667* name or number must be gotten before the loop is repeated (which 668* may cause another backup operation), if there is another column 669* name or number. 670**/ 671 672 do while (still_processing_sort_specs); 673 674 /* Have column name or number changed to a name. */ 675 676 call rw_options$check_identifier (report_cip, 677 OPTIONS.SPECIFIC_COLUMN.NAME (1), (arg), 678 normalized_option_name, code); 679 if code ^= 0 680 then if code = rw_error_$bad_option_identifier 681 then call ssu_$abort_line (sci_ptr, error_table_$bad_arg, 682 "^/^a is not a valid column name or number.", arg); 683 else call ssu_$abort_line (sci_ptr, code); 684 else; 685 686 /* Find the number of the column. */ 687 688 not_found = ON; 689 the_column_name = after (normalized_option_name, BLANK); 690 do loop = 1 to table_info.column_count while (not_found); 691 if table_info.columns.column_name (loop) = the_column_name 692 then do; 693 not_found = OFF; 694 column_number = loop; 695 end; 696 end; 697 698 /* Reject duplicates, mark ones we've found. */ 699 700 if not_found 701 then call ssu_$abort_line (sci_ptr, rw_error_$bad_report_setup, 702 "^/Logic error while trying to find the column ^a.", arg); 703 if sort_bit_map (column_number) 704 then call ssu_$abort_line (sci_ptr, error_table_$inconsistent, 705 "^/The ^a column (#^d) was given more than once in the sort description.", 706 table_info.columns.column_name (column_number), column_number); 707 else sort_bit_map (column_number) = ON; 708 709 sort_info.number_of_columns_to_sort 710 = sort_info.number_of_columns_to_sort + 1; 711 sort_info.columns.number (sort_info.number_of_columns_to_sort) 712 = column_number; 713 714 if still_processing_args 715 then do; 716 still_processing_additional_sort_args = ON; 717 do while (still_processing_additional_sort_args); 718 backup_necessary = OFF; 719 next_column_name_found = OFF; 720 call get_next_arg; 721 if arg = HYPHEN_DESCENDING | arg = HYPHEN_DSC 722 then sort_info.columns.descending 723 (sort_info.number_of_columns_to_sort) = ON; 724 else if arg = HYPHEN_ASCENDING | arg = HYPHEN_ASC 725 then; 726 else if arg = HYPHEN_NON_CASE_SENSITIVE | arg = HYPHEN_NCS 727 then sort_info.columns.non_case_sensitive 728 (sort_info.number_of_columns_to_sort) = ON; 729 else if arg = HYPHEN_CASE_SENSITIVE | arg = HYPHEN_CS 730 then; 731 else if substr (arg, 1, 1) = HYPHEN 732 then backup_necessary = ON; 733 else next_column_name_found = ON; 734 if next_column_name_found | backup_necessary 735 then still_processing_additional_sort_args = OFF; 736 else if ^still_processing_args 737 then do; 738 still_processing_additional_sort_args = OFF; 739 still_processing_sort_specs = OFF; 740 end; 741 else; 742 if backup_necessary 743 then do; 744 current_arg = current_arg - 1; 745 still_processing_args = ON; 746 still_processing_sort_specs = OFF; 747 end; 748 end; 749 end; 750 else still_processing_sort_specs = OFF; 751 end; 752 free sort_bit_map; 753 754 return; 755 756 end process_sort; 757 758 process_temp_dir: proc; 759 760 if ^still_processing_args 761 then call ssu_$abort_line (sci_ptr, error_table_$inconsistent, 762 "^/-temp_dir must be followed by a directory name."); 763 call get_next_arg; 764 based_display_arg_results.temp_dir_flag = ON; 765 based_display_arg_results.temp_dir_pathname = arg; 766 767 return; 768 769 end process_temp_dir; 770 771 process_truncate: proc; 772 773 based_display_arg_results.truncate_flag = ON; 774 775 return; 776 777 end process_truncate; 778 779 process_window: proc; 780 781 if ^still_processing_args 782 then if arg = "-window" | arg = "-win" 783 then call ssu_$abort_line (sci_ptr, error_table_$inconsistent, 784 "^/-window must be followed by the name of a window."); 785 else call ssu_$abort_line (sci_ptr, error_table_$inconsistent, 786 "^/-io_switch must be followed by the name of a switch."); 787 else; 788 call get_next_arg; 789 based_display_arg_results.window_flag = ON; 790 based_display_arg_results.window_name = arg; 791 792 return; 793 794 end process_window; 795 796 process_time: proc; 797 798 based_display_arg_results.time_flag = ON; 799 800 return; 801 802 end process_time; 803 804 get_next_arg: proc; 805 806 call ssu_$arg_ptr (sci_ptr, current_arg, arg_ptr, arg_length); 807 current_arg = current_arg + 1; 808 if current_arg > no_of_args_supplied 809 then still_processing_args = OFF; 810 811 return; 812 813 end get_next_arg; 814 815 setup_additional_pathnames: proc; 816 817 /* 818* 819* If the user has requested the report be saved then expand the 820* pathname given and stash away the dir and entry names. If a 821* temp_dir was specified then expand and stash it away also. 822* 823**/ 824 825 if based_display_arg_results.output_file_flag 826 then do; 827 call expand_pathname_ ( 828 based_display_arg_results.output_file_pathname, 829 based_display_arg_results.output_file_directory_name, 830 based_display_arg_results.output_file_entry_name, code); 831 if code ^= 0 832 then call ssu_$abort_line (sci_ptr, code, 833 "^/Unable to expand the -output_file pathname ^a.", 834 based_display_arg_results.output_file_pathname); 835 end; 836 837 if based_display_arg_results.temp_dir_flag 838 then do; 839 call expand_pathname_ ( 840 based_display_arg_results.temp_dir_pathname, 841 temporary_dir_name, entry_name, code); 842 if code ^= 0 843 then call ssu_$abort_line (sci_ptr, code, 844 "^/Unable to expand the -temp_dir name ^a.", 845 based_display_arg_results.temp_dir_pathname); 846 call hcs_$status_minf (temporary_dir_name, entry_name, 1, 847 type, bit_count, code); 848 if code ^= 0 849 then call ssu_$abort_line (sci_ptr, code, 850 "^/Unable to get the status of the directory ^a.", 851 rtrim (based_display_arg_results.temp_dir_pathname)); 852 if type ^= DIRECTORY | (type = DIRECTORY & bit_count > 0) 853 then call ssu_$abort_line (sci_ptr, error_table_$notadir, 854 "^/-temp_dir must be followed by a directory name."); 855 based_display_arg_results.temp_dir_pathname 856 = rtrim (temporary_dir_name) || ">" 857 || rtrim (entry_name); 858 end; 859 860 return; 861 862 end setup_additional_pathnames; 863 864 /* To change this table also change the process_arg_procs table. */ 865 866 dcl ARGUMENT_NAME_TABLE (55) char (21) varying static int options (constant) init ( 867 868 "-a", /* process_all */ 869 "-all", /* process_all */ 870 "-bf", /* process_brief */ 871 "-brief", /* process_brief */ 872 "-character_positions", /* process_character_positions */ 873 "-chpsn", /* process_character_positions */ 874 "-debug", /* process_debug */ 875 "-discard_report", /* process_discard_report */ 876 "-discard_retrieval", /* process_discard_retrieval */ 877 "-dsr", /* process_discard_retrieval */ 878 "-dsrp", /* process_discard_report */ 879 "-eek", /* process_enable_escape_keys */ 880 "-efk", /* process_enable_function_keys */ 881 "-enable_escape_keys", /* process_enable_escape_keys */ 882 "-enable_function_keys", /* process_enable_function_keys */ 883 "-extend", /* process_extend */ 884 "-io_switch", /* process_window */ 885 "-iosw", /* process_window */ 886 "-keep_report", /* process_keep_report */ 887 "-keep_retrieval", /* process_keep_retrieval */ 888 "-kr", /* process_keep_retrieval */ 889 "-krp", /* process_keep_report */ 890 "-lg", /* process_long */ 891 "-long", /* process_long */ 892 "-new_report", /* process_new_report */ 893 "-new_retrieval", /* process_new_retrieval */ 894 "-nr", /* process_new_retrieval */ 895 "-nrp", /* process_new_report */ 896 "-of", /* process_output_file */ 897 "-old_report", /* process_old_report */ 898 "-old_retrieval", /* process_old_retrieval */ 899 "-or", /* process_old_retrieval */ 900 "-orp", /* process_old_report */ 901 "-osw", /* process_output_switch */ 902 "-output_file", /* process_output_file */ 903 "-output_switch", /* process_output_switch */ 904 "-page", /* process_pages */ 905 "-pages", /* process_pages */ 906 "-pass", /* process_passes */ 907 "-passes", /* process_passes */ 908 "-pg", /* process_pages */ 909 "-pgs", /* process_pages */ 910 "-scroll", /* process_scroll */ 911 "-set_key", /* process_set_keys */ 912 "-set_keys", /* process_set_keys */ 913 "-sk", /* process_set_keys */ 914 "-sks", /* process_set_keys */ 915 "-sort", /* process_sort */ 916 "-tc", /* process_truncate */ 917 "-td", /* process_temp_dir */ 918 "-temp_dir", /* process_temp_dir */ 919 "-time", /* process_time */ 920 "-truncate", /* process_truncate */ 921 "-win", /* process_window */ 922 "-window" /* process_window */ 923 ); 924 dcl BLANK char (1) static int options (constant) init (" "); 925 dcl COMMA char (1) static int options (constant) init (","); 926 dcl DIRECTORY fixed bin (2) static int options (constant) init (2); 927 dcl DIGITS char (10) static int options (constant) init ("0123456789"); 928 dcl DOLLAR char (1) static int options (constant) init ("$"); 929 dcl HYPHEN char (1) static int options (constant) init ("-"); 930 dcl HYPHEN_ASCENDING char (10) static int options (constant) init ("-ascending"); 931 dcl HYPHEN_ASC char (4) static int options (constant) init ("-asc"); 932 dcl HYPHEN_CASE_SENSITIVE char (15) static int options (constant) init ("-case_sensitive"); 933 dcl HYPHEN_CS char (3) static int options (constant) init ("-cs"); 934 dcl HYPHEN_DESCENDING char (11) static int options (constant) init ("-descending"); 935 dcl HYPHEN_DSC char (4) static int options (constant) init ("-dsc"); 936 dcl HYPHEN_NON_CASE_SENSITIVE char (19) static int options (constant) init ("-non_case_sensitive"); 937 dcl HYPHEN_NCS char (4) static int options (constant) init ("-ncs"); 938 dcl INVALID_PAGE_RANGE char (46) static int options (constant) init ("^/^a is not a valid page number or page range."); 939 dcl OFF bit (1) static int options (constant) init ("0"b); 940 dcl ON bit (1) static int options (constant) init ("1"b); 941 dcl PAGE_RANGE_VALID_CHARACTERS char (13) static int options (constant) init (" ,$0123456789"); 942 dcl REASONABLE_NUMBER_OF_DIGITS fixed bin static int options (constant) init (5); 943 dcl SET_KEYS_ERROR_MESSAGE char (66) static internal options (constant) init ( 944 "^/-set_keys must be followed by at least one pair of key bindings."); 945 946 dcl addr builtin; 947 dcl after builtin; 948 dcl arg char (arg_length) based (arg_ptr); 949 dcl arg_length fixed bin (21); 950 dcl arg_ptr ptr; 951 dcl argument_number fixed bin; 952 953 dcl backup_necessary bit (1) aligned; 954 dcl 1 based_display_arg_results like display_arg_results based (based_display_arg_results_ptr); 955 dcl based_display_arg_results_ptr ptr; 956 dcl before builtin; 957 dcl beginning_page_number fixed bin; 958 dcl bit_count fixed bin (24); 959 960 dcl code fixed bin (35); 961 dcl column_number fixed bin; 962 dcl convert builtin; 963 dcl current_arg fixed bin; 964 dcl cv_dec_check_ entry (char(*), fixed bin(35)) returns(fixed bin(35)); 965 966 dcl divide builtin; 967 968 dcl ending_page_number fixed bin; 969 dcl entry_name char (32); 970 dcl error_table_$bad_arg fixed bin(35) ext static; 971 dcl error_table_$bad_conversion fixed bin(35) ext static; 972 dcl error_table_$badopt fixed bin(35) ext static; 973 dcl error_table_$inconsistent fixed bin(35) ext static; 974 dcl error_table_$no_operation fixed bin(35) ext static; 975 dcl error_table_$no_table fixed bin(35) ext static; 976 dcl error_table_$notadir fixed bin(35) ext static; 977 dcl expand_pathname_ entry (char(*), char(*), char(*), fixed bin(35)); 978 979 dcl first_page_number_supplied bit (1) aligned; 980 dcl function_keys_can_be_used bit (1) aligned; 981 982 dcl generate_right_margin_position bit (1) aligned; 983 984 dcl hbound builtin; 985 dcl hcs_$status_minf entry (char(*), char(*), fixed bin(1), fixed bin(2), fixed bin(24), fixed bin(35)); 986 987 dcl index builtin; 988 dcl ioa_$ioa_switch entry() options(variable); 989 dcl iox_$control entry (ptr, char(*), ptr, fixed bin(35)); 990 dcl iox_$error_output ptr ext static; 991 dcl iox_$user_io ptr ext static; 992 993 dcl largest_page_number fixed bin; 994 dcl 1 local_terminal_info like terminal_info; 995 dcl loop fixed bin; 996 dcl loop1 fixed bin; 997 dcl loop2 fixed bin; 998 dcl loop3 fixed bin; 999 1000 dcl next_column_name_found bit (1) aligned; 1001 dcl no_of_args_supplied fixed bin; 1002 dcl normalized_option_name char (MAXIMUM_NORMALIZED_OPTION_NAME_LENGTH) varying; 1003 dcl not_found bit (1) aligned; 1004 dcl null builtin; 1005 1006 dcl option_value char (32) varying; 1007 1008 /* To change this table also change the ARGUMENT_NAME_TABLE table. */ 1009 1010 dcl process_arg_procs (55) entry init ( 1011 1012 process_all, /* "-a" */ 1013 process_all, /* "-all" */ 1014 process_brief, /* "-bf" */ 1015 process_brief, /* "-brief" */ 1016 process_character_positions, /* "-character_positions" */ 1017 process_character_positions, /* "-chpsn" */ 1018 process_debug, /* "-debug" */ 1019 process_discard_report, /* "-discard_report" */ 1020 process_discard_retrieval, /* "-discard_retrieval" */ 1021 process_discard_retrieval, /* "-dsr" */ 1022 process_discard_report, /* "-dsrp" */ 1023 process_enable_escape_keys, /* "-eek" */ 1024 process_enable_function_keys, /* "-efk" */ 1025 process_enable_escape_keys, /* "-enable_escape_keys" */ 1026 process_enable_function_keys, /* "-enable_function_keys" */ 1027 process_extend, /* "-extend" */ 1028 process_window, /* "-io_switch" */ 1029 process_window, /* "-iosw" */ 1030 process_keep_report, /* "-keep_report" */ 1031 process_keep_retrieval, /* "-keep_retrieval" */ 1032 process_keep_retrieval, /* "-kr" */ 1033 process_keep_report, /* "-krp" */ 1034 process_long, /* "-lg" */ 1035 process_long, /* "-long" */ 1036 process_new_report, /* "-new_report" */ 1037 process_new_retrieval, /* "-new_retrieval" */ 1038 process_new_retrieval, /* "-nr" */ 1039 process_new_report, /* "-nrp" */ 1040 process_output_file, /* "-of" */ 1041 process_old_report, /* "-old_report" */ 1042 process_old_retrieval, /* "-old_retrieval" */ 1043 process_old_retrieval, /* "-or" */ 1044 process_old_report, /* "-orp" */ 1045 process_output_switch, /* "-osw" */ 1046 process_output_file, /* "-output_file" */ 1047 process_output_switch, /* "-output_switch" */ 1048 process_pages, /* "-page" */ 1049 process_pages, /* "-pages" */ 1050 process_passes, /* "-pass" */ 1051 process_passes, /* "-passes" */ 1052 process_pages, /* "-pg" */ 1053 process_pages, /* "-pgs" */ 1054 process_scroll, /* "-scroll" */ 1055 process_set_keys, /* "-set_key" */ 1056 process_set_keys, /* "-set_keys" */ 1057 process_set_keys, /* "-sk" */ 1058 process_set_keys, /* "-sks" */ 1059 process_sort, /* "-sort" */ 1060 process_truncate, /* "-tc" */ 1061 process_temp_dir, /* "-td" */ 1062 process_temp_dir, /* "-temp_dir" */ 1063 process_time, /* "-time" */ 1064 process_truncate, /* "-truncate" */ 1065 process_window, /* "-win" */ 1066 process_window /* "-window" */ 1067 ); 1068 1069 dcl rtrim builtin; 1070 dcl rw_display_scroll$set_fkey entry (ptr, char(*), char(*), fixed bin(35)); 1071 dcl rw_error_$bad_fkey_name fixed bin(35) ext static; 1072 dcl rw_error_$bad_fkey_sequence fixed bin(35) ext static; 1073 dcl rw_error_$bad_option_identifier fixed bin(35) ext static; 1074 dcl rw_error_$bad_report_setup fixed bin(35) ext static; 1075 dcl rw_options$check_identifier entry (ptr, char(*) var, char(*) var, char(*) var, fixed bin(35)); 1076 dcl rw_options$get entry (ptr, char(*) var, char(*) var, char(*) var, char(*) var, fixed bin(35)); 1077 1078 dcl sci_ptr ptr; 1079 dcl smallest_page_number fixed bin; 1080 dcl sort_bit_map (no_of_candidate_columns) bit (1) based (sort_bit_map_ptr); 1081 dcl sort_bit_map_ptr ptr; 1082 dcl ssu_$abort_line entry() options(variable); 1083 dcl ssu_$arg_count entry (ptr, fixed bin); 1084 dcl ssu_$arg_ptr entry (ptr, fixed bin, ptr, fixed bin(21)); 1085 dcl still_processing_additional_sort_args bit (1) aligned; 1086 dcl still_processing_args bit (1) aligned; 1087 dcl still_processing_page_numbers bit (1) aligned; 1088 dcl still_processing_set_key_args bit (1) aligned; 1089 dcl still_processing_sort_specs bit (1) aligned; 1090 dcl substr builtin; 1091 dcl sys_info$max_seg_size fixed bin(35) ext static; 1092 1093 dcl temporary_dir_name char (168); 1094 dcl test_string char (8) varying; 1095 dcl the_area area (sys_info$max_seg_size) based (the_area_ptr); 1096 dcl the_area_ptr ptr; 1097 dcl the_column_name char (MAXIMUM_NORMALIZED_OPTION_NAME_LENGTH) varying; 1098 dcl time1 float bin (63); 1099 dcl time2 float bin (63); 1100 dcl type fixed bin (2); 1101 1102 dcl unspec builtin; 1103 dcl ttt_info_$function_key_data entry (char(*), ptr, ptr, fixed bin(35)); 1104 1105 dcl vclock builtin; 1106 dcl verify builtin; 1107 dcl video_et_$unable_to_call_wsys fixed bin(35) ext static; 1108 1109 dcl window_system_cant_be_used bit (1) aligned; 1110 1 1 /* BEGIN INCLUDE FILE ... arg_descriptor.incl.pl1 1 2* 1 3* James R. Davis 1 Mar 79 */ 1 4 /* Modified June 83 JMAthane for extended arg descriptor format */ 1 5 1 6 dcl 1 arg_descriptor based (arg_descriptor_ptr) aligned, 1 7 2 flag bit (1) unal, 1 8 2 type fixed bin (6) unsigned unal, 1 9 2 packed bit (1) unal, 1 10 2 number_dims fixed bin (4) unsigned unal, 1 11 2 size fixed bin (24) unsigned unal; 1 12 1 13 dcl 1 fixed_arg_descriptor based (arg_descriptor_ptr) aligned, 1 14 2 flag bit (1) unal, 1 15 2 type fixed bin (6) unsigned unal, 1 16 2 packed bit (1) unal, 1 17 2 number_dims fixed bin (4) unsigned unal, 1 18 2 scale fixed bin (11) unal, 1 19 2 precision fixed bin (12) unsigned unal; 1 20 1 21 dcl 1 extended_arg_descriptor based (arg_descriptor_ptr) aligned, 1 22 2 flag bit (1) unal, /* = "1"b */ 1 23 2 type fixed bin (6) unsigned unal, /* = 58 */ 1 24 2 packed bit (1) unal, /* significant if number_dims ^= 0 */ 1 25 2 number_dims fixed (4) unsigned unal,/* number of variable dimensions */ 1 26 2 size bit (24) unal, 1 27 2 dims (0 refer (extended_arg_descriptor.number_dims)), /* part referenced by called generated code */ 1 28 3 low fixed bin (35), 1 29 3 high fixed bin (35), 1 30 3 multiplier fixed bin (35), /* in bits if packed, in words if not */ 1 31 2 real_type fixed bin (18) unsigned unal, 1 32 2 type_offset fixed bin (18) unsigned unal; /* offset rel to symbol tree to symbol node for type, if any */ 1 33 1 34 dcl arg_descriptor_ptr ptr; 1 35 1 36 dcl extended_arg_type fixed bin init (58); 1 37 1 38 /* END INCLUDE file .... arg_descriptor.incl.pl1 */ 1111 1112 2 1 /* BEGIN INCLUDE FILE ... arg_list.incl.pl1 2 2* 2 3* James R. Davis 10 May 79 */ 2 4 2 5 dcl 1 arg_list aligned based, 2 6 2 header, 2 7 3 arg_count fixed bin (17) unsigned unal, 2 8 3 pad1 bit (1) unal, 2 9 3 call_type fixed bin (18) unsigned unal, 2 10 3 desc_count fixed bin (17) unsigned unal, 2 11 3 pad2 bit (19) unal, 2 12 2 arg_ptrs (arg_list_arg_count refer (arg_list.arg_count)) ptr, 2 13 2 desc_ptrs (arg_list_arg_count refer (arg_list.arg_count)) ptr; 2 14 2 15 2 16 2 17 dcl 1 arg_list_with_envptr aligned based, /* used with non-quick int and entry-var calls */ 2 18 2 header, 2 19 3 arg_count fixed bin (17) unsigned unal, 2 20 3 pad1 bit (1) unal, 2 21 3 call_type fixed bin (18) unsigned unal, 2 22 3 desc_count fixed bin (17) unsigned unal, 2 23 3 pad2 bit (19) unal, 2 24 2 arg_ptrs (arg_list_arg_count refer (arg_list_with_envptr.arg_count)) ptr, 2 25 2 envptr ptr, 2 26 2 desc_ptrs (arg_list_arg_count refer (arg_list_with_envptr.arg_count)) ptr; 2 27 2 28 2 29 dcl ( 2 30 Quick_call_type init (0), 2 31 Interseg_call_type init (4), 2 32 Envptr_supplied_call_type 2 33 init (8) 2 34 ) fixed bin (18) unsigned unal int static options (constant); 2 35 2 36 /* The user must declare arg_list_arg_count - if an adjustable automatic structure 2 37* is being "liked" then arg_list_arg_count may be a parameter, in order to allocate 2 38* an argument list of the proper size in the user's stack 2 39* 2 40**/ 2 41 /* END INCLUDE FILE ... arg_list.incl.pl1 */ 1113 1114 3 1 /* BEGIN INCLUDE FILE ... function_key_data.incl.pl1 3 2* 3 3* This include file defines the structure used for ttt_info_$function_key_data 3 4* MCR 4671 James R. Davis Sept 80 3 5**/ 3 6 3 7 dcl 1 function_key_data aligned based (function_key_data_ptr), 3 8 2 version fixed bin, 3 9 2 highest fixed bin, /* highest fkey */ 3 10 2 sequence, /* string of all seqs. */ 3 11 3 seq_ptr pointer, 3 12 3 seq_len fixed bin (21), 3 13 2 cursor_motion_keys, 3 14 3 home (0:3) like key_info, 3 15 3 left (0:3) like key_info, 3 16 3 up (0:3) like key_info, 3 17 3 right (0:3) like key_info, 3 18 3 down (0:3) like key_info, 3 19 2 function_keys (0:function_key_data_highest refer 3 20 (function_key_data.highest), 0:3) like key_info; 3 21 3 22 dcl (KEY_PLAIN init (0), 3 23 KEY_SHIFT init (1), 3 24 KEY_CTRL init (2), 3 25 KEY_CTRL_AND_SHIFT init (3) 3 26 ) fixed bin internal static options (constant); 3 27 3 28 dcl 1 key_info unaligned based (key_info_ptr), 3 29 2 sequence_index fixed bin (12) unsigned unaligned, 3 30 2 sequence_length fixed bin (6) unsigned unaligned; /* 0 -> not exist */ 3 31 3 32 dcl function_key_seqs char (function_key_data.sequence.seq_len) 3 33 based (function_key_data.sequence.seq_ptr); 3 34 dcl function_key_data_ptr ptr; 3 35 dcl function_key_data_highest fixed bin; 3 36 dcl function_key_data_version_1 3 37 fixed bin internal static options (constant) init (1); 3 38 dcl key_info_ptr ptr; 3 39 3 40 3 41 /* END INCLUDE FILE ... function_key_data.incl.pl1 */ 1115 1116 4 1 /* BEGIN INCLUDE FILE rw_display_arg_list.incl.pl1 4 2* 4 3* Shared structure between the rw_display request and 4 4* its argument processor, rw_display_process_args. 4 5* 4 6* Al Dupuis - August 1983 4 7**/ 4 8 /* format: off */ 4 9 4 10 dcl 1 display_arg_results aligned, 4 11 4 12 2 flags, 4 13 3 all_flag bit (1) aligned, /* DEFAULT */ 4 14 3 character_positions_flag bit (1) aligned, 4 15 3 debug_flag bit (1) aligned, 4 16 3 keep_report_flag bit (1) aligned, 4 17 3 keep_retrieval_flag bit (1) aligned, 4 18 3 long_flag bit (1) aligned, /* DEFAULT */ 4 19 3 new_report_flag bit (1) aligned, /* DEFAULT */ 4 20 3 new_retrieval_flag bit (1) aligned, /* DEFAULT */ 4 21 3 output_file_flag bit (1) aligned, 4 22 3 output_switch_flag bit (1) aligned, 4 23 3 truncate_flag bit (1) aligned, /* DEFAULT */ 4 24 3 pages_flag bit (1) aligned, 4 25 3 last_page_flag bit (1) aligned, 4 26 3 scroll_flag bit (1) aligned, 4 27 3 sort_flag bit (1) aligned, 4 28 3 temp_dir_flag bit (1) aligned, 4 29 3 time_flag bit (1) aligned, 4 30 3 window_flag bit (1) aligned, 4 31 3 passes_flag bit (1) aligned, 4 32 4 33 2 pathnames, 4 34 3 output_switch_name char (32) unal, /* -output_switch */ 4 35 3 output_file_directory_name char (168) unal, /* -output_file */ 4 36 3 output_file_entry_name char (32) unal, /* -output_file */ 4 37 3 output_file_pathname char (168) unal, /* -output_file */ 4 38 3 temp_dir_pathname char (168) unal, /* -temp_dir */ 4 39 3 window_name char (32) unal, /* -window */ 4 40 4 41 2 miscellaneous, 4 42 3 left_margin_position fixed bin, /* -character_positions */ 4 43 3 right_margin_position fixed bin, /* -character_positions */ 4 44 3 number_of_passes fixed bin, /* -passes */ 4 45 3 sort_information_ptr ptr, /* -sort */ 4 46 3 scroll_info_ptr ptr, /* -scroll */ 4 47 3 specified_pages (NUMBER_OF_ALLOWED_SPECIFIED_PAGES) bit (1) unal; /* -pages */ 4 48 4 49 dcl NUMBER_OF_ALLOWED_SPECIFIED_PAGES static internal options (constant) init (10000); 4 50 /* END INCLUDE FILE rw_display_arg_list.incl.pl1 */ 1117 1118 5 1 /* BEGIN INCLUDE FILE rw_format_options.incl.pl1 5 2* 5 3* Formatting options used for producing reports. 5 4* Al Dupuis - August 1983 5 5* 5 6**/ 5 7 /* format: off */ 5 8 5 9 dcl 1 OPTIONS static int options (constant), 5 10 5 11 2 GENERAL_REPORT (9), 5 12 5 13 3 NAME char (32) varying init ( 5 14 5 15 "-delimiter", /* "!" */ 5 16 "-format_document_controls", /* "off" */ 5 17 "-hyphenation", /* "off" */ 5 18 "-page_footer_value", /* "" */ 5 19 "-page_header_value", /* "" */ 5 20 "-page_length", /* "0" */ 5 21 "-page_width", /* "79" */ 5 22 "-title_line", /* "on" */ 5 23 "-truncation" /* "*" */ 5 24 ), 5 25 5 26 3 VALUE char (32) varying init ( 5 27 5 28 "!", /* "-delimiter" */ 5 29 "off", /* "-format_document_controls " */ 5 30 "off", /* "-hyphenation" */ 5 31 "", /* "-page_footer_value" */ 5 32 "", /* "-page_header_value" */ 5 33 "0", /* "-page_length" */ 5 34 "79", /* "-page_width" */ 5 35 "on", /* "-title_line" */ 5 36 "*" /* "-truncation" */ 5 37 ), 5 38 5 39 2 GENERAL_COLUMN (15), 5 40 5 41 3 NAME char (32) varying init ( 5 42 5 43 "-column_order", /* "[sequential]" */ 5 44 "-count", /* "" */ 5 45 "-exclude", /* "" */ 5 46 "-group", /* "" */ 5 47 "-group_footer_trigger", /* "" */ 5 48 "-group_footer_value", /* "" */ 5 49 "-group_header_trigger", /* "" */ 5 50 "-group_header_value", /* "" */ 5 51 "-outline", /* "" */ 5 52 "-page_break", /* "" */ 5 53 "-row_footer_value", /* "" */ 5 54 "-row_header_value", /* "" */ 5 55 "-subcount", /* "" */ 5 56 "-subtotal", /* "" */ 5 57 "-total" /* "" */ 5 58 ), 5 59 5 60 3 VALUE char (32) varying init ( 5 61 5 62 "[sequential]", /* "-column_order" */ 5 63 "", /* "-count" */ 5 64 "", /* "-exclude" */ 5 65 "", /* "-group" */ 5 66 "", /* "-group_footer_trigger" */ 5 67 "", /* "-group_footer_value" */ 5 68 "", /* "-group_header_trigger" */ 5 69 "", /* "-group_header_value" */ 5 70 "", /* "-outline" */ 5 71 "", /* "-page_break" */ 5 72 "", /* "-row_footer_value" */ 5 73 "", /* "-row_header_value" */ 5 74 "", /* "-subcount" */ 5 75 "", /* "-subtotal" */ 5 76 "" /* "-total" */ 5 77 ), 5 78 5 79 2 SPECIFIC_COLUMN (6), 5 80 5 81 3 NAME char (32) varying init ( 5 82 5 83 "-alignment", /* "[alignment_default]" */ 5 84 "-editing", /* "" */ 5 85 "-folding", /* "fill" */ 5 86 "-separator", /* " " */ 5 87 "-title", /* "[database_column_name]" */ 5 88 "-width" /* "[width_default]" */ 5 89 ), 5 90 5 91 3 VALUE char (32) varying init ( 5 92 5 93 "[alignment_default]", /* "-alignment" */ 5 94 "", /* "-editing" */ 5 95 "fill", /* "-folding" */ 5 96 " ", /* "-separator" */ 5 97 "[database_column_name]", /* "-title" */ 5 98 "[width_default]" /* "-width" */ 5 99 ); 5 100 5 101 dcl 1 OPTION_NAMES_AS_ARGS (30) static int options (constant), 5 102 5 103 2 LONG_NAME char (32) varying init ( 5 104 5 105 "-alignment", /* sorted based on their values */ 5 106 "-column_order", 5 107 "-count", 5 108 "-delimiter", 5 109 "-editing", 5 110 "-exclude", 5 111 "-folding", 5 112 "-format_document_controls", 5 113 "-group", 5 114 "-group_footer_trigger", 5 115 "-group_footer_value", 5 116 "-group_header_trigger", 5 117 "-group_header_value", 5 118 "-hyphenation", 5 119 "-outline", 5 120 "-page_break", 5 121 "-page_footer_value", 5 122 "-page_header_value", 5 123 "-page_length", 5 124 "-page_width", 5 125 "-row_footer_value", 5 126 "-row_header_value", 5 127 "-separator", 5 128 "-subcount", 5 129 "-subtotal", 5 130 "-title", 5 131 "-title_line", 5 132 "-total", 5 133 "-truncation", 5 134 "-width" 5 135 ), 5 136 5 137 2 SHORT_NAME char (5) varying init ( 5 138 5 139 "-al", /* sorted based on their values */ 5 140 "-co", 5 141 "-ct", 5 142 "-dm", 5 143 "-ed", 5 144 "-ex", 5 145 "-fdc", 5 146 "-fold", 5 147 "-gft", 5 148 "-gfv", 5 149 "-ght", 5 150 "-ghv", 5 151 "-gr", 5 152 "-hph", 5 153 "-out", 5 154 "-pb", 5 155 "-pfv", 5 156 "-phv", 5 157 "-pl", 5 158 "-pw", 5 159 "-rfv", 5 160 "-rhv", 5 161 "-sct", 5 162 "-sep", 5 163 "-stt", 5 164 "-tc", 5 165 "-tl", 5 166 "-tt", 5 167 "-ttl", 5 168 "-wid" 5 169 ), 5 170 5 171 2 LONG_NAME_IN_SHORT_NAME_ORDER char (32) varying init ( 5 172 5 173 /* sorted based on the values of short_name */ 5 174 5 175 "-alignment", /* -al */ 5 176 "-column_order", /* -co */ 5 177 "-count", /* -ct */ 5 178 "-delimiter", /* -dm */ 5 179 "-editing", /* -ed */ 5 180 "-exclude", /* -ex */ 5 181 "-format_document_controls", /* -fdc */ 5 182 "-folding", /* -fold */ 5 183 "-group_footer_trigger", /* -gfv */ 5 184 "-group_footer_value", /* -gfv */ 5 185 "-group_header_trigger", /* -ghv */ 5 186 "-group_header_value", /* -ghv */ 5 187 "-group", /* -gr */ 5 188 "-hyphenation", /* -hph */ 5 189 "-outline", /* -out */ 5 190 "-page_break", /* -pb */ 5 191 "-page_footer_value", /* -pfv */ 5 192 "-page_header_value", /* -phv */ 5 193 "-page_length", /* -pl */ 5 194 "-page_width", /* -pw */ 5 195 "-row_footer_value", /* -rfv */ 5 196 "-row_header_value", /* -rhv */ 5 197 "-subcount", /* -sct */ 5 198 "-separator", /* -sep */ 5 199 "-subtotal", /* -stt */ 5 200 "-truncation", /* -tc */ 5 201 "-title_line", /* -tl */ 5 202 "-total", /* -tt */ 5 203 "-title", /* -ttl */ 5 204 "-width" /* -wid */ 5 205 ); 5 206 5 207 /* END INCLUDE FILE rw_format_options */ 1119 1120 6 1 /* BEGIN INCLUDE FILE rw_options_extents.incl.pl1 6 2* 6 3* Extents for the formatting options used for producing reports. 6 4* Kept as a separate include so that some programs may include this 6 5* file without including rw_format_options.incl.pl1 6 6* 6 7* Al Dupuis - August 1983 6 8* 6 9**/ 6 10 /* format: off */ 6 11 6 12 /* The three types of format options that we have. */ 6 13 6 14 dcl GENERAL_REPORT_OPTION fixed bin static int options (constant) init (1); 6 15 dcl GENERAL_COLUMN_OPTION fixed bin static int options (constant) init (2); 6 16 dcl SPECIFIC_COLUMN_OPTION fixed bin static int options (constant) init (3); 6 17 6 18 /* Used to determine how big the tables are without doing a hbound on it. */ 6 19 6 20 dcl NUMBER_OF_GENERAL_COLUMN_OPTIONS_IN_TABLE fixed bin static int options (constant) init (15); 6 21 dcl NUMBER_OF_GENERAL_REPORT_OPTIONS_IN_TABLE fixed bin static int options (constant) init (9); 6 22 dcl NUMBER_OF_SPECIFIC_COLUMN_OPTIONS_IN_TABLE fixed bin static int options (constant) init (6); 6 23 6 24 /* Used to determine how much space is needed to list them. */ 6 25 6 26 dcl LONGEST_SPECIFIC_COLUMN_OPTION_NAME_LENGTH fixed bin static int options (constant) init (10); /* -alignment */ 6 27 dcl LONGEST_GENERAL_REPORT_OPTION_NAME_LENGTH fixed bin static int options (constant) init (25); /* -format_document_controls */ 6 28 dcl LONGEST_GENERAL_COLUMN_OPTION_NAME_LENGTH fixed bin static int options (constant) init (21); /* -group_footer_trigger */ 6 29 6 30 /* MAXIMUM_OPTION_IDENTIFIER_LENGTH + MAXIMUM_OPTION_NAME_LENGTH */ 6 31 6 32 dcl MAXIMUM_NORMALIZED_OPTION_NAME_LENGTH fixed bin static int options (constant) init (101); 6 33 6 34 dcl MAXIMUM_OPTION_IDENTIFIER_LENGTH fixed bin static int options (constant) init (69); 6 35 dcl MAXIMUM_OPTION_NAME_LENGTH fixed bin static int options (constant) init (32); 6 36 dcl MAXIMUM_OPTION_VALUE_LENGTH fixed bin static int options (constant) init (4096); 6 37 6 38 /* Used to index into the OPTIONS tables defined in rw_format_options.incl.pl1. */ 6 39 6 40 dcl INDEX_FOR_DELIMITER fixed bin static int options (constant) init (1); 6 41 dcl INDEX_FOR_FORMAT_DOCUMENT_CONTROLS fixed bin static int options (constant) init (2); 6 42 dcl INDEX_FOR_HYPHENATION fixed bin static int options (constant) init (3); 6 43 dcl INDEX_FOR_PAGE_FOOTER_VALUE fixed bin static int options (constant) init (4); 6 44 dcl INDEX_FOR_PAGE_HEADER_VALUE fixed bin static int options (constant) init (5); 6 45 dcl INDEX_FOR_PAGE_LENGTH fixed bin static int options (constant) init (6); 6 46 dcl INDEX_FOR_PAGE_WIDTH fixed bin static int options (constant) init (7); 6 47 dcl INDEX_FOR_TITLE_LINE fixed bin static int options (constant) init (8); 6 48 dcl INDEX_FOR_TRUNCATION fixed bin static int options (constant) init (9); 6 49 6 50 dcl INDEX_FOR_COLUMN_ORDER fixed bin static int options (constant) init (1); 6 51 dcl INDEX_FOR_COUNT fixed bin static int options (constant) init (2); 6 52 dcl INDEX_FOR_EXCLUDE fixed bin static int options (constant) init (3); 6 53 dcl INDEX_FOR_GROUP fixed bin static int options (constant) init (4); 6 54 dcl INDEX_FOR_GROUP_FOOTER_TRIGGER fixed bin static int options (constant) init (5); 6 55 dcl INDEX_FOR_GROUP_FOOTER_VALUE fixed bin static int options (constant) init (6); 6 56 dcl INDEX_FOR_GROUP_HEADER_TRIGGER fixed bin static int options (constant) init (7); 6 57 dcl INDEX_FOR_GROUP_HEADER_VALUE fixed bin static int options (constant) init (8); 6 58 dcl INDEX_FOR_OUTLINE fixed bin static int options (constant) init (9); 6 59 dcl INDEX_FOR_PAGE_BREAK fixed bin static int options (constant) init (10); 6 60 dcl INDEX_FOR_ROW_FOOTER_VALUE fixed bin static int options (constant) init (11); 6 61 dcl INDEX_FOR_ROW_HEADER_VALUE fixed bin static int options (constant) init (12); 6 62 dcl INDEX_FOR_SUBCOUNT fixed bin static int options (constant) init (13); 6 63 dcl INDEX_FOR_SUBTOTAL fixed bin static int options (constant) init (14); 6 64 dcl INDEX_FOR_TOTAL fixed bin static int options (constant) init (15); 6 65 6 66 dcl INDEX_FOR_ALIGNMENT fixed bin static int options (constant) init (1); 6 67 dcl INDEX_FOR_EDITING fixed bin static int options (constant) init (2); 6 68 dcl INDEX_FOR_FOLDING fixed bin static int options (constant) init (3); 6 69 dcl INDEX_FOR_SEPARATOR fixed bin static int options (constant) init (4); 6 70 dcl INDEX_FOR_TITLE fixed bin static int options (constant) init (5); 6 71 dcl INDEX_FOR_WIDTH fixed bin static int options (constant) init (6); 6 72 6 73 /* END INCLUDE FILE rw_options_extents */ 1121 1122 7 1 /* BEGIN INCLUDE FILE rw_report_info.incl.pl1 7 2* Information needed to control the report environment. 7 3* Al Dupuis - August 1983 7 4**/ 7 5 /* format: off */ 7 6 7 7 dcl 1 report_control_info aligned based (report_cip), 7 8 2 flags, 7 9 3 report_is_paginated bit (1) unaligned, /* paged or one continous stream */ 7 10 3 table_has_been_started bit (1) unaligned, /* table clean up is necessary */ 7 11 3 table_is_full bit (1) unaligned, /* no more retrieves are necessary */ 7 12 3 report_has_been_started bit (1) unaligned, /* report clean up is necessary */ 7 13 3 report_is_formatted bit (1) unaligned, /* no more formatting is necessary */ 7 14 3 permanent_report bit (1) unaligned, /* or disposable */ 7 15 3 permanent_table bit (1) unaligned, /* or disposable */ 7 16 3 report_has_just_been_completed bit (1) unaligned, /* used for printing timers */ 7 17 3 table_has_just_been_loaded bit (1) unaligned, /* used for printing timers */ 7 18 3 multi_pass_mode bit (1) unaligned, /* on if we are to do more than 1 pass */ 7 19 3 available bit (26) unaligned, 7 20 2 format_options_flags, /* used to determine if value is default */ 7 21 3 general_report_default_value (NUMBER_OF_GENERAL_REPORT_OPTIONS_IN_TABLE) bit (1) unaligned, 7 22 3 general_column_default_value (NUMBER_OF_GENERAL_COLUMN_OPTIONS_IN_TABLE) bit (1) unaligned, 7 23 2 value_seg_ptr ptr, /* the options value seg */ 7 24 2 table_information_ptr ptr, /* points to table_info */ 7 25 2 table_control_info_ptr ptr, /* points to table_control_info */ 7 26 2 row_value_temp_segment_ptr ptr, /* points to a segment for the row value */ 7 27 2 general_work_area_ptr ptr, /* a freeing work area */ 7 28 2 name_value_area_ptr ptr, /* area for name-value allocations */ 7 29 2 subsystem_control_info_ptr ptr, /* ptr for ssu_ info structure */ 7 30 2 subsystems_info_ptr ptr, /* points to subsystems info structure */ 7 31 2 name_value_temp_seg_ptr ptr, /* temp seg for name-value space */ 7 32 2 report_temp_seg_ptr ptr, /* report workspace */ 7 33 2 report_work_area_ptr ptr, /* report workspace */ 7 34 2 format_report_info_ptr ptr, /* info needed to create a report */ 7 35 2 input_string_temp_seg_ptr ptr, /* report workspace */ 7 36 2 output_string_temp_seg_ptr ptr, /* report workspace */ 7 37 2 editing_strings_temp_seg_ptr ptr, /* report workspace */ 7 38 2 headers_temp_seg_ptr ptr, /* report workspace */ 7 39 2 display_iocb_ptr ptr, /* report is displayed through this */ 7 40 2 area_info_ptr ptr, /* points to area_info structure */ 7 41 2 table_manager_delete_table_entry variable entry (ptr, fixed bin (35)), /* entry who deletes the table */ 7 42 2 table_manager_get_query_entry variable entry (ptr, ptr, fixed bin (21), fixed bin (35)), /* entry who gets the query */ 7 43 2 table_manager_get_row_entry variable entry (ptr, fixed bin (35)), /* entry who loads rows */ 7 44 2 table_manager_create_table_entry variable entry (ptr, fixed bin (35)), /* entry who makes a new table */ 7 45 2 options_identifier fixed bin, /* current set of options */ 7 46 2 report_identifier fixed bin, /* current report */ 7 47 2 no_of_rows_retrieved fixed bin (35), /* current no of rows */ 7 48 2 no_of_formatted_pages fixed bin (21), /* current no of pages */ 7 49 2 number_of_passes fixed bin, /* number of times report will be formatted */ 7 50 2 table_loading_time float bin (63), 7 51 2 table_sorting_time float bin (63), 7 52 2 table_deletion_time float bin (63), 7 53 2 report_setup_time float bin (63), 7 54 2 report_formatting_time float bin (63), 7 55 2 report_display_time float bin (63), 7 56 2 report_deletion_time float bin (63), 7 57 2 ssu_evaluate_active_string_time float bin (63), 7 58 2 temp_dir_unique_id bit (36), /* uid of temp dir */ 7 59 2 subsystems_ec_suffix char (32), /* suffix for saving and restoring ecs */ 7 60 2 temp_dir_name char (168) unaligned; /* the dir where we place the retrieved table and report */ 7 61 dcl report_cip ptr init (null ()); 7 62 7 63 /* END INCLUDE FILE rw_report_info.incl.pl1 */ 1123 1124 8 1 /* BEGIN INCLUDE FILE rw_scroll_info.incl.pl1 8 2* 8 3* Written - Al Dupuis - August 1983 8 4**/ 8 5 /* format: off */ 8 6 8 7 dcl 1 ESCAPE_KEYS aligned static internal options (constant), 8 8 2 FORWARD char (2) init ("f"), 8 9 2 BACKWARD char (2) init ("b"), 8 10 2 LEFT char (2) init ("l"), 8 11 2 RIGHT char (2) init ("r"), 8 12 2 HELP char (2) init ("?"), 8 13 2 SET_KEY char (2) init ("k"), 8 14 2 SET_SCROLL_INCREMENT char (2) init ("i"), 8 15 2 QUIT char (2) init ("q"), 8 16 2 REDISPLAY char (2) init ("d"), 8 17 2 START_OF_REPORT char (2) init ("s"), 8 18 2 END_OF_REPORT char (2) init ("e"), 8 19 2 MULTICS_MODE char (2) init ("m"), 8 20 2 GOTO char (2) init ("g"); 8 21 8 22 dcl ESCAPE_KEYS_AS_A_TABLE (HIGHEST_DISPLAY_FUNCTION_NUMBER) aligned char (2) based (addr (ESCAPE_KEYS)); 8 23 8 24 dcl 1 ESCAPE_KEY_MNEMONICS aligned static internal options (constant), 8 25 2 FORWARD char (5) init ("esc-f"), 8 26 2 BACKWARD char (5) init ("esc-b"), 8 27 2 LEFT char (5) init ("esc-l"), 8 28 2 RIGHT char (5) init ("esc-r"), 8 29 2 HELP char (5) init ("esc-?"), 8 30 2 SET_KEY char (5) init ("esc-k"), 8 31 2 SET_SCROLL_INCREMENT char (5) init ("esc-i"), 8 32 2 QUIT char (5) init ("esc-q"), 8 33 2 REDISPLAY char (5) init ("esc-d"), 8 34 2 START_OF_REPORT char (5) init ("esc-s"), 8 35 2 END_OF_REPORT char (5) init ("esc-e"), 8 36 2 MULTICS_MODE char (5) init ("esc-m"), 8 37 2 GOTO char (5) init ("esc-g"); 8 38 8 39 dcl ESCAPE_KEY_MNEMONICS_AS_A_TABLE (HIGHEST_DISPLAY_FUNCTION_NUMBER) aligned char (5) based (addr (ESCAPE_KEY_MNEMONICS)); 8 40 8 41 dcl 1 FUNCTION_NAMES aligned static internal options (constant), 8 42 2 FORWARD char (32) init ("forward"), 8 43 2 BACKWARD char (32) init ("backward"), 8 44 2 LEFT char (32) init ("left"), 8 45 2 RIGHT char (32) init ("right"), 8 46 2 HELP char (32) init ("help"), 8 47 2 SET_KEY char (32) init ("set_key"), 8 48 2 SET_SCROLL_INCREMENT char (32) init ("set_scroll_increment"), 8 49 2 QUIT char (32) init ("quit"), 8 50 2 REDISPLAY char (32) init ("redisplay"), 8 51 2 START_OF_REPORT char (32) init ("start_of_report"), 8 52 2 END_OF_REPORT char (32) init ("end_of_report"), 8 53 2 MULTICS_MODE char (32) init ("multics_mode"), 8 54 2 GOTO char (32) init ("goto"); 8 55 8 56 dcl FUNCTION_NAMES_AS_A_TABLE (HIGHEST_DISPLAY_FUNCTION_NUMBER) aligned char (32) based (addr (FUNCTION_NAMES)); 8 57 8 58 dcl HIGHEST_DISPLAY_FUNCTION_NUMBER fixed bin static int options (constant) init (13); 8 59 8 60 dcl HIGHEST_NUMBERED_FUNCTION_KEY_NEEDED fixed bin static int options (constant) init (9); 8 61 8 62 dcl 1 KEY_MNEMONICS aligned static internal options (constant), 8 63 2 FORWARD char (12) init ("down_arrow"), 8 64 2 BACKWARD char (12) init ("up_arrow"), 8 65 2 LEFT char (12) init ("left_arrow"), 8 66 2 RIGHT char (12) init ("right_arrow"), 8 67 2 HELP char (12) init ("f1"), 8 68 2 SET_KEY char (12) init ("f2"), 8 69 2 SET_SCROLL_INCREMENT char (12) init ("f3"), 8 70 2 QUIT char (12) init ("f4"), 8 71 2 REDISPLAY char (12) init ("f5"), 8 72 2 START_OF_REPORT char (12) init ("f6"), 8 73 2 END_OF_REPORT char (12) init ("f7"), 8 74 2 MULTICS_MODE char (12) init ("f8"), 8 75 2 GOTO char (12) init ("f9"); 8 76 8 77 dcl KEY_MNEMONICS_AS_A_TABLE (HIGHEST_DISPLAY_FUNCTION_NUMBER) aligned char (12) based (addr (KEY_MNEMONICS)); 8 78 8 79 dcl 1 function_key_info aligned, 8 80 2 forward char (32), /* down arrow or esc-f */ 8 81 2 backward char (32), /* up arrow or esc-b */ 8 82 2 left char (32), /* left arrow or esc-l */ 8 83 2 right char (32), /* right arrow or esc-r */ 8 84 2 help char (32), /* F1 or esc-? */ 8 85 2 set_key char (32), /* F2 or esc-k */ 8 86 2 set_scroll_increment char (32), /* F3 or esc-i */ 8 87 2 quit char (32), /* F4 or esc-q */ 8 88 2 redisplay char (32), /* F5 or esc-d */ 8 89 2 start_of_report char (32), /* F6 or esc-s */ 8 90 2 end_of_report char (32), /* F7 or esc-e */ 8 91 2 multics_mode char (32), /* F8 or esc-m */ 8 92 2 goto char (32); /* F9 or esc-g */ 8 93 8 94 dcl keys_as_a_table (HIGHEST_DISPLAY_FUNCTION_NUMBER) char (32) based (addr (scroll_info.keys)); 8 95 8 96 dcl mnemonic_key_sequences_as_a_table (HIGHEST_DISPLAY_FUNCTION_NUMBER) aligned char (32) based (addr (scroll_info.mnemonic_key_sequences)); 8 97 8 98 dcl 1 scroll_info aligned based (scroll_ip), 8 99 2 flags, 8 100 3 video_was_already_on bit (1) unaligned, 8 101 3 user_io_was_shrunk bit (1) unaligned, 8 102 3 escapes_in_use bit (1) unaligned, 8 103 3 on_the_last_page bit (1) unaligned, 8 104 3 buffer_boundary_just_crossed bit (1) unaligned, 8 105 3 goto_line_number_pending bit (1) unaligned, 8 106 3 available bit (30) unaligned, 8 107 2 number_of_lines_for_report_display fixed bin, 8 108 2 target_page_number fixed bin (21), 8 109 2 target_line_number fixed bin (35), 8 110 2 left_vertical_position fixed bin, 8 111 2 top_margin_offset fixed bin, 8 112 2 horizontal_scroll_distance fixed bin, 8 113 2 vertical_scroll_distance fixed bin, 8 114 2 last_line_number_in_previous_buffer fixed bin, 8 115 2 user_io_window_position_info_ptr ptr, 8 116 2 report_output_window_position_info_ptr ptr, 8 117 2 display_arg_results_ptr ptr, 8 118 2 area_ptr ptr, 8 119 2 report_control_info_ptr ptr, 8 120 2 function_key_data_pointer ptr, 8 121 2 window_status_info_pointer ptr, 8 122 2 page_info_pointer ptr, 8 123 2 ssu_info_ptr ptr, 8 124 2 format_document_op ptr, 8 125 2 keys like function_key_info, 8 126 2 mnemonic_key_sequences like function_key_info; 8 127 8 128 dcl scroll_ip ptr; 8 129 8 130 /* END INCLUDE FILE rw_scroll_info.incl.pl1 */ 1125 1126 9 1 /* BEGIN INCLUDE FILE ... rw_sort_info.incl.pl1 9 2* 9 3* Info structure used to provide sorting. 9 4* Written: Dave Schimke 2/25/83 9 5**/ 9 6 9 7 dcl 1 sort_info based (sort_info_ptr), 9 8 2 number_of_columns_to_sort fixed bin (17), 9 9 2 columns (no_of_candidate_columns refer(sort_info.number_of_columns_to_sort)), 9 10 3 number fixed bin (17), 9 11 3 modes, 9 12 4 descending bit (1) unal, 9 13 4 non_case_sensitive bit (1) unal, 9 14 4 mbz1 bit(34) unal; 9 15 9 16 dcl sort_info_ptr ptr; 9 17 dcl no_of_candidate_columns fixed bin; 9 18 9 19 9 20 /* END INCLUDE FILE rw_sort_info.incl.pl1 */ 1127 1128 10 1 /* BEGIN INCLUDE FILE rw_table_info.incl.pl1 10 2* 10 3* Written - Al Dupuis 10 4**/ 10 5 /* format: off */ 10 6 10 7 dcl 1 table_info aligned based (table_ip), 10 8 2 version char (8), 10 9 2 column_count fixed bin, 10 10 2 maximum_column_name_length fixed bin, 10 11 2 maximum_column_value_length fixed bin, 10 12 2 row_value_length fixed bin (21), 10 13 2 row_value_ptr ptr, 10 14 2 columns (ti_init_column_count refer (table_info.column_count)), 10 15 3 column_name char (69) varying, 10 16 3 column_data_type bit (36), 10 17 3 column_length fixed bin (21), 10 18 3 column_index fixed bin (21); 10 19 10 20 dcl table_ip ptr; 10 21 dcl ti_init_column_count fixed bin; 10 22 dcl TABLE_INFO_VERSION_1 char (8) internal static options (constant) init ("rwti_001"); 10 23 10 24 /* END INCLUDE FILE view_master_table_info.incl.pl1 */ 1129 1130 11 1 /* BEGIN INCLUDE FiLE ... terminal_info.incl.pl1 */ 11 2 11 3 /* Created 5/25/77 by J. Stern */ 11 4 11 5 11 6 dcl 1 terminal_info aligned based (terminal_info_ptr), /* info structure for terminal_info order */ 11 7 2 version fixed bin, /* version number of this sturcture */ 11 8 2 id char (4) unaligned, /* terminal id from answerback */ 11 9 2 term_type char (32) unaligned, /* terminal type name */ 11 10 2 line_type fixed bin, /* line type number */ 11 11 2 baud_rate fixed bin, 11 12 2 reserved (4) fixed bin; /* reserved for future use */ 11 13 11 14 11 15 dcl terminal_info_ptr ptr; 11 16 dcl terminal_info_version fixed bin int static options (constant) init (1); /* current version */ 11 17 11 18 11 19 /* END INCLUDE FILE ... terminal_info.incl.pl1 */ 1131 1132 1133 end rw_display_process_args; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 11/16/84 1107.1 rw_display_process_args.pl1 >special_ldd>online>7001-11/16/84>rw_display_process_args.pl1 1111 1 11/02/83 1845.0 arg_descriptor.incl.pl1 >ldd>include>arg_descriptor.incl.pl1 1113 2 10/23/81 1948.6 arg_list.incl.pl1 >ldd>include>arg_list.incl.pl1 1115 3 02/23/81 2146.3 function_key_data.incl.pl1 >ldd>include>function_key_data.incl.pl1 1117 4 11/16/84 1107.7 rw_display_arg_list.incl.pl1 >special_ldd>online>7001-11/16/84>rw_display_arg_list.incl.pl1 1119 5 11/16/84 1107.7 rw_format_options.incl.pl1 >special_ldd>online>7001-11/16/84>rw_format_options.incl.pl1 1121 6 11/16/84 1107.8 rw_options_extents.incl.pl1 >special_ldd>online>7001-11/16/84>rw_options_extents.incl.pl1 1123 7 11/16/84 1107.6 rw_report_info.incl.pl1 >special_ldd>online>7001-11/16/84>rw_report_info.incl.pl1 1125 8 11/16/84 1107.9 rw_scroll_info.incl.pl1 >special_ldd>online>7001-11/16/84>rw_scroll_info.incl.pl1 1127 9 11/16/84 1107.9 rw_sort_info.incl.pl1 >special_ldd>online>7001-11/16/84>rw_sort_info.incl.pl1 1129 10 11/16/84 1107.6 rw_table_info.incl.pl1 >special_ldd>online>7001-11/16/84>rw_table_info.incl.pl1 1131 11 06/29/77 1624.0 terminal_info.incl.pl1 >ldd>include>terminal_info.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. ARGUMENT_NAME_TABLE 001240 constant varying char(21) initial array dcl 866 ref 175 180 183 BLANK 011207 constant char(1) initial unaligned dcl 924 ref 87 501 689 COMMA constant char(1) initial unaligned dcl 925 ref 487 496 496 500 DIGITS 001235 constant char(10) initial unaligned dcl 927 ref 543 DIRECTORY constant fixed bin(2,0) initial dcl 926 ref 852 852 DOLLAR 011206 constant char(1) initial unaligned dcl 928 ref 484 501 ESCAPE_KEYS 001034 constant structure level 1 dcl 8-7 set ref 301 ESCAPE_KEYS_AS_A_TABLE based char(2) array dcl 8-22 ref 301 ESCAPE_KEY_MNEMONICS 001051 constant structure level 1 dcl 8-24 set ref 302 ESCAPE_KEY_MNEMONICS_AS_A_TABLE based char(5) array dcl 8-39 ref 302 GENERAL_REPORT 000000 constant structure array level 2 unaligned dcl 5-9 HIGHEST_DISPLAY_FUNCTION_NUMBER constant fixed bin(17,0) initial dcl 8-58 ref 300 335 342 HIGHEST_NUMBERED_FUNCTION_KEY_NEEDED constant fixed bin(17,0) initial dcl 8-60 ref 122 HYPHEN 011205 constant char(1) initial unaligned dcl 929 ref 232 475 523 591 629 731 HYPHEN_ASC 001232 constant char(4) initial unaligned dcl 931 ref 724 HYPHEN_ASCENDING 001232 constant char(10) initial unaligned dcl 930 ref 724 HYPHEN_CASE_SENSITIVE 001226 constant char(15) initial unaligned dcl 932 ref 729 HYPHEN_CS 001225 constant char(3) initial unaligned dcl 933 ref 729 HYPHEN_DESCENDING 001222 constant char(11) initial unaligned dcl 934 ref 721 HYPHEN_DSC 001221 constant char(4) initial unaligned dcl 935 ref 721 HYPHEN_NCS 001213 constant char(4) initial unaligned dcl 937 ref 726 HYPHEN_NON_CASE_SENSITIVE 001214 constant char(19) initial unaligned dcl 936 ref 726 INDEX_FOR_PAGE_WIDTH constant fixed bin(17,0) initial dcl 6-46 ref 249 INVALID_PAGE_RANGE 001177 constant char(46) initial unaligned dcl 938 set ref 481* 490* 497* 506* 511* KEY_MNEMONICS 001103 constant structure level 1 dcl 8-62 set ref 343 KEY_MNEMONICS_AS_A_TABLE based char(12) array dcl 8-77 ref 343 KEY_PLAIN constant fixed bin(17,0) initial dcl 3-22 ref 122 122 122 122 321 321 324 324 327 327 330 330 336 336 MAXIMUM_NORMALIZED_OPTION_NAME_LENGTH constant fixed bin(17,0) initial dcl 6-32 ref 1002 1097 NAME 000000 constant varying char(32) initial array level 3 in structure "OPTIONS" dcl 5-9 in procedure "rw_display_process_args" set ref 249* NAME 660 000000 constant varying char(32) initial array level 3 in structure "OPTIONS" dcl 5-9 in procedure "rw_display_process_args" set ref 676* NUMBER_OF_ALLOWED_SPECIFIED_PAGES constant fixed bin(17,0) initial dcl 4-49 ref 4-10 88 462 465 NUMBER_OF_GENERAL_COLUMN_OPTIONS_IN_TABLE constant fixed bin(17,0) initial dcl 6-20 ref 79 NUMBER_OF_GENERAL_REPORT_OPTIONS_IN_TABLE constant fixed bin(17,0) initial dcl 6-21 ref 79 OFF constant bit(1) initial unaligned dcl 939 ref 86 88 101 112 119 122 200 201 209 217 239 277 285 320 353 401 409 423 424 438 439 458 459 462 473 526 530 552 567 568 569 570 571 586 614 643 647 693 718 719 734 738 739 746 750 808 ON constant bit(1) initial unaligned dcl 940 ref 92 93 94 95 96 106 128 153 198 218 228 234 236 269 298 361 369 377 385 393 421 436 460 471 479 484 517 527 546 565 587 597 603 649 650 688 707 716 721 726 731 733 745 764 773 789 798 OPTIONS 000000 constant structure level 1 unaligned dcl 5-9 PAGE_RANGE_VALID_CHARACTERS 001173 constant char(13) initial unaligned dcl 941 ref 481 REASONABLE_NUMBER_OF_DIGITS constant fixed bin(17,0) initial dcl 942 ref 543 SET_KEYS_ERROR_MESSAGE 001152 constant char(66) initial unaligned dcl 943 set ref 583* 593* SPECIFIC_COLUMN 660 000000 constant structure array level 2 unaligned dcl 5-9 addr builtin function dcl 946 ref 103 301 301 302 302 336 343 343 after builtin function dcl 947 ref 500 689 all_flag based bit(1) level 3 dcl 954 set ref 92* 198* 458* 567* area_ptr_parm parameter pointer dcl 42 ref 34 80 arg based char unaligned dcl 948 set ref 159* 160* 224* 225* 232 240* 242* 422 437 475 481 481* 484 487 489* 490* 496 496 497* 500 506* 511* 523 543 543* 547 591 600 602 629 629* 676 679* 700* 721 721 724 724 726 726 729 729 731 765 781 781 790 arg_length 000100 automatic fixed bin(21,0) dcl 949 set ref 159 159 160 160 224 224 225 225 232 240 240 242 242 422 437 475 481 481 481 484 487 489 489 490 490 496 496 497 497 500 506 506 511 511 523 543 543 543 543 547 591 600 602 629 629 629 676 679 679 700 700 721 721 724 724 726 726 729 729 731 765 781 781 790 806* arg_parm parameter char unaligned dcl 172 ref 170 180 183 arg_ptr 000102 automatic pointer dcl 950 set ref 159 160 224 225 232 240 242 422 437 475 481 481 484 487 489 490 496 496 497 500 506 511 523 543 543 547 591 600 602 629 629 676 679 700 721 721 724 724 726 726 729 729 731 765 781 781 790 806* argument_number 000104 automatic fixed bin(17,0) dcl 951 set ref 159* 160 164 backup_necessary 000105 automatic bit(1) dcl 953 set ref 718* 731* 734 742 backward 46 based char(32) level 3 dcl 8-98 set ref 324* based_display_arg_results based structure level 1 unaligned dcl 954 based_display_arg_results_ptr 000106 automatic pointer dcl 955 set ref 62 62 66 82* 86 87 88 89 90 92 93 94 95 96 102 198 200 201 209 217 218 224 240 255 256 256 269 277 285 353 361 369 377 385 393 401 409 421 422 423 424 436 437 438 439 458 459 460 462 465 484 517 546 547 547 549 552 552 565 567 568 569 570 571 642 649 764 765 773 789 790 798 825 827 827 827 831 837 839 842 848 848 855 before builtin function dcl 956 ref 496 496 beginning_page_number 000110 automatic fixed bin(17,0) dcl 957 set ref 489* 493 496* 511 511 516 bit_count 000111 automatic fixed bin(24,0) dcl 958 set ref 846* 852 character_positions_flag 1 based bit(1) level 3 dcl 954 set ref 218* 568* code 000112 automatic fixed bin(35,0) dcl 960 set ref 105* 106 106 109* 113* 115 115 115* 224* 225 240* 242 249* 252 252* 255* 258 489* 490 496* 497 505* 506 604* 606 606 610 613* 676* 679 679 683* 827* 831 831* 839* 842 842* 846* 848 848* column_count 2 based fixed bin(17,0) level 2 dcl 10-7 ref 639 690 column_name 10 based varying char(69) array level 3 dcl 10-7 set ref 691 703* column_number 000113 automatic fixed bin(17,0) dcl 961 set ref 694* 703 703 703* 707 711 columns 10 based structure array level 2 in structure "table_info" dcl 10-7 in procedure "rw_display_process_args" columns 1 based structure array level 2 in structure "sort_info" unaligned dcl 9-7 in procedure "rw_display_process_args" convert builtin function dcl 962 ref 547 current_arg 000114 automatic fixed bin(17,0) dcl 963 set ref 154* 235* 235 525* 525 596* 596 744* 744 806* 807* 807 808 cursor_motion_keys 5 based structure level 2 dcl 3-7 cv_dec_check_ 000010 constant entry external dcl 964 ref 224 240 255 489 496 505 debug_flag 2 based bit(1) level 3 dcl 954 set ref 269* descending 2 based bit(1) array level 4 packed unaligned dcl 9-7 set ref 721* display_arg_results 000632 automatic structure level 1 dcl 4-10 display_arg_results_ptr_parm parameter pointer dcl 43 ref 34 82 divide builtin function dcl 966 ref 179 down 25 based structure array level 3 dcl 3-7 ending_page_number 000115 automatic fixed bin(17,0) dcl 968 set ref 493* 501* 505* 511 511 516 entry_name 000116 automatic char(32) unaligned dcl 969 set ref 839* 846* 855 error_table_$bad_arg 000012 external static fixed bin(35,0) dcl 970 set ref 481* 490* 497* 506* 511* 629* 679* error_table_$bad_conversion 000014 external static fixed bin(35,0) dcl 971 set ref 543* 549* error_table_$badopt 000016 external static fixed bin(35,0) dcl 972 set ref 160* error_table_$inconsistent 000020 external static fixed bin(35,0) dcl 973 set ref 220* 225* 242* 417* 432* 475* 539* 583* 593* 624* 703* 760* 781* 785* error_table_$no_operation 000022 external static fixed bin(35,0) dcl 974 ref 106 error_table_$no_table 000024 external static fixed bin(35,0) dcl 975 ref 115 error_table_$notadir 000026 external static fixed bin(35,0) dcl 976 set ref 852* escapes_in_use 0(02) based bit(1) level 3 packed unaligned dcl 8-98 set ref 298* 320* expand_pathname_ 000030 constant entry external dcl 977 ref 827 839 extended_arg_type 000626 automatic fixed bin(17,0) initial dcl 1-36 set ref 1-36* first_page_number_supplied 000126 automatic bit(1) dcl 979 set ref 471* 473* 475 flags based structure level 2 in structure "based_display_arg_results" unaligned dcl 954 in procedure "rw_display_process_args" set ref 86* flags based structure level 2 in structure "scroll_info" dcl 8-98 in procedure "rw_display_process_args" forward 36 based char(32) level 3 dcl 8-98 set ref 321* function_key_data based structure level 1 dcl 3-7 function_key_data_pointer 24 based pointer level 2 dcl 8-98 set ref 121* function_key_data_ptr 000630 automatic pointer dcl 3-34 set ref 113* 121 122 122 122 122 122 321 321 321 321 324 324 324 324 327 327 327 327 330 330 330 330 336 336 336 336 function_key_info 000634 automatic structure level 1 dcl 8-79 function_key_seqs based char unaligned dcl 3-32 ref 321 324 327 330 336 function_keys 31 based structure array level 2 dcl 3-7 function_keys_can_be_used 000127 automatic bit(1) dcl 980 set ref 119* 122* 128* 130 317 generate_right_margin_position 000130 automatic bit(1) dcl 982 set ref 228* 234* 239* 247 hbound builtin function dcl 984 ref 175 465 hcs_$status_minf 000032 constant entry external dcl 985 ref 846 highest 1 based fixed bin(17,0) level 2 dcl 3-7 ref 122 index builtin function dcl 987 ref 487 ioa_$ioa_switch 000034 constant entry external dcl 988 ref 69 iox_$control 000036 constant entry external dcl 989 ref 105 iox_$error_output 000040 external static pointer dcl 990 set ref 69* iox_$user_io 000042 external static pointer dcl 991 set ref 105* keep_report_flag 3 based bit(1) level 3 dcl 954 set ref 277* 361* keep_retrieval_flag 4 based bit(1) level 3 dcl 954 set ref 285* 369* key_info based structure level 1 packed unaligned dcl 3-28 keys 36 based structure level 2 dcl 8-98 set ref 301 336 keys_as_a_table based char(32) array unaligned dcl 8-94 set ref 301* 336* largest_page_number 000131 automatic fixed bin(17,0) dcl 993 set ref 465* 501 511 last_page_flag 14 based bit(1) level 3 dcl 954 set ref 484* left 56 based char(32) level 3 in structure "scroll_info" dcl 8-98 in procedure "rw_display_process_args" set ref 327* left 11 based structure array level 3 in structure "function_key_data" dcl 3-7 in procedure "rw_display_process_args" left_margin_position 252 based fixed bin(17,0) level 3 dcl 954 set ref 224* local_terminal_info 000132 automatic structure level 1 unaligned dcl 994 set ref 103 long_flag 5 based bit(1) level 3 dcl 954 set ref 95* 209* 377* loop 000152 automatic fixed bin(17,0) dcl 995 set ref 516* 517* 690* 691 694* loop1 000153 automatic fixed bin(17,0) dcl 996 set ref 174* 177 179 185* loop2 000154 automatic fixed bin(17,0) dcl 997 set ref 175* 177 179 183* loop3 000155 automatic fixed bin(17,0) dcl 998 set ref 179* 180 180 183 183 185 miscellaneous 252 based structure level 2 unaligned dcl 954 set ref 88* mnemonic_key_sequences 206 based structure level 2 dcl 8-98 set ref 302 343 mnemonic_key_sequences_as_a_table based char(32) array dcl 8-96 set ref 302* 343* modes 2 based structure array level 3 packed unaligned dcl 9-7 new_report_flag 6 based bit(1) level 3 dcl 954 set ref 93* 385* 401* new_retrieval_flag 7 based bit(1) level 3 dcl 954 set ref 94* 393* 409* next_column_name_found 000156 automatic bit(1) dcl 1000 set ref 719* 733* 734 no_of_args_supplied 000157 automatic fixed bin(17,0) dcl 1001 set ref 148* 150 808 no_of_candidate_columns 001010 automatic fixed bin(17,0) dcl 9-17 set ref 639* 640 640 645 647 752 non_case_sensitive 2(01) based bit(1) array level 4 packed unaligned dcl 9-7 set ref 726* normalized_option_name 000160 automatic varying char dcl 1002 set ref 249* 676* 689 not_found 000160 automatic bit(1) dcl 1003 set ref 688* 690 693* 700 null builtin function dcl 1004 ref 7-61 89 90 number 1 based fixed bin(17,0) array level 3 dcl 9-7 set ref 711* number_of_columns_to_sort based fixed bin(17,0) level 2 dcl 9-7 set ref 640* 643 651* 709* 709 711 721 726 number_of_passes 254 based fixed bin(17,0) level 3 dcl 954 set ref 547* 547 549 552 option_value 000161 automatic varying char(32) dcl 1006 set ref 249* 255 258* output_file_directory_name 33 based char(168) level 3 packed unaligned dcl 954 set ref 827* output_file_entry_name 105 based char(32) level 3 packed unaligned dcl 954 set ref 827* output_file_flag 10 based bit(1) level 3 dcl 954 set ref 62 421* 438* 570* 825 output_file_pathname 115 based char(168) level 3 packed unaligned dcl 954 set ref 422* 827* 831* output_switch_flag 11 based bit(1) level 3 dcl 954 set ref 424* 436* 571* output_switch_name 23 based char(32) level 3 packed unaligned dcl 954 set ref 437* pages_flag 13 based bit(1) level 3 dcl 954 set ref 200* 460* 569* passes_flag 22 based bit(1) level 3 dcl 954 set ref 546* 552* pathnames 23 based structure level 2 packed unaligned dcl 954 set ref 87* peek_loop 000100 automatic fixed bin(17,0) dcl 293 set ref 300* 301 301 302 302* pefk_inner_loop 000100 automatic fixed bin(17,0) dcl 311 set ref 334* 336 336 339* 339 pefk_loop 000101 automatic fixed bin(17,0) dcl 312 set ref 335* 336* 342* 343 343* process_arg_procs 000172 automatic entry variable initial array dcl 1010 set ref 164 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* 1010* psk_function_key_sequence 000111 automatic char(32) unaligned dcl 581 set ref 602* 604* 610* psk_function_name 000101 automatic char(32) unaligned dcl 580 set ref 600* 604* 606* psk_pair_of_key_bindings_found 000100 automatic bit(1) dcl 579 set ref 586* 593 603* report_cip 000632 automatic pointer initial dcl 7-61 set ref 7-61* 78* 79 249* 676* report_cip_parm parameter pointer dcl 44 ref 34 78 report_control_info based structure level 1 dcl 7-7 right 21 based structure array level 3 in structure "function_key_data" dcl 3-7 in procedure "rw_display_process_args" right 66 based char(32) level 3 in structure "scroll_info" dcl 8-98 in procedure "rw_display_process_args" set ref 330* right_margin_position 253 based fixed bin(17,0) level 3 dcl 954 set ref 240* 255* 256 256* rtrim builtin function dcl 1069 ref 848 848 855 855 rw_display_scroll$set_fkey 000044 constant entry external dcl 1070 ref 604 rw_error_$bad_fkey_name 000046 external static fixed bin(35,0) dcl 1071 set ref 606 606* rw_error_$bad_fkey_sequence 000050 external static fixed bin(35,0) dcl 1072 set ref 610 610* rw_error_$bad_option_identifier 000052 external static fixed bin(35,0) dcl 1073 ref 679 rw_error_$bad_report_setup 000054 external static fixed bin(35,0) dcl 1074 set ref 258* 700* rw_options$check_identifier 000056 constant entry external dcl 1075 ref 676 rw_options$get 000060 constant entry external dcl 1076 ref 249 sci_ptr 000526 automatic pointer dcl 1078 set ref 79* 109* 115* 148* 160* 220* 225* 242* 252* 258* 295* 314* 417* 432* 475* 481* 490* 497* 506* 511* 539* 543* 549* 562* 583* 593* 606* 610* 613* 624* 629* 679* 683* 700* 703* 760* 781* 785* 806* 831* 842* 848* 852* scroll_flag 15 based bit(1) level 3 dcl 954 set ref 201* 217* 423* 439* 459* 565* scroll_info based structure level 1 dcl 8-98 set ref 100 101* scroll_info_ptr 260 based pointer level 3 dcl 954 set ref 90* 102* scroll_ip 001004 automatic pointer dcl 8-128 set ref 100* 101 102 121 298 301 302 320 321 324 327 330 336 343 604* seq_len 4 based fixed bin(21,0) level 3 dcl 3-7 ref 321 324 327 330 336 seq_ptr 2 based pointer level 3 dcl 3-7 ref 321 324 327 330 336 sequence 2 based structure level 2 dcl 3-7 sequence_index 15 based fixed bin(12,0) array level 4 in structure "function_key_data" packed unsigned unaligned dcl 3-7 in procedure "rw_display_process_args" ref 324 sequence_index 31 based fixed bin(12,0) array level 3 in structure "function_key_data" packed unsigned unaligned dcl 3-7 in procedure "rw_display_process_args" ref 336 sequence_index 21 based fixed bin(12,0) array level 4 in structure "function_key_data" packed unsigned unaligned dcl 3-7 in procedure "rw_display_process_args" ref 330 sequence_index 25 based fixed bin(12,0) array level 4 in structure "function_key_data" packed unsigned unaligned dcl 3-7 in procedure "rw_display_process_args" ref 321 sequence_index 11 based fixed bin(12,0) array level 4 in structure "function_key_data" packed unsigned unaligned dcl 3-7 in procedure "rw_display_process_args" ref 327 sequence_length 21(12) based fixed bin(6,0) array level 4 in structure "function_key_data" packed unsigned unaligned dcl 3-7 in procedure "rw_display_process_args" ref 122 330 sequence_length 25(12) based fixed bin(6,0) array level 4 in structure "function_key_data" packed unsigned unaligned dcl 3-7 in procedure "rw_display_process_args" ref 122 321 sequence_length 11(12) based fixed bin(6,0) array level 4 in structure "function_key_data" packed unsigned unaligned dcl 3-7 in procedure "rw_display_process_args" ref 122 327 sequence_length 15(12) based fixed bin(6,0) array level 4 in structure "function_key_data" packed unsigned unaligned dcl 3-7 in procedure "rw_display_process_args" ref 122 324 sequence_length 31(12) based fixed bin(6,0) array level 3 in structure "function_key_data" packed unsigned unaligned dcl 3-7 in procedure "rw_display_process_args" ref 336 smallest_page_number 000530 automatic fixed bin(17,0) dcl 1079 set ref 464* 511 sort_bit_map based bit(1) array unaligned dcl 1080 set ref 645 647* 703 707* 752 sort_bit_map_ptr 000532 automatic pointer dcl 1081 set ref 645* 647 703 707 752 sort_flag 16 based bit(1) level 3 dcl 954 set ref 649* sort_info based structure level 1 unaligned dcl 9-7 set ref 640 643* sort_info_ptr 001006 automatic pointer dcl 9-16 set ref 640* 642 643 651 709 709 711 711 721 721 726 726 sort_information_ptr 256 based pointer level 3 dcl 954 set ref 89* 642* specified_pages 262 based bit(1) array level 3 packed unaligned dcl 954 set ref 462* 465 517* ssu_$abort_line 000062 constant entry external dcl 1082 ref 109 115 160 220 225 242 252 258 295 314 417 432 475 481 490 497 506 511 539 543 549 562 583 593 606 610 613 624 629 679 683 700 703 760 781 785 831 842 848 852 ssu_$arg_count 000064 constant entry external dcl 1083 ref 148 ssu_$arg_ptr 000066 constant entry external dcl 1084 ref 806 still_processing_additional_sort_args 000534 automatic bit(1) dcl 1085 set ref 716* 717 734* 738* still_processing_args 000535 automatic bit(1) dcl 1086 set ref 153* 156 220 228 236* 417 432 468 520 527* 539 583 591 593 597* 614 624 714 736 745* 760 781 808* still_processing_page_numbers 000536 automatic bit(1) dcl 1087 set ref 479* 480 526* 530* still_processing_set_key_args 000537 automatic bit(1) dcl 1088 set ref 587* 589 614* still_processing_sort_specs 000540 automatic bit(1) dcl 1089 set ref 650* 672 739* 746* 750* substr builtin function dcl 1090 ref 232 321 324 327 330 336 475 523 591 629 731 subsystem_control_info_ptr based pointer level 2 dcl 7-7 ref 79 table_info based structure level 1 dcl 10-7 table_info_ptr_parm parameter pointer dcl 45 ref 34 81 table_ip 001012 automatic pointer dcl 10-20 set ref 81* 639 690 691 703 temp_dir_flag 17 based bit(1) level 3 dcl 954 set ref 62 764* 837 temp_dir_pathname 167 based char(168) level 3 packed unaligned dcl 954 set ref 765* 839* 842* 848 848 855* temporary_dir_name 000541 automatic char(168) unaligned dcl 1093 set ref 839* 846* 855 term_type 2 based char(32) level 2 packed unaligned dcl 11-6 set ref 113* terminal_info based structure level 1 dcl 11-6 terminal_info_ptr 001014 automatic pointer dcl 11-15 set ref 103* 104 105* 113 terminal_info_version constant fixed bin(17,0) initial dcl 11-16 ref 104 test_string 000613 automatic varying char(8) dcl 1094 set ref 500* 501 501 501 505 the_area based area dcl 1095 ref 100 640 645 the_area_ptr 000616 automatic pointer dcl 1096 set ref 80* 100 113* 640 645 the_column_name 000620 automatic varying char dcl 1097 set ref 689* 691 time1 000620 automatic float bin(63) dcl 1098 set ref 57* 69 time2 000622 automatic float bin(63) dcl 1099 set ref 68* 69 time_flag 20 based bit(1) level 3 dcl 954 set ref 66 798* truncate_flag 12 based bit(1) level 3 dcl 954 set ref 96* 353* 773* ttt_info_$function_key_data 000070 constant entry external dcl 1103 ref 113 type 000624 automatic fixed bin(2,0) dcl 1100 set ref 846* 852 852 unspec builtin function dcl 1102 set ref 86* 88* 101* 462* 643* 647* up 15 based structure array level 3 dcl 3-7 vclock builtin function dcl 1105 ref 57 68 verify builtin function dcl 1106 ref 481 543 version based fixed bin(17,0) level 2 dcl 11-6 set ref 104* video_et_$unable_to_call_wsys 000072 external static fixed bin(35,0) dcl 1107 set ref 295* 314* 562* window_flag 21 based bit(1) level 3 dcl 954 set ref 789* window_name 241 based char(32) level 3 packed unaligned dcl 954 set ref 790* window_system_cant_be_used 000625 automatic bit(1) dcl 1109 set ref 106* 112* 295 314 562 NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. Envptr_supplied_call_type internal static fixed bin(18,0) initial unsigned unaligned dcl 2-29 FUNCTION_NAMES internal static structure level 1 dcl 8-41 FUNCTION_NAMES_AS_A_TABLE based char(32) array dcl 8-56 GENERAL_COLUMN_OPTION internal static fixed bin(17,0) initial dcl 6-15 GENERAL_REPORT_OPTION internal static fixed bin(17,0) initial dcl 6-14 INDEX_FOR_ALIGNMENT internal static fixed bin(17,0) initial dcl 6-66 INDEX_FOR_COLUMN_ORDER internal static fixed bin(17,0) initial dcl 6-50 INDEX_FOR_COUNT internal static fixed bin(17,0) initial dcl 6-51 INDEX_FOR_DELIMITER internal static fixed bin(17,0) initial dcl 6-40 INDEX_FOR_EDITING internal static fixed bin(17,0) initial dcl 6-67 INDEX_FOR_EXCLUDE internal static fixed bin(17,0) initial dcl 6-52 INDEX_FOR_FOLDING internal static fixed bin(17,0) initial dcl 6-68 INDEX_FOR_FORMAT_DOCUMENT_CONTROLS internal static fixed bin(17,0) initial dcl 6-41 INDEX_FOR_GROUP internal static fixed bin(17,0) initial dcl 6-53 INDEX_FOR_GROUP_FOOTER_TRIGGER internal static fixed bin(17,0) initial dcl 6-54 INDEX_FOR_GROUP_FOOTER_VALUE internal static fixed bin(17,0) initial dcl 6-55 INDEX_FOR_GROUP_HEADER_TRIGGER internal static fixed bin(17,0) initial dcl 6-56 INDEX_FOR_GROUP_HEADER_VALUE internal static fixed bin(17,0) initial dcl 6-57 INDEX_FOR_HYPHENATION internal static fixed bin(17,0) initial dcl 6-42 INDEX_FOR_OUTLINE internal static fixed bin(17,0) initial dcl 6-58 INDEX_FOR_PAGE_BREAK internal static fixed bin(17,0) initial dcl 6-59 INDEX_FOR_PAGE_FOOTER_VALUE internal static fixed bin(17,0) initial dcl 6-43 INDEX_FOR_PAGE_HEADER_VALUE internal static fixed bin(17,0) initial dcl 6-44 INDEX_FOR_PAGE_LENGTH internal static fixed bin(17,0) initial dcl 6-45 INDEX_FOR_ROW_FOOTER_VALUE internal static fixed bin(17,0) initial dcl 6-60 INDEX_FOR_ROW_HEADER_VALUE internal static fixed bin(17,0) initial dcl 6-61 INDEX_FOR_SEPARATOR internal static fixed bin(17,0) initial dcl 6-69 INDEX_FOR_SUBCOUNT internal static fixed bin(17,0) initial dcl 6-62 INDEX_FOR_SUBTOTAL internal static fixed bin(17,0) initial dcl 6-63 INDEX_FOR_TITLE internal static fixed bin(17,0) initial dcl 6-70 INDEX_FOR_TITLE_LINE internal static fixed bin(17,0) initial dcl 6-47 INDEX_FOR_TOTAL internal static fixed bin(17,0) initial dcl 6-64 INDEX_FOR_TRUNCATION internal static fixed bin(17,0) initial dcl 6-48 INDEX_FOR_WIDTH internal static fixed bin(17,0) initial dcl 6-71 Interseg_call_type internal static fixed bin(18,0) initial unsigned unaligned dcl 2-29 KEY_CTRL internal static fixed bin(17,0) initial dcl 3-22 KEY_CTRL_AND_SHIFT internal static fixed bin(17,0) initial dcl 3-22 KEY_SHIFT internal static fixed bin(17,0) initial dcl 3-22 LONGEST_GENERAL_COLUMN_OPTION_NAME_LENGTH internal static fixed bin(17,0) initial dcl 6-28 LONGEST_GENERAL_REPORT_OPTION_NAME_LENGTH internal static fixed bin(17,0) initial dcl 6-27 LONGEST_SPECIFIC_COLUMN_OPTION_NAME_LENGTH internal static fixed bin(17,0) initial dcl 6-26 MAXIMUM_OPTION_IDENTIFIER_LENGTH internal static fixed bin(17,0) initial dcl 6-34 MAXIMUM_OPTION_NAME_LENGTH internal static fixed bin(17,0) initial dcl 6-35 MAXIMUM_OPTION_VALUE_LENGTH internal static fixed bin(17,0) initial dcl 6-36 NUMBER_OF_SPECIFIC_COLUMN_OPTIONS_IN_TABLE internal static fixed bin(17,0) initial dcl 6-22 OPTION_NAMES_AS_ARGS internal static structure array level 1 unaligned dcl 5-101 Quick_call_type internal static fixed bin(18,0) initial unsigned unaligned dcl 2-29 SPECIFIC_COLUMN_OPTION internal static fixed bin(17,0) initial dcl 6-16 TABLE_INFO_VERSION_1 internal static char(8) initial unaligned dcl 10-22 arg_descriptor based structure level 1 dcl 1-6 arg_descriptor_ptr automatic pointer dcl 1-34 arg_list based structure level 1 dcl 2-5 arg_list_with_envptr based structure level 1 dcl 2-17 extended_arg_descriptor based structure level 1 dcl 1-21 fixed_arg_descriptor based structure level 1 dcl 1-13 function_key_data_highest automatic fixed bin(17,0) dcl 3-35 function_key_data_version_1 internal static fixed bin(17,0) initial dcl 3-36 key_info_ptr automatic pointer dcl 3-38 sys_info$max_seg_size external static fixed bin(35,0) dcl 1091 ti_init_column_count automatic fixed bin(17,0) dcl 10-21 NAMES DECLARED BY EXPLICIT CONTEXT. get_next_arg 010164 constant entry internal dcl 804 ref 158 223 231 420 435 470 522 542 590 601 628 720 763 788 initialize 003561 constant entry internal dcl 76 ref 59 lookup_arg_number 004223 constant entry internal dcl 170 ref 159 process_all 004301 constant entry internal dcl 196 ref 1010 1010 process_args 004107 constant entry internal dcl 139 ref 60 process_brief 004316 constant entry internal dcl 207 ref 1010 1010 process_character_positions 004330 constant entry internal dcl 215 ref 1010 1010 process_debug 004764 constant entry internal dcl 267 ref 1010 process_discard_report 004777 constant entry internal dcl 275 ref 1010 1010 process_discard_retrieval 005011 constant entry internal dcl 283 ref 1010 1010 process_enable_escape_keys 005023 constant entry internal dcl 291 ref 132 1010 1010 process_enable_function_keys 005106 constant entry internal dcl 309 ref 130 1010 1010 process_extend 005276 constant entry internal dcl 351 ref 1010 process_keep_report 005310 constant entry internal dcl 359 ref 1010 1010 process_keep_retrieval 005323 constant entry internal dcl 367 ref 1010 1010 process_long 005336 constant entry internal dcl 375 ref 1010 1010 process_new_report 005351 constant entry internal dcl 383 ref 1010 1010 process_new_retrieval 005364 constant entry internal dcl 391 ref 1010 1010 process_old_report 005377 constant entry internal dcl 399 ref 1010 1010 process_old_retrieval 005411 constant entry internal dcl 407 ref 1010 1010 process_output_file 005423 constant entry internal dcl 415 ref 1010 1010 process_output_switch 005500 constant entry internal dcl 430 ref 1010 1010 process_pages 005555 constant entry internal dcl 445 ref 1010 1010 1010 1010 process_passes 006367 constant entry internal dcl 537 ref 1010 1010 process_scroll 006554 constant entry internal dcl 560 ref 1010 process_set_keys 006613 constant entry internal dcl 577 ref 1010 1010 1010 1010 process_sort 007105 constant entry internal dcl 622 ref 1010 process_temp_dir 007752 constant entry internal dcl 758 ref 1010 1010 process_time 010151 constant entry internal dcl 796 ref 1010 process_truncate 010025 constant entry internal dcl 771 ref 1010 1010 process_window 010040 constant entry internal dcl 779 ref 1010 1010 1010 1010 rw_display_process_args 002744 constant entry external dcl 34 setup_additional_pathnames 010215 constant entry internal dcl 815 ref 62 THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 12110 12204 11211 12120 Length 13046 11211 74 626 676 0 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME rw_display_process_args 757 external procedure is an external procedure. initialize internal procedure shares stack frame of external procedure rw_display_process_args. process_args internal procedure shares stack frame of external procedure rw_display_process_args. lookup_arg_number internal procedure shares stack frame of external procedure rw_display_process_args. process_all 64 internal procedure is assigned to an entry variable. process_brief 64 internal procedure is assigned to an entry variable. process_character_positions 148 internal procedure is assigned to an entry variable. process_debug 64 internal procedure is assigned to an entry variable. process_discard_report 64 internal procedure is assigned to an entry variable. process_discard_retrieval 64 internal procedure is assigned to an entry variable. process_enable_escape_keys 77 internal procedure is assigned to an entry variable. process_enable_function_keys 82 internal procedure is assigned to an entry variable. process_extend 64 internal procedure is assigned to an entry variable. process_keep_report 64 internal procedure is assigned to an entry variable. process_keep_retrieval 64 internal procedure is assigned to an entry variable. process_long 64 internal procedure is assigned to an entry variable. process_new_report 64 internal procedure is assigned to an entry variable. process_new_retrieval 64 internal procedure is assigned to an entry variable. process_old_report 64 internal procedure is assigned to an entry variable. process_old_retrieval 64 internal procedure is assigned to an entry variable. process_output_file 90 internal procedure is assigned to an entry variable. process_output_switch 92 internal procedure is assigned to an entry variable. process_pages 116 internal procedure is assigned to an entry variable. process_passes 268 internal procedure is assigned to an entry variable. process_scroll 74 internal procedure is assigned to an entry variable. process_set_keys 114 internal procedure is assigned to an entry variable. process_sort 138 internal procedure is assigned to an entry variable. process_temp_dir 92 internal procedure is assigned to an entry variable. process_truncate 64 internal procedure is assigned to an entry variable. process_window 106 internal procedure is assigned to an entry variable. process_time 64 internal procedure is assigned to an entry variable. get_next_arg 74 internal procedure is called by several nonquick procedures. setup_additional_pathnames internal procedure shares stack frame of external procedure rw_display_process_args. STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME process_enable_escape_keys 000100 peek_loop process_enable_escape_keys process_enable_function_keys 000100 pefk_inner_loop process_enable_function_keys 000101 pefk_loop process_enable_function_keys process_set_keys 000100 psk_pair_of_key_bindings_found process_set_keys 000101 psk_function_name process_set_keys 000111 psk_function_key_sequence process_set_keys rw_display_process_args 000100 arg_length rw_display_process_args 000102 arg_ptr rw_display_process_args 000104 argument_number rw_display_process_args 000105 backup_necessary rw_display_process_args 000106 based_display_arg_results_ptr rw_display_process_args 000110 beginning_page_number rw_display_process_args 000111 bit_count rw_display_process_args 000112 code rw_display_process_args 000113 column_number rw_display_process_args 000114 current_arg rw_display_process_args 000115 ending_page_number rw_display_process_args 000116 entry_name rw_display_process_args 000126 first_page_number_supplied rw_display_process_args 000127 function_keys_can_be_used rw_display_process_args 000130 generate_right_margin_position rw_display_process_args 000131 largest_page_number rw_display_process_args 000132 local_terminal_info rw_display_process_args 000152 loop rw_display_process_args 000153 loop1 rw_display_process_args 000154 loop2 rw_display_process_args 000155 loop3 rw_display_process_args 000156 next_column_name_found rw_display_process_args 000157 no_of_args_supplied rw_display_process_args 000160 normalized_option_name rw_display_process_args 000160 not_found rw_display_process_args 000161 option_value rw_display_process_args 000172 process_arg_procs rw_display_process_args 000526 sci_ptr rw_display_process_args 000530 smallest_page_number rw_display_process_args 000532 sort_bit_map_ptr rw_display_process_args 000534 still_processing_additional_sort_args rw_display_process_args 000535 still_processing_args rw_display_process_args 000536 still_processing_page_numbers rw_display_process_args 000537 still_processing_set_key_args rw_display_process_args 000540 still_processing_sort_specs rw_display_process_args 000541 temporary_dir_name rw_display_process_args 000613 test_string rw_display_process_args 000616 the_area_ptr rw_display_process_args 000620 time1 rw_display_process_args 000620 the_column_name rw_display_process_args 000622 time2 rw_display_process_args 000624 type rw_display_process_args 000625 window_system_cant_be_used rw_display_process_args 000626 extended_arg_type rw_display_process_args 000630 function_key_data_ptr rw_display_process_args 000632 report_cip rw_display_process_args 000632 display_arg_results rw_display_process_args 000634 function_key_info rw_display_process_args 001004 scroll_ip rw_display_process_args 001006 sort_info_ptr rw_display_process_args 001010 no_of_candidate_columns rw_display_process_args 001012 table_ip rw_display_process_args 001014 terminal_info_ptr rw_display_process_args THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. alloc_cs cat_realloc_cs call_var call_ext_out_desc call_ext_out call_int_this call_int_other return alloc_auto_adj shorten_stack ext_entry int_entry any_to_any_tr alloc_based free_based vclock THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. cv_dec_check_ expand_pathname_ hcs_$status_minf ioa_$ioa_switch iox_$control rw_display_scroll$set_fkey rw_options$check_identifier rw_options$get ssu_$abort_line ssu_$arg_count ssu_$arg_ptr ttt_info_$function_key_data THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. error_table_$bad_arg error_table_$bad_conversion error_table_$badopt error_table_$inconsistent error_table_$no_operation error_table_$no_table error_table_$notadir iox_$error_output iox_$user_io rw_error_$bad_fkey_name rw_error_$bad_fkey_sequence rw_error_$bad_option_identifier rw_error_$bad_report_setup video_et_$unable_to_call_wsys LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 34 002737 1002 002751 1010 002761 1097 003453 1 36 003463 4 10 003465 7 61 003473 249 003475 676 003500 57 003503 59 003507 60 003510 62 003511 66 003517 68 003522 69 003526 74 003560 76 003561 78 003562 79 003566 80 003576 81 003601 82 003604 86 003607 87 003612 88 003634 89 003642 90 003644 92 003645 93 003647 94 003650 95 003651 96 003652 100 003653 101 003660 102 003663 103 003666 104 003670 105 003672 106 003722 109 003732 112 003756 113 003757 115 004004 119 004035 121 004037 122 004042 128 004071 130 004073 132 004102 135 004106 139 004107 148 004110 150 004121 153 004124 154 004126 156 004130 158 004132 159 004136 160 004155 164 004212 166 004221 168 004222 170 004223 174 004234 175 004236 177 004240 179 004243 180 004246 183 004264 185 004271 187 004274 189 004275 196 004300 198 004306 200 004311 201 004313 203 004314 207 004315 209 004323 211 004326 215 004327 217 004335 218 004340 220 004342 223 004367 224 004374 225 004424 228 004461 231 004467 232 004474 234 004502 235 004504 236 004506 237 004507 239 004510 240 004511 242 004540 247 004575 249 004600 252 004637 255 004666 256 004723 258 004730 263 004762 267 004763 269 004771 271 004775 275 004776 277 005004 279 005007 283 005010 285 005016 287 005021 291 005022 295 005030 298 005047 300 005052 301 005061 302 005072 303 005102 305 005104 309 005105 314 005113 317 005132 320 005135 321 005137 324 005154 327 005165 330 005176 334 005207 335 005211 336 005221 339 005244 340 005245 342 005247 343 005257 345 005272 347 005274 351 005275 353 005303 355 005306 359 005307 361 005315 363 005321 367 005322 369 005330 371 005334 375 005335 377 005343 379 005347 383 005350 385 005356 387 005362 391 005363 393 005371 395 005375 399 005376 401 005404 403 005407 407 005410 409 005416 411 005421 415 005422 417 005430 420 005456 421 005463 422 005467 423 005474 424 005475 426 005476 430 005477 432 005505 435 005533 436 005540 437 005544 438 005551 439 005552 441 005553 445 005554 458 005562 459 005564 460 005566 462 005570 464 005574 465 005576 468 005600 470 005602 471 005607 472 005612 473 005613 475 005614 479 005647 480 005652 481 005655 484 005721 487 005734 489 005745 490 005773 493 006026 494 006030 496 006031 497 006070 500 006123 501 006150 505 006172 506 006225 511 006260 516 006321 517 006332 518 006336 520 006340 522 006342 523 006347 525 006355 526 006357 527 006360 529 006362 530 006363 531 006364 533 006365 537 006366 539 006374 542 006422 543 006427 546 006502 547 006506 549 006516 552 006547 556 006552 560 006553 562 006561 565 006600 567 006604 568 006605 569 006606 570 006607 571 006610 573 006611 577 006612 583 006620 586 006643 587 006644 589 006647 590 006653 591 006660 593 006672 596 006717 597 006722 598 006724 600 006725 601 006731 602 006736 603 006744 604 006746 606 006772 610 007030 613 007062 614 007076 616 007102 618 007103 622 007104 624 007112 628 007140 629 007145 639 007206 640 007212 642 007225 643 007227 645 007237 647 007250 649 007254 650 007257 651 007260 672 007261 676 007265 679 007327 683 007371 688 007405 689 007410 690 007435 691 007450 693 007462 694 007463 696 007465 700 007467 703 007524 707 007575 709 007600 711 007602 714 007610 716 007612 717 007614 718 007617 719 007620 720 007621 721 007626 724 007646 726 007657 729 007674 731 007705 733 007714 734 007716 736 007724 738 007726 739 007727 742 007730 744 007732 745 007734 746 007736 748 007737 749 007740 750 007741 751 007742 752 007743 754 007750 758 007751 760 007757 763 010005 764 010012 765 010016 767 010023 771 010024 773 010032 775 010036 779 010037 781 010045 785 010106 788 010131 789 010136 790 010142 792 010147 796 010150 798 010156 800 010162 804 010163 806 010171 807 010206 808 010210 811 010214 815 010215 825 010216 827 010221 831 010245 837 010300 839 010303 842 010327 846 010362 848 010421 852 010474 855 010527 858 010602 860 010603