Re: SQLRPGLE compiles on V5R4 but not on V6R1

Vern,

Maybe I'm wrong but, as I see it, Davis stated that PARM1 was like a field
in another file ("D Parm1 LIKE ( A field in a file declared in the F Specs )
CONST"), so the CONST rule would not apply here? Maybe the field is called
CONST? BTW, the CONST rule DOES apply to V5R3...

David, could you check the compiler output and see what wVar "expands " to
(check the xref info at the end of the listing).

Regards,

Luis Rodriguez
IBM Certified Systems Expert — eServer i5 iSeries


On Mon, Apr 26, 2010 at 8:14 AM, Vern Hamberg <vhamberg@xxxxxxxxxxx> wrote:

David

I'm surprised that compiled at V5R4 - CONST parameters have never worked
as host variables. The reason is, they are used to set variables named
SQLxxxx where xxxx is some number. And this goes both ways, the SQL*
variable is set from the host variable and vice versa. So it can't be a
CONST.

The LIKE - well, I find that the pre-compiler likes things pretty simple
in your variable declarations. It MIGHT work, but this is kind of messy.
Maybe in earlier versions, the LIKE didn't carry the CONST along - maybe
at 6.1 it does.

There is usually some additional information in the SQL0312 message -
what does it say? As we always say, give us ALL the information!! :-)

HTH
Vern

David.E.Foxwell@xxxxxxxxx wrote:

Hi,

We are migrating to V6R1 and a coworker says this code compiles on the

V5R4

box but not on the new one.


SQL0312 Variable wVar not defined or not usable.

P MyProc B
D Parm1 LIKE ( A field in a file declared in the F Specs ) CONST

D wVar S LIKE ( Parm1 )

/FREE
EXEC SQL
SELECT MyField INTO : wVar FROM MyTable
WHERE etc...;


To fix it, wVar was coded like this :
D wVar S LIKE ( A subfield of a global DS )


Any ideas? Thanks.

--
This is the RPG programming on the IBM i / System i (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.