SQLER3 will return the number of inserted, updated or deleted rows, if you check it immediately after the Insert/Update/Delete Statement
The better solution is what David suggested, i.e. using a GET DIAGNOSTICS statement.
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: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxx> On Behalf Of T. Adair
Sent: Mittwoch, 16. Mai 2018 20:17
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Embedded SQL message
David,
Thanks for the response. My objective is twofold:
1. To satisfy the need of the current situation.
2. To have a new technique to add to my 'toolbox', for future use.
Either of your suggestions should satisfy #1, and I am very thankful for the information. In addition, I can add both of these techniques to my 'toolbox'.
For #2, I still have the little voice in the back of my mind telling me that I've seen this before, where the entire Completion message was accessible to the RPG program. I could be completely wrong (it wouldn't be the first time), and either of the other techniques will work for the current situation.
Thanks.
~TA~
On 5/16/2018 11:23 AM, David Gibbs wrote:
On 5/16/2018 11:04 AM, T. Adair wrote:
Now the kicker... I need/want to display this SQL message to the
user either during or after the program runs. Is there a way to
access this SQL message in the RPG program? My hope was to use
SQLERM (or SQLERRMC) but that doesn't help.
I've never tried this myself, but you could get the number of rows
processed using the following...
exec sql
GET DIAGNOSTICS :rowsDeleted = ROW_COUNT ;
It's up to you to send the message.
Alternatively, you could use the value in SQLER3, which contains the
number of rows affected. See https://ibm.co/2IKm8wN for more info.
david
--
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:
https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.
Please contact support@xxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
http://amzn.to/2dEadiD
midrange.com
