× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Ok, thanks. I've severely simplified what this application is doing to
focus on the SQL question. SNDMSG isn't what it's doing under the
condition.

Thanks for your thoughts.

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
Sent: Friday, April 13, 2012 11:15 AM
To: Midrange Systems Technical Discussion
Subject: RE: FW: SQL Update value in RPG?

I understand what you are asking for. While IBM supplies a SELECT MYNBR
FROM final table ( INSERT INTO QTEMP/DELETEME (MYNBR) VALUES(:x + :z))

you want to be able to do this on an update as well like SELECT MYNBR FROM
final table ( update qtemp/deleteme set mynbr=mynbr+1 where mykey=:hMykey)

You can submit a requirement and wait for IBM to determine if that is in the
specs and then decide what to return if more than one row is updated, or if
no row is updated.
Or you can try to figure out what you want to do with this number. If all
you are doing is returning a SNDMSG saying "Dude, you're usage count is up
to the point where you should do a cycle count" then there's no reason you
couldn't do that with a trigger.


Rob Berendt
--
Group Dekko
Dept 1600
Mail to: 2505 Dekko Drive
Garrett, IN 46738
Ship to: Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





From: "Thomas Garvey" <tgarvey@xxxxxxxxxx>
To: "'Midrange Systems Technical Discussion'"
<midrange-l@xxxxxxxxxxxx>,
Date: 04/13/2012 11:23 AM
Subject: RE: FW: SQL Update value in RPG?
Sent by: midrange-l-bounces@xxxxxxxxxxxx



I'm just trying to see if there is a way to get the value just updated by
an
SQL statement, without having to reretrieve the record. I mean, I could
just resort to native data retrieval but was trying to stay with SQL.

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
Sent: Friday, April 13, 2012 9:26 AM
To: Midrange Systems Technical Discussion
Subject: RE: FW: SQL Update value in RPG?

Why would the update program need to perform the logic? Why couldn't the
trigger program? Seriously. What happens if you adopt a batch program,
web
interface, C/S interface, etc; do you still want the logic in each of
these
programs?

But if just HAS to be the update program you could study throwing and
catching exceptions.


Rob Berendt

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.