Wendy
Try this:
RESULT<-1> = @SYSTEM.RETURN.CODE
Keep in mind that you are counting multiple records in the VOC.
I used the <-1> with your code and got the following result when I listing
10 records from my VOC.
LIST VOC DATA.RECORDS DICT.RECORDS 14:49:55 Dec 28 2005 1
DATA DICT
VOC........................... RECORDS RECORDS
PARTIAL.ORDER.FILE.PROMO 1 562
ORDER.LOG.PROMO 234065 10
ABBREVIATION 154 6
PARTS.FILE.PROMO 2255 220
UCC.XREF 1874862 52
MASTER.SKID -1 -1
MASTER.BILL.7 0 -1
privilege 2 7
DICT.REFORMAT.UDT -1 -1
UCC.XREF.0 1874865 52
10 records listed
Mike
-----Original Message-----
From: Wendy Smoak [mailto:[EMAIL PROTECTED]
Sent: Wednesday, December 28, 2005 2:16 PM
To: [email protected]
Subject: [U2] Record count from an I-descriptor in the VOC
In UniData 6.1, I need to list the F-type VOC items with counts of the
records and dictionary items.
So I though I'd select the items from VOC, then
LIST VOC A51.COUNT.FILE A51.COUNT.DICT
where those two fields are I-Descriptors that call a subroutine...
SUBROUTINE S.A51.COUNT.RECORDS( RESULT, FILENAME, DICT, X1, X2 )
HUSH ON
EXECUTE "COUNT ":DICT:" ":FILENAME
RESULT = @SYSTEM.RETURN.CODE
HUSH OFF
RETURN
... passing the filename (@ID of VOC) and either "DICT" or nothing,
depending.
It works great if you only want to list one record! Either changing
@SYSTEM.RETURN.CODE or (more likely, a coworker pointed out,) changing
the active select list is causing a problem.
I'm still experimenting, but does anyone have other ideas of how I can
get this? I need three columns: the filename (@ID of VOC), the count
of records and the count of items in the dictionary.
Thanks,
Wendy Smoak
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
______________________________________________________________________
This e-mail has been scanned by MCI Managed Email Content Service, using
Skeptic(tm) technology powered by MessageLabs. For more information on MCI's
Managed Email Content Service, visit http://www.mci.com.
______________________________________________________________________
______________________________________________________________________
This e-mail has been scanned by MCI Managed Email Content Service, using
Skeptic(tm) technology powered by MessageLabs. For more information on MCI's
Managed Email Content Service, visit http://www.mci.com.
______________________________________________________________________
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
