Re: elapsed time

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 <nardus@xxxxxxxxx> 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