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.
midrange.com
