RE: Reading from IFS

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.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Bob Cozzi
Sent: Wednesday, May 31, 2006 1:18 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: Reading from IFS


Probably the file name you're specifying is not correct.
For example, if a field is declared as Char(17) in your program and you
file name is:

/cozzi/myFile.txt
It is passed to the OPEN operation and will work.
But if the file name is:
/cozzi/aa.txt

And it is passed through the same 17-byte variable to the OPEN API, then
it will not find it unless you wrap the variable name in %TRIMR().


-Bob Cozzi
www.iSeriesTV.com
iPod your industry news instead of reading it.
Coming June 2006
Ask your friends to tune into iSeriesTV.com


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Smith, Mike
Sent: Wednesday, May 31, 2006 11:52 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Reading from IFS

I'm am trying to redo an application that was written in KIX by a former
employee.  I want to read the file via rpg from the IFS.  I found a
program I had downloaded a long time ago to read from the IFS.

The problem I'm having is that in testing this little program out, I
have some files(.txt) that it will read and others that I get an 
(error> - file not found) message.

The files are there.  In particular the file that I really need to read,
is receiving the message.

What are some things I can check to determine the problem?  I have
looked at CCSID on the files, but I'm not getting a consistence value 
on the different files that I have experimented with.



Michael Smith
iSeries.mySeries.