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

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 *