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

我得到的密码是

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.

从今天开始接受时间限制。
**等待10秒：
执行DELTATIME如果您的问题上有大型机标签，我将假定z/OS或z/VM是您的操作系统

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

运行时包括实现目标的
CEE3DLY
。查看IBM知识中心的语言环境部分

我知道您认为您的要求是在不使用“任何实用程序”的情况下在代码中创建延迟。我告诉您，您在代码中一直在使用实用程序（语言环境运行时例程）。例如，工作存储由语言环境例程分配。调用
CEE3DLY
不会添加任何依赖项。
您的问题上有大型机标签，我假定z/OS或z/VM是您的操作系统

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

运行时包括实现目标的
CEE3DLY
。查看IBM知识中心的语言环境部分

我知道您认为您的要求是在不使用“任何实用程序”的情况下在代码中创建延迟。我告诉您，您在代码中一直在使用实用程序（语言环境运行时例程）。例如，工作存储由语言环境例程分配。调用
CEE3DLY
不会添加任何依赖项。
不，这太荒谬了。您知道大型机上10秒CPU的成本吗？我想这会让你感到恶心。你认为你为什么需要这样做？你在另一个网页上链接到的线程已经有十年历史了。重复：不，这太荒谬了。您知道大型机上10秒CPU的成本吗？我想这会让你感到恶心。你认为你为什么需要这样做？你在另一个网页上链接到的线程已经有十年历史了。重复：因为这是重复的：请不要对这个答案投票-@cschneid:请将这个答案的大部分复制到你在原始答案（重复）中给出的答案，删除你的答案，如果可能，请投重复票，因为这是一个重复的答案：请不要对这个答案投票-@cschneid：请将这个答案的大部分复制到您在原始答案（重复）中给出的答案，删除您的答案，如果可能，请投重复票