RE: Another SQL issue

Thanks, I should have got the hint from all of the complaining about
free-format SQL being needed. 

Man, I go and try to play, and it bytes me in the a$$. :-( Oh well. I know
how it works now at least.

-----Original Message-----
From: Bob cozzi [mailto:cozzi@xxxxxxxxx]
Sent: Tuesday, August 12, 2003 3:30 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: Another SQL issue


SQL preprocessor doesn't know about any new RPG IV features and typically
cannot work with them. "New" is defined as anything beyond V3R2 typically.


Bob Cozzi
Cozzi Consulting
www.rpgiv.com


-----Original Message-----
From: rpg400-l-bounces+cozzi=rpgiv.com@xxxxxxxxxxxx
[mailto:rpg400-l-bounces+cozzi=rpgiv.com@xxxxxxxxxxxx] On Behalf Of Wills,
Mike N. (TC)
Sent: Tuesday, August 12, 2003 3:05 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: Another SQL issue

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.



_______________________________________________
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.