RE: Reading a Sum(field) column in RPGSQLLE

["Jonathan Mason" <jonathan.mason@xxxxxxxxxxxxxxxx>]

Hi Gene

CAENVN contains the name of the field I want to sum and CAEMVN contains the
name of the file that contains the field so wSQL ends up with:

	Select sum(RPAG) into ? from F0311 where...

Thanks

Jonathan

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Gene Burns
Sent: 21 May 2008 16:28
To: RPG programming on the AS400 / iSeries
Subject: Re: Reading a Sum(field) column in RPGSQLLE

What does CAENVN contain?  What about CAEMVN?

If you are wanting to sum on CAENVN then your source should be
     eval wSql = 'select sum(CAENVN) into ? from ' ....



On Wed, May 21, 2008 at 9:43 AM, Jonathan Mason <
jonathan.mason@xxxxxxxxxxxxxxxx> wrote:

> I am trying to total a an amount on a number of records in a file within
> an RPG program using embedded SQL.
>
> I am building up the SQL statement using:
>
> C* Build the SQL Statement for the current line...
> C                   Eval      wSql = 'select sum(' + %Trim(CAENVN) +
> C                               ') into ? from ' + %Trim(CAEMVN)
>
> C* If selection criteria was passed and it isn't *NONE then add it to
> C* the SQL statement...
> C                   If        CAAGNC <> *Blanks and CAAGNC <> '*NONE'
> C                   Eval      wSql = %Trim(wSql) + ' where ' + CAAGNC
> C                   EndIf
>
> And then preparing and running it using:
>
> C* Now execute the SQL statement...
> C/Exec SQL
> C+ Prepare prpSQL from :wSQL
> C/End-Exec
>
> C/Exec SQL
> C+ Execute prpSQL using :wTotal
> C/End-Exec
>
> However, I am getting an error in the joblog that says:
>
> Token ? was not valid. Valid tokens: : <IDENTIFIER>.
>
> Can anybody tell me what I'm doing wrong?  I thought I had to use
> parameter markers for the variable name.
>
> Thanks
>
> Jonathan
>
>
>
>
> --
> 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.