Re: Help creating file on IFS

[Jeff Young <jyoung0950@xxxxxxxxx>]

The value for FileDs is -1
The value for errno is 3021
The value for sterrno is The value specified for the argument is not
correct.


I am sure that one of the values in the Open statement is not correct, but
can not determine which one it is.


On Mon, Jun 18, 2012 at 10:15 AM, Dennis <iseries@xxxxxxxxxxxx> wrote:

> No strerror valu returned? That is strange.
>
> May we see the test that tells you that open() failed?
> ++
> Dennis
> ++
>
>
> Sent from my Galaxy tablet phone. Please excuse my brevity.
> For any grammatic/spelling errors, there is no excuse.
> ++
>
>
> 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.
>
>
> --
> 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.