HP3000-L Archives

March 2008, Week 3

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: FWRITEDIR Problem
From:
Brian Donaldson <[log in to unmask]>
Reply To:
Brian Donaldson <[log in to unmask]>
Date:
Fri, 21 Mar 2008 10:19:29 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (71 lines) 
What I failed to mention is that first time in, the file does not exist. 

The FWRITEDIR writes to logical record #7 thus creating the record.

2nd thru Nth time the FWRITEDIR keeps overwriting the same record (logical
rec #7) which is exactly what I want.

After doing a LISTF I see that the eof = 8. This is correct.

Now, this works great on the 917 but when I move it over to the 927,
recompile, link and run the program, the FWRITEDIR fails with FSERR code 40.

The aoptions on the file's FOPEN are correct -- %345, allows update i/o,
shared access, and dynamic locking.

I don't get it. 

I don't know what OS the 927 is running under.


Brian.

On Fri, 21 Mar 2008 05:48:15 -0500, Denys Beauchemin <[log in to unmask]> wrote:

>Did you copy the target file to the 927 or did you just create an empty file
>there?
>
>Is the 927 also running 6.5 PP3?
>
>Denys
>
>-----Original Message-----
>From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf
>Of Brian Donaldson
>Sent: Friday, March 21, 2008 5:07 AM
>To: [log in to unmask]
>Subject: [HP3000-L] FWRITEDIR Problem
>
>I have a COBOL program that writes 7 records to a priv mode file.
>
>This part works ok...
>
>I do an FWRITE to logical record #7 (physically the 8th record) and
>this works just fine, a-ok.
>
>This program is compiled and run on a 917LX under 6.5 PP3 using COB85XL
>
>
>I move this source code onto our 927 box, recompile and re-run and kaboom(!)
>
>Program aborts when the FWRITEDIR to logical record #7 fails with
>an FSERR code of 40
>
>What I do not understand is why it works perfectly on the 917 but fails
>when it is run on the 927.
>
>Any insight as to what the problem may be would be appreciated as this is a
>major showstopper.....
>
>TIA,
>Brian Donaldson.
>
>* To join/leave the list, search archives, change list settings, *
>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>
>* To join/leave the list, search archives, change list settings, *
>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

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

ATOM RSS1 RSS2