Re: Trying to understand error with SETLL *START and READE, no key

[Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx>]

Yeah, Kevin, I'll look at that next - after I wrote the post, I started 
digging in that direction.

Thanks
Vern

On 11/25/2015 3:31 PM, Kevin Wright wrote:
> Hi Vern,
>
> What about a file information data structure for this file for this situation?
>
> Regards,
>
> Kevin Wright
> Developer, LPC
>
> -----Original Message-----
> From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Vernon Hamberg
> Sent: Thursday, 26 November 2015 12:01 AM
> To: RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
> Subject: Trying to understand error with SETLL *START and READE, no key
>
> Yeah, I know this should result in an error. I just want to understand what I'm seeing.
>
> I have a PSDS defined with subfields for the MSGID (position 40, 7 long) and message text (position 91, 80 long).
>
> I specify the error extender on the READE - reade(e) filename inputds;
>
> When the error occurs, I display those 2 subfields of the PSDS - they are blank.
>
> dump(a) shows the PSDS to have blanks - the status on the file is 1299.
>
> Now if I don't have the (e) extender on the READE, I get an inquiry with (C D G F) and take the D. The MSGID is set to RNX1299 and message text is "I/O error  was detected in file filename."
>
> Note the extra space - actually the missing CPF message ID.
>
> Also, program status code at the time is 0.
>
> It appears that the program-status information has not been set yet when using the error extender.
>
> It also appears that there is not an I/O exception sent that triggers the RNX1299.
>
> Thoughts? Clarity hoped for?
>
> Regards
> Vern
> --
> This is the RPG programming on the IBM i (AS/400 and 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.