RE: Where Clause

Damn,
You would think I would pay attention to those nitty gritty 
details....thanks for pointing out my own stupidity :) Sometimes I need to 
be taken down a notch or two.



On Tue, 12 Jul 2005 15:13:31 -0500, Holden Tommy wrote
> delete the comma after the word margin...precompiler thinks you are 
> still listing fields to extract & getting confused...
> 
> Thanks,
> Tommy Holden
> 
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Douglas W. Palme
> Sent: Tuesday, July 12, 2005 3:10 PM
> To: RPG Group
> Subject: Where Clause
> 
> I have setup a test sqlrpgle program with the following in the c 
> spec and I am immediately getting a compiler error about the where 
> clause not expected valid tokens from, into:
> 
> any suggestions would be appreciated.
> 
>  C/EXEC SQL                                         
>  C+ DECLARE CUSTCURSOR CURSOR                       
>  C+ FOR SELECT ILNINV#A, ILNSOLDTO, ILNSTK,         
>  C+ ILNDESC, SUM(ILNEPRICE), SUM(ILNEUAVCST),       
>  C+ SUM(ILNEPRICE) - SUM(ILNEUAVCST) AS MARGIN,     
>  C+ FROM IMPILN00                                   
>  C+ WHERE ILNVDATE >= :SDATE AND                    
>  C+ ILNINVDATE <= :EDATE GROUP BY ILNINV#A,         
>  C+ ILNSOLDTO, ILNSTK, ILNDESC ORDER BY MARGIN DESC 
>  C/END-EXEC
> 
> If you bought, it was hauled by a truck - somewhere, sometime.
> 
> -- 
> 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.


If you bought, it was hauled by a truck - somewhere, sometime.