Dear Dan,
S1_CUSID is define in file STATMNT1 and also in the RPG program (as part of the DS COMPARE). I'll bet SQL can't handle two fields with the same name. This is also why it compiles when you comment out the COMPARE DS. I would suggest qualifying the DS.
Sincerely,
David Lowery
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Dan
Sent: Monday, April 09, 2018 7:03 PM
To: RPG400-L@xxxxxxxxxxxx
Subject: SQL0312 strangeness; compiler bug?
Caution: This email originated from outside of the organization. DO NOT CLICK on links or open attachments unless you recognize the sender and know the content is safe.
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://urldefense.proofpoint.com/v2/url?u=https-3A__archive.midrange.com_rpg400-2Dl_201702_msg00139.html&d=DwICAg&c=clRTYxLjfWTYQkksq4Trqw&r=aRPCwWOVBUuUP924enkl20NUMsYujWOcIVbdKfiqK5k&m=YgP5Np6uyklXvxNtxhXqfy3cFpSP8OeKngqXywCM1XE&s=l5Co7PWMeSL_TYV9xosuH2qjxq5pjYUlpGimUJnXPvA&e=
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://urldefense.proofpoint.com/v2/url?u=https-3A__lists.midrange.com_mailman_listinfo_rpg400-2Dl&d=DwICAg&c=clRTYxLjfWTYQkksq4Trqw&r=aRPCwWOVBUuUP924enkl20NUMsYujWOcIVbdKfiqK5k&m=YgP5Np6uyklXvxNtxhXqfy3cFpSP8OeKngqXywCM1XE&s=xizc756WsSJHW8fFxEzMGblAKv_X4kln8nfulefQjtE&e=
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://urldefense.proofpoint.com/v2/url?u=https-3A__archive.midrange.com_rpg400-2Dl&d=DwICAg&c=clRTYxLjfWTYQkksq4Trqw&r=aRPCwWOVBUuUP924enkl20NUMsYujWOcIVbdKfiqK5k&m=YgP5Np6uyklXvxNtxhXqfy3cFpSP8OeKngqXywCM1XE&s=1aTEK9tJg44i9-_BG0ZEObbaFvJ4t9m7RAZxVc9CyME&e=.
Please contact support@xxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://urldefense.proofpoint.com/v2/url?u=http-3A__amzn.to_2dEadiD&d=DwICAg&c=clRTYxLjfWTYQkksq4Trqw&r=aRPCwWOVBUuUP924enkl20NUMsYujWOcIVbdKfiqK5k&m=YgP5Np6uyklXvxNtxhXqfy3cFpSP8OeKngqXywCM1XE&s=ZrKrAmuh_7THvG2zivBzAutboG2jRjy2WkuKg0ZoTEs&e=
CONFIDENTIALITY NOTICE: This e-mail communication and any attachments may contain proprietary and privileged information for the use of the designated recipients named above. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message.
midrange.com
