THIS FILE IS DAMAGED eLNj8  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 Ko  n p@!qBrunelle Multics P#h_Q 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;脁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 ----------------------------------------------------------- Historical Background This edition of the Multics software materials and documentation is provided and donated to Massachusetts Institute of Technology by Group BULL including BULL HN Information Systems Inc. as a contribution to computer science knowledge. This donation is made also to give evidence of the common contributions of Massachusetts Institute of Technology, Bell Laboratories, General Electric, Honeywell Information Systems Inc., Honeywell BULL Inc., Groupe BULL and BULL HN Information Systems Inc. to the development of this operating system. Multics development was initiated by Massachusetts Institute of Technology Project MAC (1963-1970), renamed the MIT Laboratory for Computer Science and Artificial Intelligence in the mid 1970s, under the leadership of Professor Fernando Jose Corbato. Users consider that Multics provided the best software architecture for managing computer hardware properly and for executing programs. Many subsequent operating systems incorporated Multics principles. Multics was distributed in 1975 to 2000 by Group Bull in Europe , and in the U.S. by Bull HN Information Systems Inc., as successor in interest by change in name only to Honeywell Bull Inc. and Honeywell Information Systems Inc. . ----------------------------------------------------------- Permission to use, copy, modify, and distribute these programs and their documentation for any purpose and without fee is hereby granted,provided that the below copyright notice and historical background appear in all copies and that both the copyright notice and historical background and this permission notice appear in supporting documentation, and that the names of MIT, HIS, BULL or BULL HN not be used in advertising or publicity pertaining to distribution of the programs without specific prior written permission. Copyright 1972 by Massachusetts Institute of Technology and Honeywell Information Systems Inc. Copyright 2006 by BULL HN Information Systems Inc. Copyright 2006 by Bull SAS All Rights Reserved