Path: utzoo!utgpu!water!watmath!clyde!att!osu-cis!tut.cis.ohio-state.edu!mailrus!ames!pasteur!ucbvax!CITHEX.CALTECH.EDU!carl
From: carl@CITHEX.CALTECH.EDU (Carl J Lydick)
Newsgroups: comp.os.vms
Subject: Re: RMS question.
Message-ID: <880527110633.321@CitHex.Caltech.Edu>
Date: 27 May 88 18:09:46 GMT
References: <127*dahls@vax.elab.unit.uninett>
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 23


 > I am trying to use a useropen routine when opening a file from fortran. The
 > file get open, but I can't access it. When trying to read record 1 from it,
 > I got the following error messages:
 > 
 > %FOR-E-ERRDURREA, error during read ......
 > 
 > If I remove the err=1000 in the read line (se below), I do not get the error
 > messages, but nothing is read from the file!!! Finally, if I don't use the
 > useropen routine, everything works - no problem.
 > 
 > The purpose of the useropen routine, is to get the $XABDAT, $XABPRO and
 > $XABRDT fields - and it work just fine. I have tried to change the content
 > of the fields FAB$L_FOB, FAB$B_SHR and FAB$B_RFM, but without any luck.
 > 
 > Is there anyone out there who can help me to fix this problem?

I don't know for sure (it's been a LONG time since I've done this sort of
thing), but I think there should be a call to SYS$CONNECT somewhere in your
useropen routine.   As it is, you've opened the file, but you haven't connected
to it (that, I think, is the reason you want the RAB block as one of the
parameters to the useropen routine).  Hope that if this doesn't help, it
at least doesn't lead you too far astray).