There are 3 Problems:
1. SELECT ... INTO cannot be executed dynamically
2. Host Variables cannot be specified in a dynamic SQL Statement, you either
have to embed the values into the string or you have to work with parameter
markers
3. SELECT Statements cannot be executed with EXECUTE IMMEDIATE
What you can do is to use a VALUES ... INTO Statement (with parameter
markers for the output fields).
PREPARE the statement and EXECUTE it-
String = 'Values(Select Count(*) from ' + %Trim(YourFile) + ') into ?;
Exec SQL Prepare DynStmt From :String;
Exec SQL Execute DynStmt Using :YourHostVar
BTW if you only want to know how many rows are in your table, you can get
this information directly from the SYSTABLESTAT catalog view:
Select Number_Rows
from QSYS2.SysTableStat
Where Table_Schema = 'YOURLIB'
and Table_Name = 'YOURFILE'
Mit freundlichen Grüßen / Best regards
Birgitta Hauser
"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)
-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Tim
Feldmeier
Sent: Freitag, 23. Oktober 2020 20:07
To: 'RPG400-L@xxxxxxxxxxxxxxxxxx' <RPG400-L@xxxxxxxxxxxxxxxxxx>
Subject: My Dynamic SQL statement is not working
The program log says COUNT is not defined or usable. Any idea's?
Dcl-s stmt char(100) ;
Dcl-s x char(2) inz('10') ;
Dcl-s count zoned(5) ;
Dcl-s thefile char(10);
thefile = ('co' + x);
stmt = 'select count(*) into :count' +
' from ' + %trim(thefile) ;
exec sql execute immediate :stmt ;
if count > 0 ;
endif ;
Thank You
Tim Felmeier
Programmer Analyst For Coyote System
Roadrunner Transportation Systems
1431 Opus Place, Suite 530
Downers Grove, IL 60515
Phone# (331)-2337921
The information transmitted is intended only for the person or entity to
which it is addressed and may contain proprietary, business-confidential
and/or privileged material. If you are not the intended recipient of this
message you are hereby notified that any use, review, retransmission,
dissemination, distribution, reproduction or any action taken in reliance
upon this message is prohibited. If you received this in error, please
contact the sender and delete the material from any computer.
--
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.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://amazon.midrange.com
midrange.com
