RE: embedded sql and object_statistics

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 function 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 is:

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,

and

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',

'OBJECT2'

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.

(but I

really don't want to have to do that)...

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

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.

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