如何将纪元 unix 时间转换为 TOD 时钟（STUCK）？

Question

请您帮我将 Unix 纪元时间转换为 TOD 时钟 (STCK) 8 字节。 例如：

1. 以十六进制表示的 EPOCH 时间 = '175BC71AFE2'X
2. 以十进制表示的 EPOCH 时间 = 1,605,184,368,610
3. 我想将此十进制转换为 STCK（TOD 时钟时间）？

Answer 1

存储时钟指令 STCK 获取 TOD 时钟并将其存储在 8 字节字段中。位位置 31 大约每 1.048576 秒递增一次。这是一个link，它提供了一种将 STCK 转换为当前日期的方法。

查看这个类似问题的答案，将当前时间转换为 TOD 值，以便使用 Rexx here比较 LogStream 中的时间戳

我不确定您的应用程序是什么，但也请注意有一个使用扩展格式的 STCKE 指令。

为方便起见，在此引用

This works for me in a Rexx procedure:

Tod = (epoc*4096000000)+9048018124800000000

TOD (Time-of-Day in S360, S370, S390 & z/Arch IBM's archs) is a 
64bit counter whose Bit position 31 is incremented every 1.048576 
seconds, starting at 1900-01-01.

So, 2**32/1.048576 = 4096000000 = 1 sec.

9048... is the difference between 1900-01-01 and epoch 1970-01-01 in TOD units.

有关 STCK 和 STCKE 格式的更多信息，请参阅第 7-182 页上的Principles of Operation。