I hit Enter too early
Something like
Clear Answerfield;
Exec sql Select :fielda into :Answerfield from SYSIBM.SYSDUMMY1
Where :fielda in('A', 'B', 'C', 'D');
If Answerfield <> ' ';
Etc.
Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
'If you're going through hell, keep going.'
Winston Churchill
-----Original Message-----
From: Alan Shore
Sent: Wednesday, July 10, 2019 1:20 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: RPG compare list code
You could change your RPGLE program to SQLRPGLE - and then actually use the SQL
Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
'If you're going through hell, keep going.'
Winston Churchill
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of Doug Englander
Sent: Wednesday, July 10, 2019 1:14 PM
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: [EXTERNAL] RPG compare list code
Does anyone know if there is an RPG equivalent to the SQL "IN()" construct? It would be useful to say something like:
If fielda in('A', 'B', 'C', 'D') then...
Instead of this "OR" syntax
If fielda = 'A' or fielda = 'B' or fielda = 'C' or fielda = 'D' then...
I can't find it anywhere if it does exist. I see there is a similar %MAX and %MIN, but nothing like the example above.
Thank you,
Doug
--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
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:
https://amazon.midrange.com
midrange.com
