使用 zOS 语言环境线程延迟服务
你可以在 24-31 或 64 位模式下调用 CEE3DLY 服务，以将任务延迟到最接近的秒。这是 CICS 保存，只会延迟线程。
一个例子：
IDENTIFICATION DIVISION.
PROGRAM-ID. SLEEPYTM.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WAIT-PARM.
05 WAIT-SECS PIC S9(8) COMP VALUE 90.
05 WAIT-FC PIC X(12).
PROCEDURE DIVISION.
CALL CEE3DLY USING WAIT-SECS WAIT-FC
GOBACK.
你可以在这里看到更多细节：