RE: RPG compare list code

You could make a string like: 'A,B,C,D,E,F,G,'
Then use %scan('A,' :string) > *zero to find it.

Thanks,

Marvin
No trees were killed in the sending of this message, but a large number of electrons were terribly inconvenienced, traumatized, triggered, and crying for their safe spaces.

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of Doug Englander
Sent: Wednesday, July 10, 2019 10:14 AM
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: 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
Notice: This e-mail transmission may contain information that is proprietary, privileged and/or confidential and is intended exclusively for the person(s) to whom it is addressed. This message may also contain Protected Health Information (PHI) and must be treated confidentially and handled in accordance with HIPAA and other federal and state privacy laws. Any use, copying, retention or disclosure by any person other than the intended recipient or the intended recipient's designees is strictly prohibited. If you are not the intended recipient or their designee, please notify the sender immediately and delete this e-mail (and any accompanying attachments).