On Sat, 19 Apr 2025 16:36:02 -0500, Mike Schwab wrote: >Eliminate bits 0-7 with a ICM R?.B'1000',=X'00'? > I should have left the Epoch Index; it's correct and useful.
>Eliminate bits 60-63 and convert to seconds by dividing by 1,024.000,000? > (i.e. just ignore the remainder.) >Adjust for local time by adding or subtracting 3600 seconds per hour? > If that's not in CVTLDTO, where do you get it? But you may need CVTLSO and CVTLDTO at the time of the redord, not the current tine. PoOps documents CVtLSO history. >Combine last 2 steps by dividing by 604,800? > No. That gives the wrong remainder. You need modulo 7. I believe the (E)TOD started on a Monday. >On Sat, Apr 19, 2025 at 4:01 PM Paul Gilmartin wrote: > >> On Thu, 17 Apr 2025 07:52:04 -0400, Joseph Reichman wrote: >> > >> >Would anyone know if there is a way to get the day of week from any of >> the date macros STCKCONV >> > >> Don't bother with CKCONV. >> >> Divide bits 8-59 od ETOD by 1000000 to get seconds. >> Divide by 86400 to get days. >> Divide by 7 >> Use the remainder as an index to a table of day names. -- gil ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
