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 */