1 /* BEGIN INCLUDE FILE mrds_res_attr_info.incl.pl1 */ 2 3 4 /****^ HISTORY COMMENTS: 5 1) change(86-05-14,Dupuis), approve(86-08-05,MCR7491), audit(86-08-08,Blair), 6 install(86-08-15,MR12.0-1127): 7 Created by Al Dupuis to resolve a problem where the "rdbi" segment was 8 overflowing. Previously mrds was allocating a "rm_attr_info" structure for 9 each attribute in each relation. In certain cases (phx20301, mrds #154) 10 with very large databases, this resulted in thousands of structures being 11 allocated. This new include keeps track of "rm_attr_info" structures and 12 stops duplicates from being allocated, bringing the allocation counts down 13 from the thousands to the hundreds. 14 END HISTORY COMMENTS */ 15 16 dcl 1 resultant_attributes_info aligned based (resultant_attributes_info_ptr), 17 2 number_of_attributes fixed bin, 18 2 current_number_of_attributes fixed bin, 19 2 attributes (rai_init_number_of_attributes refer (resultant_attributes_info.number_of_attributes)), 20 3 name char (32) unaligned, 21 3 value_ptr ptr; 22 dcl rai_init_number_of_attributes fixed bin; 23 dcl resultant_attributes_info_ptr ptr; 24 25 /* END INCLUDE FILE mrds_res_attr_info.incl.pl1 */