Re: [EXTERNAL] Re: Co-posted: Rexx performance measures
I think IBM is like sleeping beauty, waiting for a price to awake from the Watson nightmare (or the prince called RAD HAT ?!)... ITschak On Thu, Nov 15, 2018 at 5:57 AM zMan wrote: > Welcome to the new IBM. > > And they think they're going to woo cloud customers with this level of > support... > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [EXTERNAL] Re: Co-posted: Rexx performance measures
Welcome to the new IBM. And they think they're going to woo cloud customers with this level of support... -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [EXTERNAL] Re: Co-posted: Rexx performance measures
So it's working (aka broken) as coded and the only way to get it fixed is to open an RFE, take 2 aspirins, and then take a bottle of sleeping pills - then by the time you wake up you'll have completely forgotten about the issue and moved on and IBM still won't have fixed it. If they agree it's broken then they should take an APAR at the very least. What is wrong with this picture ☹ -- Lionel B. Dyck (Contractor) < Mainframe Systems Programmer – RavenTek Solution Partners -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of ITschak Mugzach Sent: Monday, November 12, 2018 2:37 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: [EXTERNAL] Re: Co-posted: Rexx performance measures an update about syssrc & syscpu under systemrexx: I opened a PMR. IBM agrees it does not work. However, they supplied a long explanation how it works under TSO/E, why it doesn't work under SystemRexx, and a workaround based on Rexx STORAGE function. If I want the issue to be fixed, I need to open a requirement for this. ITschak On Mon, Sep 17, 2018 at 3:54 PM Tom Marchant < 000a2a8c2020-dmarc-requ...@listserv.ua.edu> wrote: > On Sat, 15 Sep 2018 15:29:48 +0800, David Crayford wrote: > > >On 14/09/2018 9:21 PM, Tom Marchant wrote: > >> > >> What model is that? How severely is it kneecapped? > >> > > > >We're pretty heavily kneecapped but I would still expect better > >performance than a emulated machine > > > >Processor Information from MXI. We run 3 LPARs > > > >CPU Model2965 CPU Type Code00 > >Physical CPUs4 Processor Name Z10#T03 > >Total MIPS 375.52 SU/Second4553.21 > >MIPS/CPU 93.88 CPU Adjustment 3514 > >MSU 66 > > This doesn't tell what model it is. What does D M=CPU show? > > 4 CPUs and 66 MSU for a z13s suggests that it is a 2965-F04. > If you look at the LSPR data at > > https://www-01.ibm.com/servers/resourcelink/lib03060.nsf/pages/lsprITR > zOSv2r2?OpenDocument#z13s you can see that a full speed z13s > (2965-Z04) is 622 MSU, not quite 10 times as fast as an F04. > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to lists...@listserv.ua.edu 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 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
Re: Co-posted: Rexx performance measures
an update about syssrc & syscpu under systemrexx: I opened a PMR. IBM agrees it does not work. However, they supplied a long explanation how it works under TSO/E, why it doesn't work under SystemRexx, and a workaround based on Rexx STORAGE function. If I want the issue to be fixed, I need to open a requirement for this. ITschak On Mon, Sep 17, 2018 at 3:54 PM Tom Marchant < 000a2a8c2020-dmarc-requ...@listserv.ua.edu> wrote: > On Sat, 15 Sep 2018 15:29:48 +0800, David Crayford wrote: > > >On 14/09/2018 9:21 PM, Tom Marchant wrote: > >> > >> What model is that? How severely is it kneecapped? > >> > > > >We're pretty heavily kneecapped but I would still expect better > >performance than a emulated machine > > > >Processor Information from MXI. We run 3 LPARs > > > >CPU Model2965 CPU Type Code00 > >Physical CPUs4 Processor Name Z10#T03 > >Total MIPS 375.52 SU/Second4553.21 > >MIPS/CPU 93.88 CPU Adjustment 3514 > >MSU 66 > > This doesn't tell what model it is. What does D M=CPU show? > > 4 CPUs and 66 MSU for a z13s suggests that it is a 2965-F04. > If you look at the LSPR data at > > https://www-01.ibm.com/servers/resourcelink/lib03060.nsf/pages/lsprITRzOSv2r2?OpenDocument#z13s > you can see that a full speed z13s (2965-Z04) is 622 MSU, > not quite 10 times as fast as an F04. > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Co-posted: Rexx performance measures
On Sat, 15 Sep 2018 15:29:48 +0800, David Crayford wrote: >On 14/09/2018 9:21 PM, Tom Marchant wrote: >> >> What model is that? How severely is it kneecapped? >> > >We're pretty heavily kneecapped but I would still expect better >performance than a emulated machine > >Processor Information from MXI. We run 3 LPARs > >CPU Model 2965 CPU Type Code 00 >Physical CPUs 4 Processor Name Z10#T03 >Total MIPS 375.52 SU/Second 4553.21 >MIPS/CPU 93.88 CPU Adjustment 3514 >MSU 66 This doesn't tell what model it is. What does D M=CPU show? 4 CPUs and 66 MSU for a z13s suggests that it is a 2965-F04. If you look at the LSPR data at https://www-01.ibm.com/servers/resourcelink/lib03060.nsf/pages/lsprITRzOSv2r2?OpenDocument#z13s you can see that a full speed z13s (2965-Z04) is 622 MSU, not quite 10 times as fast as an F04. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Co-posted: Rexx performance measures
On 14/09/2018 9:21 PM, Tom Marchant wrote: On Fri, 14 Sep 2018 11:28:09 +0800, David Crayford wrote: Wow, that's interesting! It runs in 1.861138 cpu seconds on our z13s. We have 800mips sliced up between 3 cores so 266mips per core. What model is that? How severely is it kneecapped? We're pretty heavily kneecapped but I would still expect better performance than a emulated machine Processor Information from MXI. We run 3 LPARs CPU Model 2965 CPU Type Code 00 Physical CPUs 4 Processor Name Z10#T03 Total MIPS 375.52 SU/Second 4553.21 MIPS/CPU 93.88 CPU Adjustment 3514 MSU 66 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Co-posted: Rexx performance measures
On Fri, 14 Sep 2018 11:28:09 +0800, David Crayford wrote: >Wow, that's interesting! It runs in 1.861138 cpu seconds on our z13s. We >have 800mips sliced up between 3 cores so 266mips per core. What model is that? How severely is it kneecapped? -- Tom Marchant -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Co-posted: Rexx performance measures
Wow, that's interesting! It runs in 1.861138 cpu seconds on our z13s. We have 800mips sliced up between 3 cores so 266mips per core. So your zPDT core which is running emulated is faster at running REXX than our z13s! Can that be right? No wonder IBM limit the zPDT to 1 core imagine what workload you could run on an 8-core x86 blade server with 256GB of RAM! On 14/09/2018 2:50 AM, ITschak Mugzach wrote: Hi David, Happy to inform that it work just fine. Thanks. BTW, it took only 1.385268 cpu seconds on our machine, a zPdt, one CPU. Tx again, ITschak On Thu, Sep 13, 2018 at 1:22 PM ITschak Mugzach wrote: Tx. Will report findings today. ITschak בתאריך יום ה׳, 13 בספט׳ 2018, 13:05, מאת David Crayford < dcrayf...@gmail.com>: I didn't try it with System REXX as I don't have access to that. Let us know how you go. On 13/09/2018 4:58 PM, ITschak Mugzach wrote: Thanks David. Did u try this under SysremRexx? I'll try it tonight. ITSCHAK בתאריך יום ה׳, 13 בספט׳ 2018, 11:44, מאת David Crayford < dcrayf...@gmail.com>: In the meantime you can do a quick and dirty using TCBTTIME /* REXX */ main: start = cputime() do i = 1 to 100 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 / 100 return cputime ptr: arg ptr, len if len = '' then len = 4 return x2d(c2x(bitand(storage(d2x(ptr),len),x2c('7FF' 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 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 //SYSINDD DSN=MIKE.REXX(LOOP2),DISP=SHR which expands to XX*- XX* Compile REXX program. XX*- XX* 5 XXREXXEXEC PGM=REXXCOMP,PARM='' IEFC653I SUBSTITUTION JCL - PGM=REXXCOMP,PARM='XREF OBJECT' 6 XXSTEPLIB DD DSN=,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=&(GO),DISP=(MOD,PASS),UNIT=SYSDA, X/ SPACE=(800,(800,100,1)) 10 XXSYSPUNCH DD DSN=&,DISP=(MOD,PASS),UNIT=SYSDA, XX SPACE=(800,(800,100)) 11 //SYSINDD 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
Re: Co-posted: Rexx performance measures
Hi David, Happy to inform that it work just fine. Thanks. BTW, it took only 1.385268 cpu seconds on our machine, a zPdt, one CPU. Tx again, ITschak On Thu, Sep 13, 2018 at 1:22 PM ITschak Mugzach wrote: > Tx. Will report findings today. > > ITschak > > בתאריך יום ה׳, 13 בספט׳ 2018, 13:05, מאת David Crayford < > dcrayf...@gmail.com>: > >> I didn't try it with System REXX as I don't have access to that. Let us >> know how you go. >> >> >> On 13/09/2018 4:58 PM, ITschak Mugzach wrote: >> > Thanks David. >> > >> > Did u try this under SysremRexx? I'll try it tonight. >> > >> > ITSCHAK >> > >> > בתאריך יום ה׳, 13 בספט׳ 2018, 11:44, מאת David Crayford < >> > dcrayf...@gmail.com>: >> > >> >> In the meantime you can do a quick and dirty using TCBTTIME >> >> >> >> /* REXX */ >> >> >> >> main: >> >> start = cputime() >> >> do i = 1 to 100 >> >> 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 / 100 >> >> return cputime >> >> >> >> ptr: arg ptr, len >> >> if len = '' then len = 4 >> >> return x2d(c2x(bitand(storage(d2x(ptr),len),x2c('7FF' >> >> >> >> 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 >> >> 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 >> //SYSINDD DSN=MIKE.REXX(LOOP2),DISP=SHR >> >> which expands to >> >> >> >> XX*- >> >> XX* Compile REXX >> program. >> >> >> XX*- >> >> >> XX* >> >> 5 XXREXXEXEC >> PGM=REXXCOMP,PARM='' >> IEFC653I SUBSTITUTION JCL - PGM=REXXCOMP,PARM='XREF >> OBJECT' >> 6 XXSTEPLIB DD >> DSN=,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=&(GO),DISP=(MOD,PASS),UNIT=SYSDA, >> X/ >> SPACE=(800,(800,100,1)) >> 10 XXSYSPUNCH DD >> DSN=&,DISP=(MOD,PASS),UNIT=SYSDA, >> XX >> SPACE=(800,(800,100)) >> 11 //SYSINDD >> 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: >>
Re: Co-posted: Rexx performance measures
Tx. Will report findings today. ITschak בתאריך יום ה׳, 13 בספט׳ 2018, 13:05, מאת David Crayford < dcrayf...@gmail.com>: > I didn't try it with System REXX as I don't have access to that. Let us > know how you go. > > > On 13/09/2018 4:58 PM, ITschak Mugzach wrote: > > Thanks David. > > > > Did u try this under SysremRexx? I'll try it tonight. > > > > ITSCHAK > > > > בתאריך יום ה׳, 13 בספט׳ 2018, 11:44, מאת David Crayford < > > dcrayf...@gmail.com>: > > > >> In the meantime you can do a quick and dirty using TCBTTIME > >> > >> /* REXX */ > >> > >> main: > >> start = cputime() > >> do i = 1 to 100 > >> 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 / 100 > >> return cputime > >> > >> ptr: arg ptr, len > >> if len = '' then len = 4 > >> return x2d(c2x(bitand(storage(d2x(ptr),len),x2c('7FF' > >> > >> 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 > >> 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 > //SYSINDD DSN=MIKE.REXX(LOOP2),DISP=SHR > > which expands to > > > > XX*- > > XX* Compile REXX > program. > > > XX*- > > > XX* > > 5 XXREXXEXEC > PGM=REXXCOMP,PARM='' > IEFC653I SUBSTITUTION JCL - PGM=REXXCOMP,PARM='XREF > OBJECT' > 6 XXSTEPLIB DD > DSN=,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=&(GO),DISP=(MOD,PASS),UNIT=SYSDA, > X/ > SPACE=(800,(800,100,1)) > 10 XXSYSPUNCH DD > DSN=&,DISP=(MOD,PASS),UNIT=SYSDA, > XX > SPACE=(800,(800,100)) > 11 //SYSINDD > DSN=MIKE.REXX(LOOP2),DISP=SHR > > > > > > > On Wed, 12 Sep 2018 at 12:44, David Crayford > > >> 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
Re: Co-posted: Rexx performance measures
I didn't try it with System REXX as I don't have access to that. Let us know how you go. On 13/09/2018 4:58 PM, ITschak Mugzach wrote: Thanks David. Did u try this under SysremRexx? I'll try it tonight. ITSCHAK בתאריך יום ה׳, 13 בספט׳ 2018, 11:44, מאת David Crayford < dcrayf...@gmail.com>: In the meantime you can do a quick and dirty using TCBTTIME /* REXX */ main: start = cputime() do i = 1 to 100 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 / 100 return cputime ptr: arg ptr, len if len = '' then len = 4 return x2d(c2x(bitand(storage(d2x(ptr),len),x2c('7FF' 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 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 //SYSINDD DSN=MIKE.REXX(LOOP2),DISP=SHR which expands to XX*- XX* Compile REXX program. XX*- XX* 5 XXREXXEXEC PGM=REXXCOMP,PARM='' IEFC653I SUBSTITUTION JCL - PGM=REXXCOMP,PARM='XREF OBJECT' 6 XXSTEPLIB DD DSN=,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=&(GO),DISP=(MOD,PASS),UNIT=SYSDA, X/ SPACE=(800,(800,100,1)) 10 XXSYSPUNCH DD DSN=&,DISP=(MOD,PASS),UNIT=SYSDA, XX SPACE=(800,(800,100)) 11 //SYSINDD DSN=MIKE.REXX(LOOP2),DISP=SHR On Wed, 12 Sep 2018 at 12:44, David Crayford 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 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
Re: Co-posted: Rexx performance measures
Thanks David. Did u try this under SysremRexx? I'll try it tonight. ITSCHAK בתאריך יום ה׳, 13 בספט׳ 2018, 11:44, מאת David Crayford < dcrayf...@gmail.com>: > In the meantime you can do a quick and dirty using TCBTTIME > > /* REXX */ > > main: >start = cputime() >do i = 1 to 100 > 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 / 100 >return cputime > > ptr: arg ptr, len >if len = '' then len = 4 >return x2d(c2x(bitand(storage(d2x(ptr),len),x2c('7FF' > > 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 > 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 > >> //SYSINDD DSN=MIKE.REXX(LOOP2),DISP=SHR > >> > >> which expands to > >> > >> > >> XX*- > >> > >> XX* Compile REXX > >> program. > >> > >> XX*- > >> > >> > >> XX* > >> > >>5 XXREXXEXEC > >> PGM=REXXCOMP,PARM='' > >> IEFC653I SUBSTITUTION JCL - PGM=REXXCOMP,PARM='XREF > >> OBJECT' > >>6 XXSTEPLIB DD > >> DSN=,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=&(GO),DISP=(MOD,PASS),UNIT=SYSDA, > >> X/ > >> SPACE=(800,(800,100,1)) > >> 10 XXSYSPUNCH DD > >> DSN=&,DISP=(MOD,PASS),UNIT=SYSDA, > >> XX > >> SPACE=(800,(800,100)) > >> 11 //SYSINDD > >> DSN=MIKE.REXX(LOOP2),DISP=SHR > >> > >> > >> > >> > >> > >> > >> On Wed, 12 Sep 2018 at 12:44, David Crayford > 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 > > >>> 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 > >> > >> >
Re: Co-posted: Rexx performance measures
In the meantime you can do a quick and dirty using TCBTTIME /* REXX */ main: start = cputime() do i = 1 to 100 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 / 100 return cputime ptr: arg ptr, len if len = '' then len = 4 return x2d(c2x(bitand(storage(d2x(ptr),len),x2c('7FF' 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 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 //SYSINDD DSN=MIKE.REXX(LOOP2),DISP=SHR which expands to XX*- XX* Compile REXX program. XX*- XX* 5 XXREXXEXEC PGM=REXXCOMP,PARM='' IEFC653I SUBSTITUTION JCL - PGM=REXXCOMP,PARM='XREF OBJECT' 6 XXSTEPLIB DD DSN=,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=&(GO),DISP=(MOD,PASS),UNIT=SYSDA, X/ SPACE=(800,(800,100,1)) 10 XXSYSPUNCH DD DSN=&,DISP=(MOD,PASS),UNIT=SYSDA, XX SPACE=(800,(800,100)) 11 //SYSINDD DSN=MIKE.REXX(LOOP2),DISP=SHR On Wed, 12 Sep 2018 at 12:44, David Crayford 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 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
Re: Co-posted: Rexx performance measures
Will do. the partner site is under maintenance... ITscha On Wed, Sep 12, 2018 at 2:11 PM David Crayford 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 > //SYSINDD DSN=MIKE.REXX(LOOP2),DISP=SHR > > which expands to > > > XX*- > > XX* Compile REXX > program. > > XX*- > > > XX* > > 5 XXREXXEXEC > PGM=REXXCOMP,PARM='' > IEFC653I SUBSTITUTION JCL - PGM=REXXCOMP,PARM='XREF > OBJECT' > 6 XXSTEPLIB DD > DSN=,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=&(GO),DISP=(MOD,PASS),UNIT=SYSDA, > X/ > SPACE=(800,(800,100,1)) > 10 XXSYSPUNCH DD > DSN=&,DISP=(MOD,PASS),UNIT=SYSDA, > XX > SPACE=(800,(800,100)) > 11 //SYSINDD > DSN=MIKE.REXX(LOOP2),DISP=SHR > > > > > > > On Wed, 12 Sep 2018 at 12:44, David Crayford > >> 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 > > 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 > -- ITschak Mugzach *|** IronSphere Platform* *|* *Information Security Contiguous Monitoring for Legacy **| * -- For IBM-MAIN subscribe / signoff /
Re: Co-posted: Rexx performance measures
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 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 //SYSINDD DSN=MIKE.REXX(LOOP2),DISP=SHR which expands to XX*- XX* Compile REXX program. XX*- XX* 5 XXREXXEXEC PGM=REXXCOMP,PARM='' IEFC653I SUBSTITUTION JCL - PGM=REXXCOMP,PARM='XREF OBJECT' 6 XXSTEPLIB DD DSN=,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=&(GO),DISP=(MOD,PASS),UNIT=SYSDA, X/ SPACE=(800,(800,100,1)) 10 XXSYSPUNCH DD DSN=&,DISP=(MOD,PASS),UNIT=SYSDA, XX SPACE=(800,(800,100)) 11 //SYSINDD DSN=MIKE.REXX(LOOP2),DISP=SHR On Wed, 12 Sep 2018 at 12:44, David Crayford 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 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
Re: Co-posted: Rexx performance measures
Sounds like a bug to ne... 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 > > 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 > >> //SYSINDD DSN=MIKE.REXX(LOOP2),DISP=SHR > >> > >> which expands to > >> > >> > >> XX*- > >> > >>XX* Compile REXX > >> program. > >> > >> XX*- > >> > >> > >> XX* > >> > >> 5 XXREXXEXEC > >> PGM=REXXCOMP,PARM='' > >>IEFC653I SUBSTITUTION JCL - PGM=REXXCOMP,PARM='XREF > >> OBJECT' > >> 6 XXSTEPLIB DD > >> DSN=,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=&(GO),DISP=(MOD,PASS),UNIT=SYSDA, > >>X/ > >> SPACE=(800,(800,100,1)) > >> 10 XXSYSPUNCH DD > >> DSN=&,DISP=(MOD,PASS),UNIT=SYSDA, > >>XX > >> SPACE=(800,(800,100)) > >> 11 //SYSINDD > >> DSN=MIKE.REXX(LOOP2),DISP=SHR > >> > >> > >> > >> > >> > >> > >> On Wed, 12 Sep 2018 at 12:44, David Crayford > 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 > >>> 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
Re: Co-posted: Rexx performance measures
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 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 //SYSINDD DSN=MIKE.REXX(LOOP2),DISP=SHR which expands to XX*- XX* Compile REXX program. XX*- XX* 5 XXREXXEXEC PGM=REXXCOMP,PARM='' IEFC653I SUBSTITUTION JCL - PGM=REXXCOMP,PARM='XREF OBJECT' 6 XXSTEPLIB DD DSN=,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=&(GO),DISP=(MOD,PASS),UNIT=SYSDA, X/ SPACE=(800,(800,100,1)) 10 XXSYSPUNCH DD DSN=&,DISP=(MOD,PASS),UNIT=SYSDA, XX SPACE=(800,(800,100)) 11 //SYSINDD DSN=MIKE.REXX(LOOP2),DISP=SHR On Wed, 12 Sep 2018 at 12:44, David Crayford 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 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
Re: Co-posted: Rexx performance measures
Boys, don't still the thread... I need to understand why is same code not working under SystemRexx. Try it yourself. ITschak On Wed, Sep 12, 2018 at 12:56 PM Mike Shorkend 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 > //SYSINDD DSN=MIKE.REXX(LOOP2),DISP=SHR > > which expands to > > > XX*- > > XX* Compile REXX > program. > > XX*- > > > XX* > > 5 XXREXXEXEC > PGM=REXXCOMP,PARM='' > IEFC653I SUBSTITUTION JCL - PGM=REXXCOMP,PARM='XREF > OBJECT' > 6 XXSTEPLIB DD > DSN=,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=&(GO),DISP=(MOD,PASS),UNIT=SYSDA, > X/ > SPACE=(800,(800,100,1)) >10 XXSYSPUNCH DD > DSN=&,DISP=(MOD,PASS),UNIT=SYSDA, > XX > SPACE=(800,(800,100)) >11 //SYSINDD > DSN=MIKE.REXX(LOOP2),DISP=SHR > > > > > > > On Wed, 12 Sep 2018 at 12:44, David Crayford 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 > > 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 > -- ITschak Mugzach *|** IronSphere Platform* *|* *Information Security Contiguous Monitoring for Legacy **| * -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Co-posted: Rexx performance measures
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 //SYSINDD DSN=MIKE.REXX(LOOP2),DISP=SHR which expands to XX*- XX* Compile REXX program. XX*- XX* 5 XXREXXEXEC PGM=REXXCOMP,PARM='' IEFC653I SUBSTITUTION JCL - PGM=REXXCOMP,PARM='XREF OBJECT' 6 XXSTEPLIB DD DSN=,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=&(GO),DISP=(MOD,PASS),UNIT=SYSDA, X/ SPACE=(800,(800,100,1)) 10 XXSYSPUNCH DD DSN=&,DISP=(MOD,PASS),UNIT=SYSDA, XX SPACE=(800,(800,100)) 11 //SYSINDD DSN=MIKE.REXX(LOOP2),DISP=SHR On Wed, 12 Sep 2018 at 12:44, David Crayford 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 > 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
Re: Co-posted: Rexx performance measures
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 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
Re: Co-posted: Rexx performance measures
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 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 > -- 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
Re: Co-posted: Rexx performance measures
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
Re: Co-posted: Rexx performance measures
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 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 < > elardus.engelbre...@sita.co.za> wrote: > > > David Crayford wrote: > > > > >Try the following snippet both interpreted and compiled. > > > > >/* REXX */ > > >start = sysvar('SYSCPU') > > >s = copies('0',1024) > > >do i = 1 to 50 > > > 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 lists...@listserv.ua.edu 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 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
Re: Co-posted: Rexx performance measures
OK. found it. it work fine under tso/batch, but doesn't work under systemrexx. ITschak On Wed, Sep 12, 2018 at 11:46 AM ITschak Mugzach 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 < > elardus.engelbre...@sita.co.za> wrote: > >> David Crayford wrote: >> >> >Try the following snippet both interpreted and compiled. >> >> >/* REXX */ >> >start = sysvar('SYSCPU') >> >s = copies('0',1024) >> >do i = 1 to 50 >> > 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN >> > > > -- > ITschak Mugzach > *|** IronSphere Platform* *|* *Information Security Contiguous Monitoring > for Legacy **| * > > > -- ITschak Mugzach *|** IronSphere Platform* *|* *Information Security Contiguous Monitoring for Legacy **| * -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Co-posted: Rexx performance measures
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 < elardus.engelbre...@sita.co.za> wrote: > David Crayford wrote: > > >Try the following snippet both interpreted and compiled. > > >/* REXX */ > >start = sysvar('SYSCPU') > >s = copies('0',1024) > >do i = 1 to 50 > > 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 lists...@listserv.ua.edu 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Co-posted: Rexx performance measures
David Crayford wrote: >Try the following snippet both interpreted and compiled. >/* REXX */ >start = sysvar('SYSCPU') >s = copies('0',1024) >do i = 1 to 50 > 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Co-posted: Rexx performance measures
On 12/09/2018 3:42 PM, Mike Shorkend wrote: Out of curiosity, I ran this as interpreted REXX and then as compiled REXX. The REXX compiler does not like SYSVAR That's curious! SYSVAR works fine for me with the REXX compiler. I have found that the compiled REXX runtime memory management is flawed. It does a GETMAIN every time it needs dynamic memory instead of using cell-pools or a heap. Try the following snippet both interpreted and compiled. /* REXX */ start = sysvar('SYSCPU') s = copies('0',1024) do i = 1 to 50 a.i = s end say 'CPU time = 'sysvar('SYSCPU') - start so I just ran them both as batch jobs and looked at the IEF032I message in JES SYSTEM MESSAGES: Interpreted (Non-compiled ) IEF032I STEP/STEP010 /STOP 2018255.1024 CPU: 0 HR 00 MIN *13.10 *SECSRB: 0 HR 00 MIN 00.00 SEC Compiled IEF032I STEP/GO /STOP 2018255.1023 CPU: 0 HR 00 MIN *00.25* SECSRB: 0 HR 00 MIN 00.00 SEC Very dramatic improvement - approx 50 times faster. This was on a zPDT The code I used: /* REXX */ I = 0 DO 999 I = I + 1 END EXIT 0 On Wed, 12 Sep 2018 at 06:55, David Crayford wrote: We're running a 2965-N10 and your snippet took a gargantuan 19.33 CPU seconds on our machine. I was curious as to what it was doing to take up so much time so I profiled it. Astonishingly, it's spending most of the time moving data! The REXX implementation on z/OS predates modern scripting language design which generally compile to bytecode for processing in a VM. AddressModule AM S/P AS ASID Percent of CPU Time * 10.00% ±1.7% *123456789* 0D5ABC50 - IRXINIT 31 P8 21.73 OOO > IXXRCN+0C4C 46F0 CC1CBCT R15,3100(,R12) > IXXRCN+0C50 D200 F000 3000 MVC 0(1,R15),0(R3) 0D5ABC56 - IRXINIT 31 P8 21.22 OOO > IXXRCN+0C50 D200 F000 3000 MVC 0(1,R15),0(R3) > IXXRCN+0C56 1B3B SR R3,R11 > IXXRCN+0C58 1BFB SR R15,R11 > IXXRCN+0C5A 1932 CR R3,R2 Alternate Disassembly > IXXRCN+0C54 3000 LPER R0,R0 > IXXRCN+0C56 1B3B SR R3,R11 > IXXRCN+0C58 1BFB SR R15,R11 > IXXRCN+0C5A 1932 CR R3,R2 0D5B1D46 - IRXINIT 31 P8 4.92 OO > IXXRIN+0432 1853 LR R5,R3 > IXXRIN+0434 0E24 MVCL R2,R4 > IXXRIN+0436 0620 BCTR R2,R0 > IXXRIN+0438 952A 2000CLI 0(R2),42 On 12/09/2018 9:53 AM, Jackson, Rob wrote: Hah, indeed it did. I was surprised too. I added in the redundant count in the first place simply because I assumed a simple loop might not cause even a hundredth of a second CPU usage. I was astonished, even knowing REXX is inherently a pig, albeit a generally pretty pig (yeah, yeah, Python is pretty too). We are on a baby machine, a 2965-Txx, so that accounts for some of it, but still, yes, REXX is indeed expensive. First Tennessee Bank Mainframe Technical Support -Original Message- From: IBM Mainframe Discussion List On Behalf Of David Crayford Sent: Tuesday, September 11, 2018 9:44 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Co-posted: Rexx performance measures [External Email] Crikey! Did it really take REXX a whopping 7.7 CPU seconds to count to ten million? On 12/09/2018 3:52 AM, Jackson, Rob wrote: Works for me just fine. Looping ten million times and incrementing a counter by one resulted in this: Bgn CPU: 68.66 Bgn SRV: 2447864 End CPU: 76.36 End SRV: 2721588 First Tennessee Bank Mainframe Technical Support -Original Message- From: IBM Mainframe Discussion List On Behalf Of ITschak Mugzach Sent: Tuesday, September 11, 2018 3:36 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Co-posted: Rexx performance measures [External Email] I am trying to measure Rexx exec performance metrics. Elapse is easy Time('R') at start exec resets the counter and the second one reports the value. But how to measure CPU or service units? I tried SYSVAR('CPU') at beginning of exec and at end, thinking to do the calculation myself, but both returns the same value ... same behevior with SYSVAR('SYSSRV'). I am a good developer, but i am not fooling my self I am SO good. what is the trick to return the service units consumed by the exec? ITschak -- ITschak Mugzach *|** IronSphere Platform* *|* *Information Security Contiguous Monitoring for Legacy **| * -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN FIRST TENNESSEE Confidentiality notice: This e-mail message, including any attachments, may contain legally privileged and/or confidential information. If you are not the inten
Re: Co-posted: Rexx performance measures
ITschak Mugzach wrote: >Strange indeed. However, my rexx is a collection of many procedure calls >(internal). Should this effect the way SYSVAR works? I don't know about the SYSVAR. I am using this alternative (elapsd time) to see how fast my Catalog Search Interface is working: SAY TIME('E') SAY DATE('E')' 'TIME('L') Play around with CSI using a clone of IGGCSIRX ... etc ... SAY TIME('E') SAY TIME('R') SAY DATE('E')' 'TIME('L') Try this crude snippet to see if you get any timings. HTH! Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Co-posted: Rexx performance measures
Out of curiosity, I ran this as interpreted REXX and then as compiled REXX. The REXX compiler does not like SYSVAR so I just ran them both as batch jobs and looked at the IEF032I message in JES SYSTEM MESSAGES: Interpreted (Non-compiled ) IEF032I STEP/STEP010 /STOP 2018255.1024 CPU: 0 HR 00 MIN *13.10 *SECSRB: 0 HR 00 MIN 00.00 SEC Compiled IEF032I STEP/GO /STOP 2018255.1023 CPU: 0 HR 00 MIN *00.25* SECSRB: 0 HR 00 MIN 00.00 SEC Very dramatic improvement - approx 50 times faster. This was on a zPDT The code I used: /* REXX */ I = 0 DO 999 I = I + 1 END EXIT 0 On Wed, 12 Sep 2018 at 06:55, David Crayford wrote: > We're running a 2965-N10 and your snippet took a gargantuan 19.33 CPU > seconds on our machine. I was curious as to what it was doing to take up > so much time so I profiled it. > Astonishingly, it's spending most of the time moving data! The REXX > implementation on z/OS predates modern scripting language design which > generally compile to bytecode for processing in a VM. > > AddressModule AM S/P AS ASID Percent of CPU Time * 10.00% ±1.7% > *123456789* > 0D5ABC50 - IRXINIT 31 P8 21.73 OOO > > > IXXRCN+0C4C 46F0 CC1CBCT R15,3100(,R12) > > IXXRCN+0C50 D200 F000 3000 MVC 0(1,R15),0(R3) > > 0D5ABC56 - IRXINIT 31 P8 21.22 OOO > > > IXXRCN+0C50 D200 F000 3000 MVC 0(1,R15),0(R3) > > IXXRCN+0C56 1B3B SR R3,R11 > > IXXRCN+0C58 1BFB SR R15,R11 > > IXXRCN+0C5A 1932 CR R3,R2 >Alternate Disassembly > > IXXRCN+0C54 3000 LPER R0,R0 > > IXXRCN+0C56 1B3B SR R3,R11 > > IXXRCN+0C58 1BFB SR R15,R11 > > IXXRCN+0C5A 1932 CR R3,R2 > > 0D5B1D46 - IRXINIT 31 P8 4.92 OO > > > IXXRIN+0432 1853 LR R5,R3 > > IXXRIN+0434 0E24 MVCL R2,R4 > > IXXRIN+0436 0620 BCTR R2,R0 > > IXXRIN+0438 952A 2000CLI 0(R2),42 > > On 12/09/2018 9:53 AM, Jackson, Rob wrote: > > Hah, indeed it did. I was surprised too. I added in the redundant > count in the first place simply because I assumed a simple loop might not > cause even a hundredth of a second CPU usage. I was astonished, even > knowing REXX is inherently a pig, albeit a generally pretty pig (yeah, > yeah, Python is pretty too). > > > > We are on a baby machine, a 2965-Txx, so that accounts for some of it, > but still, yes, REXX is indeed expensive. > > > > First Tennessee Bank > > Mainframe Technical Support > > > > -----Original Message----- > > From: IBM Mainframe Discussion List On > Behalf Of David Crayford > > Sent: Tuesday, September 11, 2018 9:44 PM > > To: IBM-MAIN@LISTSERV.UA.EDU > > Subject: Re: Co-posted: Rexx performance measures > > > > [External Email] > > > > Crikey! Did it really take REXX a whopping 7.7 CPU seconds to count to > ten million? > > > > > > On 12/09/2018 3:52 AM, Jackson, Rob wrote: > >> Works for me just fine. Looping ten million times and incrementing a > counter by one resulted in this: > >> > >> Bgn CPU: 68.66 > >> Bgn SRV: 2447864 > >> End CPU: 76.36 > >> End SRV: 2721588 > >> > >> First Tennessee Bank > >> Mainframe Technical Support > >> > >> > >> -Original Message- > >> From: IBM Mainframe Discussion List On > >> Behalf Of ITschak Mugzach > >> Sent: Tuesday, September 11, 2018 3:36 PM > >> To: IBM-MAIN@LISTSERV.UA.EDU > >> Subject: Co-posted: Rexx performance measures > >> > >> [External Email] > >> > >> I am trying to measure Rexx exec performance metrics. Elapse is easy > >> Time('R') at start exec resets the counter and the second one reports > the value. But how to measure CPU or service units? I tried SYSVAR('CPU') > at beginning of exec and at end, thinking to do the calculation myself, but > both returns the same value ... same behevior with SYSVAR('SYSSRV'). > >> > >> I am a good developer, but i am not fooling my self I am SO good. what > is the trick to return the service units consumed by the exec? > >> > >> ITschak > >> > >> -- > >> ITschak Mugzach > >> *|** IronSphere Platform* *|* *Information Security Contiguous > >> Monitoring for Legacy **| * > >> > >> --
Re: Co-posted: Rexx performance measures
We're running a 2965-N10 and your snippet took a gargantuan 19.33 CPU seconds on our machine. I was curious as to what it was doing to take up so much time so I profiled it. Astonishingly, it's spending most of the time moving data! The REXX implementation on z/OS predates modern scripting language design which generally compile to bytecode for processing in a VM. Address Module AM S/P AS ASID Percent of CPU Time * 10.00% ±1.7% *123456789* 0D5ABC50 - IRXINIT 31 P8 21.73 OOO > IXXRCN+0C4C 46F0 CC1C BCT R15,3100(,R12) > IXXRCN+0C50 D200 F000 3000 MVC 0(1,R15),0(R3) 0D5ABC56 - IRXINIT 31 P8 21.22 OOO > IXXRCN+0C50 D200 F000 3000 MVC 0(1,R15),0(R3) > IXXRCN+0C56 1B3B SR R3,R11 > IXXRCN+0C58 1BFB SR R15,R11 > IXXRCN+0C5A 1932 CR R3,R2 Alternate Disassembly > IXXRCN+0C54 3000 LPER R0,R0 > IXXRCN+0C56 1B3B SR R3,R11 > IXXRCN+0C58 1BFB SR R15,R11 > IXXRCN+0C5A 1932 CR R3,R2 0D5B1D46 - IRXINIT 31 P8 4.92 OO > IXXRIN+0432 1853 LR R5,R3 > IXXRIN+0434 0E24 MVCL R2,R4 > IXXRIN+0436 0620 BCTR R2,R0 > IXXRIN+0438 952A 2000 CLI 0(R2),42 On 12/09/2018 9:53 AM, Jackson, Rob wrote: Hah, indeed it did. I was surprised too. I added in the redundant count in the first place simply because I assumed a simple loop might not cause even a hundredth of a second CPU usage. I was astonished, even knowing REXX is inherently a pig, albeit a generally pretty pig (yeah, yeah, Python is pretty too). We are on a baby machine, a 2965-Txx, so that accounts for some of it, but still, yes, REXX is indeed expensive. First Tennessee Bank Mainframe Technical Support -Original Message- From: IBM Mainframe Discussion List On Behalf Of David Crayford Sent: Tuesday, September 11, 2018 9:44 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Co-posted: Rexx performance measures [External Email] Crikey! Did it really take REXX a whopping 7.7 CPU seconds to count to ten million? On 12/09/2018 3:52 AM, Jackson, Rob wrote: Works for me just fine. Looping ten million times and incrementing a counter by one resulted in this: Bgn CPU: 68.66 Bgn SRV: 2447864 End CPU: 76.36 End SRV: 2721588 First Tennessee Bank Mainframe Technical Support -Original Message- From: IBM Mainframe Discussion List On Behalf Of ITschak Mugzach Sent: Tuesday, September 11, 2018 3:36 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Co-posted: Rexx performance measures [External Email] I am trying to measure Rexx exec performance metrics. Elapse is easy Time('R') at start exec resets the counter and the second one reports the value. But how to measure CPU or service units? I tried SYSVAR('CPU') at beginning of exec and at end, thinking to do the calculation myself, but both returns the same value ... same behevior with SYSVAR('SYSSRV'). I am a good developer, but i am not fooling my self I am SO good. what is the trick to return the service units consumed by the exec? ITschak -- ITschak Mugzach *|** IronSphere Platform* *|* *Information Security Contiguous Monitoring for Legacy **| * -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN FIRST TENNESSEE Confidentiality notice: This e-mail message, including any attachments, may contain legally privileged and/or confidential information. If you are not the intended recipient(s), or the employee or agent responsible for delivery of this message to the intended recipient(s), you are hereby notified that any dissemination, distribution, or copying of this e-mail message is strictly prohibited. If you have received this message in error, please immediately notify the sender and delete this e-mail message from your computer. -- 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
Re: Co-posted: Rexx performance measures
Hah, indeed it did. I was surprised too. I added in the redundant count in the first place simply because I assumed a simple loop might not cause even a hundredth of a second CPU usage. I was astonished, even knowing REXX is inherently a pig, albeit a generally pretty pig (yeah, yeah, Python is pretty too). We are on a baby machine, a 2965-Txx, so that accounts for some of it, but still, yes, REXX is indeed expensive. First Tennessee Bank Mainframe Technical Support -Original Message- From: IBM Mainframe Discussion List On Behalf Of David Crayford Sent: Tuesday, September 11, 2018 9:44 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Co-posted: Rexx performance measures [External Email] Crikey! Did it really take REXX a whopping 7.7 CPU seconds to count to ten million? On 12/09/2018 3:52 AM, Jackson, Rob wrote: > Works for me just fine. Looping ten million times and incrementing a counter > by one resulted in this: > > Bgn CPU: 68.66 > Bgn SRV: 2447864 > End CPU: 76.36 > End SRV: 2721588 > > First Tennessee Bank > Mainframe Technical Support > > > -Original Message- > From: IBM Mainframe Discussion List On > Behalf Of ITschak Mugzach > Sent: Tuesday, September 11, 2018 3:36 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Co-posted: Rexx performance measures > > [External Email] > > I am trying to measure Rexx exec performance metrics. Elapse is easy > Time('R') at start exec resets the counter and the second one reports the > value. But how to measure CPU or service units? I tried SYSVAR('CPU') at > beginning of exec and at end, thinking to do the calculation myself, but both > returns the same value ... same behevior with SYSVAR('SYSSRV'). > > I am a good developer, but i am not fooling my self I am SO good. what is the > trick to return the service units consumed by the exec? > > ITschak > > -- > ITschak Mugzach > *|** IronSphere Platform* *|* *Information Security Contiguous > Monitoring for Legacy **| * > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > FIRST TENNESSEE > > Confidentiality notice: > This e-mail message, including any attachments, may contain legally > privileged and/or confidential information. If you are not the intended > recipient(s), or the employee or agent responsible for delivery of this > message to the intended recipient(s), you are hereby notified that any > dissemination, distribution, or copying of this e-mail message is strictly > prohibited. If you have received this message in error, please immediately > notify the sender and delete this e-mail message from your computer. > > > -- > 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
Re: Co-posted: Rexx performance measures
Crikey! Did it really take REXX a whopping 7.7 CPU seconds to count to ten million? On 12/09/2018 3:52 AM, Jackson, Rob wrote: Works for me just fine. Looping ten million times and incrementing a counter by one resulted in this: Bgn CPU: 68.66 Bgn SRV: 2447864 End CPU: 76.36 End SRV: 2721588 First Tennessee Bank Mainframe Technical Support -Original Message- From: IBM Mainframe Discussion List On Behalf Of ITschak Mugzach Sent: Tuesday, September 11, 2018 3:36 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Co-posted: Rexx performance measures [External Email] I am trying to measure Rexx exec performance metrics. Elapse is easy Time('R') at start exec resets the counter and the second one reports the value. But how to measure CPU or service units? I tried SYSVAR('CPU') at beginning of exec and at end, thinking to do the calculation myself, but both returns the same value ... same behevior with SYSVAR('SYSSRV'). I am a good developer, but i am not fooling my self I am SO good. what is the trick to return the service units consumed by the exec? ITschak -- ITschak Mugzach *|** IronSphere Platform* *|* *Information Security Contiguous Monitoring for Legacy **| * -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN FIRST TENNESSEE Confidentiality notice: This e-mail message, including any attachments, may contain legally privileged and/or confidential information. If you are not the intended recipient(s), or the employee or agent responsible for delivery of this message to the intended recipient(s), you are hereby notified that any dissemination, distribution, or copying of this e-mail message is strictly prohibited. If you have received this message in error, please immediately notify the sender and delete this e-mail message from your computer. -- 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
Re: Co-posted: Rexx performance measures
Not unless it's abending. In a message dated 9/11/2018 3:33:41 PM Central Standard Time, imugz...@gmail.com writes: Should this effect the way SYSVAR works? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Co-posted: Rexx performance measures
Strange indeed. However, my rexx is a collection of many procedure calls (internal). Should this effect the way SYSVAR works? ITschak On Tue, Sep 11, 2018 at 11:07 PM Jackson, Rob wrote: > :) > > /* REXX */ > Say 'Bgn CPU: ' Sysvar('SYSCPU') > Say 'Bgn SRV: ' Sysvar('SYSSRV') > i = 0 > Do 999 >i = i + 1 > End > Say 'End CPU: ' Sysvar('SYSCPU') > Say 'End SRV: ' Sysvar('SYSSRV') > Exit 0 > > First Tennessee Bank > Mainframe Technical Support > > > -Original Message- > From: IBM Mainframe Discussion List On Behalf > Of ITschak Mugzach > Sent: Tuesday, September 11, 2018 3:55 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Co-posted: Rexx performance measures > > [External Email] > > Bob, that's what I was expecting. please paste the code here. for some > reason, my code returns same values. > > ITschak > > On Tue, Sep 11, 2018 at 10:53 PM Jackson, Rob < > rwjack...@firsttennessee.com> > wrote: > > > Works for me just fine. Looping ten million times and incrementing a > > counter by one resulted in this: > > > > Bgn CPU: 68.66 > > Bgn SRV: 2447864 > > End CPU: 76.36 > > End SRV: 2721588 > > > > First Tennessee Bank > > Mainframe Technical Support > > > > > > -Original Message- > > From: IBM Mainframe Discussion List On > > Behalf Of ITschak Mugzach > > Sent: Tuesday, September 11, 2018 3:36 PM > > To: IBM-MAIN@LISTSERV.UA.EDU > > Subject: Co-posted: Rexx performance measures > > > > [External Email] > > > > I am trying to measure Rexx exec performance metrics. Elapse is easy > > Time('R') at start exec resets the counter and the second one reports > > the value. But how to measure CPU or service units? I tried > > SYSVAR('CPU') at beginning of exec and at end, thinking to do the > > calculation myself, but both returns the same value ... same behevior > with SYSVAR('SYSSRV'). > > > > I am a good developer, but i am not fooling my self I am SO good. what > > is the trick to return the service units consumed by the exec? > > > > ITschak > > > > -- > > ITschak Mugzach > > *|** IronSphere Platform* *|* *Information Security Contiguous > > Monitoring for Legacy **| * > > > > -- > > For IBM-MAIN subscribe / signoff / archive access instructions, send > > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > FIRST TENNESSEE > > > > Confidentiality notice: > > This e-mail message, including any attachments, may contain legally > > privileged and/or confidential information. If you are not the > > intended recipient(s), or the employee or agent responsible for > > delivery of this message to the intended recipient(s), you are hereby > > notified that any dissemination, distribution, or copying of this > > e-mail message is strictly prohibited. If you have received this > > message in error, please immediately notify the sender and delete this > e-mail message from your computer. > > > > > > -- > > For IBM-MAIN subscribe / signoff / archive access instructions, send > > email to lists...@listserv.ua.edu 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 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 > -- ITschak Mugzach *|** IronSphere Platform* *|* *Information Security Contiguous Monitoring for Legacy **| * -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Co-posted: Rexx performance measures
:) /* REXX */ Say 'Bgn CPU: ' Sysvar('SYSCPU') Say 'Bgn SRV: ' Sysvar('SYSSRV') i = 0 Do 999 i = i + 1 End Say 'End CPU: ' Sysvar('SYSCPU') Say 'End SRV: ' Sysvar('SYSSRV') Exit 0 First Tennessee Bank Mainframe Technical Support -Original Message- From: IBM Mainframe Discussion List On Behalf Of ITschak Mugzach Sent: Tuesday, September 11, 2018 3:55 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Co-posted: Rexx performance measures [External Email] Bob, that's what I was expecting. please paste the code here. for some reason, my code returns same values. ITschak On Tue, Sep 11, 2018 at 10:53 PM Jackson, Rob wrote: > Works for me just fine. Looping ten million times and incrementing a > counter by one resulted in this: > > Bgn CPU: 68.66 > Bgn SRV: 2447864 > End CPU: 76.36 > End SRV: 2721588 > > First Tennessee Bank > Mainframe Technical Support > > > -Original Message- > From: IBM Mainframe Discussion List On > Behalf Of ITschak Mugzach > Sent: Tuesday, September 11, 2018 3:36 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Co-posted: Rexx performance measures > > [External Email] > > I am trying to measure Rexx exec performance metrics. Elapse is easy > Time('R') at start exec resets the counter and the second one reports > the value. But how to measure CPU or service units? I tried > SYSVAR('CPU') at beginning of exec and at end, thinking to do the > calculation myself, but both returns the same value ... same behevior with > SYSVAR('SYSSRV'). > > I am a good developer, but i am not fooling my self I am SO good. what > is the trick to return the service units consumed by the exec? > > ITschak > > -- > ITschak Mugzach > *|** IronSphere Platform* *|* *Information Security Contiguous > Monitoring for Legacy **| * > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > FIRST TENNESSEE > > Confidentiality notice: > This e-mail message, including any attachments, may contain legally > privileged and/or confidential information. If you are not the > intended recipient(s), or the employee or agent responsible for > delivery of this message to the intended recipient(s), you are hereby > notified that any dissemination, distribution, or copying of this > e-mail message is strictly prohibited. If you have received this > message in error, please immediately notify the sender and delete this e-mail > message from your computer. > > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to lists...@listserv.ua.edu 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 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
Re: Co-posted: Rexx performance measures
Bob, that's what I was expecting. please paste the code here. for some reason, my code returns same values. ITschak On Tue, Sep 11, 2018 at 10:53 PM Jackson, Rob wrote: > Works for me just fine. Looping ten million times and incrementing a > counter by one resulted in this: > > Bgn CPU: 68.66 > Bgn SRV: 2447864 > End CPU: 76.36 > End SRV: 2721588 > > First Tennessee Bank > Mainframe Technical Support > > > -Original Message- > From: IBM Mainframe Discussion List On Behalf > Of ITschak Mugzach > Sent: Tuesday, September 11, 2018 3:36 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Co-posted: Rexx performance measures > > [External Email] > > I am trying to measure Rexx exec performance metrics. Elapse is easy > Time('R') at start exec resets the counter and the second one reports the > value. But how to measure CPU or service units? I tried SYSVAR('CPU') at > beginning of exec and at end, thinking to do the calculation myself, but > both returns the same value ... same behevior with SYSVAR('SYSSRV'). > > I am a good developer, but i am not fooling my self I am SO good. what is > the trick to return the service units consumed by the exec? > > ITschak > > -- > ITschak Mugzach > *|** IronSphere Platform* *|* *Information Security Contiguous Monitoring > for Legacy **| * > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send email > to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > FIRST TENNESSEE > > Confidentiality notice: > This e-mail message, including any attachments, may contain legally > privileged and/or confidential information. If you are not the intended > recipient(s), or the employee or agent responsible for delivery of this > message to the intended recipient(s), you are hereby notified that any > dissemination, distribution, or copying of this e-mail message is strictly > prohibited. If you have received this message in error, please immediately > notify the sender and delete this e-mail message from your computer. > > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Co-posted: Rexx performance measures
Works for me just fine. Looping ten million times and incrementing a counter by one resulted in this: Bgn CPU: 68.66 Bgn SRV: 2447864 End CPU: 76.36 End SRV: 2721588 First Tennessee Bank Mainframe Technical Support -Original Message- From: IBM Mainframe Discussion List On Behalf Of ITschak Mugzach Sent: Tuesday, September 11, 2018 3:36 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Co-posted: Rexx performance measures [External Email] I am trying to measure Rexx exec performance metrics. Elapse is easy Time('R') at start exec resets the counter and the second one reports the value. But how to measure CPU or service units? I tried SYSVAR('CPU') at beginning of exec and at end, thinking to do the calculation myself, but both returns the same value ... same behevior with SYSVAR('SYSSRV'). I am a good developer, but i am not fooling my self I am SO good. what is the trick to return the service units consumed by the exec? ITschak -- ITschak Mugzach *|** IronSphere Platform* *|* *Information Security Contiguous Monitoring for Legacy **| * -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN FIRST TENNESSEE Confidentiality notice: This e-mail message, including any attachments, may contain legally privileged and/or confidential information. If you are not the intended recipient(s), or the employee or agent responsible for delivery of this message to the intended recipient(s), you are hereby notified that any dissemination, distribution, or copying of this e-mail message is strictly prohibited. If you have received this message in error, please immediately notify the sender and delete this e-mail message from your computer. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Co-posted: Rexx performance measures
TSO TIME? THE TIME COMMAND INFORMS THE TERMINAL USER OF THE LOCAL TIME OF DAY, THE DATE, CUMULATIVE CPU TIME, SERVICE UNITS, AND THE TOTAL TIME THE THE USER HAS BEEN LOGGED ON THE TERMINAL DURING A SESSION. Carmen Vitullo - Original Message - From: "ITschak Mugzach" To: IBM-MAIN@LISTSERV.UA.EDU Sent: Tuesday, September 11, 2018 2:36:01 PM Subject: Co-posted: Rexx performance measures I am trying to measure Rexx exec performance metrics. Elapse is easy Time('R') at start exec resets the counter and the second one reports the value. But how to measure CPU or service units? I tried SYSVAR('CPU') at beginning of exec and at end, thinking to do the calculation myself, but both returns the same value ... same behevior with SYSVAR('SYSSRV'). I am a good developer, but i am not fooling my self I am SO good. what is the trick to return the service units consumed by the exec? ITschak -- ITschak Mugzach *|** IronSphere Platform* *|* *Information Security Contiguous Monitoring for Legacy **| * -- 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
Co-posted: Rexx performance measures
I am trying to measure Rexx exec performance metrics. Elapse is easy Time('R') at start exec resets the counter and the second one reports the value. But how to measure CPU or service units? I tried SYSVAR('CPU') at beginning of exec and at end, thinking to do the calculation myself, but both returns the same value ... same behevior with SYSVAR('SYSSRV'). I am a good developer, but i am not fooling my self I am SO good. what is the trick to return the service units consumed by the exec? ITschak -- ITschak Mugzach *|** IronSphere Platform* *|* *Information Security Contiguous Monitoring for Legacy **| * -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN