Question on failing file open to a IFS file

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"