Thanks
I changed that however doesn't seem like I am getting out of the wait as I
put a WTO after the code and IT didn't execute
Thanks
WAIT ANOP
L R15,CVTPTR
USING CVT,R15 GET CVT ADDRESS
L R15,CVTECVT
DROP R15
USING ECVT,R15 GET ECVT ADDRESS
L R15,ECVTXTSW X'384'(R15) GET
ECVTXTSW ADDRESS
LA R1,=A(*+10) PARAMTER LIST
BASR R14,R15 GO THERE
B *+12
DC FDS12'90E6' 90 SECOND WAIT
LM 15,2,SAVER
-----Original Message-----
From: IBM Mainframe Discussion List <[email protected]> On Behalf Of
Peter Relson
Sent: Wednesday, December 26, 2018 8:19 AM
To: [email protected]
Subject: Re: Adding 90 seconds to 8 byte TOD FIELD
> 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
Macros such as IHAPSA, CVT, and IHAECVT are provided for a reason -- so that
you don't need to hard-code offsets and in so doing make your code less
readable and less maintainable.
Why do you avoid them? z/OS macros themselves might hard-code offsets
because we don't necessarily want to impose a requirement on the invoker
that they include other macros. But if you're writing your own code, you
should insist on imposing that requirement on yourself.
Peter Relson
z/OS Core Technology Design
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to [email protected] <mailto:[email protected]> with the
message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
