1 /* BEGIN INCLUDE FILE mrds_select_area.incl.pl1   (Kepner Multics)  05/29/79 1736.1 mst Tue */
 2 dcl 1 select_area_struct aligned based (select_area_struct_ptr), /* major structure in segment for current selection expression allocations */
 3     2 version fixed bin,
 4     2 dbcb_ptr ptr;                                         /* ptr ptr to dbcb */
 5 
 6 dcl  select_area_struct_ptr ptr int automatic init (null ());
 7 
 8 dcl  select_area area (sys_info$max_seg_size - size(model_seg)) based (select_area_ptr);
 9 
10 dcl  select_area_ptr ptr int automatic init (null ());
11                                                             /*   END INCLUDE FILE mrds_select_area.incl.pl1 */
12