On Mon, 21 Apr 2025 18:19:35 +0000, Seymour J Metz wrote:
>Shirley NILH R?,X'00FF' would be better. Don't call me Suely.
>
No need to mask. Epoch Index is just leftmost bit of
numeric ETOD.
Convert to days by dividing by:
DIVISOR DC A(1000000/64*24*60*60) µsec/day/2**6
and shift right to scale.
(Need to scale divisor because of archaic 32-bit assembler
on 64-bit processor.)
>________________________________________
>From: Mike Schwab
>Sent: Saturday, April 19, 2025 5:36 PM
>
>External Message: Use Caution
>
Nay I trim that, or must I leave it>
>Eliminate bits 0-7 with a ICM R?.B'1000',=X'00'?
>Eliminate bits 60-63 and convert to seconds by dividing by 1,024.000,000?
>Adjust for local time by adding or subtracting 3600 seconds per hour?
>Combine last 2 steps by dividing by 604,800?
--
gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
