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
LA R1,=A(*+10) PARAMTER LIST
BASR R14,R15 GO THERE
B *+12
DC X'0000000000002328' 90 SECOND WAIT
LM 15,2,SAVER
-----Original Message-----
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> 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 <mailto: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
