john n hibbs wrote: > I need to write a RMS file using Cache 4.1 for Alpha OpenVMS. > > While doing that I need to monitor the size of the file so I don't go over a > file size limit that is being imposed by a vendor. ... > Anybody have any suggestions?
On Windows, $zu(140,1,filename) appears to work. $ZB <http://platinum.intersys.com/csp/docbook/DocBook.UI.Page.cls?KEY=RCOS_vzb> performed this function on MSM. Apparently ISC did not implement this functionality. Perhaps the $zu(140,1,) will work with VMS. > I'm looking for something "better" than trying to count the bytes as they > are being written or some similar nonsense. I suspect that there is a better way. > I'll do that if I have to. If I had to, probably I would add the value from $X after each record/block before writing any line delimiters. Adjust for delimiters (if any), and, if necessary, SET $X=0. For this reason it is good to use a single subroutine instead of having lots of instances of W ! scattered throughout your code. Alternatively, you can use something like X LF or a custom mnemonic space <http://platinum.intersys.com/csp/docbook/DocBook.UI.Page.cls?KEY=GIOD_iodevcomms#GIOD_C40574>. If disk quotas are being used, you could run the job under a special username with the correct disk quota and write to a fixed filename on the disk with quotas enabled. Upon successful creation of the file, the file creator should be changed to some other UID and the file moved to another directory.
