We just upgraded our system to V5R4 and it looks like it is still a
problem in V5R4.
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Lim Hock-Chai
Sent: Monday, May 12, 2008 4:27 PM
To: RPG programming on the AS400 / iSeries
Subject: SQL precompile not function correctly when likerec is used as
PI
It seems like SQL precompile is having quite a bit of problem if LIKEREC
is used as a parameter of a procedure that does embeded sql statement.
Not sure if I'm missing some PTF or what.
I'm on V5R3. Can somebody test compile program below to see if you can
get the same error? Thanks.
Below is the DDS for MYFILE
A R MYFILE00
A*
A FIELD1 5
A FIELD2 5
Below is the test program. My precompiler says piField1 and piField2
not define or not usable:
FMYFILE IF E K DISK
*
D C1Result e ds extname(MYFILE)
* setC1Result
D setC1Result...
D pr
D piMyFile likerec(MYFILE00) const
D piField1 like(FIELD1) const
D piField2 like(FIELD2) const
/free
setC1Result(piMyFile :'A' :'B');
*inlr = *on;
/end-free
**********************************************************************
* setC1Result
**********************************************************************
**********************************************************************
P setC1Result...
P B
D pi
D piMyFile likerec(MYFILE00) const
D piField1 like(FIELD1) const
D piField2 like(FIELD2) const
C/exec sql
C+ declare myfileC1 scroll cursor for
C+ select
C+ field1, field2
C+ from myfile
C+ where field1 = :piField1 and
C+ field2 = :piField2
C/end-exec
C/exec sql
C+ open myFileC1
C/end-exec
C/exec sql
C+ fetch from myFileC1
C+ into :C1Result
C/end-exec
P setC1Result...
P E
--
This is the RPG programming on the AS400 / 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.
midrange.com
