home *** CD-ROM | disk | FTP | other *** search
- Path: sparky!uunet!comp.vuw.ac.nz!am.dsir.govt.nz!lhn.gns.cri.nz
- References: <2b022ab8.3aaa@lhn.gns.cri.nz>,<1992Nov12.150639.8340@e2big.mko.dec.com>
- From: mdlcpgs@lhn.gns.cri.nz
- Newsgroups: comp.lang.fortran
- Subject: Re: Turning VAX FORTRAN IOSTAT returns into VMS status codes?
- Message-ID: <2b0763ea.3d21@lhn.gns.cri.nz>
- Date: Sun, 15 Nov 92 21:03:38 GMT
- Organization: Institute of Gelogical & Nuclear Sciences, New Zealand.
- Lines: 17
-
- >From: lionel@quark.enet.dec.com (Steve Lionel)
- >Subj: Re: Turning VAX FORTRAN IOSTAT returns into VMS status codes?
-
- >|>Hi. I wonder if anyone can tell me how to turn a VAX FORTRAN
- >|>IOSTAT status return value into a VMS status for signalling
- >|>by LIB$SIGNAL? I cant in this application use ERRSNS because
- >|>the error of interest may not be the last io transaction on
- >|>the file at the time when I want to signal.
- >
- >Here's a function that does it. It's a bit wordier than I might have hacked
- [ excellent code removed. See original message ]
-
- Thanks Lionel, precisely what I needed. Take the PG Scadden Award for being
- a Scholar and a Gentleman.
-
- Thanks also to others who posted or replied.
- Phil Scadden.
-