Rob,
I had a similar issue that people here helped me with.
This was my resolution.
I created a file (UtlRunSun) with a record of each, in your use, of program.
I then executed my sql in the example below. UtlRunSun1 is just a LF.
//?Delete All Maintenance Logging For Orders
Exec SQL Delete From MntLog
Where (MlFile = 'MBC6REP' Or
MlFile = 'MBBMCPP' Or
MlFile = 'MBCJCPP') And
Exists (Select 1 From UtlRunSun1
Where MlKeyVal1 = ODOrderAL);
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Robert Rogerson
Sent: Thursday, November 10, 2016 7:39 AM
To: RPG programming on the IBM i / System i
Subject: How to save a list of programs
Hi all,
I have a list of programs which is generated by a 3rd party software application. This is in the form of ('program1', 'program2', 'program3'). The list is actually used in a WHERE IN ('program1', 'program2', 'program3') sql statement used by the vendor software.
Basically I want to use that same WHERE IN ('program1', 'program2',
'program3') statement within a custom RPG program. I'm planning to PREPARE an sql CURSOR and add the WHERE IN (:myprogramList).
But I can't figure out how to save the list as one big string. Does anyone know how I can save ('program1', 'program2', 'program3') as one big string?
The problem I'm experiencing (I think) is that the quotes are interpreted as string delimiters. I was trying with a data area and a one column table but both had the same issue. Any ideas?
Thanks,
Rob
--
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.
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 Phone... 608-781-6355
midrange.com
