Got SYSVAR to work with Compiled rexx

The original test not-compiled

 BGN CPU:      39.17
 BGN SRV:  49548
 END CPU:      52.11
 END SRV:  69953

and Compiled

BGN CPU:      38.86
BGN SRV:  49069
END CPU:      39.12
END SRV:  49477

Same results as my other test - about 50 times faster with compiled REXX

The new test shows:
Non-compiled

CPU TIME = 77.09

Compiled

CPU TIME = 11.27

Not so great, because of the inefficient memory management with stem
usage?



On Wed, 12 Sep 2018 at 11:46, ITschak Mugzach <[email protected]> wrote:

> It look like the problem is not in my code, but somehow in my system. I am
> running z/os 2.3 on a zPDT box.  I'll investigate this issue.
>
> ITschak
>
> On Wed, Sep 12, 2018 at 11:37 AM Elardus Engelbrecht <
> [email protected]> wrote:
>
> > 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
> >
>
>
> --
> ITschak Mugzach
> *|** IronSphere Platform* *|* *Information Security Contiguous Monitoring
> for Legacy **|  *
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>


-- 
Mike Shorkend
[email protected]
www.shorkend.com
Tel: +972524208743
Fax: +97239772196

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to