RE: elapsed time

Annnnd you couldn't figure out the tabs?

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                               
 

------------------------------

date: Wed, 16 Nov 2005 17:34:30 +0100
from: "Barton, Mike" <Mike.Barton@xxxxxxxxxxxxx>
subject: RE: elapsed time

as an aside to all this, if you cut & paste the lines of 
code in directly into seu, it causes the editor to crash 
(on V5R2).... 

Mike

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 



--





------------------------------