RE: ifs file is there but not there

["Phil" <sublime78ska@xxxxxxxxx>]

I figured it out.  I defined the filename as varying, expecting the unused
part to be dropped but it wasn't.    My file had about a bunch of trailing
blanks in the name.

Phil

> -----Original Message-----
> From: midrange-l-admin@midrange.com
> [mailto:midrange-l-admin@midrange.com]On Behalf Of Phil
> Sent: Wednesday, August 29, 2001 6:54 PM
> To: midrange-l@midrange.com
> Subject: ifs file is there but not there
>
>
> All,
>
> I am creating an IFS file with an RPG program, then FTP'ing that file.
>
> I close the file after creating it, and the response is 0.
>
> But, if I do WRKLNK for the file it tells me CPFA0A9 but if I do WRKLNK to
> the folder, and display the folder, I can find the file (and edit it).
>
> This is causing me a problem because FTP can't get to the file either.
>
> Later in the program I delete the file (using unlink) and it is
> able to find
> the file for that!
>
> Here's the code I'm using to create the file:
>
>      C                   eval      FileDesc = open(%ADDR(FileNam)
>      C                               : O_CREAT + O_WRONLY + O_TRUNC +
>      C                                 O_CODEPAGE + O_INHERITMODE
>      C                               : S_IRWXU + S_IROTH
>      C                               : AsciiCodePage)
>      C                   eval      rc = close(FileDesc)
>      C                   eval      FileDesc = open(%ADDR(FileNam)
>      C                               : O_TEXTDATA + O_RDWR)
>
> Anyone know why I'm getting CPFA0A9?
>
> Thanks,
>
> Phil
>
>
>
> _________________________________________________________
> Do You Yahoo!?
> Get your free @yahoo.com address at http://mail.yahoo.com
>
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L)
> mailing list
> To post a message email: MIDRANGE-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
> or email: MIDRANGE-L-request@midrange.com
>


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com