From: gloesener@istvax
Newsgroups: comp.os.vms
Subject: Re: CPU time measurement on VMS
Date: 26 Jan 93 14:41:25 GMT
Distribution: world
Organization: The Internet

> In article <01GTTXFQMDQQ0006QT@ACAD.DRAKE.EDU>, SK0001@ACAD.DRAKE.EDU (Sal Kabalani) writes:
> >LS>    I am a new user of OpenVMS running on Alpha. I have a problem and I am
> >LS> asking for your help.  I have a FORTRAN program. I compile and link it and
> >LS> use run command to run it.  My question is how I can measure the total CPU
> >LS> used by the execution of the program.  In UNIX, I can easily use time to
> >LS> do it.  But how do I do it in VMS?  Can some one help me?  Thanks a lot.
> >
> >The following is a fragment of code from a program I wrote a few months ago.
> >The fragment reports CPU Time, Buffered I/O, Direct I/O and Page Faults used
> >during program execution. The way the code works is simple: you collect this
> >information at the beginning of your program using sys$getjpi, then collect it
> >again at the end, then report the difference.
>
> Why not just:
> 	$ SHOW STATUS
> 	$ RUN program
> 	$ SHOW STATUS
> then subtract the former CPU time from the latter?  That will, of course,
> include the time required for 1 "SHOW STATUS" command plus the time to activate
> the image in the "RUN program" command, and of course you'll have to subtract
> the times yourself (or write, e.g., a TPU procedure to do it for you).
 
 Or SET CONTROL=T (if it is not the default)
 
 Press CTRL-T
 
 $ RUN program
 
 Press CTRL-T
 and substract the times.
 
 
 
================================================================================
                       | GGGGGG     Gasty Gloesener,
IIIIII  SSSSSS  TTTTTT | GG         Assistant of the Institute of Technology
  II    SS        TT   | GG  GGGGGG in Luxembourg
  II    SSSSSS    TT   | GG  GG
  II        SS    TT   | GGGGGG     Responsible for: VMS management, security,
IIIIII  SSSSSS    TT   |     GG  GG                  programming
                       |     GGGGGG                  UNIX stations management
                       |                             NETWORK management
================================================================================
e-mail: gloesener@istvax.ist.lu       | PSI: psi%0270442110::GLOESENER
        gloesener@menvax.restena.lu   |
================================================================================

================================================================================
                       | GGGGGG     Gasty Gloesener, 
IIIIII  SSSSSS  TTTTTT | GG         Assistant of the Institute of Technology
  II    SS        TT   | GG  GGGGGG in Luxembourg
  II    SSSSSS    TT   | GG  GG     
  II        SS    TT   | GGGGGG     Responsible for: VMS management, security,
IIIIII  SSSSSS    TT   |     GG  GG                  programming
                       |     GGGGGG                  UNIX stations management
                       |                             NETWORK management
================================================================================
e-mail: gloesener@istvax.ist.lu       | PSI: psi%0270442110::GLOESENER
        gloesener@menvax.restena.lu   |
================================================================================

Newsgroups: comp.os.vms