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
> > --
> > Message protected by DealerGuard: e-mail anti-virus, anti-spam and
> > content filtering.
> > http://www.pentanasolutions.com
> >
> > Click here to report this message as spam:
> >
> https://login.mailguard.com.au/report/1xLyloqUd9/dBLuI50jon61fjTIRoMZh
> > /0
> >
> >
> > _______________________________________________
> > U2-Users mailing list
> > U2-Users@listserver.u2ug.org
> > http://listserver.u2ug.org/mailman/listinfo/u2-users
> _______________________________________________
> U2-Users mailing list
> U2-Users@listserver.u2ug.org
> http://listserver.u2ug.org/mailman/listinfo/u2-users
>
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
