Thanks David. Did u try this under SysremRexx? I'll try it tonight.
ITSCHAK בתאריך יום ה׳, 13 בספט׳ 2018, 11:44, מאת David Crayford < [email protected]>: > 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 <[email protected]> > 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 < > >>> [email protected]>: > >>> > >>>> 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 < > >> [email protected]> > >>>>> 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 <[email protected]> > >>>> 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 <[email protected] > > > >>>>>>> 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 [email protected] with the message: INFO > >>>>>> IBM-MAIN > >> ---------------------------------------------------------------------- > >>>>>>> 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 > >>>> ---------------------------------------------------------------------- > >>>> For IBM-MAIN subscribe / signoff / archive access instructions, > >>>> send email to [email protected] with the message: INFO > IBM-MAIN > >>>> > >>> ---------------------------------------------------------------------- > >>> For IBM-MAIN subscribe / signoff / archive access instructions, > >>> send email to [email protected] with the message: INFO IBM-MAIN > >> ---------------------------------------------------------------------- > >> For IBM-MAIN subscribe / signoff / archive access instructions, > >> send email to [email protected] with the message: INFO IBM-MAIN > >> > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
