× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



yep, thanks Birgitta, mine ended up looking very similar...

however the split would not work when checking for ',' with the following
list...
'OBJ1, OBJ2, OBJ3'

but when I changed the split from ',' to ' ' (space delimited) and...
'OBJ1 OBJ2 OBJ3'
it did work.

Jay

On Wed, Apr 19, 2023 at 2:16 AM Birgitta Hauser <Hauser@xxxxxxxxxxxxxxx>
wrote:

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.


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

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.