What exactly do you want?
You just want to retrieve the message text if an error occurs in your RPG Program?
If so, the error message can be found in the Program Status Data Structure Position 91-170.
// Program Status Data Structure (Global D-Specs)
DCL-DS PGMSDS PSDS Qualified;
MsgId Char(7) Pos(40);
MsgText Char(80) Pos(91);
End-DS;
Monitor;
....
On-Error;
Dsply PGMSDS.MsgText;
EndMon;
Mit freundlichen Grüßen / Best regards
Birgitta Hauser
"Shoot for the moon, even if you miss, you'll land among the stars." (Les Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them and keeping them!"
„Train people well enough so they can leave, treat them well enough so they don't want to.“ (Richard Branson)
-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Patrik Schindler
Sent: Samstag, 11. September 2021 13:10
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: Hint for finding a message ID in QCPFMSG
Hello Vern,
Am 10.09.2021 um 21:04 schrieb Vern Hamberg <vhamberg@xxxxxxxxxxxxxxx>:
It it's and RPG file or program status code, those are in QRNXMSG - they are RNQ followed by the status number - so code 1218, that reports a lock, would be message ID RNQ1218 in QRNXMSG.
Thank you *very* much, this is *exactly* what I was searching for!! It never occurred to me that these might pop up elsewhere but in QCPFMSG. :-)
If it's your own error numbers, then you are probably on your own - viel Glück!
Alles gut, they're not. Just wanting to have some nice displays for rare errors apart from the usual ones. (Duplicate key, locked record, record not found.)
:wq! PoC
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/midrange-l.
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://amazon.midrange.com
midrange.com
