In UniVerse, I create an I-descriptor @COUNT that evaluates to 1 in a local dictionary, then copy the compiled dictionary item into the VOC *file*. This makes @COUNT available in any LIST or SORT command on *any* file. You could combine this technique with your COUNTER TCL command (or an equivalent Paragraph) and it would work on any file. This works for Virtual Fields in UniData too (where EVAL "1" doesn't always work).
Thanks, Ross -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Mark Johnson Sent: Friday, September 02, 2005 8:38 PM To: u2-users@listserver.u2ug.org Subject: Re: [U2] TCL beginner I use a TCL command that I created called COUNTER. It requires the dict item in the file called COUNTER that represents the value 1. At tcl type COUNTER CUSTOMER STATE The proc goes like this: PQN HSORT A2 H BY A3 H BREAK-ON A3 H TOTAL COUNTER DET-SUPP P I use this quite extensively for this exact purpose. It will also work with an active list. It's pretty revealing. My 2 cents. ------- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
