Dan,
I use a subroutine that works with a Universe type I-descriptor in
UV emulation mode. I started using that way back when I couldn't
get the Pick type subroutine call to work, at least in UV mode. Is
there an @variable comparable to ItemCount (Access(4))?
Thanks,
Charlie
On 11-12-2011 6:00 PM, Charlie Noah wrote:
Dan,
I completely missed that. I'll get back in my box now.
Charlie
On 11-12-2011 5:44 PM, Daniel Klein wrote:
Charlie,
That's what
IF ItemCount = 1 THEN runningtotal = 0
does.
Dan
On Sat, Nov 12, 2011 at 10:06 AM,
Charlie Noah <[email protected]>
wrote:
Don't forget to clear the common variable
before each report, otherwise you'll end up with strange
results.
Charlie Noah
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 <[email protected]> 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 [email protected]
To unsubscribe, send email to [email protected]
For more options, visit this group at http://groups.google.com/group/jBASE?hl=en
--
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 [email protected]
To unsubscribe, send email to [email protected]
For more options, visit this group at http://groups.google.com/group/jBASE?hl=en
|
