David Crayford wrote:
>Try the following snippet both interpreted and compiled.
>/* REXX */
>start = sysvar('SYSCPU')
>s = copies('0',1024)
>do i = 1 to 500000
> a.i = s
>end
>say 'CPU time = 'sysvar('SYSCPU') - start
Thanks! That is a nice cool one. I have put that also in my REXX progs for REXX
speed test.
Groete / Greetings
Elardus Engelbrecht
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
