1 /*  START OF:       link_meters.incl.pl1                      *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */
 2 
 3 /* Written December 1980 by J. Bongiovanni */
 4 
 5 /* link_meters is an array of data maintained by link_snap.
 6    It is updated on each successful call to link_snap, based
 7    on the virtual cpu time consumed during the call, as follows:
 8 
 9         vcpu time (ms.)     array index
10 
11              < 25                1
12           25 - 50                2
13           50 - 75                3
14              > 75                4
15 */
16 
17 dcl 1 link_meters (4) aligned based,
18     2 total fixed bin (35),                                 /* total number calls                             */
19     2 pf fixed bin (30),                                    /* total number page faults                       */
20     2 time fixed bin (35),                                  /* total vcpu time (microsec.)                    */
21     2 search_pf fixed bin (30),                             /* page faults while searching for segment        */
22     2 search_time fixed bin (35),                           /* vcpu time while searching for segment          */
23     2 get_linkage_pf fixed bin (30),                        /* page faults while combining linkage            */
24     2 get_linkage_time fixed bin (35),                      /* vcpu time while combining linkage              */
25     2 defsearch_pf fixed bin (30),                          /* page faults while searching definitions        */
26     2 defsearch_time fixed bin (35),                        /* vcpu time while searching definitions          */
27     2 total_others fixed bin (30),                          /* count of types 1, 2, and 5                     */
28     2 others_pf fixed bin (30),                             /* page faults while processing types 1, 2, 5     */
29     2 others_time fixed bin (35),                           /* vcpu time while processing types 1, 2, 5       */
30     2 tot_make_ptr fixed bin (30),                          /* count of calls to make_ptr and make_seg        */
31     2 total_type_6 fixed bin (30),                          /* count of type 6                                */
32     2 create_pf fixed bin (30),                             /* obsolete - retained for metering consistency   */
33     2 create_time fixed bin (35),                           /* obsolete - retained for metering consistency   */
34     2 type_6_pf fixed bin (30),                             /* page faults while processing type 6            */
35     2 type_6_time fixed bin (35);                           /* vcpu time while processing type 6              */
36 
37 
38 /*  END OF:         link_meters.incl.pl1                      *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */