Is the variable perhaps defined in a (nested) copy member and you tried to
compile your embedded SQL program with the compile option RPGPPOPT=*NONE
(Default)?
Try to set the RPGPPOPT Option to *LVL2 when compiling the program.
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@xxxxxxxxxxxx> On Behalf Of Dan
Sent: Dienstag, 10. April 2018 02:03
To: RPG400-L@xxxxxxxxxxxx
Subject: SQL0312 strangeness; compiler bug?
We're on v7r1, not sure where we are on the RPG compiler PTFs. We have
TR11 installed, and our cume level is at 16320. (Rob, I know, I know.)
I did find this in the archives:
https://archive.midrange.com/rpg400-l/201702/msg00139.html
but there was no followup to whether there was a PMR submitted or a PTF
issued.
The source below will not pass the SQL preprocessor, which issues SQL0312
for SV_OWNID, SV_ORGID, and SV_SUBORG. This source is culled from 2000-line
program to where I could determine where the SQL precompiler was puking.
So, yes, the COMPARE and SAVE data structure are required.
BUT NOTE: If I comment out the COMPARE data structure and its 3 subfields,
it will compile with no errors. (The S1_* fields are defined in the
STATMNT100 file.)
If anyone knows that there was a PTF in v7r1 for this bug, please let me
know. Also, how would someone search IBM's website to see if there's a PTF
for this? FWIW, I have an IBM ID, but I don't have an IBM customer number I
can use.
- Dan
FSTATMNT100IF E K DISK
d NegotiatedCount...
d s 9 0
DCOMPARE DS
D S1_CUSID
D S1_CMPID
D S1_DIVISN
DSAVE DS
D SV_CUSID LIKE(S1_CUSID)
D SV_CMPID LIKE(S1_CMPID)
D SV_DIVISN LIKE(S1_DIVISN)
sv_CUSID = 932014;
sv_CMPID = 'GRPL';
sv_DIVISN = 'VOT';
Exec SQL set :NegotiatedCount =
( select count(*) as aCount
from statmnt1, charges
where s1_CUSID = :sv_CUSID
and s1_CMPID = :sv_CMPID
and s1_DIVISN = :sv_DIVISN
and s1_CusID = su_CusID
and s1_CrgID = su_CrgID
and su_ID1 like '%N %');
*inLR = *on;
Begsr *inzsr;
Read STATMNT100 ;
Endsr;
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.
Please contact support@xxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
http://amzn.to/2dEadiD
midrange.com
