Re: Adding 90 seconds to 8 byte TOD FIELD

[Peter Relson]

>I am using it to set a value for ECVTXTSW where I want to 
>suspend execution for 90 seconds  

Given that, you do not need to do what you are asking for. 

The parameter for the cross-memory TCB or SRB  wait routine is an 8-byte 
area that contains the "wait time". By "wait time" it means "how long you 
want to wait", not "the time of day at which you want to be woken up". If 
"wait time" is overly confusing this could be changed to say "time to 
wait".

The question that needs answering for ECVTXTSW is, instead, "how do I set 
up an 8-byte area that is the value representing 90 seconds in TOD clock 
format".

The answer is to use something that will create a value that is 90 
multiplied by 1 million (the number of microseconds in 90 seconds) 
multiplied by 4096 (2**12), the fact that in TOD clock format, one 
microsecond is represented by bit 51 in the 0-origin 64-bit format).

Ed Jaffe's FDS12'90E6' seems like a great way to do that -- "FD" for 
8-byte fixed, "S12" for 2**12, 90E6 for 90*10**6.

Peter Relson
z/OS Core Technology Design


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Adding 90 seconds to 8 byte TOD FIELD

[Joseph Reichman]

Thanks 

I have it in a macro and will post the code 
.WAIT  ANOP   
 L R15,16   GET CVT ADDRESS
 L R15,X'8C'(R15)   GET ECVT ADDRESS   
 L R15,X'384'(R15)  GET ECVTXTSW ADDRESS   
 LAR1,=A(*+10)  PARAMTER LIST  
 BASR  R14,R15  GO THERE   
 B *+12
 DCX'2328'  90 SECOND WAIT 
 LM15,2,SAVER  







 

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Peter Relson
Sent: Tuesday, December 25, 2018 10:11 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Adding 90 seconds to 8 byte TOD FIELD

>I am using it to set a value for ECVTXTSW where I want to suspend 
>execution for 90 seconds

Given that, you do not need to do what you are asking for. 

The parameter for the cross-memory TCB or SRB  wait routine is an 8-byte
area that contains the "wait time". By "wait time" it means "how long you
want to wait", not "the time of day at which you want to be woken up". If
"wait time" is overly confusing this could be changed to say "time to wait".

The question that needs answering for ECVTXTSW is, instead, "how do I set up
an 8-byte area that is the value representing 90 seconds in TOD clock
format".

The answer is to use something that will create a value that is 90
multiplied by 1 million (the number of microseconds in 90 seconds)
multiplied by 4096 (2**12), the fact that in TOD clock format, one
microsecond is represented by bit 51 in the 0-origin 64-bit format).

Ed Jaffe's FDS12'90E6' seems like a great way to do that -- "FD" for 8-byte
fixed, "S12" for 2**12, 90E6 for 90*10**6.

Peter Relson
z/OS Core Technology Design


--
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: Adding 90 seconds to 8 byte TOD FIELD

[Paul Gilmartin]

On Tue, 25 Dec 2018 12:09:10 -0500, Joseph Reichman wrote:

>Thanks
>
>I have it in a macro and will post the code
>.WAIT  ANOP
> L R15,16   GET CVT ADDRESS
> L R15,X'8C'(R15)   GET ECVT ADDRESS
> L R15,X'384'(R15)  GET ECVTXTSW ADDRESS
> LAR1,=A(*+10)  PARAMTER LIST
> BASR  R14,R15  GO THERE
> B *+12
> DCX'2328'  90 SECOND WAIT
> LM15,2,SAVER
> 
Looks too small.  I get about 2 microseconds for that:

500 $ rexx

say x2d(2328)/4096  
2.19726563

say x2d(2328)
9000

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Happy holidays

[scott Ford]

Happy holidays to all my friends and colleagues here on the listserv.

Scott Ford
IDMWORKS
-- 
Scott Ford
IDMWORKS
z/OS Development

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Adding 90 seconds to 8 byte TOD FIELD

[Ed Jaffe]

On 12/25/2018 9:09 AM, Joseph Reichman wrote:

I have it in a macro and will post the code
  DCX'2328'  90 SECOND WAIT
  LM15,2,SAVER



What you have is DEAD WRONG! When you let the assembler do the work, it 
comes up with the following:


0055D4A8   DC FDS12'90E6'

Why would you not let the assembler do the work? Why would anyone?


--
Phoenix Software International
Edward E. Jaffe
831 Parkview Drive North
El Segundo, CA 90245
https://www.phoenixsoftware.com/



This e-mail message, including any attachments, appended messages and the
information contained therein, is for the sole use of the intended
recipient(s). If you are not an intended recipient or have otherwise
received this email message in error, any use, dissemination, distribution,
review, storage or copying of this e-mail message and the information
contained therein is strictly prohibited. If you are not an intended
recipient, please contact the sender by reply e-mail and destroy all copies
of this email message and do not otherwise utilize or retain this email
message or any or all of the information contained therein. Although this
email message and any attachments or appended messages are believed to be
free of any virus or other defect that might affect any computer system into
which it is received and opened, it is the responsibility of the recipient
to ensure that it is virus free and no responsibility is accepted by the
sender for any loss or damage arising in any way from its opening or use.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Adding 90 seconds to 8 byte TOD FIELD

[Joseph Reichman]

Thanks

I must of done something else wrong as the code doesn't seem to come out of its 
wait
 

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Ed 
Jaffe
Sent: Tuesday, December 25, 2018 6:17 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Adding 90 seconds to 8 byte TOD FIELD

On 12/25/2018 9:09 AM, Joseph Reichman wrote:
> I have it in a macro and will post the code
>   DCX'2328'  90 SECOND WAIT
>   LM15,2,SAVER


What you have is DEAD WRONG! When you let the assembler do the work, it comes 
up with the following:

0055D4A8   DC FDS12'90E6'

Why would you not let the assembler do the work? Why would anyone?


--
Phoenix Software International
Edward E. Jaffe
831 Parkview Drive North
El Segundo, CA 90245
https://www.phoenixsoftware.com/



This e-mail message, including any attachments, appended messages and the
information contained therein, is for the sole use of the intended
recipient(s). If you are not an intended recipient or have otherwise
received this email message in error, any use, dissemination, distribution,
review, storage or copying of this e-mail message and the information
contained therein is strictly prohibited. If you are not an intended
recipient, please contact the sender by reply e-mail and destroy all copies
of this email message and do not otherwise utilize or retain this email
message or any or all of the information contained therein. Although this
email message and any attachments or appended messages are believed to be
free of any virus or other defect that might affect any computer system into
which it is received and opened, it is the responsibility of the recipient
to ensure that it is virus free and no responsibility is accepted by the
sender for any loss or damage arising in any way from its opening or use.

--
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