$! BENCH.COM $! $! Program to benchmark a system activity $! $! 19-Sep-92 L. Baldwin $! $! SET WORK/QUOTA=750/EXT=1000 $ SET NOVERIFY $ SET OUTPUT=:0:15 $et:==edit/tpu/nojournal/read/noinit $LOOP: $ min=f$cvtime(,,"MINUTE") $ sec=f$cvtime(,,"SECOND") $ hun=f$cvtim(,,"HUNDREDTH") $ start_et=hun + (sec*100) + (min*60*100) ! Get elasped time (in 1/100ths) $ start_dio=f$getjpi(0,"DIRIO") ! Direct (disk) I/O $ start_pf=f$getjpi(0,"PAGEFLTS") ! Page faults $ start_cpu=f$getjpi(0,"CPUTIM") ! CPU time (in 1/100ths) $ run sys$manager:hard ! Get Hard page faults $ start_hard = f$integer(hardflts) ! HARD sets HARDFLTS symbol $! $! Add system activity here $! $ et/nodisplay/command=sys$input QUIT $! convert t.dat a.dat $! $ end_cpu=f$getjpi(0,"CPUTIM") ! Get ending stats $ end_dio=f$getjpi(0,"DIRIO") $ end_pf=f$getjpi(0,"PAGEFLTS") $ run sys$manager:hard ! Get Hard page faults $ end_hard = f$integer(hardflts) ! HARD sets HARDFLTS symbol $ min=f$cvtime(,,"MINUTE") $ sec=f$cvtime(,,"SECOND") $ hun=f$cvtim(,,"HUNDREDTH") $ end_et=hun + (sec*100) + (min*60*100) $ usd_cpu = end_cpu - start_cpu ! Calculate used stats $ usd_dio = end_dio - start_dio $ usd_hard = end_hard - start_hard $ usd_pf = (end_pf - start_pf) - usd_hard ! Soft faults = total - hard $ usd_et = end_et - start_et $ out = f$fao("Cpu: !5UL Dio: !5UL SF:!5UL HF:!5UL ET: !5UL",usd_cpu,- usd_dio, usd_pf, usd_hard, usd_et) $ write sys$output "''out'" ! Output stats $ goto LOOP