可以在cobol中创建计时器吗?

时间:2012-08-29 17:44:40

标签: timer cobol

有没有人知道如何在cobol中创建计时器?是否可能?

4 个答案:

答案 0 :(得分:2)

也许谷歌搜索页面的这个问题可能会对您有所帮助:Is there a TIMER function in Cobol

  

在PC上搜索DosSleep并在主机上搜索ILBOWAT0。

希望有所帮助。

答案 1 :(得分:2)

要计算Cobol中的过程,您可以计算两个时间点之间的差异。下面是一些示例代码,用于衡量您开始的时间点。

   01  TEMP-TIME-1.
       05  T1-HOURS                 PIC 99.
       05  T1-MINUTES               PIC 99.
       05  T1-SECONDS               PIC 99.
       05  T1-HUNDREDTHS-OF-SECS    PIC 99.

  Use similar data definitions for TEMP-TIME-2
                                   START-TIME
                                   END-TIME

   ACCEPT TEMP-TIME-1 FROM TIME

  If using hundredth of seconds, use following loop
  to start timing at start of a hundredth of a second

   PERFORM WITH TEST AFTER UNTIL TEMP-TIME-2 <> TEMP-TIME-1
       ACCEPT TEMP-TIME-2 FROM TIME
   END-PERFORM
   MOVE TEMP-TIME-2 TO START-TIME

使用类似的代码设置END-TIME

答案 2 :(得分:2)

对于OpenCOBOL,有C $ SLEEP(以秒为单位)的库存库CALL函数和CBL_OC_NANOSLEEP(以十亿分之一秒计时 - 这比大多数机器可以处理的分辨率更高 - 请参阅librt clock_res()以获取对精度的访问特定的硬件和操作系统。)

克隆一份OpenCOBOL来源,并在文件 libcob / common.c 中查找 cob_acuw_sleep CBL_OC_NANOSLEEP C函数,看看它是如何为OpenCOBOL完成的;它具有用于处理Windows和POSIXey系统的这些计时器的条件代码。

答案 3 :(得分:1)

ILBOWAT0已过期20年。语言环境提供了IBM大型机的解决方案,详见here