I found that you had to take two steps, first an SSELECT to establish your
order, followed by a LIST (or a sort with the same criteria, but it's
unnecessary in Unidata, even using break-ons and det.supp's).
I was able to get my daily summary of order values with running totals. LIST
ORDERS BREAK.ON ORDER.DATE NUM.ORDERS TOTAL ONE TOTAL ORDER.AMT
RUNNING.TOTAL.AMT DET.SUPP ID.SUPP
Again, many thanks to all who responded.
Cheers,
Kebbon
> Date: Thu, 23 Jul 2009 17:01:28 -0700
> From: wphask...@advantos.net
> To: U2-users@listserver.u2ug.org
> Subject: [U2] [Fwd: Re: FW: Running total from UniData dict]
>
>
> Unfortunately, in UD the @ITEM.COUNT calculates values for LIST only.
> Therefore, if you do a SORT the 1st item listed may have an item count
> of 5675, the second listed might be 352, etc. Thus, it's very hard to
> figure out when you're starting the list in order to initialize the
> named common variables.
>
> Bill
>
> ------------------------------------------------------------------------
> Brian Leach said the following on 7/23/2009 9:38 AM:
> > Hi
> >
> > Similar to Charles' but not exactly the same, this was for uv (clearer than
> > using @n) but should work for UDT as well:
> >
> > ED DICT BOOK_TITLES RUNNING_TOTAL
> > This is a Type "I" Descriptor last compiled on 23/07/09 at 16:35.
> > 20 lines long.
> >
> > ----: p
> > 0001: I
> > 0002: SUBR('RT','RUNNING_TOTAL',UNITS)
> > 0003: MD0
> > 0004: Run
> > 0005: 10R
> > 0006: S
> >
> > ED BLP RT
> > 19 lines long.
> >
> > ----: p
> > 0001: SUBROUTINE RT(ANS, WHICH, VALUE)
> > 0002: COMMON /RT/ RT.NAMES,RT.VALUES
> > 0003:
> > 0004: IF @NI = 1 THEN
> > 0005: RT.NAMES = ''
> > 0006: RT.VALUES = ''
> > 0007: END
> > 0008: LOCATE WHICH IN RT.NAMES SETTING POS THEN
> > 0009: TOTAL = RT.VALUES<POS>
> > 0010: END ELSE
> > 0011: TOTAL = 0
> > 0012: RT.NAMES<-1> = WHICH
> > 0013: POS = DCOUNT(RT.NAMES,@FM)
> > 0014: END
> > 0015:
> > 0016: TOTAL += VALUE
> > 0017: RT.VALUES<POS> = TOTAL
> > 0018: ANS = TOTAL
> > 0019: RETURN
> >
> > LIST BOOK_TITLES RUNNING_TOTAL UNITS 04:37:46pm 23 Jul 2009 PAGE 1
> > Key.. Run....... Units
> >
> > 10 22 22
> > 11 23 1
> > 12 30 7
> > 13 35 5
> > 14 41 6
> > 15 46 5
> > 16 47 1
> > 17 49 2
> > 18 52 3
> >
> > Brian
> >
> >
> >> -----Original Message-----
> >> From: u2-users-boun...@listserver.u2ug.org
> >> [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of
> >> Kebbon Irwin
> >> Sent: 23 July 2009 16:22
> >> To: u2-users@listserver.u2ug.org
> >> Subject: [U2] FW: Running total from UniData dict
> >>
> >>
> >> I read this with great interest as I have an identical
> >> requirement. However, I use Unidata and this technique does
> >> not seem to work, in either ECLTYPE. Does anybody have a UDT
> >> solution?
> >> Cheers,
> >> Kebbon
> >>
> >>
> >>> From: bernard.lu...@pentanasolutions.com
> >>> To: u2-users@listserver.u2ug.org
> >>> Date: Tue, 30 Jun 2009 10:13:58 +1000
> >>> Subject: Re: [U2] Running total from UniVerse dict
> >>>
> >>> Hi Kate,
> >>>
> >>> Try this... This will show the running total for every printed line
> >>>
> >>>
> >>>> ED DICT FILENAME RUNNING.TOTAL
> >>>> This is a Type "I" Descriptor last compiled on 30/06/09 at 09:07.
> >>>> 20 lines long.
> >>>>
> >>>> ----: P7
> >>>> 0001: I
> >>>> 0002: @1...@record<8>
> >>>> 0003: MD2
> >>>> 0004: RUNNING TOT
> >>>> 0005: 10R
> >>>>
> >>>> Regards
> >>>>
> >>>>
> >>>> -----Original Message-----
> >>>> From: u2-users-boun...@listserver.u2ug.org
> >>>> [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Kate
> >>>> Stanton
> >>>> Sent: Tuesday, 30 June 2009 9:55 AM
> >>>> To: U2 Users List
> >>>> Subject: [U2] Running total from UniVerse dict
> >>>>
> >>>> I am sure we used to be able to do this using I-type, but I cannot
> >>>> remember how.
> >>>>
> >>>> Now we are using I-types again (not just ocreelatives), I
> >>>> want to be able to show each item outstanding for an account,
> >>>> with a running balance.
> >>>>
> >>>> Can anyone help?
> >>>>
> >>>> I have been to the doc, and read about CALC and TOTAL, but they seem
> >>>> to apply to totalling lines (and I can't make that work either - I am
> >>>> feeling very inadequate).
> >>>>
> >>>> TIA, Kate
> >>>>
> >>>> Kate Stanton
> >>>> Walstan Systems Ltd
> >>>> 4 Kelmarna Ave, Herne Bay, Auckland 1011, New Zealand
> >>>> Ph: +64 9 360 5310 Fax: +64 9 376 0750 Mobile: +64 21 400 486
> >>>> Email: k...@walstan.com
> >>>>
> >>>>
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
