Re: Question on failing file open to a IFS file

On Oct 26, 2016, at 4:18 PM, D Freinkel (a4g) <DFreinkel@xxxxxxxxxxxxxxxxx> wrote:

I have a SQLRPGLE program that is opening or creating a file in the IFS.



When I open the file or try to create it, I get a -1 for the FD.



I was sure this did work but stopped and I have no idea why. How can I track
the reason?



Here is the code.



TIA



Darryl Freinkel



Path = %trim(IFS_File);

fd = open(%trimr(Path) :

O_RDWR+O_TEXTDATA );

if fd < 0 ;

fd = open(%trimr(Path) :

O_CREAT+O_TRUNC+O_WRONLY+O_CODEPAGE :

RW*OWNER + RW*GROUP + R :

819 );

callp close(fd);

fd = open(%trimr(Path) :

O_RDWR+O_TEXTDATA );

endif;



path = "/ADA/IND_SO-01 Sales Order Hdr.TXT"






--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.