|
midrange.com
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
--
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
