Re: SQL0312 strangeness; compiler bug?

[Mark Murphy <jmarkmurphy@xxxxxxxxx>]

> ...  SQL preprocessor, which issues SQL0312
for SV_OWNID, SV_ORGID, and SV_SUBORG ...

Well I don't see any of those variables in the listed SQL statement. Maybe
it is complaining about another one? I also don't see the variables defined
in the data structure you provided. Maybe you could provide a full
definition of the data structure?

On Mon, Apr 9, 2018 at 8:03 PM, Dan <dan27649@xxxxxxxxx> wrote:

> 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