In the meantime you can do a quick and dirty using TCBTTIME
/* REXX */
main:
start = cputime()
do i = 1 to 1000000
nop
end
say 'CPU time:' cputime() - start
exit
cputime:
cvt = ptr(16)
tcbp = ptr(cvt)
tcb = ptr(tcbp + 4)
tcbttime = stg(tcb + 316, 8)
microsecs = x2d(substr(c2x(tcbttime),1,13))
cputime = microsecs / 1000000
return cputime
ptr: arg ptr, len
if len = '' then len = 4
return x2d(c2x(bitand(storage(d2x(ptr),len),x2c('7FFFFFF'))))
stg: arg ptr, len
return storage(d2x(ptr),len)
On 12/09/2018 7:29 PM, ITschak Mugzach wrote:
Will do. the partner site is under maintenance...
ITscha
On Wed, Sep 12, 2018 at 2:11 PM David Crayford <dcrayf...@gmail.com> wrote:
On 12/09/2018 7:01 PM, ITschak Mugzach wrote:
Sounds like a bug to ne...
Maybe in System REXX but not in TSO where you may have split screens and
multiple tasks in the mix. Open an RFE.
ITschak
בתאריך יום ד׳, 12 בספט׳ 2018, 13:40, מאת David Crayford <
dcrayf...@gmail.com>:
On 12/09/2018 6:07 PM, ITschak Mugzach wrote:
Boys, don't still the thread... I need to understand why is same code
not
working under SystemRexx. Try it yourself.
I would take a guess that if you are running System REXX with TSO=YES
then sysvar('SYSCPU') is returning the CPU time of
the parent task and not the CPU time of task that the exec is running
in.
ITschak
On Wed, Sep 12, 2018 at 12:56 PM Mike Shorkend <
mike.shork...@gmail.com>
wrote:
I use the procedure provided by IBM, taking all compiler option
defaults
// JCLLIB ORDER='FAN140.SVSC.PROCLIB'
//S1 EXEC REXXC
//SYSCEXEC DD DSN=MIKE.CREXX(LOOP2),DISP=SHR
//SYSIN DD DSN=MIKE.REXX(LOOP2),DISP=SHR
which expands to
XX*-----------------------------------------------------------------
XX* Compile REXX
program.
XX*-----------------------------------------------------------------
XX*
5 XXREXX EXEC
PGM=REXXCOMP,PARM='&OPTIONS'
IEFC653I SUBSTITUTION JCL - PGM=REXXCOMP,PARM='XREF
OBJECT'
6 XXSTEPLIB DD
DSN=&COMPDSN,DISP=SHR
IEFC653I SUBSTITUTION JCL -
DSN=FAN140.SFANLMD,DISP=SHR
7 XXSYSPRINT DD
SYSOUT=*
8 XXSYSTERM DD
SYSOUT=*
XX*SYSIEXEC DD
DUMMY
XX*SYSDUMP DD
DUMMY
9 //SYSCEXEC DD
DSN=MIKE.CREXX(LOOP2),DISP=SHR
X/SYSCEXEC DD
DSN=&&CEXEC(GO),DISP=(MOD,PASS),UNIT=SYSDA,
X/
SPACE=(800,(800,100,1))
10 XXSYSPUNCH DD
DSN=&&OBJECT,DISP=(MOD,PASS),UNIT=SYSDA,
XX
SPACE=(800,(800,100))
11 //SYSIN DD
DSN=MIKE.REXX(LOOP2),DISP=SHR
On Wed, 12 Sep 2018 at 12:44, David Crayford <dcrayf...@gmail.com>
wrote:
z/OS 2.3, IBM Compiler for REXX on zSeries 4.0 LVL PI76785.
Can you share you compiler JCL?
On 12/09/2018 5:32 PM, Mike Shorkend wrote:
David - I ran it on z/OS 2.2, the REXX compiler is 1.4
How about you?
On Wed, 12 Sep 2018 at 12:27, David Crayford <dcrayf...@gmail.com>
wrote:
On 12/09/2018 4:56 PM, Mike Shorkend wrote:
The new test shows:
Non-compiled
CPU TIME = 77.09
Compiled
CPU TIME = 11.27
Your results are different to mine!
Interpreted: CPU time = 3.12
Compiled: CPU time = 7.99
Not so great, because of the inefficient memory management with
stem
usage?
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO
IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO
IBM-MAIN
--
Mike Shorkend
m...@shorkend.com
www.shorkend.com
Tel: +972524208743
Fax: +97239772196
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO
IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN