COMPILATION LISTING OF SEGMENT rw_convert_and_move_row Compiled by: Multics PL/I Compiler, Release 31a, of October 12, 1988 Compiled at: Honeywell Bull, Phoenix AZ, SysM Compiled on: 10/24/88 1527.2 mst Mon Options: optimize map 1 /* *********************************************************** 2* * * 3* * Copyright, (C) Honeywell Information Systems Inc., 1984 * 4* * * 5* *********************************************************** */ 6 /* format: off */ 7 8 /* 9* 10* This is the subroutine called by the subsystem's table manager procedure 11* to have a row converted from other data types to character format, and 12* moved into the row value buffer. 13* 14* Known Bugs: 15* 16* Other Problems: 17* 18* History: 19* 20* Written - Al Dupuis - October 1984. 21* 22**/ 23 24 rw_convert_and_move_row: proc ( 25 26 report_control_ip_parm, /* input: points to report_control_info */ 27 value_ptrs_parm /* input: an array of value ptrs */ 28 ); 29 30 dcl report_control_ip_parm ptr parm; 31 dcl value_ptrs_parm (*) ptr; 32 33 report_cip = report_control_ip_parm; 34 35 call initialize; 36 call convert_the_row; 37 38 return; 39 40 convert_the_row: proc; 41 42 dcl ctr_column_value char (table_info.columns (ctr_loop).column_length) based; 43 dcl ctr_loop fixed bin; 44 dcl ctr_row_value char (table_info.row_value_length) based (table_info.row_value_ptr); 45 46 do ctr_loop = 1 to table_info.column_count; 47 character_descriptor_overlay.size 48 = table_info.columns (ctr_loop).column_length; 49 if table_info.columns (ctr_loop).column_data_type = character_descriptor 50 then substr (ctr_row_value, 51 table_info.columns (ctr_loop).column_index, 52 table_info.columns (ctr_loop).column_length) 53 = value_ptrs_parm (ctr_loop) -> ctr_column_value; 54 else do; 55 source_arg_descriptor_ptr 56 = addr (table_info.columns.column_data_type (ctr_loop)); 57 string_data_class 58 = ((source_arg_descriptor.type = bit_dtype) 59 | (source_arg_descriptor.type = varying_bit_dtype) 60 | (source_arg_descriptor.type = char_dtype) 61 | (source_arg_descriptor.type = varying_char_dtype)); 62 if string_data_class 63 then source_length = source_arg_descriptor.size; 64 else do; 65 encoded_precision_ptr -> encoded_precision.scale 66 = source_fixed_arg_descriptor.scale; 67 encoded_precision_ptr -> encoded_precision.prec 68 = source_fixed_arg_descriptor.precision; 69 end; 70 source_ptr = value_ptrs_parm (ctr_loop); 71 on any_other call handle_conditions; 72 call assign_$assign_round_ ( 73 addr (row_value_as_an_array (table_info.columns (ctr_loop).column_index)), 74 2 * character_descriptor_overlay.type + fixed (character_descriptor_overlay.packed), 75 fixed (character_descriptor_overlay.size, 35), 76 source_ptr, 77 2 * source_arg_descriptor.type + fixed (source_arg_descriptor.packed), 78 source_length); 79 end; 80 end; 81 82 return; 83 84 handle_conditions: proc; 85 86 dcl 1 hc_condition_info like condition_info; 87 dcl hc_loop fixed bin; 88 89 /* 90* These conditions defined in CONDITION_NAMES are the same ones that the 91* mrds module mu_convert.pl1 handles. The thinking is that it has been 92* out there for several releases handling conversions of the same data 93* types, so these must be the correct conditions to handle. 94**/ 95 96 condition_info_ptr = addr (hc_condition_info); 97 unspec (condition_info) = OFF; 98 condition_info.version = condition_info_version_1; 99 call find_condition_info_ (null, condition_info_ptr, (0)); 100 101 do hc_loop = 1 to hbound (CONDITION_NAMES, 1); 102 if condition_info.condition_name = CONDITION_NAMES (hc_loop) 103 then call ssu_$abort_line (sci_ptr, error_table_$unexpected_condition, 104 "^/The ^a condition occurred while trying to convert the^/^a column value.", 105 CONDITION_NAMES (hc_loop), table_info.columns (ctr_loop).column_name); 106 end; 107 108 call continue_to_signal_ ((0)); 109 110 return; 111 112 end handle_conditions; 113 114 end convert_the_row; 115 116 initialize: proc; 117 118 table_ip = report_control_info.table_information_ptr; 119 sci_ptr = report_control_info.subsystem_control_info_ptr; 120 encoded_precision_ptr = addr (source_length); 121 row_value_as_an_array_ptr = table_info.row_value_ptr; 122 character_descriptor_overlay_ptr = addr (character_descriptor); 123 character_descriptor_overlay.flag = "1"b; 124 character_descriptor_overlay.type = char_dtype; 125 character_descriptor_overlay.packed = "1"b; 126 character_descriptor_overlay.number_dims = 0; 127 character_descriptor_overlay.size = 0; 128 129 return; 130 131 end initialize; 132 133 dcl CONDITION_NAMES (7) char (32) varying internal static options (constant) init ( 134 "conversion", "error", "fixedoverflow", "illegal_procedure", 135 "overflow", "size", "underflow"); 136 137 dcl OFF bit (1) aligned internal static options (constant) init ("0"b); 138 139 dcl addr builtin; 140 dcl any_other condition; 141 dcl assign_$assign_round_ entry (ptr, fixed bin, fixed bin (35), ptr, fixed bin, fixed bin (35)); 142 143 dcl character_descriptor bit (36) aligned; 144 dcl 1 character_descriptor_overlay like arg_descriptor based (character_descriptor_overlay_ptr); 145 dcl character_descriptor_overlay_ptr ptr; 146 dcl continue_to_signal_ entry (fixed bin(35)); 147 148 dcl encoded_precision_ptr ptr; 149 dcl error_table_$unexpected_condition fixed bin(35) ext static; 150 151 dcl find_condition_info_ entry (ptr, ptr, fixed bin(35)); 152 dcl fixed builtin; 153 154 dcl hbound builtin; 155 156 dcl null builtin; 157 158 dcl row_value_as_an_array (table_info.row_value_length) char (1) based (row_value_as_an_array_ptr); 159 dcl row_value_as_an_array_ptr ptr; 160 161 dcl sci_ptr ptr; 162 dcl 1 source_arg_descriptor like arg_descriptor based (source_arg_descriptor_ptr); 163 dcl source_arg_descriptor_ptr ptr; 164 dcl 1 source_fixed_arg_descriptor like fixed_arg_descriptor based (source_arg_descriptor_ptr); 165 dcl source_length fixed bin (35); 166 dcl source_ptr ptr; 167 dcl ssu_$abort_line entry() options(variable); 168 dcl string_data_class bit (1) aligned; 169 dcl substr builtin; 170 171 dcl unspec builtin; 172 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 */ 173 174 2 1 /* BEGIN INCLUDE FILE ... condition_info.incl.pl1 */ 2 2 2 3 /* Structure for find_condition_info_. 2 4* 2 5* Written 1-Mar-79 by M. N. Davidoff. 2 6**/ 2 7 2 8 /* automatic */ 2 9 2 10 declare condition_info_ptr pointer; 2 11 2 12 /* based */ 2 13 2 14 declare 1 condition_info aligned based (condition_info_ptr), 2 15 2 mc_ptr pointer, /* pointer to machine conditions at fault time */ 2 16 2 version fixed binary, /* Must be 1 */ 2 17 2 condition_name char (32) varying, /* name of condition */ 2 18 2 info_ptr pointer, /* pointer to the condition data structure */ 2 19 2 wc_ptr pointer, /* pointer to wall crossing machine conditions */ 2 20 2 loc_ptr pointer, /* pointer to location where condition occured */ 2 21 2 flags unaligned, 2 22 3 crawlout bit (1), /* on if condition occured in lower ring */ 2 23 3 pad1 bit (35), 2 24 2 pad2 bit (36), 2 25 2 user_loc_ptr pointer, /* ptr to most recent nonsupport loc before condition occurred */ 2 26 2 pad3 (4) bit (36); 2 27 2 28 /* internal static */ 2 29 2 30 declare condition_info_version_1 2 31 fixed binary internal static options (constant) initial (1); 2 32 2 33 /* END INCLUDE FILE ... condition_info.incl.pl1 */ 175 176 3 1 /* BEGIN INCLUDE FILE ... encoded_precision.incl.pl1 3 2* 3 3* This is the format used by assign_ to encode the precision and scale of 3 4* arithmetic data into one word. This structure should be assigned (use unspec) 3 5* to a fixed bin (35). 3 6**/ 3 7 3 8 dcl 1 encoded_precision based aligned, 3 9 2 scale fixed bin (17) unal, 3 10 2 prec fixed bin (18) unsigned unal; 3 11 3 12 /* END INCLUDE FILE ... encoded_precision.incl.pl1 */ 177 178 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 */ 179 180 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 */ 181 182 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_001"); 6 23 6 24 /* END INCLUDE FILE view_master_table_info.incl.pl1 */ 183 184 7 1 /* BEGIN INCLUDE FILE ... std_descriptor_types.incl.pl1 */ 7 2 7 3 7 4 /****^ HISTORY COMMENTS: 7 5* 1) change(86-09-05,JMAthane), approve(86-09-05,MCR7525), 7 6* audit(86-09-11,Martinson), install(86-11-12,MR12.0-1208): 7 7* Added pascal_string_type_dtype descriptor type. Its number is 87. 7 8* Objects of this type are PASCAL string types. 7 9* 2) change(88-09-20,WAAnderson), approve(88-09-20,MCR7952), 7 10* audit(88-09-30,JRGray), install(88-10-24,MR12.2-1184): 7 11* Added the new C types. 7 12* END HISTORY COMMENTS */ 7 13 7 14 /* This include file defines mnemonic names for the Multics 7 15* standard descriptor types, using both pl1 and cobol terminology. 7 16* PG 780613 7 17* JRD 790530 7 18* JRD 791016 7 19* MBW 810731 7 20* TGO 830614 Add hex types. 7 21* Modified June 83 JMAthane to add PASCAL data types 7 22* TGO 840120 Add float dec extended and generic, float binary generic 7 23**/ 7 24 7 25 dcl (real_fix_bin_1_dtype init (1), 7 26 real_fix_bin_2_dtype init (2), 7 27 real_flt_bin_1_dtype init (3), 7 28 real_flt_bin_2_dtype init (4), 7 29 cplx_fix_bin_1_dtype init (5), 7 30 cplx_fix_bin_2_dtype init (6), 7 31 cplx_flt_bin_1_dtype init (7), 7 32 cplx_flt_bin_2_dtype init (8), 7 33 real_fix_dec_9bit_ls_dtype init (9), 7 34 real_flt_dec_9bit_dtype init (10), 7 35 cplx_fix_dec_9bit_ls_dtype init (11), 7 36 cplx_flt_dec_9bit_dtype init (12), 7 37 pointer_dtype init (13), 7 38 offset_dtype init (14), 7 39 label_dtype init (15), 7 40 entry_dtype init (16), 7 41 structure_dtype init (17), 7 42 area_dtype init (18), 7 43 bit_dtype init (19), 7 44 varying_bit_dtype init (20), 7 45 char_dtype init (21), 7 46 varying_char_dtype init (22), 7 47 file_dtype init (23), 7 48 real_fix_dec_9bit_ls_overp_dtype init (29), 7 49 real_fix_dec_9bit_ts_overp_dtype init (30), 7 50 real_fix_bin_1_uns_dtype init (33), 7 51 real_fix_bin_2_uns_dtype init (34), 7 52 real_fix_dec_9bit_uns_dtype init (35), 7 53 real_fix_dec_9bit_ts_dtype init (36), 7 54 real_fix_dec_4bit_uns_dtype init (38), /* digit-aligned */ 7 55 real_fix_dec_4bit_ts_dtype init (39), /* byte-aligned */ 7 56 real_fix_dec_4bit_bytealigned_uns_dtype init (40), /* COBOL */ 7 57 real_fix_dec_4bit_ls_dtype init (41), /* digit-aligned */ 7 58 real_flt_dec_4bit_dtype init (42), /* digit-aligned */ 7 59 real_fix_dec_4bit_bytealigned_ls_dtype init (43), 7 60 real_flt_dec_4bit_bytealigned_dtype init (44), 7 61 cplx_fix_dec_4bit_bytealigned_ls_dtype init (45), 7 62 cplx_flt_dec_4bit_bytealigned_dtype init (46), 7 63 real_flt_hex_1_dtype init (47), 7 64 real_flt_hex_2_dtype init (48), 7 65 cplx_flt_hex_1_dtype init (49), 7 66 cplx_flt_hex_2_dtype init (50), 7 67 c_typeref_dtype init (54), 7 68 c_enum_dtype init (55), 7 69 c_enum_const_dtype init (56), 7 70 c_union_dtype init (57), 7 71 algol68_straight_dtype init (59), 7 72 algol68_format_dtype init (60), 7 73 algol68_array_descriptor_dtype init (61), 7 74 algol68_union_dtype init (62), 7 75 7 76 cobol_comp_6_dtype init (1), 7 77 cobol_comp_7_dtype init (1), 7 78 cobol_display_ls_dtype init (9), 7 79 cobol_structure_dtype init (17), 7 80 cobol_char_string_dtype init (21), 7 81 cobol_display_ls_overp_dtype init (29), 7 82 cobol_display_ts_overp_dtype init (30), 7 83 cobol_display_uns_dtype init (35), 7 84 cobol_display_ts_dtype init (36), 7 85 cobol_comp_8_uns_dtype init (38), /* digit aligned */ 7 86 cobol_comp_5_ts_dtype init (39), /* byte aligned */ 7 87 cobol_comp_5_uns_dtype init (40), 7 88 cobol_comp_8_ls_dtype init (41), /* digit aligned */ 7 89 real_flt_dec_extended_dtype init (81), /* 9-bit exponent */ 7 90 cplx_flt_dec_extended_dtype init (82), /* 9-bit exponent */ 7 91 real_flt_dec_generic_dtype init (83), /* generic float decimal */ 7 92 cplx_flt_dec_generic_dtype init (84), 7 93 real_flt_bin_generic_dtype init (85), /* generic float binary */ 7 94 cplx_flt_bin_generic_dtype init (86)) fixed bin internal static options (constant); 7 95 7 96 dcl (ft_integer_dtype init (1), 7 97 ft_real_dtype init (3), 7 98 ft_double_dtype init (4), 7 99 ft_complex_dtype init (7), 7 100 ft_complex_double_dtype init (8), 7 101 ft_external_dtype init (16), 7 102 ft_logical_dtype init (19), 7 103 ft_char_dtype init (21), 7 104 ft_hex_real_dtype init (47), 7 105 ft_hex_double_dtype init (48), 7 106 ft_hex_complex_dtype init (49), 7 107 ft_hex_complex_double_dtype init (50) 7 108 ) fixed bin internal static options (constant); 7 109 7 110 dcl (algol68_short_int_dtype init (1), 7 111 algol68_int_dtype init (1), 7 112 algol68_long_int_dtype init (2), 7 113 algol68_real_dtype init (3), 7 114 algol68_long_real_dtype init (4), 7 115 algol68_compl_dtype init (7), 7 116 algol68_long_compl_dtype init (8), 7 117 algol68_bits_dtype init (19), 7 118 algol68_bool_dtype init (19), 7 119 algol68_char_dtype init (21), 7 120 algol68_byte_dtype init (21), 7 121 algol68_struct_struct_char_dtype init (22), 7 122 algol68_struct_struct_bool_dtype init (20) 7 123 ) fixed bin internal static options (constant); 7 124 7 125 dcl (label_constant_runtime_dtype init (24), 7 126 int_entry_runtime_dtype init (25), 7 127 ext_entry_runtime_dtype init (26), 7 128 ext_procedure_runtime_dtype init (27), 7 129 picture_runtime_dtype init (63) 7 130 ) fixed bin internal static options (constant); 7 131 7 132 dcl (pascal_integer_dtype init (1), 7 133 pascal_real_dtype init (4), 7 134 pascal_label_dtype init (24), 7 135 pascal_internal_procedure_dtype init (25), 7 136 pascal_exportable_procedure_dtype init (26), 7 137 pascal_imported_procedure_dtype init (27), 7 138 pascal_typed_pointer_type_dtype init (64), 7 139 pascal_char_dtype init (65), 7 140 pascal_boolean_dtype init (66), 7 141 pascal_record_file_type_dtype init (67), 7 142 pascal_record_type_dtype init (68), 7 143 pascal_set_dtype init (69), 7 144 pascal_enumerated_type_dtype init (70), 7 145 pascal_enumerated_type_element_dtype init (71), 7 146 pascal_enumerated_type_instance_dtype init (72), 7 147 pascal_user_defined_type_dtype init (73), 7 148 pascal_user_defined_type_instance_dtype init (74), 7 149 pascal_text_file_dtype init (75), 7 150 pascal_procedure_type_dtype init (76), 7 151 pascal_variable_formal_parameter_dtype init (77), 7 152 pascal_value_formal_parameter_dtype init (78), 7 153 pascal_entry_formal_parameter_dtype init (79), 7 154 pascal_parameter_procedure_dtype init (80), 7 155 pascal_string_type_dtype init (87)) fixed bin int static options (constant); 7 156 7 157 7 158 /* END INCLUDE FILE ... std_descriptor_types.incl.pl1 */ 185 186 187 end rw_convert_and_move_row; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 10/24/88 1400.3 rw_convert_and_move_row.pl1 >special_ldd>install>MR12.2-1184>rw_convert_and_move_row.pl1 173 1 11/02/83 1845.0 arg_descriptor.incl.pl1 >ldd>include>arg_descriptor.incl.pl1 175 2 06/28/79 1204.8 condition_info.incl.pl1 >ldd>include>condition_info.incl.pl1 177 3 07/11/79 1711.3 encoded_precision.incl.pl1 >ldd>include>encoded_precision.incl.pl1 179 4 11/16/84 1418.1 rw_options_extents.incl.pl1 >ldd>include>rw_options_extents.incl.pl1 181 5 11/16/84 1418.0 rw_report_info.incl.pl1 >ldd>include>rw_report_info.incl.pl1 183 6 11/16/84 1418.0 rw_table_info.incl.pl1 >ldd>include>rw_table_info.incl.pl1 185 7 10/24/88 1336.9 std_descriptor_types.incl.pl1 >special_ldd>install>MR12.2-1184>std_descriptor_types.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. CONDITION_NAMES 000000 constant varying char(32) initial array dcl 133 set ref 101 102 102* NUMBER_OF_GENERAL_COLUMN_OPTIONS_IN_TABLE internal static fixed bin(17,0) initial dcl 4-20 ref 5-7 NUMBER_OF_GENERAL_REPORT_OPTIONS_IN_TABLE internal static fixed bin(17,0) initial dcl 4-21 ref 5-7 OFF constant bit(1) initial dcl 137 ref 97 addr builtin function dcl 139 ref 55 72 72 96 120 122 any_other 000000 stack reference condition dcl 140 ref 71 arg_descriptor based structure level 1 dcl 1-6 assign_$assign_round_ 000010 constant entry external dcl 141 ref 72 bit_dtype constant fixed bin(17,0) initial dcl 7-25 ref 57 char_dtype constant fixed bin(17,0) initial dcl 7-25 ref 57 124 character_descriptor 000100 automatic bit(36) dcl 143 set ref 49 122 character_descriptor_overlay based structure level 1 packed packed unaligned dcl 144 character_descriptor_overlay_ptr 000102 automatic pointer dcl 145 set ref 47 72 72 72 72 122* 123 124 125 126 127 column_count 2 based fixed bin(17,0) level 2 dcl 6-7 ref 46 column_data_type 33 based bit(36) array level 3 dcl 6-7 set ref 49 55 column_index 35 based fixed bin(21,0) array level 3 dcl 6-7 ref 49 72 72 column_length 34 based fixed bin(21,0) array level 3 dcl 6-7 ref 47 49 49 column_name 10 based varying char(69) array level 3 dcl 6-7 set ref 102* columns 10 based structure array level 2 dcl 6-7 condition_info based structure level 1 dcl 2-14 set ref 97* condition_info_ptr 000122 automatic pointer dcl 2-10 set ref 96* 97 98 99* 102 condition_info_version_1 constant fixed bin(17,0) initial dcl 2-30 ref 98 condition_name 3 based varying char(32) level 2 dcl 2-14 set ref 102 continue_to_signal_ 000012 constant entry external dcl 146 ref 108 ctr_column_value based char packed unaligned dcl 42 ref 49 ctr_loop 000100 automatic fixed bin(17,0) dcl 43 set ref 46* 47 49 49 49 49 49 55 70 72 72* 102 ctr_row_value based char packed unaligned dcl 44 set ref 49* encoded_precision based structure level 1 dcl 3-8 encoded_precision_ptr 000104 automatic pointer dcl 148 set ref 65 67 120* error_table_$unexpected_condition 000014 external static fixed bin(35,0) dcl 149 set ref 102* extended_arg_type 000121 automatic fixed bin(17,0) initial dcl 1-36 set ref 1-36* find_condition_info_ 000016 constant entry external dcl 151 ref 99 fixed builtin function dcl 152 ref 72 72 72 72 fixed_arg_descriptor based structure level 1 dcl 1-13 flag based bit(1) level 2 packed packed unaligned dcl 144 set ref 123* hbound builtin function dcl 154 ref 101 hc_condition_info 000106 automatic structure level 1 unaligned dcl 86 set ref 96 hc_loop 000140 automatic fixed bin(17,0) dcl 87 set ref 101* 102 102* null builtin function dcl 156 ref 5-61 99 99 number_dims 0(08) based fixed bin(4,0) level 2 packed packed unsigned unaligned dcl 144 set ref 126* packed 0(07) based bit(1) level 2 in structure "character_descriptor_overlay" packed packed unaligned dcl 144 in procedure "rw_convert_and_move_row" set ref 72 125* packed 0(07) based bit(1) level 2 in structure "source_arg_descriptor" packed packed unaligned dcl 162 in procedure "rw_convert_and_move_row" ref 72 prec 0(18) based fixed bin(18,0) level 2 packed packed unsigned unaligned dcl 3-8 set ref 67* precision 0(24) based fixed bin(12,0) level 2 packed packed unsigned unaligned dcl 164 ref 67 report_cip 000124 automatic pointer initial dcl 5-61 set ref 33* 5-61* 118 119 report_control_info based structure level 1 dcl 5-7 report_control_ip_parm parameter pointer dcl 30 ref 24 33 row_value_as_an_array based char(1) array packed unaligned dcl 158 set ref 72 72 row_value_as_an_array_ptr 000106 automatic pointer dcl 159 set ref 72 72 121* row_value_length 5 based fixed bin(21,0) level 2 dcl 6-7 ref 49 row_value_ptr 6 based pointer level 2 dcl 6-7 ref 49 121 scale based fixed bin(17,0) level 2 in structure "encoded_precision" packed packed unaligned dcl 3-8 in procedure "rw_convert_and_move_row" set ref 65* scale 0(12) based fixed bin(11,0) level 2 in structure "source_fixed_arg_descriptor" packed packed unaligned dcl 164 in procedure "rw_convert_and_move_row" ref 65 sci_ptr 000110 automatic pointer dcl 161 set ref 102* 119* size 0(12) based fixed bin(24,0) level 2 in structure "character_descriptor_overlay" packed packed unsigned unaligned dcl 144 in procedure "rw_convert_and_move_row" set ref 47* 72 72 127* size 0(12) based fixed bin(24,0) level 2 in structure "source_arg_descriptor" packed packed unsigned unaligned dcl 162 in procedure "rw_convert_and_move_row" ref 62 source_arg_descriptor based structure level 1 packed packed unaligned dcl 162 source_arg_descriptor_ptr 000112 automatic pointer dcl 163 set ref 55* 57 57 57 57 62 65 67 72 72 source_fixed_arg_descriptor based structure level 1 packed packed unaligned dcl 164 source_length 000114 automatic fixed bin(35,0) dcl 165 set ref 62* 72* 120 source_ptr 000116 automatic pointer dcl 166 set ref 70* 72* ssu_$abort_line 000020 constant entry external dcl 167 ref 102 string_data_class 000120 automatic bit(1) dcl 168 set ref 57* 62 substr builtin function dcl 169 set ref 49* subsystem_control_info_ptr 16 based pointer level 2 dcl 5-7 ref 119 table_info based structure level 1 dcl 6-7 table_information_ptr 4 based pointer level 2 dcl 5-7 ref 118 table_ip 000126 automatic pointer dcl 6-20 set ref 46 47 49 49 49 49 49 49 55 72 72 102 118* 121 type 0(01) based fixed bin(6,0) level 2 in structure "source_arg_descriptor" packed packed unsigned unaligned dcl 162 in procedure "rw_convert_and_move_row" ref 57 57 57 57 72 type 0(01) based fixed bin(6,0) level 2 in structure "character_descriptor_overlay" packed packed unsigned unaligned dcl 144 in procedure "rw_convert_and_move_row" set ref 72 124* unspec builtin function dcl 171 set ref 97* value_ptrs_parm parameter pointer array dcl 31 ref 24 49 70 varying_bit_dtype constant fixed bin(17,0) initial dcl 7-25 ref 57 varying_char_dtype constant fixed bin(17,0) initial dcl 7-25 ref 57 version 2 based fixed bin(17,0) level 2 dcl 2-14 set ref 98* NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. 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) initia dskf_13 4T  QÉdskf_13.acs \  dskf_14 4T  UÈdskf_14.acs ˜  dskf_15 4T  Xkdskf_15.acs Ô  dskf_16 5T  [Œdskf_16.acs   dskf_17 5T  ^…dskf_17.acs L  dskf_18 5T  a¬dskf_18.acs ˆ  dskf_19 5T  edskf_19.acs Ä  dskf_20 5T  hˆdskf_20.acs   dskf_21 5T  k:dskf_21.acs <  dskf_22 5T  odskf_22.acs x  dskf_23 5T  r*dskf_23.acs ´  dskf_24 5T  vfdskf_24.acs ð  dskf_25 5T  y×dskf_25.acs ,  dskf_26 5T  }vdskf_26.acs h  dskf_27 5T  Cdskf_27.acs ¤  dskf_28 5T  …>dskf_28.acs à  dskf_29 5T  Œ—dskf_29.acs   eal_dtype internal static fixed bin(17,0) initial dcl 7-110 algol68_short_int_dtype internal static fixed bin(17,0) initial dcl 7-110 algol68_straight_dtype internal static fixed bin(17,0) initial dcl 7-25 algol68_struct_struct_bool_dtype internal static fixed bin(17,0) initial dcl 7-110 algol68_struct_struct_char_dtype internal static fixed bin(17,0) initial dcl 7-110 algol68_union_dtype internal static fixed bin(17,0) initial dcl 7-25 area_dtype internal static fixed bin(17,0) initial dcl 7-25 arg_descriptor_ptr automatic pointer dcl 1-34 c_enum_const_dtype internal static fixed bin(17,0) initial dcl 7-25 c_enum_dtype internal static fixed bin(17,0) initial dcl 7-25 c_typeref_dtype internal static fixed bin(17,0) initial dcl 7-25 c_union_dtype internal static fixed bin(17,0) initial dcl 7-25 cobol_char_string_dtype internal static fixed bin(17,0) initial dcl 7-25 cobol_comp_5_ts_dtype internal static fixed bin(17,0) initial dcl 7-25 cobol_comp_5_uns_dtype internal static fixed bin(17,0) initial dcl 7-25 cobol_comp_6_dtype internal static fixed bin(17,0) initial dcl 7-25 cobol_comp_7_dtype internal static fixed bin(17,0) initial dcl 7-25 cobol_comp_8_ls_dtype internal static fixed bin(17,0) initial dcl 7-25 cobol_comp_8_uns_dtype internal static fixed bin(17,0) initial dcl 7-25 cobol_display_ls_dtype internal static fixed bin(17,0) initial dcl 7-25 cobol_display_ls_overp_dtype internal static fixed bin(17,0) initial dcl 7-25 cobol_display_ts_dtype internal static fixed bin(17,0) initial dcl 7-25 cobol_display_ts_overp_dtype internal static fixed bin(17,0) initial dcl 7-25 cobol_display_uns_dtype internal static fixed bin(17,0) initial dcl 7-25 cobol_structure_dtype internal static fixed bin(17,0) initial dcl 7-25 cplx_fix_bin_1_dtype internal static fixed bin(17,0) initial dcl 7-25 cplx_fix_bin_2_dtype internal static fixed bin(17,0) initial dcl 7-25 cplx_fix_dec_4bit_bytealigned_ls_dtype internal static fixed bin(17,0) initial dcl 7-25 cplx_fix_dec_9bit_ls_dtype internal static fixed bin(17,0) initial dcl 7-25 cplx_flt_bin_1_dtype internal static fixed bin(17,0) initial dcl 7-25 cplx_flt_bin_2_dtype internal static fixed bin(17,0) initial dcl 7-25 cplx_flt_bin_generic_dtype internal static fixed bin(17,0) initial dcl 7-25 cplx_flt_dec_4bit_bytealigned_dtype internal static fixed bin(17,0) initial dcl 7-25 cplx_flt_dec_9bit_dtype internal static fixed bin(17,0) initial dcl 7-25 cplx_flt_dec_extended_dtype internal static fixed bin(17,0) initial dcl 7-25 cplx_flt_dec_generic_dtype internal static fixed bin(17,0) initial dcl 7-25 cplx_flt_hex_1_dtype internal static fixed bin(17,0) initial dcl 7-25 cplx_flt_hex_2_dtype internal static fixed bin(17,0) initial dcl 7-25 entry_dtype internal static fixed bin(17,0) initial dcl 7-25 ext_entry_runtime_dtype internal static fixed bin(17,0) initial dcl 7-125 ext_procedure_runtime_dtype internal static fixed bin(17,0) initial dcl 7-125 extended_arg_descriptor based structure level 1 dcl 1-21 file_dtype +Tº@m¶».FÖxT  ÛR(´Uê/‚² ÿÿê1¾Ä ÿÿ¡@tape_drive Ðx,disk_drive x,console œx,printer „, punch ,°reader ,°special Øx,mca Àx,opca  ÉT  Zopca.acs  dskf T  3ádskf.acs ”  dskf_00 4T  4¤dskf_00.acs P  dskf_01 4T  5ãdskf_01.acs Œ  dskf_02 4T  7dskf_02.acs È  dskf_03 4T  9~dskf_03.acs   dskf_04 4T  ;dskf_04.acs @  dskf_05 4T  <×dskf_05.acs |  dskf_06 4T  >Édskf_06.acs ¸  dskf_07 4T  @ïdskf_07.acs ô  dskf_08 4T  C@dskf_08.acs 0  dskf_09 4T  EÂdskf_09.acs l  dskf_10 4T  Gtdskf_10.acs ¨  dskf_11 4T  JPdskf_11.acs ä  dskf_12 4T  O†dskf_12.acs   l dcl 7-125 pointer_dtype internal static fixed bin(17,0) initial dcl 7-25 real_fix_bin_1_dtype internal static fixed bin(17,0) initial dcl 7-25 real_fix_bin_1_uns_dtype internal static fixed bin(17,0) initial dcl 7-25 real_fix_bin_2_dtype internal static fixed bin(17,0) initial dcl 7-25 real_fix_bin_2_uns_dtype internal static fixed bin(17,0) initial dcl 7-25 real_fix_dec_4bit_bytealigned_ls_dtype internal static fixed bin(17,0) initial dcl 7-25 real_fix_dec_4bit_bytealigned_uns_dtype internal static fixed bin(17,0) initial dcl 7-25 real_fix_dec_4bit_ls_dtype internal static fixed bin(17,0) initial dcl 7-25 real_fix_dec_4bit_ts_dtype internal static fixed bin(17,0) initial dcl 7-25 real_fix_dec_4bit_uns_dtype internal static fixed bin(17,0) initial dcl 7-25 real_fix_dec_9bit_ls_dtype internal static fixed bin(17,0) initial dcl 7-25 real_fix_dec_9bit_ls_overp_dtype internal static fixed bin(17,0) initial dcl 7-25 real_fix_dec_9bit_ts_dtype internal static fixed bin(17,0) initial dcl 7-25 real_fix_dec_9bit_ts_overp_dtype internal static fixed bin(17,0) initial dcl 7-25 real_fix_dec_9bit_uns_dtype internal static fixed bin(17,0) initial dcl 7-25 real_flt_bin_1_dtype internal static fixed bin(17,0) initial dcl 7-25 real_flt_bin_2_dtype internal static fixed bin(17,0) initial dcl 7-25 real_flt_bin_generic_dtype internal static fixed bin(17,0) initial dcl 7-25 real_flt_dec_4bit_bytealigned_dtype internal static fixed bin(17,0) initial dcl 7-25 real_flt_dec_4bit_dtype internal static fixed bin(17,0) initial dcl 7-25 real_flt_dec_9bit_dtype internal static fixed bin(17,0) initial dcl 7-25 real_flt_dec_extended_dtype internal static fixed bin(17,0) initial dcl 7-25 real_flt_dec_generic_dtype internal static fixed bin(17,0) initial dcl 7-25 real_flt_hex_1_dtype internal static fixed bin(17,0) initial dcl 7-25 real_flt_hex_2_dtype internal static fixed bin(17,0) initial dcl 7-25 structure_dtype internal static fixed bin(17,0) initial dcl 7-25 ti_init_column_count automatic fixed bin(17,0) dcl 6-21 NAMES DECLARED BY EXPLICIT CONTEXT. convert_the_row 000170 constant entry internal dcl 40 ref 36 handle_conditions 000456 constant entry internal dcl 84 ref 71 initialize 000607 constant entry internal dcl 116 ref 35 rw_convert_and_move_row 000144 constant entry external dcl 24 THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 772 1014 647 1002 Length 1346 647 22 315 123 0 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME rw_convert_and_move_row 94 external procedure is an external procedure. convert_the_row 94 internal procedure enables or reverts conditions. on unit on line 71 152 on unit handle_conditions internal procedure shares stack frame of on unit on line 71. initialize internal procedure shares stack frame of external procedure rw_convert_and_move_row. STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME convert_the_row 000100 ctr_loop convert_the_row on unit on line 71 000106 hc_condition_info handle_conditions 000140 hc_loop handle_conditions rw_convert_and_move_row 000100 character_descriptor rw_convert_and_move_row 000102 character_descriptor_overlay_ptr rw_convert_and_move_row 000104 encoded_precision_ptr rw_convert_and_move_row 000106 row_value_as_an_array_ptr rw_convert_and_move_row 000110 sci_ptr rw_convert_and_move_row 000112 source_arg_descriptor_ptr rw_convert_and_move_row 000114 source_length rw_convert_and_move_row 000116 source_ptr rw_convert_and_move_row 000120 string_data_class rw_convert_and_move_row 000121 extended_arg_type rw_convert_and_move_row 000122 condition_info_ptr rw_convert_and_move_row 000124 report_cip rw_convert_and_move_row 000126 table_ip rw_convert_and_move_row THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. r_e_as call_ext_out_desc call_ext_out call_int_this return_mac enable_op ext_entry_desc int_entry THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. assign_$assign_round_ continue_to_signal_ find_condition_info_ ssu_$abort_line THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. error_table_$unexpected_condition LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 24 000140 1 36 000151 5 61 000153 33 000155 35 000161 36 000162 38 000166 40 000167 46 000175 47 000207 49 000222 55 000251 57 000253 62 000277 65 000310 67 000317 70 000327 71 000343 72 000361 80 000453 82 000455 84 000456 96 000457 97 000463 98 000466 99 000471 101 000507 102 000515 106 000574 108 000576 110 000606 116 000607 118 000610 119 000613 120 000616 121 000620 122 000622 123 000624 124 000627 125 000634 126 000637 127 000642 129 000645 ----------------------------------------------------------- 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