如何在不使用任何实用程序的情况下在cobol程序中创建延迟？

Question

我的代码是

ACCEPT TIME-TODAY FROM TIME.   

** 10 SECONDS waiting:
PERFORM UNTIL DELTATIME <= 00001000
    ACCEPT TIME-TODAY-2 FROM TIME
    COMPUTE DELTATIME = (TIME-TODAY-2 - TIME-TODAY)
END-PERFORM.

了解详情：http://ibmmainframes.com/about9953.html#ixzz4NiZIe8cY

但此代码不适用于边界条件。

Answer 1

您的问题上有大型机标记，我假设z / OS或z / VM是您的操作系统。

应用程序的运行时例程统称为“语言环境”。无论是隐式还是显式，您都将调用这些运行时例程。你无法避免它。

运行时包括CEE3DLY，它可以实现您的目标。查看IBM Knowledge Center的“语言环境”部分。

我知道您认为您的要求是在不使用＆＃34;任何实用程序的情况下在代码中创建延迟。＆＃34;我告诉你，你在代码中一直使用实用程序（语言环境运行时例程）。例如，工作存储由语言环境例程分配。调用CEE3DLY不会添加任何依赖项。