Such things were so simple in PI/open:
SORT VOC @ID FMT "32L" SIZE EVAL "@1+SIZE;@" COL.HDG "Running" COL.SPCS ID.SUP
Length
@ID............................. (in Bytes) Running...
# 3 3
$INCLUDE 5 8
% 4 12
& 4 16
&ACCOUNTS& 45 61
&BASIC.HELP& 49 110
&CREATE.WIDGET.FILE 1,184 1,294
&DELETE.WIDGETS 755 2,049
&DEVICES& 43 2,092
&DEVLIST& 43 2,135
&EDFS.HELP& 47 2,182
&EDITOPTIONS& 47 2,229
&ENTER.WIDGETS 616 2,845
&GUI.HELP& 45 2,890
&LIST.WIDGETS 1,070 3,960
&MAP& 35 3,995
&MODIFY.WIDGETS 578 4,573
&PARTFILES& 47 4,620
Perhaps someone knows of a similar trick for UniVerse.
Best regards,
Henry
Henry P. Unger
Hitech Systems, Inc.
http://www.hitech.com
-----Original Message-----
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Brian Leach
Sent: Wednesday, February 24, 2010 9:50 AM
To: 'U2 Users List'
Subject: Re: [U2] Keep a running total in a listing
George
>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 George Gallen
Sent: 23 February 2010 3:07 PM
To: U2 Users List
Subject: [U2] Keep a running total in a listing
How would you produce a running total column on a report? I've done this
once before, and can not remember how I set it up.
This is running UV 10
Ex.
LIST SOMEFILE F1
@ID F1
1 2
2 5
3 8
4 11
What I want to do is:
LIST SOMEFILE F1 TOTAL(F1)
@ID F1 TOTAL
1 2 2
2 5 7
3 8 15
4 11 26
Thanks
George Gallen
Senior Programmer/Analyst
Accounting/Data Division, EDI Administrator ggal...@wyanokegroup.com
ph:856.848.9005 Ext 220
The Wyanoke Group
http://www.wyanokegroup.com
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 9.0.733 / Virus Database: 271.1.1/2705 - Release Date: 02/23/10
19:34:00
_______________________________________________
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
