RE: Embedded SQL

["Phil" <sublime78ska@xxxxxxxxx>]

You're almost there - all you need to add is "into :total" after the select:
Select sum(t2anva) into :total
Phli


     FQPRINT    O    F   80        Printer OFLIND(*INOF)

     D Total           S             15S 2 Inz(0)
      *--------------------------------------------------------------------
     C/Exec Sql
     C+   select Sum(T2ANVA) into :total
Amount
     C+ From NEWHUD/TNTRTH
     C+ Where T2HSDT >= 1000701 and T2BICD = '01'          Date & Trans Type
     C/End-Exec
     C                   Except    #detail
     C                   Eval      *INLR = *On
     OQprint    E            #Detail
     O                       Total         4     35

Do I make any sense ?  I don't want to do this with plain RPGIV or WRKQRY, I
really want to use this new functionality.  Can someone please give me a
clue ? I have three SQL manuals from IBM, and the SQL tutorial from
News/400.

TIA,
Cyndi B.
Boise, ID
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---