Path: utzoo!attcan!uunet!lll-winken!lll-tis!helios.ee.lbl.gov!pasteur!ucbvax!VPFVM.BITNET!XRBEO
From: XRBEO@VPFVM.BITNET (Bruce O'Neel)
Newsgroups: comp.os.vms
Subject: Re: PAGE FILE USAGE
Message-ID: <8807071644.AA24537@ucbvax.Berkeley.EDU>
Date: 5 Jul 88 12:15:21 GMT
References: 
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 13

My GUESS is that the following will work.

You need to call sys$getjpi with two different Item descriptors in one
request.

  The first is JPI$_PAGFILCNT - The process's remaining pageing file quota
  The other is JPI$_PGFLQOUTA - THe process's pageing file quota

The number of pages in the page file for this process should be the
pageing file quota minus the remaining pageing file quota.   THis is page
SYS-209 in Manual 8D Dated April 1986.  A working example of how to call
system services in fortran can be found on SYS-268 in the same manual.

bruce