In message 
<[log in to unmask]>, John 
Pitman <[log in to unmask]> writing at 08:41:11 in his/her local time 
opines:-
>If you are getting fserr 0 (EOF?) , is the file empty, and therefore 
>useless ? Does it exists still?
>I would be adding LOTS of diagnostic prints and inputs from keyboard so 
>you could look at file situation before and after fclose and re-fopen, 
>ie
>Stall immediately before fclose, break, listf file,3
>Repeat stall after close, before re open, repeat listf etc....
>
>Regards,
>
>John Pitman

What John said...

But a tiny bell is ringing. Are you reading the response from the 
(HP)FOPEN directly, or are you perhaps calling FCHECK on a failure (if 
this is FOPEN) and seeing what that says?

In which case, it's hard to know with a returned 0 if that was from a 
failed FOPEN, or a successful one, but where you are at EOF.

I had a case of something very like this recently.

I take it, BTW, that this circular file is built before the first FOPEN? 
It's not that that builds it, and later ones are trying to point out 
that you can't build it again, as it already exists?

Another thing I'd try, besides the above, it to stall after the first 
go-round, check the circular file exists, and then put some data in it, 
before allowing the subsequent open. That will at least avoid the 0 = 
EOF potential confusion.

>From: [log in to unmask] [mailto:[log in to unmask]]
>Sent: Thursday, 22 April 2010 8:24 AM
>To: John Pitman
>Subject: Re: [HP3000-L] Fwd: HP3000-L: Cobol/FOPEN/HPFOPEN Problem
>
>The problem is only occurring with circular files. All other file types 
>FOPEN successfully.
>
>The first fopen of a circular file succeeds, 2nd thru n th fopen of 
>circular files fail with a file number = 0
>
>(C-C = zeroes but the file num= zeroes)
>
>The problem is happening regardless of privmode or usermode. I just 
>don't get it and can't
>figure out what is wrong. I am passing the correct filecode and 
>lockword to the file name for the fopen. The filecode and lockword are 
>being retrieved by my pascal subs that call the AIF intrinsic 
>AIFFILEGGET.
>
>I have been messing with this for two weeks or more now.
>
>Ho hum.
>
>Brian.
>
>________________________________
>CAUTION: This message may contain privileged and confidential 
>information intended only for the use of the addressee named above. If 
>you are not the intended recipient of this message you are hereby 
>notified that any use, dissemination, distribution or reproduction of 
>this message is prohibited. If you have received this message in error 
>please notify RYCO Hydraulics Pty. Ltd. immediately. Any views 
>expressed in this message are those of the individual sender and may 
>not necessarily reflect the views of RYCO Hydraulics Pty. Ltd.
>
>* To join/leave the list, search archives, change list settings, *
>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

-- 
Roy Brown        'Have nothing in your houses that you do not know to be
Kelmscott Ltd     useful, or believe to be beautiful'  William Morris

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *