Re: Another SQL issue

[Joel Cochran <jrc@xxxxxxxxxx>]

Last week we had a discussion about using the "Overlay" keyword in a DS
in SQLRPGLE.  The consensus was that the SQL compiler team does not
currently support all the altest and greatest RPG stuff, so it wouldn't
surprise me if they don't support "Qualified" yet.

Just speculation...

Joel
http://www.rpgnext.com


On Tue, 2003-08-12 at 16:04, Wills, Mike N. (TC) wrote:
> Well, I don't know if I am doing something wrong or not, but now I get
> compiler errors because SQL isn't using the qualified data structure field
> names I have in my program. Is this a issue or am I doing it wrong?
> 
> I have:
>        // SQL Fields
>      D InvCountDS      DS            44    Qualified
>      D  CompanyName                  30    
>      D  CompanyNum                    4  0
>      D  POInvFlag                     1
>      D  Count                         9  0
> 
>      D POCountDS       DS            43    Qualified
>      D  CompanyName                  30
>      D  CompanyNum                    4  0
>      D  Count                         9  0
> 
> SQL puts in:
> 
> C*Exec SQL                                            
> C* FETCH POCOUNT INTO :PoCountDS                      
> C*End-Exec                                            
> C                   Z-ADD     -4            SQLER6    
> C                   CALL      'QSQROUTE'              
> C                   PARM                    SQLCA     
> C                   PARM                    SQL_00035 
> C     SQL_00038     IFEQ      '1'                     
> C                   EVAL      COMPANYNAME = SQL_00040 
> C                   EVAL      COMPANYNUM = SQL_00041  
> C                   EVAL      COUNT = SQL_00042 
> C                   END                         
> _______________________________________________
> 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.