我如何使用询问时间获得毫秒值?

How do i get millisecond values using ask time?

我正在编写 PLI/CICS 代码。想办法获取包含毫秒的时间值。

我已经尝试查找 CICS ASKTIME 和 FORMATTIME 的文档,但没有找到获取毫秒值的好方法

所以在我的代码中,我先做一个 ASKTIME,然后是格式化时间。

This is how my code looks like

/* first do a asktime */
EXEC CICS ASKTIME                          
          ABSTIME(CICS_TIMESTAMP);         

/* followed by the formattime */                                          
EXEC CICS FORMATTIME                       
          ABSTIME(CICS_TIMESTAMP)          
          TIME(CICS_TIME);   

至此,我可以获取 HHMMSS 格式的时间。你能告诉我是否有办法获得毫秒值吗?

EXEC CICS FORMATTIME
          ABSTIME(CICS_TIMESTAMP)
          MILLISECONDS(MTIME)

来自CICS manual

MILLISECONDS(data-area) Returns the number of milliseconds in the current second specified by ABSTIME, as a binary integer in the range 0 - 999.