THIS FILE IS DAMAGED COMPILATION LISTING OF SEGMENT rlm_get_description Compiled by: Multics PL/I Compiler, Release 28d, of October 4, 1983 Compiled at: Honeywell Multics Op. - System M Compiled on: 01/03/85 1623.3 mst Thu Options: optimize list 1 /* *********************************************************** 2* * * 3* * Copyright, (C) Honeywell Information Systems Inc., 1982 * 4* * * 5* *********************************************************** */ 6 7 8 /* DESCRIPTION: 9* 10* Return a description of the specified relation. The relation must 11* be open, and the description is based solely on the relation's opening 12* information (relation_opening_info, attribute_info, relation_header and 13* index_attribute_map). 14**/ 15 16 /* HISTORY: 17* 18*Written by Matthew Pierret, 09/22/82. 19*Modified: 20*12/09/82 by Matthew Pierret: Added setting of record_collection_id. 21* Changed to RELATION_DESCRIPTION_VERSION_2. 22*02/18/83 by Matthew Pierret: Changed to RELATION_DESCRIPTION_VERSION_3, 23* which contains attribute names. Currently attribute names are 24* not supported in index_attribute_map, so a canonical name "x" 25* is returned for all attributes. 26*03/01/83 by Matthew Pieret: Changed to use relation_opening_info instead of 27* relation_info. 28*05/29/84 by Matthew Pierret: Changed to use RELATION_HEADER_VERSION_3. 29*11/01/84 by Stanford S. Cox: LOOP_OVER_INDICES: Changed to use hbound of rel_dscp 30* instead of iam. FINISH: Added as cleanup handler. 31* CV: Added unique var prefix, removed dup var dcls. 32**/ 33 34 /* format: style2,ind3 */ 35 36 rlm_get_description: 37 proc (p_rel_opening_id, p_work_area_ptr, p_relation_description_ptr, p_code); 38 39 40 /* START OF DECLARATIONS */ 41 /* Parameter */ 42 43 dcl p_rel_opening_id bit (36) aligned parameter; 44 dcl p_work_area_ptr ptr parameter; 45 dcl p_relation_description_ptr 46 ptr parameter; 47 dcl p_code fixed bin (35) parameter; 48 49 /* Automatic */ 50 51 dcl attribute_idx fixed bin (17); 52 dcl description_index_idx fixed bin (17); 53 dcl index_attribute_idx fixed bin (17); 54 dcl iam_index_idx fixed bin (17); 55 56 dcl based_descriptor_string_ptr 57 ptr; 58 59 /* Based */ 60 61 dcl p_work_area area (sys_info$max_seg_size) based (p_work_area_ptr); 62 dcl based_descriptor_string 63 bit (36) aligned based (based_descriptor_string_ptr); 64 65 /* Builtin */ 66 67 dcl (hbound, null, string) builtin; 68 69 /* Constant */ 70 71 dcl myname init ("rlm_get_description") char (19) internal static options (constant); 72 73 /* Condition */ 74 75 dcl cleanup condition; 76 77 /* Entry */ 78 79 dcl rlm_opening_info$get entry (bit (36) aligned, ptr, fixed bin (35)); 80 dcl sub_err_ entry () options (variable); 81 82 /* External */ 83 84 dcl error_table_$unimplemented_version 85 ext fixed bin (35); 86 dcl sys_info$max_seg_size ext fixed bin (35); 87 88 /* END OF DECLARATIONS */ 89 90 p_relation_description_ptr, relation_desȲJSmith rBv rBv JSmith PLASTICS QnoneWY50_80C Qj2XcLofthouse ,> Lofthouse Multics T}[ T{@`fnb @B Barnecut nb UOFC K ksK& ron ҈$f*then free relation_description; 163 end; 164 165 CHECK_VERSION: 166 proc (cv_p_structure_name, cv_p_received_version, cv_p_expected_version); 167 168 dcl cv_p_received_version char (8) aligned; 169 dcl cv_p_expected_version char (8) aligned; 170 dcl cv_p_structure_name char (*); 171 172 if cv_p_received_version ^= cv_p_expected_version 173 then call sub_err_ (error_table_$unimplemented_version, myname, ACTION_CANT_RESTART, null, 0, 174 "^/Expected version ^8a of the ^a structure. 175 Received version ^8a, instead.", cv_p_expected_version, cv_p_structure_name, cv_p_received_version); 176 177 end CHECK_VERSION; 178 1 1 /* BEGIN INCLUDE FILE - dm_rlm_opening_info.incl.pl1 */ 1 2 1 3 /* Written by Matthew Pierret, 09/08/82. 1 4*Modified: 1 5*01/18/83 by Matthew Pierret: Changed version to be char (8). Added 1 6* transaction_id. 1 7*02/25/83 by Matthew Pierret: Changed to relation_opening_info (from 1 8* relation_info). 1 9*10/29/84 by Stanford S. Cox: Changed to not init version. 1 10**/ 1 11 1 12 1 13 /* format: style2,ind3 */ 1 14 1 15 dcl 1 relation_opening_info 1 16 aligned based (relation_opening_info_ptr), 1 17 2 version char (8), 1 18 2 per_process, 1 19 3 current_transaction_id 1 20 bit (36) aligned init ("0"b), 1 21 3 current_rollback_count 1 22 fixed bin (35) init (0), 1 23 3 file_opening_id bit (36) aligned init ("0"b), 1 24 3 number_of_openings 1 25 fixed bin (17) aligned init (0), 1 26 3 lock_advice aligned, 1 27 4 this_process bit (2) unaligned init ("0"b), 1 28 4 other_processes 1 29 bit (2) unaligned init ("0"b), 1 30 4 mbz1 bit (32) unaligned init ("0"b), 1 31 3 record_cursor_ptr 1 32 ptr init (null), 1 33 3 index_cursor_array_ptr 1 34 ptr init (null), 1 35 2 relation_header_ptr 1 36 ptr init (null), 1 37 2 attribute_info_ptr ptr init (null), 1 38 2 index_attribute_map_ptr 1 39 ptr init (null); 1 40 1 41 dcl relation_opening_info_ptr 1 42 ptr; 1 43 dcl RELATION_OPENING_INFO_VERSION_2 1 44 init ("rlmopen2") char (8) aligned internal static options (constant); 1 45 1 46 1 47 /* END INCLUDE FILE - dm_rlm_opening_info.incl.pl1 */ 179 180 2 1 /* BEGIN INCLUDE FILE - dm_rlm_header.incl.pl1 */ 2 2 2 3 /* HISTORY: 2 4*Written by Matthew Pierret, 1982. 2 5*Modified: 2 6*02/25/83 by Matthew Pierret: Added attribute_info_element_id, 2 7* header_info_update_count, RELATION_HEADER_VERSION_2. 2 8*05/29/84 by Matthew Pierret: Added caller_header_element_id, 2 9* RELATION_HEADER_VERSION_3. 2 10*10/29/84 by Stanford S. Cox: Changed to not init version. 2 11**/ 2 12 2 13 /* format: style2,ind3 */ 2 14 2 15 dcl 1 relation_header aligned based (relation_header_ptr), 2 16 2 version char (8), 2 17 2 header_info_update_count 2 18 fixed bin (35) aligned init (0), 2 19 2 record_collection_id 2 20 bit (36) aligned init ("0"b), 2 21 2 cluster_index_id bit (36) aligned init ("0"b), 2 22 2 attribute_info_element_id 2 23 bit (36) aligned init ("0"b), 2 24 2 index_attribute_map_element_id 2 25 bit (36) aligned init ("0"b), 2 26 2 caller_header_element_id 2 27 bit (36) aligned init ("0"b); 2 28 2 29 dcl relation_header_ptr ptr init (null); 2 30 dcl RELATION_HEADER_VERSION_3 2 31 init ("RelHdr 3") char (8) aligned internal static options (constant); 2 32 2 33 /* END INCLUDE FILE - dm_rlm_header.incl.pl1 */ 181 182 3 1 /* BEGIN INCLUDE FILE dm_rlm_attribute_info.incl.pl1 */ 3 2 3 3 /* DESCRIPTION 3 4* 3 5* Relation attributes descriptor and name. This info is kept in the header 3 6* collection of existing files, therefore this incl should not be changed. 3 7**/ 3 8 3 9 /* HISTORY: 3 10*Written by Matthew Pierret, 02/25/83. 3 11*Modified: 3 12*10/29/84 by Stanford S. Cox: Changed to not init version. 3 13*12/14/84 by Stanford S. Cox: Backed out previous structure alignment changes 3 14* which were incompatible with existing DM files. 3 15**/ 3 16 3 17 /* format: style2,ind3 */ 3 18 dcl 1 attribute_info aligned based (attribute_info_ptr), 3 19 2 version char (8), 3 20 2 number_of_attributes 3 21 fixed bin (17) unal, 3 22 2 maximum_attribute_name_length 3 23 fixed bin (17) unal, 3 24 2 attribute (ai_number_of_attributes refer (attribute_info.number_of_attributes)), 3 25 3 descriptor bit (36) aligned, 3 26 3 name char (ai_maximum_attribute_name_length 3 27 refer (attribute_info.maximum_attribute_name_length)) varying; 3 28 3 29 dcl attribute_info_ptr ptr init (null); 3 30 dcl ai_maximum_attribute_name_length 3 31 fixed bin (17); 3 32 dcl ai_number_of_attributes 3 33 fixed bin (17); 3 34 dcl ATTRIBUTE_INFO_VERSION_1 3 35 init ("attrinf1") char (8) aligned internal static options (constant); 3 36 3 37 /* END INCLUDE FILE dm_rlm_attribute_info.incl.pl1 */ 3 38 183 184 4 1 /* BEGIN INCLUDE FILE - dm_rlm_index_attr_map.incl.pl1 */ 4 2 4 3 /* DESCRIPTION 4 4* 4 5* Relation index components. This info is kept in the header 4 6* collection of existing files, therefore this incl should not be changed. 4 7**/ 4 8 4 9 /* HISTORY: 4 10*Written by Matthew Pierret, 01/15/83. 4 11*Modified: 4 12*10/29/84 by Stanford S. Cox: Changed to not init version. 4 13*12/14/84 by Stanford S. Cox: Backed out previous structure alignment changes 4 14* which were incompatible with existing DM files. 4 15**/ 4 16 4 17 /* format: style2,ind3 */ 4 18 dcl 1 index_attribute_map aligned based (index_attribute_map_ptr), 4 19 2 version char (8), 4 20 2 number_of_indices fixed bin (17) unal init (0), 4 21 2 maximum_number_of_indices 4 22 fixed bin (17) unal, 4 23 2 maximum_number_of_attributes_per_index 4 24 fixed bin (17) unal, 4 25 2 mbz fixed bin (17) unal, 4 26 2 index (iam_maximum_number_of_indices refer (index_attribute_map.maximum_number_of_indices)), 4 27 3 collection_id bit (36) aligned, 4 28 3 style fixed bin (17) unal, 4 29 3 number_of_duplication_fields 4 30 fixed bin (17) unal, 4 31 3 number_of_attributes 4 32 fixed bin (17) unal, 4 33 3 attribute_id (iam_maximum_number_of_attributes_per_index 4 34 refer (index_attribute_map.maximum_number_of_attributes_per_index)) fixed 4 35 bin (17) unal; 4 36 4 37 dcl index_attribute_map_ptr 4 38 ptr init (null); 4 39 dcl iam_maximum_number_of_indices 4 40 fixed bin (17); 4 41 dcl iam_maximum_number_of_attributes_per_index 4 42 fixed bin (17); 4 43 dcl INDEX_ATTRIBUTE_MAP_VERSION_2 4 44 init ("idx_map2") cSPCfRoMt wnoneWY50_80C QjJw,0SNetwork_Mailer vVh6P SNetwork_Mailer Daemon OmȈмDurand 4,|v Durand Multics !-S,TwnNTrjnoneSTY_TELNET Om,5ader.incl.pl1 >spec>temp>famis1>dm_rlm_header.incl.pl1 183 3 01/03/85 1005.8 dm_rlm_attribute_info.incl.pl1 >spec>temp>famis1>dm_rlm_attribute_info.incl.pl1 185 4 01/03/85 1005.7 dm_rlm_index_attr_map.incl.pl1 >spec>temp>famis1>dm_rlm_index_attr_map.incl.pl1 187 5 10/14/83 1609.1 dm_relation_description.incl.pl1 >ldd>include>dm_relation_description.incl.pl1 189 6 04/16/82 0958.1 sub_err_flags.incl.pl1 >ldd>include>sub_err_flags.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. ACTION_CANT_RESTART 000000 constant bit(36) initial dcl 6-7 set ref 172* ATTRIBUTE_INFO_VERSION_1 000004 constant char(8) initial dcl 3-34 set ref 103* INDEX_ATTRIBUTE_MAP_VERSION_2 000002 constant char(8) initial dcl 4-43 set ref 106* INITIAL_NUMBER_OF_INDICES 000124 automatic fixed bin(17,0) initial dcl 4-45 set ref 4-45* RELATION_DESCRIPTION_VERSION_3 constant fixed bin(35,0) initial dcl 5-44 ref 116 RELATION_HEADER_VERSION_3 000006 constant char(8) initial dcl 2-30 set ref 100* RELATION_OPENING_INFO_VERSION_2 000010 constant char(8) initial dcl 1-43 ref 97 UNUSED_INDEX_ATTRIBUTE_MAP_ENTRY 000125 automatic fixed bin(17,0) initial dcl 4-47 set ref 4-47* attribute 3 based structure array level 2 in structure "attribute_info" dcl 3-18 in procedure "rlm_get_description" attribute based fixed bin(17,0) array level 3 in structure "relation_description" packed unaligned dcl 5-12 in procedure "rlm_get_description" set ref 139* attribute 4 based structure array level 2 in structure "relation_description" dcl 5-12 in procedure "rlm_get_description" set ref 145 attribute_id 6(18) based fixed bin(17,0) array level 3 packed unaligned dcl 4-18 ref 139 attribute_idx 000100 automatic fixed bin(17,0) dcl 51 set ref 145* 148 149 150 150* attribute_info based structure level 1 dcl 3-18 attribute_info_ptr 000120 automatic pointer initial dcl 3-29 in procedure "rlm_get_description" set ref 102* 103 110 111 134 148 150 3-29* attribute_info_ptr 16 based pointer initial level 2 in structure "relation_opening_info" dcl 1-15 in procedure "rlm_get_description" ref 102 based_descriptor_string based bit(36) dcl 62 set ref 147 148* based_descriptor_string_ptr 000104 automatic pointer dcl 56 set ref 147* 148 149 cleanup 000106 stack reference condition dcl 75 ref 113 collection_id based bit(36) array level 3 in structure "relation_description" dcl 5-12 in procedure "rlm_get_description" set ref 128* collection_id 4 based bit(36) array level 3 in structure "index_attribute_map" dcl 4-18 in procedure "rlm_get_description" ref 128 cv_p_expected_version parameter char(8) dcl 169 set ref 165 172 172* cv_p_received_version parameter char(8) dcl 168 set ref 165 172 172* cv_p_structure_name parameter char unaligned dcl 170 set ref 165 172* description_index_idx 000101 automatic fixed bin(17,0) dcl 52 set ref 120* 126* 126 128 130 131 133 134 138 139 descriptor 3 based bit(36) array level 3 dcl 3-18 ref 148 descriptor_ptr based pointer array level 3 dcl 5-12 set ref 149* error_table_$unimplemented_version 000014 external static fixed bin(35,0) dcl 84 set ref 172* flags based structure array level 3 dcl 5-12 set ref 133* hbound builtin function dcl 67 ref 121 145 iam_index_idx 000103 automatic fixed bin(17,0) dcl 54 set ref 121* 123 128 130 131 134 139* index based structure array level 2 in structure "relation_description" dcl 5-12 in procedure "rlm_get_description" set ref 121 index 4 based structure array level 2 in structure "index_attribute_map" dcl 4-18 in procedure "rlm_get_description" index_attribute_idx 000102 automatic fixed bin(17,0) dcl 53 set ref 138* 139 139* index_attribute_map based structure level 1 dcl 4-18 index_attribute_map_ptr 20 based pointer initial level 2 in structure "relation_opening_info" dcl 1-15 in procedure "rlm_get_description" ref 105 index_attribute_map_ptr 000122 automatic pointer initial dcl 4-37 in procedure "rlm_get_description" set ref 105* 106 108 109 123 128 130 131 134 139 4-37* is_unique based bit(1) array level 4 packed unaligned dcl 5-12 set ref 134* maximum_attribute_name_length 2(18) based fixed bin(17,0) level 2 in structure "attribute_info" packed unaligned dcl 3-18 in procedure "rlm_get_description" ref 111 148 148 150 150 maximum_attribute_name_length 2(18) based fixed bin(17,0) level 2 in structure "relation_description" packed unaligned dcl 5-12 in procedure "rlm_get_description" set ref 114* 121 128 130 131 133 134 138 139 149 149 149 150 150 150 160 maximum_number_of_attributes_per_index 3 based fixed bin(17,0) level 2 in structure "index_attribute_map" packed unaligned dcl 4-18 in procedure "rlm_get_description" ref 108 123 123 128 128 130 130 131 131 134 134 139 139 maximum_number_of_attributes_per_index 1 based fixed bin(17,0) level 2 in structure "relation_description" packed unaligned dcl 5-12 in procedure "rlm_get_description" set ref 114* 128 128 130 130 131 131 133 133 134 134 138 138 139 139 160 myname 000012 constant char(19) initial unaligned dcl 71 set ref 172* name 4 based varying char array level 3 in structure "attribute_info" dcl 3-18 in procedure "rlm_get_description" ref 150 name 4 based varying char array level 3 in structure "relation_description" dcl 5-12 in procedure "rlm_get_description" set ref 150* null builtin function dcl 67 ref 90 2-29 3-29 4-37 160 160 172 172 number_of_attributes 6 based fixed bin(17,0) array level 3 in structure "index_attribute_map" packed unaligned dcl 4-18 in procedure "rlm_get_description" ref 123 131 number_of_attributes 2 based fixed bin(17,0) level 2 in structure "attribute_info" packed unaligned dcl 3-18 in procedure "rlm_get_description" ref 110 134 number_of_attributes 1(18) based fixed bin(17,0) level 2 in structure "relation_description" packed unaligned dcl 5-12 in procedure "rlm_get_description" set ref 114* 121 128 130 131 133 134 138 139 145 160 number_of_attributes based fixed bin(17,0) array level 3 in structure "relation_description" packed unaligned dcl 5-12 in procedure "rlm_get_description" set ref 131* 138 number_of_duplication_fields 5(18) based fixed bin(17,0) array level 3 packed unaligned dcl 4-18 ref 134 number_of_indices 2 based fixed bin(17,0) level 2 in structure "relation_description" packed unaligned dcl 5-12 in procedure "rlm_get_description" set ref 114* 121 160 number_of_indices 2 based fixed bin(17,0) initial level 2 in structure "index_attribute_map" packed unaligned dcl 4-18 in procedure "rlm_get_description" ref 109 p_code parameter fixed bin(35,0) dcl 47 set ref 36 91* 93* 94 p_rel_opening_id parameter bit(36) dcl 43 set ref 36 93* p_relation_description_ptr parameter pointer dcl 45 set ref 36 90* 153* 160 p_work_area based area dcl 61 ref 114 147 p_work_area_ptr parameter pointer dcl 44 ref 36 114 147 rd_maximum_attribute_name_length 000133 automatic fixed bin(17,0) dcl 5-51 set ref 111* 114 114 rd_maximum_number_of_attributes_per_index 000130 automatic fixed bin(17,0) dcl 5-46 set ref 108* 114 114 rd_number_of_attributes 000132 automatic fixed bin(17,0) dcl 5-49 set ref 110* 114 114 rd_number_of_indices 000131 automatic fixed bin(17,0) dcl 5-48 set ref 109* 114 114 record_collection_id 3 based bit(36) initial level 2 in structure "relation_header" dcl 2-15 in procedure "rlm_get_description" ref 118 record_collection_id 3 based bit(36) level 2 in structure "relation_description" dcl 5-12 in procedure "rlm_get_description" set ref 118* relation_description based structure level 1 dcl 5-12 set ref 114 160 relation_description_ptr 000126 automatic pointer dcl 5-42 set ref 90* 114* 116 118 121 128 130 131 133 134 138 139 145 149 150 153 160 160 relation_header based structure level 1 dcl 2-15 relation_header_ptr 000116 automatic pointer initial dcl 2-29 in procedure "rlm_get_description" set ref 99* 100 118 2-29* relation_header_ptr 14 based pointer initial level 2 in structure "relation_opening_info" dcl 1-15 in procedure "rlm_get_description" ref 99 relation_opening_info based structure level 1 dcl 1-15 relation_opening_info_ptr 000114 automatic pointer dcl 1-41 set ref 93* 97 99 102 105 rlm_opening_info$get 000010 constant entry external dcl 79 ref 93 string builtin function dcl 67 set ref 133* style 5 based fixed bin(17,0) array level 3 in structure "index_attribute_map" packed unaligned dcl 4-18 in procedure "rlm_get_description" ref 130 style based fixed bin(17,0) array level 3 in structure "relation_description" packed unaligned dcl 5-12 in procedure "rlm_get_description" set ref 130* sub_err_ 000012 constant entry external dcl 80 ref 172 version based char(8) level 2 in structure "attribute_info" dcl 3-18 in procedure "rlm_get_description" set ref 103* version based char(8) level 2 in structure "index_attribute_map" dcl 4-18 in procedure "rlm_get_description" set ref 106* version based char(8) level 2 in structure "relation_header" dcl 2-15 in procedure "rlm_get_description" set ref 100* version based fixed bin(35,0) level 2 in structure "relation_description" dcl 5-12 in procedure "rlm_get_description" set ref 116* version based char(8) level 2 in structure "relation_opening_info" dcl 1-15 in procedure "rlm_get_description" ref 97 NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. ACTION_CAN_RESTART internal static bit(36) initial dcl 6-7 ACTION_DEFAULT_RESTART internal static bit(36) initial dcl 6-7 ACTION_QUIET_RESTART internal static bit(36) initial dcl 6-7 ACTION_SUPPORT_SIGNAL internal static bit(36) initial dcl 6-7 ai_maximum_attribute_name_length automatic fixed bin(17,0) dcl 3-30 ai_number_of_attributes automatic fixed bin(17,0) dcl 3-32 iam_maximum_number_of_attributes_per_index automatic fixed bin(17,0) dcl 4-41 iam_maximum_number_of_indices automatic fixed bin(17,0) dcl 4-39 sys_info$max_seg_size external static fixed bin(35,0) dcl 86 NAMES DECLARED BY EXPLICIT CONTEXT. CHECK_VERSION 001150 constant entry internal dcl 165 ref 97 100 103 106 FINISH 001072 constant entry internal dcl 157 ref 113 LOOP_OVER_ATTRIBUTES 000760 constant label dcl 145 LOOP_OVER_INDICES 000401 constant label dcl 121 rlm_get_description 000113 constant entry external dcl 36 THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 1360 1376 1270 1370 Length 1706 1270 16 274 70 0 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME rlm_get_description 214 external procedure is an external procedure. on unit on line 113 72 on unit FINISH internal procedure shares stack frame of on unit on line 113. CHECK_VERSION internal procedure shares stack frame of external procedure rlm_get_description. STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME rlm_get_description 000100 attribute_idx rlm_get_description 000101 description_index_idx rlm_get_description 000102 index_attribute_idx rlm_get_description 000103 iam_index_idx rlm_get_description 000104 based_descriptor_string_ptr rlm_get_description 000114 relation_opening_info_ptr rlm_get_description 000116 relation_header_ptr rlm_get_description 000120 attribute_info_ptr rlm_get_description 000122 index_attribute_map_ptr rlm_get_description 000124 INITIAL_NUMBER_OF_INDICES rlm_get_description 000125 UNUSED_INDEX_ATTRIBUTE_MAP_ENTRY rlm_get_description 000126 relation_description_ptr rlm_get_description 000130 rd_maximum_number_of_attributes_per_index rlm_get_description 000131 rd_number_of_indices rlm_get_description 000132 rd_number_of_attributes rlm_get_description 000133 rd_maximum_attribute_name_length rlm_get_description THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. r_e_as call_ext_out_desc call_ext_out return enable ext_entry int_entry alloc_based free_based THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. rlm_opening_info$get sub_err_ THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. error_table_$unimplemented_version CONSTANTS 001252 aa 000006000000 001253 aa 000006000000 001254 aa 600000000041 001255 aa 000170000000 001256 aa 600000000041 001257 aa 000166000000 001260 aa 600000000041 001261 aa 000200000000 001262 ta 000027000000 001263 aa 000000000000 001264 ta 000026000000 001265 aa 000000000000 001266 ta 000026000000 001267 aa 000000000000 000000 aa 400000000000 000002 aa 151 144 170 137 idx_ 000003 aa 155 141 160 062 map2 000004 aa 141 164 164 162 attr 000005 aa 151 156 146 061 inf1 000006 aa 122 145 154 110 RelH 000007 aa 144 162 040 063 dr 3 000010 aa 162 154 155 157 rlmo 000011 aa 160 145 156 062 pen2 000012 aa 162 154 155 137 rlm_ 000013 aa 147 145 164 137 get_ 000014 aa 144 145 163 143 desc 000015 aa 162 151 160 164 ript 000016 aa 151 157 156 000 ion 000017 aa 524000000112 000020 aa 404000000005 000021 aa 526000000023 000022 aa 526077777777 000023 aa 524000000023 000024 aa 524000000016 000025 aa 524000000017 000026 aa 524000000010 000027 aa 524000000025 000030 aa 404000000043 000031 aa 464000000000 000032 aa 514000000044 000034 aa 077777000043 000035 aa 000001000000 000036 aa 143 154 145 141 clea 000037 aa 156 165 160 000 nup 000040 aa 141 164 164 162 attr 000041 aa 151 142 165 164 ibut 000042 aa 145 137 151 156 e_in 000043 aa 146 157 000 000 fo 000044 aa 162 145 154 141 rela 000045 aa 164 151 157 156 tion 000046 aa 137 150 145 141 _hea 000047 aa 144 145 162 000 der 000050 aa 151 156 144 145 inde 000051 aa 170 137 141 164 x_at 000052 aa 164 162 151 142 trib 000053 aa 165 164 145 137 ute_ 000054 aa 155 141 160 000 map 000055 aa 162 145 154 141 rela 000056 aa 164 151 157 156 tion 000057 aa 137 157 160 145 _ope 000060 aa 156 151 156 147 ning 000061 aa 137 151 156 146 _inf 000062 aa 157 000 000 000 o 000063 aa 136 057 105 170 ^/Ex 000064 aa 160 145 143 164 pect 000065 aa 145 144 040 166 ed v 000066 aa 145 162 163 151 ersi 000067 aa 157 156 040 136 on ^ 000070 aa 070 141 040 157 8a o 000071 aa 146 040 164 150 f th 000072 aa 145 040 136 141 e ^a 000073 aa 040 163 164 162 str 000074 aa 165 143 164 165 uctu 000075 aa 162 145 056 012 re. 000076 aa 122 145 143 145 Rece 000077 aa 151 166 145 144 ived 000100 aa 040 166 145 162 ver 000101 aa 163 151 157 156 sion 000102 aa 040 136 070 141 ^8a 000103 aa 054 040 151 156 , in 000104 aa 163 164 145 141 stea 000105 aa 144 056 000 000 d. BEGIN PROCEDURE rlm_get_description ENTRY TO rlm_get_description STATEMENT 1 ON LINE 36 rlm_get_description: proc (p_rel_opening_id, p_work_area_ptr, p_relation_description_ptr, p_code); 000106 at 000004000032 000107 tt 000031000031 000110 ta 000030000000 000111 ta 000106000000 000112 da 000056300000 000113 aa 000340 6270 00 eax7 224 000114 aa 7 00034 3521 20 epp2 pr7|28,* 000115 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 000116 aa 000010000000 000117 aa 000000000000 STATEMENT 1 ON LINE 29 OF FILE 2 000120 aa 777714 2370 04 ldaq -52,ic 000034 = 077777000043 000001000000 000121 aa 6 00116 7571 00 staq pr6|78 relation_header_ptr STATEMENT 1 ON LINE 29 OF FILE 3 000122 aa 6 00120 7571 00 staq pr6|80 attribute_info_ptr STATEMENT 1 ON LINE 37 OF FILE 4 000123 aa 6 00122 7571 00 staq pr6|82 index_attribute_map_ptr STATEMENT 1 ON LINE 45 OF FILE 4 000124 aa 000005 2360 07 ldq 5,dl 000125 aa 6 00124 7561 00 stq pr6|84 INITIAL_NUMBER_OF_INDICES STATEMENT 1 ON LINE 47 OF FILE 4 000126 aa 6 00125 4501 00 stz pr6|85 UNUSED_INDEX_ATTRIBUTE_MAP_ENTRY STATEMENT 1 ON LINE 90 p_relation_description_ptr, relation_description_ptr = null (); 000127 aa 777705 3734 24 epp7 -59,ic* 000130 aa 6 00032 3715 20 epp5 pr6|26,* 000131 aa 5 00006 6535 20 spri7 pr5|6,* p_relation_description_ptr 000132 aa 6 00126 6535 00 spri7 pr6|86 relation_description_ptr STATEMENT 1 ON LINE 91 p_code = 0; 000133 aa 5 00010 4501 20 stz pr5|8,* p_code STATEMENT 1 ON LINE 93 call rlm_opening_info$get (p_rel_opening_id, relation_opening_info_ptr, p_code); 000134 aa 5 00002 3521 20 epp2 pr5|2,* p_rel_opening_id 000135 aa 6 00172 2521 00 spri2 pr6|122 000136 aa 6 00114 3521 00 epp2 pr6|76 relation_opening_info_ptr 000137 aa 6 00174 2521 00 spri2 pr6|124 000140 aa 5 00010 3521 20 epp2 pr5|8,* p_code 000141 aa 6 00176 2521 00 spri2 pr6|126 000142 aa 6 00170 6211 00 eax1 pr6|120 000143 aa 014000 4310 07 fld 6144,dl 000144 la 4 00010 3521 20 epp2 pr4|8,* rlm_opening_info$get 000145 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 94 if p_code ^= 0 then return; 000146 aa 6 00032 3735 20 epp7 pr6|26,* 000147 aa 7 00010 2361 20 ldq pr7|8,* p_code 000150 aa 0 00631 6011 00 tnz pr0|409 return STATEMENT 1 ON LINE 97 call CHECK_VERSION ("relation_opening_info", (relation_opening_info.version), (RELATION_OPENING_INFO_VERSION_2)); 000151 aa 000 100 100 404 mlr (ic),(pr),fill(000) 000152 aa 777704 00 0030 desc9a -60,24 000055 = 162145154141 000153 aa 6 00170 00 0030 desc9a pr6|120,24 000154 aa 6 00114 3715 20 epp5 pr6|76,* relation_opening_info_ptr 000155 aa 5 00000 2351 00 lda pr5|0 relation_opening_info.version 000156 aa 5 00001 2361 00 ldq pr5|1 relation_opening_info.version 000157 aa 6 00166 7571 00 staq pr6|118 000160 aa 777630 2370 04 ldaq -104,ic 000010 = 162154155157 160145156062 000161 aa 6 00200 7571 00 staq pr6|128 000162 aa 001070 3520 04 epp2 568,ic 001252 = 000006000000 000163 aa 2 00000 2351 00 lda pr2|0 000164 aa 000764 6700 04 tsp4 500,ic 001150 STATEMENT 1 ON LINE 99 relation_header_ptr = relation_opening_info.relation_header_ptr; 000165 aa 6 00114 3735 20 epp7 pr6|76,* relation_opening_info_ptr 000166 aa 7 00014 3735 20 epp7 pr7|12,* relation_opening_info.relation_header_ptr 000167 aa 6 00116 6535 00 spri7 pr6|78 relation_header_ptr STATEMENT 1 ON LINE 100 call CHECK_VERSION ("relation_header", relation_header.version, RELATION_HEADER_VERSION_3); 000170 aa 777654 2370 04 ldaq -84,ic 000044 = 162145154141 164151157156 000171 aa 6 00170 7571 00 staq pr6|120 000172 aa 777654 2370 04 ldaq -84,ic 000046 = 137150145141 144145162000 000173 aa 6 00172 7571 00 staq pr6|122 000174 aa 6 00170 3521 00 epp2 pr6|120 000175 aa 6 00204 2521 00 spri2 pr6|132 000176 aa 7 00000 3521 00 epp2 pr7|0 relation_header.version 000177 aa 6 00206 2521 00 spri2 pr6|134 000200 aa 777606 3520 04 epp2 -122,ic 000006 = 122145154110 000201 aa 6 00210 2521 00 spri2 pr6|136 000202 aa 777623 3520 04 epp2 -109,ic 000025 = 524000000017 000203 aa 6 00212 2521 00 spri2 pr6|138 000204 aa 777622 3520 04 epp2 -110,ic 000026 = 524000000010 000205 aa 6 00214 2521 00 spri2 pr6|140 000206 aa 6 00216 2521 00 spri2 pr6|142 000207 aa 6 00202 3521 00 epp2 pr6|130 000210 aa 014000 4310 07 fld 6144,dl 000211 aa 2 00000 7571 00 staq pr2|0 000212 aa 000736 6700 04 tsp4 478,ic 001150 STATEMENT 1 ON LINE 102 attribute_info_ptr = relation_opening_info.attribute_info_ptr; 000213 aa 6 00114 3735 20 epp7 pr6|76,* relation_opening_info_ptr 000214 aa 7 00016 3735 20 epp7 pr7|14,* relation_opening_info.attribute_info_ptr 000215 aa 6 00120 6535 00 spri7 pr6|80 attribute_info_ptr STATEMENT 1 ON LINE 103 call CHECK_VERSION ("attribute_info", attribute_info.version, ATTRIBUTE_INFO_VERSION_1); 000216 aa 777622 2370 04 ldaq -110,ic 000040 = 141164164162 151142165164 000217 aa 6 00170 7571 00 staq pr6|120 000220 aa 777622 2370 04 ldaq -110,ic 000042 = 145137151156 146157000000 000221 aa 6 00172 7571 00 staq pr6|122 000222 aa 6 00170 3521 00 epp2 pr6|120 000223 aa 6 00204 2521 00 spri2 pr6|132 000224 aa 7 00000 3521 00 epp2 pr7|0 attribute_info.version 000225 aa 6 00206 2521 00 spri2 pr6|134 000226 aa 777556 3520 04 epp2 -146,ic 000004 = 141164164162 000227 aa 6 00210 2521 00 spri2 pr6|136 000230 aa 777574 3520 04 epp2 -132,ic 000024 = 524000000016 000231 aa 6 00212 2521 00 spri2 pr6|138 000232 aa 777574 3520 04 epp2 -132,ic 000026 = 524000000010 000233 aa 6 00214 2521 00 spri2 pr6|140 000234 aa 6 00216 2521 00 spri2 pr6|142 000235 aa 6 00202 3521 00 epp2 pr6|130 000236 aa 014000 4310 07 fld 6144,dl 000237 aa 2 00000 7571 00 staq pr2|0 000240 aa 000710 6700 04 tsp4 456,ic 001150 STATEMENT 1 ON LINE 105 index_attribute_map_ptr = relation_opening_info.index_attribute_map_ptr; 000241 aa 6 00114 3735 20 epp7 pr6|76,* relation_opening_info_ptr 000242 aa 7 00020 3735 20 epp7 pr7|16,* relation_opening_info.index_attribute_map_ptr 000243 aa 6 00122 6535 00 spri7 pr6|82 index_attribute_map_ptr STATEMENT 1 ON LINE 106 call CHECK_VERSION ("index_attribute_map", index_attribute_map.version, INDEX_ATTRIBUTE_MAP_VERSION_2); 000244 aa 777604 2370 04 ldaq -124,ic 000050 = 151156144145 170137141164 000245 aa 6 00170 7571 00 staq pr6|120 000246 aa 777604 2370 04 ldaq -124,ic 000052 = 164162151142 165164145137 000247 aa 6 00172 7571 00 staq pr6|122 000250 aa 777604 2350 04 lda -124,ic 000054 = 155141160000 000251 aa 6 00174 7551 00 sta pr6|124 000252 aa 6 00170 3521 00 epp2 pr6|120 000253 aa 6 00204 2521 00 spri2 pr6|132 000254 aa 7 00000 3521 00 epp2 pr7|0 index_attribute_map.version 000255 aa 6 00206 2521 00 spri2 pr6|134 000256 aa 777524 3520 04 epp2 -172,ic 000002 = 151144170137 000257 aa 6 00210 2521 00 spri2 pr6|136 000260 aa 777543 3520 04 epp2 -157,ic 000023 = 524000000023 000261 aa 6 00212 2521 00 spri2 pr6|138 000262 aa 777544 3520 04 epp2 -156,ic 000026 = 524000000010 000263 aa 6 00214 2521 00 spri2 pr6|140 000264 aa 6 00216 2521 00 spri2 pr6|142 000265 aa 6 00202 3521 00 epp2 pr6|130 000266 aa 014000 4310 07 fld 6144,dl 000267 aa 2 00000 7571 00 staq pr2|0 000270 aa 000660 6700 04 tsp4 432,ic 001150 STATEMENT 1 ON LINE 108 rd_maximum_number_of_attributes_per_index = index_attribute_map.maximum_number_of_attributes_per_index; 000271 aa 6 00122 3735 20 epp7 pr6|82,* index_attribute_map_ptr 000272 aa 7 00003 2351 00 lda pr7|3 index_attribute_map.maximum_number_of_attributes_per_index 000273 aa 000066 7330 00 lrs 54 000274 aa 6 00130 7561 00JSLove \rb JSLove Multics Parfenuk PT Parfenuk Multics LوND7cd LsChappell 4LZF t00| Chappell 3,dl 000374 aa 2 00000 7561 00 stq pr2|0 relation_description.version STATEMENT 1 ON LINE 118 relation_description.record_collection_id = relation_header.record_collection_id; 000375 aa 6 00116 3735 20 epp7 pr6|78,* relation_header_ptr 000376 aa 7 00003 2351 00 lda pr7|3 relation_header.record_collection_id 000377 aa 2 00003 7551 00 sta pr2|3 relation_description.record_collection_id STATEMENT 1 ON LINE 120 description_index_idx = 0; 000400 aa 6 00101 4501 00 stz pr6|65 description_index_idx STATEMENT 1 ON LINE 121 LOOP_OVER_INDICES: do iam_index_idx = 1 to hbound (relation_description.index, 1); 000401 aa 2 00002 2351 00 lda pr2|2 relation_description.number_of_indices 000402 aa 000066 7330 00 lrs 54 000403 aa 6 00134 7561 00 stq pr6|92 000404 aa 000001 2360 07 ldq 1,dl 000405 aa 6 00103 7561 00 stq pr6|67 iam_index_idx 000406 aa 6 00103 2361 00 ldq pr6|67 iam_index_idx 000407 aa 6 00134 1161 00 cmpq pr6|92 000410 aa 000350 6054 04 tpnz 232,ic 000760 STATEMENT 1 ON LINE 123 if index_attribute_map.index (iam_index_idx).number_of_attributes > 0 then do; 000411 aa 6 00122 3735 20 epp7 pr6|82,* index_attribute_map_ptr 000412 aa 7 00003 2351 00 lda pr7|3 index_attribute_map.maximum_number_of_attributes_per_index 000413 aa 000066 7330 00 lrs 54 000414 aa 000022 4020 07 mpy 18,dl 000415 aa 000132 0760 07 adq 90,dl 000416 aa 000043 0760 07 adq 35,dl 000417 aa 000044 5060 07 div 36,dl 000420 aa 6 00222 7561 00 stq pr6|146 000421 aa 6 00103 2361 00 ldq pr6|67 iam_index_idx 000422 aa 000001 1760 07 sbq 1,dl 000423 aa 6 00223 7561 00 stq pr6|147 000424 aa 6 00222 4021 00 mpy pr6|146 000425 aa 7 00006 2351 06 lda pr7|6,ql index_attribute_map.number_of_attributes 000426 aa 6 00222 7561 00 stq pr6|146 000427 aa 000066 7330 00 lrs 54 000430 aa 000326 6044 04 tmoz 214,ic 000756 STATEMENT 1 ON LINE 126 description_index_idx = description_index_idx + 1; 000431 aa 6 00101 0541 00 aos pr6|65 description_index_idx STATEMENT 1 ON LINE 128 relation_description.index (description_index_idx).collection_id = index_attribute_map.index (iam_index_idx).collection_id; 000432 aa 6 00126 3715 20 epp5 pr6|86,* relation_description_ptr 000433 aa 5 00001 2351 00 lda pr5|1 relation_description.maximum_number_of_attributes_per_index 000434 aa 000066 7330 00 lrs 54 000435 aa 000022 4020 07 mpy 18,dl 000436 aa 000154 0760 07 adq 108,dl 000437 aa 000043 0760 07 adq 35,dl 000440 aa 000044 5060 07 div 36,dl 000441 aa 6 00224 7561 00 stq pr6|148 000442 aa 6 00101 4021 00 mpy pr6|65 description_index_idx 000443 aa 6 00224 1761 00 sbq pr6|148 000444 aa 6 00224 7561 00 stq pr6|148 000445 aa 5 00001 2351 00 lda pr5|1 relation_description.number_of_attributes 000446 aa 000022 7350 00 als 18 000447 aa 000066 7330 00 lrs 54 000450 aa 6 00225 7561 00 stq pr6|149 relation_description.number_of_attributes 000451 aa 5 00002 2351 00 lda pr5|2 relation_description.maximum_attribute_name_length 000452 aa 000022 7350 00 als 18 000453 aa 000066 7330 00 lrs 54 000454 aa 000003 0760 07 adq 3,dl 000455 aa 000002 7320 00 qrs 2 000456 aa 000001 0760 07 adq 1,dl 000457 aa 000001 0760 07 adq 1,dl 000460 aa 777776 3760 07 anq 262142,dl 000461 aa 000002 0760 07 adq 2,dl 000462 aa 000001 0760 07 adq 1,dl 000463 aa 777776 3760 07 anq 262142,dl 000464 aa 6 00225 4021 00 mpy pr6|149 relation_description.number_of_attributes 000465 aa 000004 0760 07 adq 4,dl 000466 aa 6 00225 7561 00 stq pr6|149 000467 aa 6 00224 0761 00 adq pr6|148 000470 aa 6 00222 7271 00 lxl7 pr6|146 000471 aa 7 00004 2351 17 lda pr7|4,7 index_attribute_map.collection_id 000472 aa 5 00000 7551 06 sta pr5|0,ql relation_description.collection_id STATEMENT 1 ON LINE 130 relation_description.index (description_index_idx).style = index_attribute_map.index (iam_index_idx).style; 000473 aa 6 00225 2361 00 ldq pr6|149 000474 aa 000001 0760 07 adq 1,dl 000475 aa 6 00224 0761 00 adq pr6|148 000476 aa 7 00005 2351 17 lda pr7|5,7 index_attribute_map.style 000477 aa 5 00000 3535 06 epp3 pr5|0,ql relation_description.style 000500 aa 3 00000 5511 60 stba pr3|0,60 relation_description.style STATEMENT 1 ON LINE 131 relation_description.index (description_index_idx).number_of_attributes = index_attribute_map.index (iam_index_idx).number_of_attributes; 000501 aa 5 00001 2351 00 lda pr5|1 relation_description.maximum_number_of_attributes_per_index 000502 aa 000066 7330 00 lrs 54 000503 aa 000022 4020 07 mpy 18,dl 000504 aa 000154 0760 07 adq 108,dl 000505 aa 000043 0760 07 adq 35,dl 000506 aa 000044 5060 07 div 36,dl 000507 aa 6 00222 7561 00 stq pr6|146 000510 aa 6 00101 4021 00 mpy pr6|65 description_index_idx 000511 aa 6 00222 1761 00 sbq pr6|146 000512 aa 000044 4020 07 mpy 36,dl 000513 aa 6 00222 7561 00 stq pr6|146 000514 aa 5 00001 2351 00 lda pr5|1 relation_description.number_of_attributes 000515 aa 000022 7350 00 als 18 000516 aa 000066 7330 00 lrs 54 000517 aa 6 00224 7561 00 stq pr6|148 relation_description.number_of_attributes 000520 aa 5 00002 2351 00 lda pr5|2 relation_description.maximum_attribute_name_length 000521 aa 000022 7350 00 als 18 000522 aa 000066 7330 00 lrs 54 000523 aa 000003 0760 07 adq 3,dl 000524 aa 000002 7320 00 qrs 2 000525 aa 000001 0760 07 adq 1,dl 000526 aa 000001 0760 07 adq 1,dl 000527 aa 777776 3760 07 anq 262142,dl 000530 aa 000002 0760 07 adq 2,dl 000531 aa 000001 0760 07 adq 1,dl 000532 aa 777776 3760 07 anq 262142,dl 000533 aa 6 00224 4021 00 mpy pr6|148 relation_description.number_of_attributes 000534 aa 000004 0760 07 adq 4,dl 000535 aa 000044 4020 07 mpy 36,dl 000536 aa 000066 0760 07 adq 54,dl 000537 aa 6 00222 0761 00 adq pr6|146 000540 aa 7 00003 2351 00 lda pr7|3 index_attribute_map.maximum_number_of_attributes_per_index 000541 aa 6 00222 7561 00 stq pr6|146 000542 aa 000066 7330 00 lrs 54 000543 aa 000022 4020 07 mpy 18,dl 000544 aa 000132 0760 07 adq 90,dl 000545 aa 000043 0760 07 adq 35,dl 000546 aa 000044 5060 07 div 36,dl 000547 aa 6 00223 4021 00 mpy pr6|147 000550 aa 7 00006 3515 06 epp1 pr7|6,ql index_attribute_map.number_of_attributes 000551 aa 6 00222 2351 00 lda pr6|146 000552 aa 003 105 060 500 csl (pr),(pr,al),fill(0),bool(move) 000553 aa 1 00000 00 0022 descb pr1|0,18 index_attribute_map.number_of_attributes 000554 aa 5 00000 00 0022 descb pr5|0,18 relation_description.number_of_attributes STATEMENT 1 ON LINE 133 string (relation_description.index (description_index_idx).flags) = "0"b; 000555 aa 5 00001 2351 00 lda pr5|1 relation_description.maximum_number_of_attributes_per_index 000556 aa 000066 7330 00 lrs 54 000557 aa 000022 4020 07 mpy 18,dl 000560 aa 000154 0760 07 adq 108,dl 000561 aa 000043 0760 07 adq 35,dl 000562 aa 000044 5060 07 div 36,dl 000563 aa 6 00222 7561 00 stq pr6|146 000564 aa 6 00101 4021 00 mpy pr6|65 description_index_idx 000565 aa 6 00222 1761 00 sbq pr6|146 000566 aa 6 00223 7561 00 stq pr6|147 000567 aa 5 00001 2351 00 lda pr5|1 relation_description.number_of_attributes 000570 aa 000022 7350 00 als 18 000571 aa 000066 7330 00 lrs 54 000572 aa 6 00224 7561 00 stq pr6|148 relation_description.number_of_attributes 000573 aa 5 00002 2351 00 lda pr5|2 relation_description.maximum_attribute_name_length 000574 aa 000022 7350 00 als 18 000575 aa 000066 7330 00 lrs 54 000576 aa 000003 0760 07 adq 3,dl 000577 aa 000002 7320 00 qrs 2 000600 aa 000001 0760 07 adq 1,dl 000601 aa 000001 0760 07 adq 1,dl 000602 aa 777776 3760 07 anq 262142,dl 000603 aa 000002 0760 07 adq 2,dl 000604 aa 000001 0760 07 adq 1,dl 000605 aa 777776 3760 07 anq 262142,dl 000606 aa 6 00224 4021 00 mpy pr6|148 relation_description.number_of_attributes 000607 aa 6 00224 7561 00 stq pr6|148 000610 aa 000006 0760 07 adq 6,dl 000611 aa 6 00223 0761 00 adq pr6|147 000612 aa 5 00000 4501 06 stz pr5|0,ql STATEMENT 1 ON LINE 134 relation_description.index (description_index_idx).flags.is_unique = (index_attribute_map.index (iam_index_idx).number_of_duplication_fields = attribute_info.number_of_attributes); 000613 aa 7 00003 2351 00 lda pr7|3 index_attribute_map.maximum_number_of_attributes_per_index 000614 aa 000000 6250 06 eax5 0,ql 000615 aa 000066 7330 00 lrs 54 000616 aa 000022 4020 07 mpy 18,dl 000617 aa 000132 0760 07 adq 90,dl 000620 aa 000043 0760 07 adq 35,dl 000621 aa 000044 5060 07 div 36,dl 000622 aa 6 00225 7561 00 stq pr6|149 000623 aa 6 00103 4021 00 mpy pr6|67 iam_index_idx 000624 aa 6 00225 1761 00 sbq pr6|149 000625 aa 6 00120 3535 20 epp3 pr6|80,* attribute_info_ptr 000626 aa 3 00002 2351 00 lda pr3|2 attribute_info.number_of_attributes 000627 aa 000000 6260 06 eax6 0,ql 000630 aa 000066 7330 00 lrs 54 000631 aa 6 00226 7561 00 stq pr6|150 attribute_info.number_of_attributes 000632 aa 7 00005 2351 16 lda pr7|5,6 index_attribute_map.number_of_duplication_fields 000633 aa 000022 7350 00 als 18 000634 aa 000066 7330 00 lrs 54 000635 aa 6 00226 1161 00 cmpq pr6|150 attribute_info.number_of_attributes 000636 aa 0 00512 7001 00 tsx0 pr0|330 r_e_as 000637 aa 5 00000 6751 15 era pr5|0,5 relation_description.is_unique 000640 aa 0 00002 3751 00 ana pr0|2 = 400000000000 000641 aa 5 00000 6551 15 ersa pr5|0,5 relation_description.is_unique STATEMENT 1 ON LINE 138 do index_attribute_idx = 1 to relation_description.index (description_index_idx).number_of_attributes; 000642 aa 6 00222 2361 00 ldq pr6|146 000643 aa 6 00101 4021 00 mpy pr6|65 description_index_idx 000644 aa 6 00222 1761 00 sbq pr6|146 000645 aa 000044 4020 07 mpy 36,dl 000646 aa 6 00222 7561 00 stq pr6|146 000647 aa 6 00224 2361 00 ldq pr6|148 000650 aa 000004 0760 07 adq 4,dl 000651 aa 000044 4020 07 mpy 36,dl 000652 aa 000066 0760 07 adq 54,dl 000653 aa 6 00222 0761 00 adq pr6|146 000654 aa 003 100 060 506 csl (pr,ql),(pr),fill(0),bool(move) 000655 aa 5 00000 00 0022 descb pr5|0,18 relation_description.number_of_attributes 000656 aa 6 00056 00 0044 descb pr6|46,36 000657 aa 6 00056 2351 00 lda pr6|46 000660 aa 000066 7330 00 lrs 54 000661 aa 6 00135 7561 00 stq pr6|93 000662 aa 000001 2360 07 ldq 1,dl 000663 aa 6 00102 7561 00 stq pr6|66 index_attribute_idx 000664 aa 6 00102 2361 00 ldq pr6|66 index_attribute_idx 000665 aa 6 00135 1161 00 cmpq pr6|93 000666 aa 000070 6054 04 tpnz 56,ic 000756 STATEMENT 1 ON LINE 139 relation_description.index (description_index_idx).attribute (index_attribute_idx) = index_attribute_map.index (iam_index_idx).attribute_id (index_attribute_idx); 000667 aa 6 00126 3735 20 epp7 pr6|86,* relation_description_ptr 000670 aa 7 00001 2351 00 lda pr7|1 relation_description.maximum_number_of_attributes_per_index 000671 aa 000066 7330 00 lrs 54 000672 aa 000022 4020 07 mpy 18,dl 000673 aa 000154 0760 07 adq 108,dl 000674 aa 000043 0760 07 adq 35,dl 000675 aa 000044 5060 07 div 36,dl 000676 aa 000044 4020 07 mpy 36,dl 000677 aa 6 00222 7561 00 stq pr6|146 000700 aa 6 00101 4021 00 mpy pr6|65 description_index_idx 000701 aa 6 00224 7561 00 stq pr6|148 000702 aa 6 00102 2361 00 ldq pr6|66 index_attribute_idx 000703 aa 000022 4020 07 mpy 18,dl 000704 aa 6 00223 7561 00 stq pr6|147 000705 aa 6 00224 0761 00 adq pr6|148 000706 aa 6 00222 1761 00 sbq pr6|146 000707 aa 6 00222 7561 00 stq pr6|146 000710 aa 7 00001 2351 00 lda pr7|1 relation_description.number_of_attributes 000711 aa 000022 7350 00 als 18 000712 aa 000066 7330 00 lrs 54 000713 aa 6 00224 7561 00 stq pr6|148 relation_description.number_of_attributes 000714 aa 7 00002 2351 00 lda pr7|2 relation_description.maximum_attribute_name_length 000715 aa 000022 7350 00 als 18 000716 aa 000066 7330 00 lrs 54 000717 aa 000003 0760 07 adq 3,dl 000720 aa 000002 7320 00 qrs 2 000721 aa 000001 0760 07 adq 1,dl 000722 aa 000001 0760 07 adq 1,dl 000723 aa 777776 3760 07 anq 262142,dl 000724 aa 000002 0760 07 adq 2,dl 000725 aa 000001 0760 07 adq 1,dl 000726 aa 777776 3760 07 anq 262142,dl 000727 aa 6 00224 4021 00 mpy pr6|148 relation_description.number_of_attributes 000730 aa 000007 0760 07 adq 7,dl 000731 aa 000044 4020 07 mpy 36,dl 000732 aa 6 00222 0761 00 adq pr6|146 000733 aa 6 00122 3715 20 epp5 pr6|82,* index_attribute_map_ptr 000734 aa 5 00003 2351 00 lda pr5|3 index_attribute_map.maximum_number_of_attributes_per_index 000735 aa 6 00222 7561 00 stq pr6|146 000736 aa 000066 7330 00 lrs 54 000737 aa 000022 4020 07 mpy 18,dl 000740 aa 000132 0760 07 adq 90,dl 000741 aa 000043 0760 07 adq 35,dl 000742 aa 000044 5060 07 div 36,dl 000743 aa 000044 4020 07 mpy 36,dl 000744 aa 6 00224 7561 00 stq pr6|148 000745 aa 6 00103 4021 00 mpy pr6|67 iam_index_idx 000746 aa 6 00223 0761 00 adq pr6|147 000747 aa 6 00224 1761 00 sbq pr6|148 000750 aa 6 00222 2351 00 lda pr6|146 000751 aa 003 105 060 506 csl (pr,ql),(pr,al),fill(0),bool(move) 000752 aa 5 00006 00 0022 descb pr5|6,18 index_attribute_map.attribute_id 000753 aa 7 77777 40 0022 descb pr7|-1(18),18 relation_description.attribute STATEMENT 1 ON LINE 141 end; 000754 aa 6 00102 0541 00 aos pr6|66 index_attribute_idx 000755 aa 777707 7100 04 tra -57,ic 000664 STATEMENT 1 ON LINE 142 end; STATEMENT 1 ON LINE 143 end LOOP_OVER_INDICES; 000756 aa 6 00103 0541 00 aos pr6|67 iam_index_idx 000757 aa 777427 7100 04 tra -233,ic 000406 STATEMENT 1 ON LINE 145 LOOP_OVER_ATTRIBUTES: do attribute_idx = 1 to hbound (relation_description.attribute, 1); 000760 aa 6 00126 3735 20 epp7 pr6|86,* relation_description_ptr 000761 aa 7 00001 2351 00 lda pr7|1 relation_description.number_of_attributes 000762 aa 000022 7350 00 als 18 000763 aa 000066 7330 00 lrs 54 000764 aa 6 00157 7561 00 stq pr6|111 000765 aa 000001 2360 07 ldq 1,dl 000766 aa 6 00100 7561 00 stq pr6|64 attribute_idx 000767 aa 000000 0110 03 nop 0,du 000770 aa 6 00100 2361 00 ldq pr6|64 attribute_idx 000771 aa 6 00157 1161 00 cmpq pr6|111 000772 aa 000074 6054 04 tpnz 60,ic 001066 STATEMENT 1 ON LINE 147 alloc based_descriptor_string in (p_work_area); 000773 aa 000001 2360 07 ldq 1,dl 000774 aa 6 00032 3735 20 epp7 pr6|26,* 000775 aa 7 00004 3715 20 epp5 pr7|4,* p_work_area_ptr 000776 aa 5 00000 3521 20 epp2 pr5|0,* p_work_area 000777 aa 0 01402 7001 00 tsx0 pr0|770 alloc_based 001000 aa 777773 7100 04 tra -5,ic 000773 001001 aa 6 00104 2521 00 spri2 pr6|68 based_descriptor_string_ptr STATEMENT 1 ON LINE 148 based_descriptor_string = attribute_info.attribute (attribute_idx).descriptor; 001002 aa 6 00120 3735 20 epp7 pr6|80,* attribute_info_ptr 001003 aa 7 00002 2351 00 lda pr7|2 attribute_info.maximum_attribute_name_length 001004 aa 000022 7350 00 als 18 001005 aa 000066 7330 00 lrs 54 001006 aa 000003 0760 07 adq 3,dl 001007 aa 000002 7320 00 qrs 2 001010 aa 000002 0760 07 adq 2,dl 001011 aa 6 00222 7561 00 stq pr6|146 001012 aa 6 00100 2361 00 ldq pr6|64 attribute_idx 001013 aa 000001 1760 07 sbq 1,dl 001014 aa 6 00224 7561 00 stq pr6|148 001015 aa 6 00222 4021 00 mpy pr6|146 001016 aa 7 00003 2351 06 lda pr7|3,ql attribute_info.descriptor 001017 aa 2 00000 7551 00 sta pr2|0 based_descriptor_string STATEMENT 1 ON LINE 149 relation_description.attribute (attribute_idx).descriptor_ptr = based_descriptor_string_ptr; 001020 aa 6 00126 3715 20 epp5 pr6|86,* relation_description_ptr 001021 aa 5 00002 2351 00 lda pr5|2 relation_description.maximum_attribute_name_length 001022 aa 000022 7350 00 als 18 001023 aa 000000 6270 06 eax7 0,ql 001024 aa 000066 7330 00 lrs 54 001025 aa 6 00222 7561 00 stq pr6|146 001026 aa 000003 0760 07 adq 3,dl 001027 aa 000002 7320 00 qrs 2 001030 aa 000001 0760 07 adq 1,dl 001031 aa 000001 0760 07 adq 1,dl 001032 aa 777776 3760 07 anq 262142,dl 001033 aa 6 00226 7561 00 stq pr6|150 001034 aa 000002 0760 07 adq 2,dl 001035 aa 000001 0760 07 adq 1,dl 001036 aa 777776 3760 07 anq 262142,dl 001037 aa 6 00225 7561 00 stq pr6|149 001040 aa 6 00100 4021 00 mpy pr6|64 attribute_idx 001041 aa 6 00225 1761 00 sbq pr6|149 001042 aa 6 00227 7561 00 stq pr6|151 001043 aa 6 00226 2361 00 ldq pr6|150 001044 aa 000004 0760 07 adq 4,dl 001045 aa 6 00227 0761 00 adq pr6|151 001046 aa 5 00000 2521 06 spri2 pr5|0,ql relation_description.descriptor_ptr STATEMENT 1 ON LINE 150 relation_description.attribute (attribute_idx).name = attribute_info.attribute (attribute_idx).name; 001047 aa 6 00224 2361 00 ldq pr6|148 001050 aa 6 00225 4021 00 mpy pr6|149 001051 aa 000000 6260 06 eax6 0,ql 001052 aa 7 00004 2361 17 ldq pr7|4,7 attribute_info.name 001053 aa 6 00222 1161 00 cmpq pr6|146 001054 aa 000002 6040 04 tmi 2,ic 001056 001055 aa 6 00222 2361 00 ldq pr6|146 001056 aa 7 00005 3535 17 epp3 pr7|5,7 attribute_info.name 001057 aa 5 00004 7561 16 stq pr5|4,6 relation_description.name 001060 aa 5 00005 3515 16 epp1 pr5|5,6 relation_description.name 001061 aa 040 140 100 540 mlr (pr,rl),(pr,rl),fill(040) 001062 aa 3 00000 00 0006 desc9a pr3|0,ql attribute_info.name 001063 aa 1 00000 00 0006 desc9a pr1|0,ql relation_description.name STATEMENT 1 ON LINE 151 end LOOP_OVER_ATTRIBUTES; 001064 aa 6 00100 0541 00 aos pr6|64 attribute_idx 001065 aa 777703 7100 04 tra -61,ic 000770 STATEMENT 1 ON LINE 153 p_relation_description_ptr = relation_description_ptr; 001066 aa 6 00126 3735 20 epp7 pr6|86,* relation_description_ptr 001067 aa 6 00032 3715 20 epp5 pr6|26,* 001070 aa 5 00006 6535 20 spri7 pr5|6,* p_relation_description_ptr STATEMENT 1 ON LINE 155 return; 001071 aa 0 00631 7101 00 tra pr0|409 return STATEMENT 1 ON LINE 190 end rlm_get_description; BEGIN PROCEDURE FINISH ENTRY TO FINISH STATEMENT 1 ON LINE 157 FINISH: proc (); 001072 aa 6 00100 6501 00 spri4 pr6|64 STATEMENT 1 ON LINE 160 if p_relation_description_ptr = null () /*unsuccessful*/ then if relation_description_ptr ^= null () then free relation_description; 001073 aa 6 00040 3735 20 epp7 pr6|32,* 001074 aa 7 00032 3715 20 epp5 pr7|26,* 001075 aa 5 00006 2371 20 ldaq pr5|6,* p_relation_description_ptr 001076 aa 776736 6770 04 eraq -546,ic 000034 = 077777000043 000001000000 001077 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 001100 aa 000047 6010 04 tnz 39,ic 001147 001101 aa 7 00126 2371 00 ldaq pr7|86 relation_description_ptr 001102 aa 776732 6770 04 eraq -550,ic 000034 = 077777000043 000001000000 001103 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 001104 aa 000043 6000 04 tze 35,ic 001147 001105 aa 7 00126 3535 20 epp3 pr7|86,* relation_description_ptr 001106 aa 3 00002 2351 00 lda pr3|2 relation_description.number_of_indices 001107 aa 000066 7330 00 lrs 54 001110 aa 6 00106 7561 00 stq pr6|70 relation_description.number_of_indices 001111 aa 3 00001 2351 00 lda pr3|1 relation_description.maximum_number_of_attributes_per_index 001112 aa 000066 7330 00 lrs 54 001113 aa 000022 4020 07 mpy 18,dl 001114 aa 000154 0760 07 adq 108,dl 001115 aa 000043 0760 07 adq 35,dl 001116 aa 000044 5060 07 div 36,dl 001117 aa 6 00106 402Itani tT:pz Itani Multics XO˷4TTU=noneSTY_TELNET Om-BThibodeaux