Path: utzoo!attcan!uunet!husc6!mailrus!uwmcsd1!ig!agate!ucbvax!VPFVM.BITNET!XRBEO
From: XRBEO@VPFVM.BITNET (Bruce O'Neel)
Newsgroups: comp.os.vms
Subject: Re: open files
Message-ID: <8807040311.AA13362@ucbvax.Berkeley.EDU>
Date: 30 Jun 88 12:13:13 GMT
References: 
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 11

Has dec got the system service for you.

Try the following,

   call sys$getjpi using the item code of jpi$_filcnt to get the open file
quota left at the beginning of the program, then call sys$getjpi with the
item code jpi$_filcnt every time you want to know how many files you have
left open (first value - current value).  Look at page sys-209 in manual 8d
of the orange set.

bruce  on bitnet