RE: [U2] [UV] WHILE READNEXT id DO

[alfkec]

This is what I got on UD 5.1.27 Win2K Dell Poweredge 2500 933Mhz server:
Ran one after the other, only user on the system.
TIME.READNEXT                      
46  8712  READNEXT ELSE EXIT       
32  8712  WHILE 1                  
32  8712  LOOP WHILE READNEXT ID DO
30  8712  GOTO                     
:.X                                
TIME.READNEXT                      
32  8712  READNEXT ELSE EXIT       
46  8712  WHILE 1                  
31  8712  LOOP WHILE READNEXT ID DO
32  8712  GOTO                     
:.X                                
TIME.READNEXT                      
31  8712  READNEXT ELSE EXIT       
32  8712  WHILE 1                  
31  8712  LOOP WHILE READNEXT ID DO
46  8712  GOTO                     
:.X                                
TIME.READNEXT                      
47  8712  READNEXT ELSE EXIT       
32  8712  WHILE 1                  
31  8712  LOOP WHILE READNEXT ID DO
31  8712  GOTO                     

Here is the code I ran - pretty much a cut-n-paste from the e-mails, I just
added the counter to give it something to do. Although it took me a minute
to figure out where to put it amid the GOTO's :).

OPEN 'TEST.FILE' TO TEST.FILE ELSE STOP
SELECT TEST.FILE
CTR = 0
START.CPU = SYSTEM(9)
LOOP
READNEXT ID ELSE EXIT
CTR += 1
REPEAT
END.CPU = SYSTEM(9)
CRT END.CPU-START.CPU:"  ":CTR:"  READNEXT ELSE EXIT"
CTR = 0
SELECT TEST.FILE
START.CPU = SYSTEM(9)
LOOP
WHILE 1 DO
READNEXT ID ELSE EXIT
CTR += 1
REPEAT
END.CPU = SYSTEM(9)
CRT END.CPU-START.CPU:"  ":CTR:"  WHILE 1"
CTR = 0
SELECT TEST.FILE
START.CPU = SYSTEM(9)
LOOP WHILE READNEXT ID DO
CTR += 1
REPEAT
END.CPU = SYSTEM(9)
CRT END.CPU-START.CPU:"  ":CTR:"  LOOP WHILE READNEXT ID DO"
CTR = 0
SELECT TEST.FILE
START.CPU = SYSTEM(9)
10 READNEXT ID ELSE GOTO 15
CTR += 1
GOTO 10
15 END.CPU = SYSTEM(9)
CRT END.CPU-START.CPU:"  ":CTR:"  GOTO"


>-----Original Message-----
>From: Mark Johnson [mailto:[EMAIL PROTECTED]
>Sent: Thursday, June 17, 2004 6:03 PM
>To: [EMAIL PROTECTED]
>Subject: Re: [U2] [UV] WHILE READNEXT id DO
>
>
>Don't forget that the second set has the benefit of the first 
>set leaving
>some of the data in virtual memory, hence the second set would 
>have been
>longer.
>
>my 1 cent
>
>How about this on your similar UD system. Correct typing implied.
>
>OPEN MASTER ELSE STOP
>SELECT MASTER
>START=SYS9
>10 READNEXT ID ELSE GOTO 15
>GOTO 10
>15 END=SYS9
>PRINT END-START
-------
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/