RE: Reading from IFS

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

Hi Mike,

I agree with Buck.  The starting point for troubleshooting errors on the 
open() API is to check the value of errno. Then, pass the value of errno 
to strerror() to get a nice error message. This should be done any time 
an IFS API fails so that you can provide meaningful information about the 
error.

If you still can't figure out the problem, post the error message and/or 
value of errno to this forum.  But, without that basic piece of 
information, there's little we can do to help you.

---
Scott Klement  http://www.scottklement.com


On Wed, 31 May 2006, Smith, Mike wrote:

> I don't think that is the issue but I could be wrong.
> D File            S             40
> D FileName        S             40
>
> C                   Eval      Oflag = O_Rdonly + O_Textdata
> C                   Eval      File = %trim(FileName) + x'00'
> C                   Eval      Fp = open(%addr(File): Oflag)
> C                   If        Fp < 0
> C                   Eval      Error_Flag = *On
> C                   Return    Error_Flag
> C                   Endif
>
> File /pfflr/tstprf.txt will open, but
> File /pdfflr/snapiiiwf.txt will not.
>
> Michael Smith
> iSeries.mySeries.