Request for information. To convert from STCK format to Unix time, what constants would you subtract from the STCK value for the same origin, then divide by what constant for the same time unit? Or divide / subtract if easier.
On Tue, Jan 12, 2021 at 5:09 PM Paul Gilmartin <[email protected]> wrote: > > On Tue, 12 Jan 2021 22:53:02 +0200, Itschak Mugzach wrote:. > > > >I tested that there already. My rexx returns a different time. I noticed > >that they only use the first four bytes. The code snip I gave is from the > >TOD IPCS rexx. > > > Regina gives me: > 502 $ date > Tue Jan 12 15:59:30 MST 2021 > 503 $ rxx "numeric digits 20; say d2x( ( time( 'T' ) - date( 'T', > '1900-01-01', 'I' ) ) %1.048576 )" > D91C6646 > > Pasting into http://www.longpelaexpertise.com/toolsTOD.php sez > TOD: (STCK): x" D91C6646 00000000 " > UTC Date and Time (Date + HH:MM:SS): 12-Jan-2021 15:59:31 > UNIX Date/Time: 1610467171 > > What was the output of your: > >> Say 'STCK HEX VALUE ' c2x(tod) > >> tod=C2D(tod) > >> Say 'STCK DEC VALUE ' tod > ??? > > >> -----Original Message----- > >> From: Itschak Mugzach > >> Sent: Tuesday, January 12, 2021 10:00 AM > >> > >> This is the STCK value: D91B6D3EF6430440 (I have it in hex in variable TOD) > >> Converted to decimal : 15644217847788536896 > >> Actual dat eof run is : Yesterday > >> the code: > >> /* rexx */ > >> NUMERIC DIGITS 20 > >> RC = SYSCALLS('ON') > >> ADDRESS SYSCALL 'TIME' > >> Say 'Current date is' retval > >> > >> TOD = 'R _ 6 ' > >> Say 'STCK HEX VALUE ' c2x(tod) > >> tod=C2D(tod) > >> Say 'STCK DEC VALUE ' tod > >> tod=Trunc(tod/4096) > >> microsec=tod//1000000 > >> seconds=Trunc(tod/1000000) > >> Say 'Seocnds =' Seconds > >> xxx = 70 * 3600 * 24 * 365 > >> Say 'diff=' xxx > >> Say Seconds - xxx > >> SAY '2ND DIF = ' SECONDS - XXX - RETVAL > > -- gil > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
