Re: Having problems accessing IFS from RPGIV

[Jim Langston <jlangston@xxxxxxxxxxxxxxxx>]

I haven't done either of these things yet, but I will try to think
logically as to what could be happening.

As to the open only working the day you compile your program,
what are you doing between days?  My guess is you are either IPLing,
or you are deleting the file and recreating it.  You state you do not
modify the text file in any way though.  So that leaves us with IPLing
perhaps?  That sounds like a bug to me, but I think you need to pin
point when (why) it fails.  Something changes from one day to the
next.  It could be the clock rolling over, or it could be an IPL perhaps.
Does the program fail only on one particular file?  Or any file?  Do you
shut down the IFS at night and restart it during the day?

As to why errno is always 0, I have no idea.  I would suggest
running the program in debug and looking at the variables.  I don't
know enough about error return codes to be of any use.

Regards,

Jim Langston

MSievers@promega.com wrote:

> I am having 2 problems access the IFS system from an RPGIV program.   Any
> help would be greatly appreciated.  We are running v4r2.
>
> 1)  I am having a weird problem with my open() function.  It will work fine
> the day I compile the program but the next day it will fail.  If I recompile
> the program without making any source changes it will again for that day.
> On both days I am trying to open the same text file.  The text file has not
> be altered in any way.   The open is for ready only.
>
> 2) I am trying to retrieve the value of errno when a function fails without
> success.  Here is a snippet of my code.   The variable errno always contains
> 0 even when the FileHandle is -1.
>
> D errnoF          PR              *   EXTPROC('__errno')
>
> D errnoP          S               *
> D errno           S             10I 0 BASED(errnoP)
>
> C                   Eval      FileHandle=open(%addr(FilePath):oflag)
> C                   EVAL      errnoP = errnoF
> C     'errno'       DSPLY                   errno
>
> Thanks for you help
>
> Mark

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---