|
The following example works for me:--
DCL-S ListObj VarChar(256)
Inz('CALLPLIST, CVTDATTIM2, EXTCTDATE, LOBFILE');
DCL-S ParObjSchema VarChar(258) Inz('HSCOMMON10');
DCL-S ParObjTypes VarChar(812) Inz('*PGM');
DCL-S ParObjName VarChar(258) Inz('*ALLSIMPLE');
DCL-S RtnPGMName VarChar(10);
//----------------------------------------------------------------------
Exec SQL
Declare CsrC01 Cursor For
Select ObjName
from Table(Qsys2.Object_Statistics(
Object_Schema => :ParObjSchema,
Objtypelist => :ParObjTypes,
Object_Name => :ParObjName))
Where ObjName in (Select Element
from Table(Systools.Split(:ListObj,
', ')));
Exec SQL Open CsrC01;
DoU *OFF;
Exec SQL Fetch Next From CsrC01 into :RtnPGMName;
If SQLCODE < *Zeros or SQLCODE = 100;
Exec SQL Close CsrC01;
Return;
EndIf;
Dsply RtnPGMName;
EndDo;
*INLR = *On;
... but I'd suggest Not to use SPLIT in composition with an host
variable ... can get too slow!
Mit freundlichen Grüßen / Best regards
Birgitta Hauser
Modernization – Education – Consulting on IBM i
IBM Champion since 2020
"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) "Learning is experience …
everything else is only information!" (Albert
Einstein)
-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Jay
Vaughn
Sent: Tuesday, 18 April 2023 20:19
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: embedded sql and object_statistics
thanks... I do believe I would go the dynamic sql route before that.
but thanks very much for the idea
Jay
On Tue, Apr 18, 2023 at 2:13 PM Mike Jones
<mike.jones.sysdev@xxxxxxxxx>
wrote:
Similar to using SYSTOOLS.SPLIT(), if you create a table functionis:
that takes the delimited list as input, and outputs a set of parsed
values, you could code it like this:
with CTE_LIST as (
select PV..PARSED_VALUE as OBJECT_NAME from table( MY_PARSER(
:I_objects ) ) as PV ( PARSED_VALUE )
)
select OS.objname
from table( QSYS2.OBJECT_STATISTICS( ... ) ) as OS where exists(
select 1 from CTE_LIST L where L.OBJECT_NAME = OS.objname )
On Tue, Apr 18, 2023 at 10:11 AM Jay Vaughn
<jeffersonvaughn@xxxxxxxxx>
wrote:
thanks Daniel... but don't seem to have that
its not found
Jay
On Tue, Apr 18, 2023 at 12:58 PM Daniel Gross <daniel@xxxxxxxx> wrote:
Hi Jay,
try to use the SYSTOOLS.SPLITT table function - I think the
syntax
--and:
where objname in (select element
from table(splitt(:l_objects, ‘,‘)))
but I’m not 100% sure - because I’m out of the office right now.
I used it several times in an application where I needed a
„dynamic parameter list“ - works AFAIK on 7.3 and later.
HTH
Daniel
Von meinem iPhone gesendet
Am 18.04.2023 um 18:34 schrieb Jay Vaughn
<jeffersonvaughn@xxxxxxxxx
I'm doing an embedded rpgle sql select on
qsys2.object_statistics,
'OBJECT2'my
where clause contains...
where objname in (:l_objects)
l_objects = char(2048) and will contain a comma delimited
string of objects, just as sql "IN" would want to see... ie.
'OBJECT1',
(but I
in debug it looks fine... I even tried (trim(:l_objects))
However when I run it, I get sqlcode 100.
But if I convert the thing to dynamic sql, i can get it to work.
relatedreally don't want to have to do that)...related questions.
any suggestions to make it work without dynamic?
tia
Jay
--
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@xxxxxxxxxxxxxxxxxxxx for any
subscription
--
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@xxxxxxxxxxxxxxxxxxxx for any subscription
--questions.--
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@xxxxxxxxxxxxxxxxxxxx for any subscription
related questions.
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@xxxxxxxxxxxxxxxxxxxx for any subscription
related questions.
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@xxxxxxxxxxxxxxxxxxxx for any subscription
related questions.
--
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@xxxxxxxxxxxxxxxxxxxx for any subscription
related questions.
As an Amazon Associate we earn from qualifying purchases.
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.
midrange.com
