eL8  T||B}Chambon SiteSA Ko < V V&}@! ~Cooke NATACC iMSn r ~Cox Multics t_ rN9Nvn  Carlock SiteSA 1'!@{QDj2n  CAN_SP RPQ K7d&  D  fTCahoon Mcc zf"@n3Oa' * D8Brzozowski RPMtnd J, ` N z B Bakker MED oQo MTz  0  @!Belleval MED K+    |Bergum CNO {` @Ovn  p  `NBlair Multics }+T  Oi:n 0 B B2 Braun Multics _W_@KPl ^ pBenjamin Bull  J [ S q  Baryza Multics ]BKI^-vn  Basnett FSO K,g < zhBarnecut MPOG ]B`N KHB'C   0L @ 2Ahlstrom CSCMICRO _uiK\&n L& ^ ^Auerbach HISLTD ]Hy KYd z   @!BSanderson SiteSA bF$XR-[  B &BWalker MCOIN !s)PWn T |jAta lf.IMn  "Rg @hGHills NATACC ]c @K_>- > P$h iFClark SiteSA KRZ l F ~ ~ijFTofil AUTO K   j@!kFeagan NATACC K*q  klFrink Multics ] oKc(  p dl @JmFMC AUTO KG#g 4 F.mnERice Advisor ^=} l)Kq b  | |n@!oErnestus Holland @<Q"j  o9 \ pEDavis MED Ko  n p@!qBrunelle Multics P#h_Q<n9n  z  fqTrCresson SiteSA J+Ka *  < <8r&sDStone HISLTD a3]5LHM X * j j s!?tDemo MPO KQkdM  tuDrake NPE KkRE(X  uvDreyer CNO Ks  v@!fwDavids Multics K 8  *Jw8xDBarker SiteSA 0 OV-gi F  X Xx yDJMartin Bull p8F@sN;+v?q 0   &zDMGee NATACC x 7OK4  z{Crouch SVS bvoL _L @  d { p|Campo MOTech c#n call ssu_$abort_line (sci_ptr, code, 194 "^/^a is not a valid option name.", option_name); 195 else call ssu_$abort_line (sci_ptr, code); 196 else; 197 198 this_is_a_star_name = OFF; 199 if identifier_needed 200 then do; 201 if current_arg_number > number_of_args_supplied 202 then call ssu_$abort_line (sci_ptr, error_table_$inconsistent, 203 "The option ^a was not followed by a column identifier.", 204 long_option_name); 205 else; 206 call ssu_$arg_ptr (sci_ptr, current_arg_number, 207 arg_ptr, arg_length); 208 current_arg_number = current_arg_number + 1; 209 option_identifier = arg; 210 call rw_options$check_identifier (report_cip, 211 long_option_name, option_identifier, 212 normalized_option_name, code); 213 if code ^= 0 214 then if code = rw_error_$bad_option_identifier 215 then call ssu_$abort_line (sci_ptr, code, 216 "^/^a is not a valid column identifier for ^a.", 217 option_identifier, long_option_name); 218 else if code = error_table_$nostars 219 then this_is_a_star_name = ON; 220 else call ssu_$abort_line (sci_ptr, code); 221 else; 222 end; 223 else; 224 225 if this_is_a_star_name 226 then call get_and_list_star_name; 227 else call get_and_list_option_name; 228 229 if active_request_flag 230 then return; 231 232 if current_arg_number > number_of_args_supplied 233 then still_processing_args = OFF; 234 else do; 235 call ssu_$arg_ptr (sci_ptr, current_arg_number, 236 arg_ptr, arg_length); 237 current_arg_number = current_arg_number + 1; 238 end; 239 240 end; 241 242 return; 243 244 end get_and_list_user_specified_option_values; 245 246 initialize: proc; 247 248 /* 249* 250* If zero args then usage_1 is requested. If there are any args 251* supplied then walk through them all once setting the usage_1 and 252* usage_2 flags as -active and -all are found. If -active and -all 253* are not found then usage_3 has been requested, or an incorrectly 254* spelled control arg has been given. If -active or -all are found 255* then there can't be any format_option_args supplied. 256* 257**/ 258 259 sci_ptr = sci_ptr_parm; 260 report_cip = report_cip_parm; 261 262 usage_1 = OFF; 263 usage_2 = OFF; 264 usage_3 = OFF; 265 266 /* Find the longest column name for the current columns. */ 267 268 table_ip = report_control_info.table_information_ptr; 269 if table_ip = null 270 then the_longest_option_name 271 = LONGEST_GENERAL_REPORT_OPTION_NAME_LENGTH + 5; 272 else do; 273 if LONGEST_SPECIFIC_COLUMN_OPTION_NAME_LENGTH 274 > LONGEST_GENERAL_COLUMN_OPTION_NAME_LENGTH 275 then the_longest_option_name 276 = LONGEST_SPECIFIC_COLUMN_OPTION_NAME_LENGTH; 277 else the_longest_option_name 278 = LONGEST_GENERAL_COLUMN_OPTION_NAME_LENGTH; 279 the_longest_option_name = the_longest_option_name 280 + table_info.maximum_column_name_length + 5; 281 end; 282 padded_option_name_ptr = addr (chunk_of_automatic_storage); 283 284 call ssu_$return_arg (sci_ptr, number_of_args_supplied, 285 active_request_flag, return_value_ptr, return_value_length); 286 287 if number_of_args_supplied = 0 288 then do; 289 usage_1 = ON; 290 if active_request_flag 291 then call ssu_$abort_line (sci_ptr, error_table_$inconsis`R>MacKenzie SiteSA K%f,>>6>$?MacLean DNDH zK$OP53nZxl?@MMeyer FSOEP Kx,@ALeon-Guerrero FSO ]PKM@ A @BLippard MPOG 0}V Ps~vR\CLeatherman SysMaint f4 @>Lwn"4@C.DKoscheleff Bull _A0n @[Kwd`P:bbDEL-Brown BullSys hd#MPa~ E @FLOUT-scp SCPS bw @iLM^F@!@@ |@?GLUT UKUNIV  pM% N9i3 }xB^HKrall MHC Kq  8:BH B (IKerrin NATACC {a\HO,5Vhh IJKitching NTRC K0M^J@KKaiser MPO uHNy/KLDupuis Multics ;P n |LjMGrimes DNDH lf @&?M: en &&NM<NIRDT-scp SCPS K!qhWB"\\ N@!B@OJMcGowan FSO ]!RK_ ?'xZOPJarrell FSOEP K,PQJong OMSD K$ sF Q B lRKCole HisAust 394 dcl code fixed bin (35); 395 dcl current_arg_number fixed bin; 396 397 dcl error_table_$inconsistent fixed bin(35) ext static; 398 dcl error_table_$nostars fixed bin(35) ext static; 399 400 dcl fixed builtin; 401 402 dcl identifier_needed bit (1) aligned; 403 dcl index builtin; 404 dcl ioa_ entry() options(variable); 405 406 dcl long_option_name char (MAXIMUM_OPTION_NAME_LENGTH) varying; 407 dcl loop fixed bin; 408 409 dcl names_and_values_area area (sys_info$max_seg_size) based (names_and_values_area_ptr); 410 dcl names_and_values_area_ptr ptr; 411 dcl normalized_option_name char (MAXIMUM_NORMALIZED_OPTION_NAME_LENGTH) varying; 412 dcl null builtin; 413 dcl number_of_args_supplied fixed bin; 414 dcl number_of_control_args_found fixed bin; 415 dcl number_of_legal_args fixed bin; 416 417 dcl option_identifier char (MAXIMUM_OPTION_IDENTIFIER_LENGTH) varying; 418 dcl option_name char (MAXIMUM_OPTION_NAME_LENGTH) varying; 419 dcl option_value char (MAXIMUM_OPTION_VALUE_LENGTH) varying; 420 421 dcl padded_option_name char (the_longest_option_name) based (padded_option_name_ptr); 422 dcl padded_option_name_ptr ptr; 423 424 dcl requote_string_ entry (char(*)) returns(char(*)); 425 dcl return_value char (return_value_length) varying based (return_value_ptr); 426 dcl return_value_length fixed bin (21); 427 dcl return_value_ptr ptr; 428 dcl rw_error_$bad_option_identifier fixed bin(35) ext static; 429 dcl rw_error_$bad_option_name fixed bin(35) ext static; 430 dcl rw_error_$no_columns_defined fixed bin(35) ext static; 431 dcl rw_options$check_identifier entry (ptr, char(*) var, char(*) var, char(*) var, fixed bin(35)); 432 dcl rw_options$check_name entry (ptr, char(*) var, char(*) var, bit(1) aligned, fixed bin(35)); 433 dcl rw_options$get entry (ptr, char(*) var, char(*) var, char(*) var, char(*) var, fixed bin(35)); 434 dcl rw_options$get_active entry (ptr, ptr, fixed bin(21), ptr, fixed bin(21), fixed bin(35)); 435 dcl rw_options$get_all entry (ptr, ptr, fixed bin(21), ptr, fixed bin(21), fixed bin(35)); 436 dcl rw_options$get_named entry (ptr, ptr, fixed bin(21), ptr, fixed bin(21), ptr, fixed bin(21), fixed bin(35)); 437 438 dcl sci_ptr ptr; 439 dcl ssu_$abort_line entry() options(variable); 440 dcl ssu_$arg_ptr entry (ptr, fixed bin, ptr, fixed bin(21)); 441 dcl ssu_$return_arg entry (ptr, fixed bin, bit(1) aligned, ptr, fixed bin(21)); 442 dcl still_processing_args bit (1) aligned; 443 dcl substr builtin; 444 dcl sys_info$max_seg_size fixed bin(35) ext static; 445 446 dcl the_longest_option_name fixed bin; 447 dcl this_is_a_star_name bit (1) aligned; 448 449 dcl usage_1 bit (1) aligned; 450 dcl usage_2 bit (1) aligned; 451 dcl usage_3 bit (1) aligned; 452 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 */ 453 454 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 */ 455 456 3 1 /* BEGIN INCLUDE FILE ... rw_names_and_values.incl.pl1 3 2* 3 3* Names and values used for producing reports. These structures provide for 3 4* the passing of format report option names and values between requests and 3 5* the "rw_options" subroutine. The caller (usually a request) fills in the 3 6* "option_name_table" structure, or calls a bulk load entry point such as 3 7* rw_options$get_all. The rw_options subroutine uses the 3 8* "name_value_info" structure and the "names_and_values" character string to 3 9* return the requested names and values. 3 10* 3 11* Al Dupuis - August 1983 3 12**/ 3 13 /* format: off */ 3 14 3 15 /* Describes the "names_and_values" character string below. */ 3 16 3 17 dcl 1 name_value_info (no_of_names_and_values) aligned based (names_and_values_info_ptr), 3 18 2 name, /* location and length in temp seg */ 3 19 3 index fixed bin (21), 3 20 3 length fixed bin (21), 3 21 2 value, /* location and length in temp seg */ 3 22 3 index fixed bin (21), 3 23 3 length fixed bin (21); 3 24 3 25 /* Described by "name_value_info" structure above. */ 3 26 3 27 dcl names_and_values char (size_of_names_and_values) based (names_and_values_ptr); 3 28 3 29 dcl names_and_values_info_ptr ptr init (null()); 3 30 dcl names_and_values_ptr ptr init (null()); 3 31 dcl no_of_names_and_values fixed bin (21); 3 32 dcl size_of_names_and_values fixed bin (21); 3 33 3 34 /* Filled in by the caller (i.e. "list_format_options" request) */ 3 35 3 36 dcl 1 option_name_table (no_of_options_in_name_table) based (option_name_table_ptr), 3 37 2 the_name char (32) varying, /* option name */ 3 38 2 the_identifier char (32) varying; /* null, column name, or star name */ 3 39 3 40 dcl no_of_options_in_name_table fixed bin (21); 3 41 dcl option_name_table_ptr ptr init (null()); 3 42 3 43 /* END INCLUDE FILE rw_names_and_values.incl.pl1 */ 457 458 4 1 /* BEGIN INCLUDE FILE rw_options_extents.incl.pl1 4 2* 4 3* Extents for the formatting options used for producing reports. 4 4* Kept as a separate include so that some programs may include this 4 5* file without including rw_format_options.incl.pl1 4 6* 4 7* Al Dupuis - August 1983 4 8* 4 9**/ 4 10 /* format: off */ 4 11 4 12 /* The three types of format options that we have. */ 4 13 4 14 dcl GENERAL_REPORT_OPTION fixed bin static int options (constant) init (1); 4 15 dcl GENERAL_COLUMN_OPTION fixed bin static int options (constant) init (2); 4 16 dcl SPECIFIC_COLUMN_OPTION fixed bin static int options (constant) init (3); 4 17 4 18 /* Used to determine how big the tables are without doing a hbound on it. */ 4 19 4 20 dcl NUMBER_OF_GENERAL_COLUMN_OPTIONS_IN_TABLE fixed bin static int options (constant) init (15); 4 21 dcl NUMBER_OF_GENERAL_REPORT_OPTIONS_IN_TABLE fixed bin static int options (constant) init (9); 4 22 dcl NUMBER_OF_SPECIFIC_COLUMN_OPTIONS_IN_TABLE fixed bin static int options (constant) init (6); 4 23 4 24 /* Used to determine how much space is needed to list them. */ 4 25 4 26 dcl LONGEST_SPECIFIC_COLUMN_OPTION_NAME_LENGTH fixed bin static int options (constant) init (10); /* -alignment */ 4 27 dcl LONGEST_GENERAL_REPORT_OPTION_NAME_LENGTH fixed bin static int options (constant) init (25); /* -format_document_controls */ 4 28 dcl LONGEST_GENERAL_COLUMN_OPTION_NAME_LENGTH fixed bin static int options (constant) init (21); /* -group_footer_trigger */ 4 29 4 30 /* MAXIMUM_OPTION_IDENTIFIER_LENGTH + MAXIMUM_OPTION_NAME_LENGTH */ 4 31 4 32 dcl MAXIMUM_NORMALIZED_OPTION_NAME_LENGTH fixed bin static int options (constant) init (101); 4 33 4 34 dcl MAXIMUM_OPTION_IDENTIFIER_LENGTH fixed bin static int options (constant) init (69); 4 35 dcl MAXIMUM_OPTION_NAME_LENGTH fixed bin static int options (constant) init (32); 4 36 dcl MAXIMUM_OPTION_VALUE_LENGTH fixed bin static int options (constant) init (4096); 4 37 4 38 /* Used to index into the OPTIONS tables defined in rw_format_options.incl.pl1. */ 4 39 4 40 dcl INDEX_FOR_DELIMITER fixed bin static int options (constant) init (1); 4 41 dcl INDEX_FOR_FORMAT_DOCUMENT_CONTROLS fixed bin static int options (constant) init (2); 4 42 dcl INDEX_FOR_HYPHENATION fixed bin static int options (constant) init (3); 4 43 dcl INDEX_FOR_PAGE_FOOTER_VALUE fixed bin static int options (constant) init (4); 4 44 dcl INDEX_FOR_PAGE_HEADER_VALUE fixed bin static int options (constant) init (5); 4 45 dcl INDEX_FOR_PAGE_LENGTH fixed bin static int options (constant) init (6); 4 46 dcl INDEX_FOR_PAGE_WIDTH fixed bin static int options (constant) init (7); 4 47 dcl INDEX_FOR_TITLE_LINE fixed bin static int options (constant) init (8); 4 48 dcl INDEX_FOR_TRUNCATION fixed bin static int options (constant) init (9); 4 49 4 50 dcl INDEX_FOR_COLUMN_ORDER fixed bin static int options (constant) init (1); 4 51 dcl INDEX_FOR_COUNT fixed bin static int options (constant) init (2); 4 52 dcl INDEX_FOR_EXCLUDE fixed bin static int options (constant) init (3); 4 53 dcl INDEX_FOR_GROUP fixed bin static int options (constant) init (4); 4 54 dcl INDEX_FOR_GROUP_FOOTER_TRIGGER fixed bin static int options (constant) init (5); 4 55 dcl INDEX_FOR_GROUP_FOOTER_VALUE fixed bin static int options (constant) init (6); 4 56 dcl INDEX_FOR_GROUP_HEADER_TRIGGER fixed bin static int options (constant) init (7); 4 57 dcl INDEX_FOR_GROUP_HEADER_VALUE fixed bin static int options (constant) init (8); 4 58 dcl INDEX_FOR_OUTLINE fixed bin static int options (constant) init (9); 4 59 dcl INDEX_FOR_PAGE_BREAK fixed bin static int options (constant) init (10); 4 60 dcl INDEX_FOR_ROW_FOOTER_VALUE fixed bin static int options (constant) init (11); 4 61 dcl INDEX_FOR_ROW_HEADER_VALUE fixed bin static int options (constant) init (12); 4 62 dcl INDEX_FOR_SUBCOUNT fixed bin static int options (constant) init (13); 4 63 dcl INDEX_FOR_SUBTOTAL fixed bin static int options (constant) init (14); 4 64 dcl INDEX_FOR_TOTAL fixed bin static int options (constant) init (15); 4 65 4 66 dcl INDEX_FOR_ALIGNMENT fixed bin static int options (constant) init (1); 4 67 dcl INDEX_FOR_EDITING fixed bin static int options (constant) init (2); 4 68 dcl INDEX_FOR_FOLDING fixed bin static int options (constant) init (3); 4 69 dcl INDEX_FOR_SEPARATOR fixed bin static int options (constant) init (4); 4 70 dcl INDEX_FOR_TITLE fixed bin static int options (constant) init (5); 4 71 dcl INDEX_FOR_WIDTH fixed bin static int options (constant) init (6); 4 72 4 73 /* END INCLUDE FILE rw_options_extents */ 459 460 5 1 /* BEGIN INCLUDE FILE rw_report_info.incl.pl1 5 2* Information needed to control the report environment. 5 3* Al Dupuis - August 1983 5 4**/ 5 5 /* format: off */ 5 6 5 7 dcl 1 report_control_info aligned based (report_cip), 5 8 2 flags, 5 9 3 report_is_paginated bit (1) unaligned, /* paged or one continous stream */ 5 10 3 table_has_been_started bit (1) unaligned, /* table clean up is necessary */ 5 11 3 table_is_full bit (1) unaligned, /* no more retrieves are necessary */ 5 12 3 report_has_been_started bit (1) unaligned, /* report clean up is necessary */ 5 13 3 report_is_formatted bit (1) unaligned, /* no more formatting is necessary */ 5 14 3 permanent_report bit (1) unaligned, /* or disposable */ 5 15 3 permanent_table bit (1) unaligned, /* or disposable */ 5 16 3 report_has_just_been_completed bit (1) unaligned, /* used for printing timers */ 5 17 3 table_has_just_been_loaded bit (1) unaligned, /* used for printing timers */ 5 18 3 multi_pass_mode bit (1) unaligned, /* on if we are to do more than 1 pass */ 5 19 3 available bit (26) unaligned, 5 20 2 format_options_flags, /* used to determine if value is default */ 5 21 3 general_report_default_value (NUMBER_OF_GENERAL_REPORT_OPTIONS_IN_TABLE) bit (1) unaligned, 5 22 3 general_column_default_value (NUMBER_OF_GENERAL_COLUMN_OPTIONS_IN_TABLE) bit (1) unaligned, 5 23 2 value_seg_ptr ptr, /* the options value seg */ 5 24 2 table_information_ptr ptr, /* points to table_info */ 5 25 2 table_control_info_ptr ptr, /* points to table_control_info */ 5 26 2 row_value_temp_segment_ptr ptr, /* points to a segment for the row value */ 5 27 2 general_work_area_ptr ptr, /* a freeing work area */ 5 28 2 name_value_area_ptr ptr, /* area for name-value allocations */ 5 29 2 subsystem_control_info_ptr ptr, /* ptr for ssu_ info structure */ 5 30 2 subsystems_info_ptr ptr, /* points to subsystems info structure */ 5 31 2 name_value_temp_seg_ptr ptr, /* temp seg for name-value space */ 5 32 2 report_temp_seg_ptr ptr, /* report workspace */ 5 33 2 report_work_area_ptr ptr, /* report workspace */ 5 34 2 format_report_info_ptr ptr, /* info needed to create a report */ 5 35 2 input_string_temp_seg_ptr ptr, /* report workspace */ 5 36 2 output_string_temp_seg_ptr ptr, /* report workspace */ 5 37 2 editing_strings_temp_seg_ptr ptr, /* report workspace */ 5 38 2 headers_temp_seg_ptr ptr, /* report workspace */ 5 39 2 display_iocb_ptr ptr, /* report is displayed through this */ 5 40 2 area_info_ptr ptr, /* points to area_info structure */ 5 41 2 table_manager_delete_table_entry variable entry (ptr, fixed bin (35)), /* entry who deletes the table */ 5 42 2 table_manager_get_query_entry variable entry (ptr, ptr, fixed bin (21), fixed bin (35)), /* entry who gets the query */ 5 43 2 table_manager_get_row_entry variable entry (ptr, fixed bin (35)), /* entry who loads rows */ 5 44 2 table_manager_create_table_entry variable entry (ptr, fixed bin (35)), /* entry who makes a new table */ 5 45 2 options_identifier fixed bin, /* current set of options */ 5 46 2 report_identifier fixed bin, /* current report */ 5 47 2 no_of_rows_retrieved fixed bin (35), /* current no of rows */ 5 48 2 no_of_formatted_pages fixed bin (21), /* current no of pages */ 5 49 2 number_of_passes fixed bin, /* number of times report will be formatted */ 5 50 2 table_loading_time float bin (63), 5 51 2 table_sorting_time float bin (63), 5 52 2 table_deletion_time float bin (63), 5 53 2 report_setup_time float bin (63), 5 54 2 report_formatting_time float bin (63), 5 55 2 report_display_time float bin (63), 5 56 2 report_deletion_time float bin (63), 5 57 2 ssu_evaluate_active_string_time float bin (63), 5 58 2 temp_dir_unique_id bit (36), /* uid of temp dir */ 5 59 2 subsystems_ec_suffix char (32), /* suffix for saving and restoring ecs */ 5 60 2 temp_dir_name char (168) unaligned; /* the dir where we place the retrieved table and report */ 5 61 dcl report_cip ptr init (null ()); 5 62 5 63 /* END INCLUDE FILE rw_report_info.incl.pl1 */ 461 462 6 1 /* BEGIN INCLUDE FILE rw_table_info.incl.pl1 6 2* 6 3* Written - Al Dupuis 6 4**/ 6 5 /* format: off */ 6 6 6 7 dcl 1 table_info aligned based (table_ip), 6 8 2 version char (8), 6 9 2 column_count fixed bin, 6 10 2 maximum_column_name_length fixed bin, 6 11 2 maximum_column_value_length fixed bin, 6 12 2 row_value_length fixed bin (21), 6 13 2 row_value_ptr ptr, 6 14 2 columns (ti_init_column_count refer (table_info.column_count)), 6 15 3 column_name char (69) varying, 6 16 3 column_data_type bit (36), 6 17 3 column_length fixed bin (21), 6 18 3 column_index fixed bin (21); 6 19 6 20 dcl table_ip ptr; 6 21 dcl ti_init_column_count fixed bin; 6 22 dcl TABLE_INFO_VERSION_1 char (8) internal static options (constant) init ("rwti(P)Morrogh SiteSA bv `LZS.HH4)@! *OAKU-scp SCPS K2J d.vv*+PSlatin AUTO j2 ~fM'n+,PTriffitt NRegUK KW(+=,-Palter Multics ^jKn,t-b.PCMiller BullSys KyI-.F.4/Network_Server Multics K2J\\/0Newcomb Mcc e @L\Venx01Nowicki SiteSA 1hQ3?l%.1?2NLevette SiteSA QP/1@nR2|3May KBS K" p'`3F4McNair FSD_ISO |?CO(tRR*  5Michon MED }^ @O|S^n5@!~6Moberg AUTO Y4%X,Qn*67McFadden SiteSA ^h@dK]-7~8Mattick SVS K9Hb8@!H9Maupate Cnet K>*6H,9:Marker Multics dBI@xL<0Kdv:;Lackey Multics Kv- 4;<Logica Rapport-4fIr iLG.E'<@?=MSoden NRegUK KeYll=@!et ref 76* 80* 89 89* 98* 101 101* 144* 148 148* 185* 187 187 187* 192 192* 195* 210* 213 213 213* 218 220* current_arg_number 000105 automatic fixed bin(17,0) dcl 395 set ref 176* 178* 179* 179 201 206* 208* 208 232 235* 237* 237 error_table_$inconsistent 000010 external static fixed bin(35,0) dcl 397 set ref 109* 201* 290* 315* 319* error_table_$nostars 000012 external static fixed bin(35,0) dcl 398 set ref 137* 218 extended_arg_type 000134 automatic fixed bin(17,0) initial dcl 1-36 set ref 1-36* fixed builtin function dcl 400 ref 319 319 identifier_needed 000106 automatic bit(1) dcl 402 set ref 106 185* 199 index based fixed bin(21,0) array level 3 in structure "name_value_info" dcl 3-17 in procedure "rw_list_format_options" ref 358 364 364 364 364 index 2 based fixed bin(21,0) array level 3 in structure "name_value_info" dcl 3-17 in procedure "rw_list_format_options" ref 352 index builtin function dcl 403 in procedure "rw_list_format_options" ref 118 356 ioa_ 000014 constant entry external dcl 404 ref 121 124 344 361 364 length 1 based fixed bin(21,0) array level 3 in structure "name_value_info" dcl 3-17 in procedure "rw_list_format_options" ref 358 364 364 364 364 length 3 based fixed bin(21,0) array level 3 in structure "name_value_info" dcl 3-17 in procedure "rw_list_format_options" ref 352 long_option_name 000107 automatic varying char dcl 406 set ref 98* 141 185* 187* 201* 210* 213* loop 000107 automatic fixed bin(17,0) dcl 407 set ref 297* 298* 350* 352 352 358 358 364 364 364 364 364 364 364 364* maximum_column_name_length 3 based fixed bin(17,0) level 2 dcl 6-7 ref 279 name based structure array level 2 dcl 3-17 name_value_area_ptr based pointer level 2 dcl 5-7 ref 170 name_value_info based structure array level 1 dcl 3-17 names_and_values based char unaligned dcl 3-27 ref 352 358 364 364 364 364 names_and_values_area based area dcl 409 ref 172 names_and_values_area_ptr 000110 automatic pointer dcl 410 set ref 170* 172 names_and_values_info_ptr 000136 automatic pointer initial dcl 3-29 set ref 76* 80* 3-29* 144* 352 352 358 358 364 364 364 364 364 364 364 364 names_and_values_ptr 000140 automatic pointer initial dcl 3-30 set ref 76* 80* 3-30* 144* 352 358 364 364 364 364 no_of_names_and_values 000142 automatic fixed bin(21,0) dcl 3-31 set ref 76* 80* 144* 342 350 no_of_options_in_name_table 000144 automatic fixed bin(21,0) dcl 3-40 set ref 144* 171* 172 normalized_option_name 000112 automatic varying char dcl 411 set ref 98* 120 124* 124* 210* null builtin function dcl 412 ref 3-29 3-30 3-41 5-61 269 number_of_args_supplied 000112 automatic fixed bin(17,0) dcl 413 set ref 109 201 232 284* 287 297 319 number_of_control_args_found 000113 automatic fixed bin(17,0) dcl 414 set ref 296* 301* 301 308* 308 319 number_of_legal_args 000114 automatic fixed bin(17,0) dcl 415 set ref 106* 108* 109 option_identifier 000115 automatic varying char dcl 417 set ref 98* 142 175* 209* 210* 213* option_name 000115 automatic varying char dcl 418 set ref 184* 185* 192* option_name_table based structure array level 1 unaligned dcl 3-36 set ref 172 option_name_table_ptr 000146 automatic pointer initial dcl 3-41 set ref 3-41* 141 142 144* 172* option_value 000115 automatic varying char dcl 419 set ref 98* 113 118 121 124* 352* 356 361 364* padded_option_name based char unaligned dcl 421 set ref 120* 121 358* 361 padded_option_name_ptr 000116 automatic pointer dcl 422 set ref 120 121 282* 358 361 report_cip 000150 automatic pointer initial dcl 5-61 set ref 76* 80* 5-61* 98* 144* 170 185* 210* 260* 268 report_cip_parm parameter pointer dcl 54 ref 48 260 report_control_info based structure level 1 dcl 5-7 requote_string_ 000016 constant entry external dcl 424 ref 113 return_value based varying char dcl 425 set ref 113* return_value_length 000120 automatic fixed bin(21,0) dcl 426 set ref 113 284* return_value_ptr 000122 automatic pointer dcl 427 set ref 113 284* rw_error_$bad_option_identifier 000020 external static fixed bin(35,0) dcl 428 ref 213 rw_error_$bad_option_name 000022 external static fixed bin(35,0) dcl 429 ref 192 rw_error_$no_columns_defined 000024 external static fixed bin(35,0) dcl 430 ref 187 rw_options$check_identifier 000026 constant entry external dcl 431 ref 210 rw_options$check_name 000030 constant entry external dcl 432 ref 185 rw_options$get 000032 constant entry external dcl 433 ref 98 rw_options$get_active 000034 constant entry external dcl 434 ref 76 rw_options$get_all 000036 constant entry external dcl 435 ref 80 rw_options$get_named 000040 constant entry external dcl 436 ref 144 sci_ptr 000124 automatic pointer dcl 438 set ref 89* 101* 109* 137* 148* 178* 187* 192* 195* 201* 206* 213* 220* 235* 259* 284* 290* 298* 315* 319* sci_ptr_parm parameter pointer dcl 55 ref 48 259 size_of_names_and_values 000143 automatic fixed bin(21,0) dcl 3-32 set ref 76* 80* 144* 352 358 364 364 364 364 ssu_$abort_line 000042 constant entry external dcl 439 ref 89 101 109 137 148 187 192 195 201 213 220 290 315 319 ssu_$arg_ptr 000044 constant entry external dcl 440 ref 178 206 235 298 ssu_$return_arg 000046 constant entry external dcl 441 ref 284 still_processing_args 000126 automatic bit(1) dcl 442 set ref 180* 182 232* substr builtin function dcl 443 ref 352 358 364 364 364 364 table_info based structure level 1 dcl 6-7 table_information_ptr based pointer level 2 dcl 5-7 ref 268 table_ip 000152 automatic pointer dcl 6-20 set ref 268* 269 279 the_identifier 11 based varying char(32) array level 2 dcl 3-36 set ref 142* the_longest_option_name 000127 automatic fixed bin(17,0) dcl 446 set ref 120 121 269* 273* 277* 279* 279 358 361 the_name based varying char(32) array level 2 dcl 3-36 set ref 141* this_is_a_star_name 000130 automatic bit(1) dcl 447 set ref 198* 218* 225 usage_1 000131 automatic bit(1) dcl 449 set ref 76 262* 289* 303* 311* 315 319 319 327 usage_2 000132 automatic bit(1) dcl 450 set ref 80 263* 304* 310* 315 319 319 327 usage_3 000133 automatic bit(1) dcl 451 set ref 264* 327* value 2 based structure array level 2 dcl 3-17 NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. Envptr_supplied_call_type internal static fixed bin(18,0) initial unsigned unaligned dcl 2-29 GENERAL_COLUMN_OPTION internal static fixed bin(17,0) initial dcl 4-15 GENERAL_REPORT_OPTION internal static fixed bin(17,0) initial dcl 4-14 INDEX_FOR_ALIGNMENT internal static fixed bin(17,0) initial dcl 4-66 INDEX_FOR_COLUMN_ORDER internal static fixed bin(17,0) initial dcl 4-50 INDEX_FOR_COUNT internal static fixed bin(17,0) initial dcl 4-51 INDEX_FOR_DELIMITER internal static fixed bin(17,0) initial dcl 4-40 INDEX_FOR_EDITING internal static fixed bin(17,0) initial dcl 4-67 INDEX_FOR_EXCLUDE internal static fixed bin(17,0) initial dcl 4-52 INDEX_FOR_FOLDING internal static fixed bin(17,0) initial dcl 4-68 INDEX_FOR_FORMAT_DOCUMENT_CONTROLS internal static fixed bin(17,0) initial dcl 4-41 INDEX_FOR_GROUP internal static fixed bin(17,0) initial dcl 4-53 INDEX_FOR_GROUP_FOOTER_TRIGGER internal static fixed bin(17,0) initial dcl 4-54 INDEX_FOR_GROUP_FOOTER_VALUE internal static fixed bin(17,0) initial dcl 4-55 INDEX_FOR_GROUP_HEADER_TRIGGER internal static fixed bin(17,0) initial dcl 4-56 INDEX_FOR_GROUP_HEA z+*@qWright z+f^*@q DPS-E z+*@qME rw_list_format_options 500 external procedure is an external procedure. get_and_list_option_name internal procedure shares stack frame of external procedure rw_list_format_options. get_and_list_star_name internal procedure shares stack frame of external procedure rw_list_format_options. get_and_list_user_specified_option_values internal procedure shares stack frame of external procedure rw_list_format_options. initialize internal procedure shares stack frame of external procedure rw_list_format_options. list_the_values internal procedure shares stack frame of external procedure rw_list_format_options. STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME rw_list_format_options 000100 active_request_flag rw_list_format_options 000101 arg_length rw_list_format_options 000102 arg_ptr rw_list_format_options 000104 chunk_of_automatic_storage rw_list_format_options 000104 code rw_list_format_options 000105 current_arg_number rw_list_format_options 000106 identifier_needed rw_list_format_options 000107 loop rw_list_format_options 000107 long_option_name rw_list_format_options 000110 names_and_values_area_ptr rw_list_format_options 000112 normalized_option_name rw_list_format_options 000112 number_of_args_supplied rw_list_format_options 000113 number_of_control_args_found rw_list_format_options 000114 number_of_legal_args rw_list_format_options 000115 option_identifier rw_list_format_options 000115 option_value rw_list_format_options 000115 option_name rw_list_format_options 000116 padded_option_name_ptr rw_list_format_options 000120 return_value_length rw_list_format_options 000122 return_value_ptr rw_list_format_options 000124 sci_ptr rw_list_format_options 000126 still_processing_args rw_list_format_options 000127 the_longest_option_name rw_list_format_options 000130 this_is_a_star_name rw_list_format_options 000131 usage_1 rw_list_format_options 000132 usage_2 rw_list_format_options 000133 usage_3 rw_list_format_options 000134 extended_arg_type rw_list_format_options 000136 names_and_values_info_ptr rw_list_format_options 000140 names_and_values_ptr rw_list_format_options 000142 no_of_names_and_values rw_list_format_options 000143 size_of_names_and_values rw_list_format_options 000144 no_of_options_in_name_table rw_list_format_options 000146 option_name_table_ptr rw_list_format_options 000150 report_cip rw_list_format_options 000152 table_ip rw_list_format_options THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. alloc_cs cat_realloc_cs call_ext_out_desc call_ext_out return alloc_auto_ad@z+ ( (@=L>S8&H &0z+Multics z+\Smith z+CDC z+PLASTICS z+Dickson z+rNMLPROD z+0Hussein z+ Guest z+TOBSWE z+rMSGD z+"DEVM z+rGinter z+Tolts z+&qLg00ra(,Attendees qRy  n&L0raz+V *@q^N*@qV.*@qn *@qvf*@q~n*@qv*@q~*@q*@q*@q*@q0"*@q*@q(&q ="mraTransactions q GQ97  raz+*@q &q ="nra.Proceedings.1 q GQ9   raz+*@q STDSPPT z+"EngAdmin z+rHWang z+> *@q"*@qT*@qjL*@qSamanani z+T\*@q0Hoover z+j*@q\\Oke z+r*@q"Mabey z+*@qDGHowe z+*@qLah z+D*@q