Re: Total a attribute using a DICT item?

[Charlie Noah]

Don't forget to clear the common variable before each report, otherwise you'll end up with strange results. Charlie Noah Tiny Bear's Wild Bird Store "Everything For The Backyard Bird Enthusiast, Except For The Birds" Info, Forum:  http://www.TinyBearMarketing.com Store:            http://Stores.TinyBearMarketing.com On 11-12-2011 7:21 AM, comp.lang.smalltalk wrote: There is nothing intrinsic in jBASE (or any other multi-value implementation that I know of) that can do running totals. A dictionary subroutine would be able to accomplish this. Here is a simple example: Create a file called TEST with 3 records: A 001 1 B 001 2 C 001 3 Create this subroutine: 0001 SUBROUTINE runtot 0002 COMMON /runtot/ runningtotal 0003 INCLUDE qbasiccommonpick 0004 EQU ItemCount TO access(4) 0005 IF ItemCount = 1 THEN runningtotal = 0 0006 runningtotal += access(3)<1> 0007 newpick(12) = runningtotal 0008 RETURN Create this dictionary: RT 001 A 002 1 003 004 005 006 007 008 CALL runtot 009 R 010 6 jsh ~ -->LIST TEST *A1 RT TEST.......... *A1........... RT.... A 1 1 B 2 3 C 3 6 You would have to perform the BASIC equivalent of A;S(N(MATERIAL-COST) * N(MULT)R) and plug that into the code in place of 'access(3)<1>'. I know stuff ;-) Dan On Nov 10, 2:32 pm, wsw <w...@waltwhite.com> wrote: Is there a way to obtain a running total for a single value attribute using a dictionary entry? Using A;S(N(MATERIAL-COST) * N(MULT)R), where MULT = 1, I can obtain the total value of a multivalue attribute. Thanks, WW -- Please read the posting guidelines at: http://groups.google.com/group/jBASE/web/Posting%20Guidelines   IMPORTANT: Type T24: at the start of the subject line for questions specific to Globus/T24   To post, send email to jBASE@googlegroups.com To unsubscribe, send email to jbase-unsubscr...@googlegroups.com For more options, visit this group at http://groups.google.com/group/jBASE?hl=en