Re: AW: SQL Where In

Why is reversing the typical use of these functions so hard for me to think
of? Good tip.





From: "Birgitta Hauser" <Hauser@xxxxxxxxxxxxxxx>
To: "'RPG programming on the IBM i \(AS/400 and iSeries\)'"
<rpg400-l@xxxxxxxxxxxx>
Date: 09/01/2016 03:05 AM
Subject: AW: SQL Where In
Sent by: "RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx>



If performance is not an issue (i.e. for small tables) you may use the
following trick:
1. Build a string containing all Element values (in my example I added a
leading blank and a trailing comma, just for being able to locate the value
correctly).
2. In the Where condition I use a like predicate, for scanning my string
and
locating the column status within this string.

For Index = 1 to %Elem(ArrStatus);
String += ' ' + %Trim(ArrStatus(Index)) + ',';
EndFor;

Declare Csr01 Cursor For
Select ...
from YourTable
Where :String like '% ' concat Trim(ColStatus) concat ',%'
... additional Where conditions
Order By ...;

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)


-----Ursprüngliche Nachricht-----
Von: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im Auftrag von Vernon
Hamberg
Gesendet: Wednesday, 31.8 2016 16:31
An: RPG programming on the IBM i (AS/400 and iSeries)
Betreff: Re: SQL Where In

No matter how he does this, he has to change the "array" variable into a
list with apostrophes around each value, commas between, and parentheses
around the list.

And that construction cannot be a single host variable - so, as you
suggest,
yes, build the whole statement with necessary syntax and execute that.

Regards
Vern

On 8/31/2016 8:55 AM, Luis Rodriguez wrote:

Jerry,

What happens if you "build" your SQL statement as a string and
execute it using dynamic SQL ?

Regards,

Luis

On Wed, Aug 31, 2016 at 9:25 AM (WalzCraft) Jerry Forss <
JForss@xxxxxxxxxxxxx> wrote:

Hi All,

I have an array that contains Item Classes I want to include items.
I have tried using as array or text field (below) but not getting

results.

GRPCLASSTEXT =
....5...10...15...20...25...30...35...40...45...50...55...60
1 'PLY MDF '
61 ' '

Here is my code. What am I doing wrong?

//?Declare Sql Statement
Exec SQL Declare C2 Cursor For
Select IM.ItNbr,
IM.ItDsc,
SL.LLocn,
SL.LBhNo

From ItemAsApL1 IM
Inner Join SlQnty SL On IM.ItNbr = SL.ItNbr

Where Im.ItCls <> ' '
And Sl.LLocn <> ' '
And Sl.LQnty <> 0
And Im.ItCls In :GrpClassText

Order By Sl.LLocn, Sl.ItNbr;


Jerry Forss
Information Technology Team
WalzCraft
608-781-6355 EXT 2530
jforss@xxxxxxxxxxxxx


Subject to Change Notice:

WalzCraft reserves the right to improve designs, and to change
specifications without notice.

Confidentiality Notice:

This message and any attachments may contain confidential and
privileged information that is protected by law. The information
contained herein is transmitted for the sole use of the intended

recipient(s) and should "only"

pertain to "WalzCraft" company matters. If you are not the intended
recipient or designated agent of the recipient of such information,
you are hereby notified that any use, dissemination, copying or
retention of this email or the information contained herein is
strictly prohibited and may subject you to penalties under federal
and/or state law. If you received this email in error, please notify
the sender immediately and permanently delete this email. Thank You;

WalzCraft PO Box 1748 La Crosse, WI. 54602-1748

www.walzcraft.com<http://www.walzcraft.com/> Phone... 800-237-1326
--
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.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

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

Please contact support@xxxxxxxxxxxx for any subscription related questions.

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

Please contact support@xxxxxxxxxxxx for any subscription related questions.