1 /* BEGIN INCLUDE FILE ... long_profile.incl.pl1 */ 2 /* coded December 1, 1976 by Richard A. Barnes */ 3 4 dcl 1 long_profile_header based aligned, 5 2 last_vcpu fixed bin(71), /* last virtual cpu reading */ 6 2 last_pf fixed bin, /* last page faults reading */ 7 2 last_offset fixed bin, /* offset of last profile entry metered */ 8 2 nentries fixed bin, /* number of profile entries */ 9 2 dummy like long_profile_entry aligned, /* dummy profile entry */ 10 2 control like long_profile_entry aligned; /* control profile entry for overhead calc */ 11 12 dcl 1 long_profile_entry based aligned, 13 2 map bit(18) unaligned, /* rel ptr to statement map entry */ 14 2 skip bit(18) unaligned, 15 2 count fixed bin, /* number of times stmt encountered */ 16 2 vcpu fixed bin, /* total execution time for this statement */ 17 2 pf fixed bin; /* total page faults for this statement */ 18 19 dcl (dummy_entry_offset init(5), /* offset in long_profile_header of dummy */ 20 control_entry_offset init(9)) /* offset in long_profile_header of control */ 21 fixed bin int static options(constant); 22 23 /* END INCLUDE FILE ... long_profile.incl.pl1 */