RE: How to find error messages for open(), etc.

[Vernon Hamberg <vhamberg@xxxxxxxxxxx>]

Also, once you have the errnum - make a message ID of CPE plus that 
number - you get another way to display a human readable text 
description of the error. if the number id 3501, the message ID is CPE3501.

At 08:48 AM 5/24/2007, you wrote:

> Glen,
>
> There are API's for this. Here's some sample code:
>
> D@__errno         PR              *   ExtProc('__errno')
>
> Dstrerror         PR              *   ExtProc('strerror')
> D errnum                        10I 0 value
>
> When one of the Unix type API's fails, calling %str(strerror(errno)))
> will return an explanation of the error in human readable format.
>
> Matt
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Glenn Gundermann
> Sent: Thursday, May 24, 2007 9:35 AM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: How to find error messages for open(), etc.
>
> Hi folks,
>
> In my RPG program:
>
> When there is a failure using open(), write(), etc. to access IFS files,
> I
> don't see any error messages in the joblog.
>
> When there is a problem, does anyone know if there is a way to determine
> what the error might be?
>
> I found my bug by trial and error.  My open() wouldn't work when I used
> the 'Exclusively Create' flag but it does now that I use the 'Create
> File
> if not exist' flag.
>
> Tks,
>
> Glenn Gundermann
> ggundermann@xxxxxx
> (647) 272-3295
> --
> This is the RPG programming on the AS400 / 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.
>
>
> --
> This is the RPG programming on the AS400 / 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.