>>> Paul Gilmartin wrote:
> Your ISPF application or IBM's?
Mine. I put the date/time into a variable and was just displaying it on a
panel.
> Yah. It's because of all them kangaroos leaping about.
Hehe, I was thinking kangaroos, too. (-: Oh, thanks to all for the links. I'll
read them.
I still don't quite get it though, probably cause I'm a bit thick. What does
make sense to me now is that the EWST time should be offset by the CVTTZ number
of hours and the CVTLSO number of seconds. That's clear.
What isn't immediately clear is how I should "fix" my Rexx program. Or more
precisely how to calculate the number of seconds of leaping I have to do:
CVT = c2d(storage(10,4))
say c2x(storage(d2x(CVT+80),8))
say c2d(storage(d2x(CVT+80),8))
Gives:
0A0307FE00FD381C
72142915282909391
Nothing that looks like seconds. The Data Areas doc says it is a double word
in TOD format. Full text below.
Lindy
------------------------------- Comment --------------------------------
THE FOLLOWING FIELD CONTAINS THE OFFSET VALUE NEEDED TO CORRECT THE TOD VALUE
TO THE CORRECT LOCAL DATE AND TIME OF DAY. IT IS SIMILAR TO CVTTZ EXCEPT THAT
IT IS A DOUBLEWORD VALUE PLUS IT ALSO CONTAINS THE DATE CORRECTION AS WELL AS
THE TIME CORRECTION VALUE.
---------------------------- End of Comment ----------------------------
56 (38) DBL WORD 8 CVTLDTO LOCAL TIME/DATE (0) OFFSET
56 (38) SIGNED 4 CVTLDTOL HIGH WORD
60 (3C) SIGNED 4 CVTLDTOR LOW WORD
64 (40) ADDRESS 4 CVTATCVT - POINTER TO VTAM'S CVT 1... .... CVTATACT
"X'80'" IF ON, VTAM IS ACTIVE MDC081
68 (44) BITSTRING 4 CVT2R044 - RESERVED
72 (48) SIGNED 4 CVTBCLMT - NUMBER OF 130-BYTE RECORDS SET ASIDE FOR
BROADCAST MESSAGES
76 (4C) SIGNED 4 CVT2R04C RESERVED
80 (50) DBL WORD 8 CVTLSO (0) LEAP SECOND OFFSET IN TOD FORMAT
80 (50) SIGNED 4 CVTLSOH HIGH WORD
84 (54) SIGNED 4 CVTLSOL LOW WORD
88 (58) BITSTRING 44 CVT2R058 RESERVED
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
