The following assumes you are only interested in time down to the microsecond.
Adjust shift and constant to meet your needs.
STCKF TIME
LG R15,TIME Get time in a register
SRLG R15,R15,12 get to micro seconds
AG R15,FIVESEC add 5 seconds in microseconds
(do your process)
FIVESEC DC AD(5*1000*1000)
Chris Blaicher
Principal Software Engineer, Software Development
Syncsort Incorporated
50 Tice Boulevard, Woodcliff Lake, NJ 07677
P: 201-930-8260 | M: 512-627-3803
E: [email protected]
-----Original Message-----
From: IBM Mainframe Assembler List [mailto:[email protected]] On
Behalf Of Ward, Mike S
Sent: Tuesday, March 24, 2015 2:26 PM
To: MVS List Server 2
Subject: Re: TOD
Will just adding +5 to the TOD value do it?
-----Original Message-----
From: IBM Mainframe Assembler List [mailto:[email protected]] On
Behalf Of Tenberg, Kerry
Sent: Tuesday, March 24, 2015 1:25 PM
To: [email protected]
Subject: Re: TOD
How about adding the 5 seconds before you convert to date and time?
-----Original Message-----
From: IBM Mainframe Assembler List [mailto:[email protected]] On
Behalf Of Ward, Mike S
Sent: Tuesday, March 24, 2015 1:20 PM
To: [email protected]
Subject: TOD
Hello all, I have been able to take the TOD value and convert it to date and
time. Is there an easy way to add 5 seconds to this value and not have to worry
about next day. I.E. if I add 5 seconds do I have to calculate midnight roll
over as well as add 1 for the next day? Or is there a simpler way of doing this.
Thanks in advance.
Pulling my hair out trying to figure it out.
==========================
This email, and any files transmitted with it, is confidential and intended
solely for the use of the individual or entity to which it is addressed. If you
have received this email in error, please notify the system manager. This
message contains confidential information and is intended only for the
individual named. If you are not the named addressee, you should not
disseminate, distribute or copy this e-mail. Please notify the sender
immediately by e-mail if you have received this message by mistake and delete
this e-mail from your system. If you are not the intended recipient, you are
notified that disclosing, copying, distributing or taking any action in
reliance on the contents of this information is strictly prohibited.
==========================
This email, and any files transmitted with it, is confidential and intended
solely for the use of the individual or entity to which it is addressed. If you
have received this email in error, please notify the system manager. This
message contains confidential information and is intended only for the
individual named. If you are not the named addressee, you should not
disseminate, distribute or copy this e-mail. Please notify the sender
immediately by e-mail if you have received this message by mistake and delete
this e-mail from your system. If you are not the intended recipient, you are
notified that disclosing, copying, distributing or taking any action in
reliance on the contents of this information is strictly prohibited.
