On 12/26/2018 9:47 AM, Dan D wrote:
I don't recall which IBM manual I found these values in but they certainly make
this type of calculation easier.
* TOD Values
CNOP 0,8
ONEDAY DC X'000141DD76000000'
ONEHOUR DC X'00000D693A400000'
ONEMINUTE DC X'0000003938700000'
ONESECOND DC X'00000000F4240000'
ONEMILISEC DC X'00000000003E8000'
ONEMICROSEC DC X'0000000000001000'
With the above, take ONESECOND and multiply by 90 and add to TOD.
LG/ALG make 8 byte calculations so much easier ;-)
I still don't understand why anyone would opt for hard-coded values from
a book and/or perform calculations at run time to determine constant
values when the assembler will do it all for you. Example:
&SecsIn1Day SETA 24*60*60
&SecsIn1Hr SETA 60*60
&SecsIn1Min SETA 1*60
ONEDAY DC FDS12'&SecsIn1Day.E6'
ONEHOUR DC FDS12'&SecsIn1Hr.E6'
ONEMINUTE DC FDS12'&SecsIn1Min.E6'
or just simply:
NINTYSECS DC FDS12'90E6'
etc...
--
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