Re: elapsed time

11 seconds on a 595

Marco Facchinetti <facchinetti@xxxxxxxxx> wrote:This code is working and the 
result (on a very slow 520) is -28:

d h1 s t 
d s1 s 10i 0 inz
d w1 s 10i 0 inz
/free 
h1 = %time(); 
for s1 = 1 to 100000000; 
w1 += 1; 
endfor; 
s1 = %diff(h1:%time():*seconds); 
dsply ('Seconds: ' +%char(s1)); 
*inlr = *on; 
return; 
/end-free 

HTH
Marco
--- Yivi wrote:

> >
> > Delete/comment the line "DBENCHSECS S 4 0" and compile, no errors?
> >
> No, no errors. But no change in the final result either.
> Usually I define those external variables for clarity sake.
> Is that a problem?
> 
> > Define BENCH as type Z (timestamp), not type T (time).
> >
> Same result. I didn't think that should matter. Both data types have
> seconds, and are valid for the %TIME and %DIFF functions, right?
> 
> > Also, you might want to increase DBENCHSECS to 5,0, because at 4,0
> 
> I realize that at 4.0 I am constrained in how many seconds I can count
> at,
> but the programs I am testing take between 20' and 70' on each iteration.
> Since the benchmarking code won't go into production, I can do with 4.0
> (or
> 5.0, or 10.0 for the matter; it's really not important).
> Regards,
> I.-
> --





__________________________________ 
Yahoo! Mail - PC Magazine Editors' Choice 2005 
http://mail.yahoo.com