Re: Embedded SQL with join and sum

This could do the work.


Select OhCustNo, OhOrderNo#, Sum(OdQty) As Pieces

From Headerfile

Join Detailfile
On (OhCustNo, OhOrderNo# = (OdCustNo, OdOrdern)

Where OhCustNo = ' + %EditC(CustNo : 'X') + ' And ' +
'OhShipDt1 >= ' + %Char(StartDateISO) + ' And ' +
'OhShipDt1 <= ' + %Char(EndDateISO) + ' ' +
Group by OdCustNo, OdOrdern


Note: Instead of using ' I would declare a constant called Quote like this
dcl quote const('''') and then wherever I need to use a quote I just plug
the constant
quote like this for example Where Ohcustno = Quote + + %EditC(CustNo : 'X')
+ Quote


On Mon, Dec 12, 2016 at 4:22 PM, Alan Campin <alan0307d@xxxxxxxxx> wrote:

Yes, you either need to removed all the fields except customer and order
number or include them in your group by. By including them in your select
you are saying you want a sum for all the fields in the select.

On Mon, Dec 12, 2016 at 1:19 PM, (WalzCraft) Jerry Forss <
JForss@xxxxxxxxxxxxx> wrote:

Hi All,

I have been fighting with this and just need to make progress.

I have 2 files, Order Header and Order detail, both keyed with Cust# and
Order#.

Joining them no problem.

What I want is a single row per Cust#, Order# with the sum of Quantity
from detail file.

SqlSel = 'Select OhCustNo, +
OhOrderNo, +
OhType, +
OhDSOOrd, +
OhShipDt1, +
OhInvoice1, +
OhAmount1, +
OhDiscnt1, +
OhPaidDt1, +
OhPaidDay1, +
OhEOL1, +
OhEOLDays1, +
Sum(OdQty) As Pieces +
From CusOrdHdS1 OH +
Inner Join CusOrdDtl OD On OdCustNo = OhCustNo And +
OdOrderno = OhOrderNo +
Where OhCustNo = ' + %EditC(CustNo : 'X') + ' And ' +
'OhShipDt1 >= ' + %Char(StartDateISO) + ' And ' +
'OhShipDt1 <= ' + %Char(EndDateISO) + ' ' +
'Group By OhCustNo, OhOrderNo ' +
'Order By OhShipDt1';

It is throwing an error on OhType?

Do all the fields need to be in the Group By?

Just trying to get my head around this.

Thanks!!

Jerry Forss
Information Technology Team
WalzCraft
608-781-6355 EXT 2530
jforss@xxxxxxxxxxxxx


Subject to Change Notice:

WalzCraft reserves the right to improve designs, and to change
specifications without notice.

Confidentiality Notice:

This message and any attachments may contain confidential and privileged
information that is protected by law. The information contained herein is
transmitted for the sole use of the intended recipient(s) and should

"only"

pertain to "WalzCraft" company matters. If you are not the intended
recipient or designated agent of the recipient of such information, you

are

hereby notified that any use, dissemination, copying or retention of this
email or the information contained herein is strictly prohibited and may
subject you to penalties under federal and/or state law. If you received
this email in error, please notify the sender immediately and permanently
delete this email. Thank You;

WalzCraft PO Box 1748 La Crosse, WI. 54602-1748

www.walzcraft.com<http://www.walzcraft.com/> Phone... 800-237-1326
--
This is the RPG programming on the IBM i (AS/400 and 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.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD

--
This is the RPG programming on the IBM i (AS/400 and 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.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD