Wendy
The dictionary entries look like this;
ED DICT VOC DATA.RECORDS
Top of "DATA.RECORDS" in "DICT VOC", 6 lines, 55 characters.
001: V
002: SUBR('COUNT.RECORDS',@ID,"","","")
003:
004: DATA}RECORDS
005: 7R
006: M
Also, did you remember to re-catalog the subroutine after the <-1> change? I
sometimes forget.
The subroutine is called once for each file and the variable is built up
with each call.
Mike
-----Original Message-----
From: Wendy Smoak [mailto:[EMAIL PROTECTED]
Sent: Wednesday, December 28, 2005 4:02 PM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] Record count from an I-descriptor in the VOC
On 12/28/05, Koser, Mike <[EMAIL PROTECTED]> wrote:
> RESULT<-1> = @SYSTEM.RETURN.CODE
>
> Keep in mind that you are counting multiple records in the VOC.
I *think* I'm counting records in the file whose name matches the @ID
of VOC as we're iterating through the select list. I'm only returning
one count at a time... the subroutine gets called once for each key.
Right?
> 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
With or without the <-1>, I get
: SELECT VOC WITH F1 = "F" SAMPLE 2
2 records selected to list 0.
> LIST VOC A51.COUNT.FILE A51.COUNT.DICT
LIST VOC A51.COUNT.FILE A51.COUNT.DICT 13:48:31 Dec 28 2005 1
VOC............................. Record Count Dictionary Count
PERSON 0 3909
1 record listed
It only ever lists one line. The record count for PERSON is wrong
(but the dictionary count is correct. (Yes, really.) )
Mike, do your I-Descriptors just look like this:
:AE DICT VOC A51.COUNT.FILE
Top of "A51.COUNT.FILE" in "DICT VOC", 9 lines, 125 characters.
001: I
002: SUBR("S.A51.COUNT.RECORDS",@ID,'','','')
003:
004: Record Count
005: 10R
006: S
007:
008: A51.COUNT.FILE}}SUBR("S.A51.COUNT.RECORDS",@ID,'','','')
009: VOC
Bottom.
Thanks,
--
Wendy
-------
u2-users mailing list
u2-users@listserver.u2ug.org
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
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
