1 /* BEGIN INCLUDE vrm_meter_man.incl.pl1 */
 2 
 3 dcl  meter_info_ptr ptr;                                    /* Pointer vrm_metering temp segment  */
 4 
 5 dcl 1 meter_info aligned based (meter_info_ptr),
 6     2 all_sw bit (1) unal,                                  /* ON  = meter all
 7                                                                OFF = Meter only relation in list */
 8     2 meter_on bit (1) unal,                                /* ON = metering is being done */
 9     2 mbz bit (34) unal,
10     2 num_rels fixed bin,                                   /* Number of relations in list */
11     2 rel_info (MAX_RELS),                                  /* Relations being metered */
12        3 rel_name char (32),                                /* Name of relation */
13        3 rel_dir char (168) unal,                           /* Relation superior directory path */
14        3 uid bit (36) aligned,                              /* Unique id if msf dir of relation */
15        3 number_meters fixed bin,                           /* Number pof meter in this list */
16        3 meter_ptrs (5) ptr,                                /* Pointers to meter statistics */
17 
18 
19     2 work_area area (sys_info$max_seg_size - fixed (rel (addr (meter_info.work_area))) - 1);
20 
21 dcl  MAX_RELS fixed bin int static options (constant) init (40);
22 
23 /* END INCLUDE vrm_meter_man.incl.pl1 */