Re: Help creating file on IFS

[Henrik Rützou <hr@xxxxxxxxxxxx>]

With all respect for Scott

use powerEXT

echo( '123456179 THIS IS A TEST ITEM,213123434 THIS IS ANOTHER');
echoToStmf('/myfile,txt':1208);


On Mon, Jun 18, 2012 at 3:20 PM, Jeff Young <jyoung0950@xxxxxxxxx> wrote:

> All,
> I have a program that is attempting to create a file on the IFS.
> I am using the IFSIO_H copybook from Scotts IFS book for the prototypes.
> The snippet of code below is failing on the open.
> <snip>
>
> D IFS_File_Name S 50A
>
> D FileDs S 10I 0
>
> D RC S 10I 0
>
> D Bytes_Loaded S 10I 0
>
> D Msg S 256A Based(p_Msg)
>
> D Test_Data S 1350A
>
> D
>
> // Prototypes for IFS Processing
>
> /Copy QCopyBks,IFSIO_H
>
> /copy QCopyBks,ERRNO_H
>
> /Free
>
> Test_Data = '123456179 THIS IS A TEST ITEM,213123434 THIS IS ANOTHER';
>
> // Create file on IFS
>
> IFS_File_Name = '/excel/xml/I' +
>
> '12456' +
>
> '_' +
>
> '0' +
>
> '.csv';
>
> FileDs = Open(IFS_File_Name // Path & File Nmae
>
> : O_CREAT + // Create File
>
> O_WRONLY + // Write Only
>
> O_CCSID + // Use Code Page
>
> O_TEXTDATA + // Text Data
>
> O_TEXT_CREAT // Create File
>
> : S_IRWXU // Owner has ALL Auth
>
> : 1252 // PC Code Page
>
> );
>
>  p_ErrNo = sys_errno;
>
> p_Msg = strerror (errno);
> </snip>
> The value received for the error message text is
>
> --
> Jeff Young
> Sr. Programmer Analyst
> --
> This is the RPG programming on the IBM i / System i (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.