使用 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.
你可以在這裡看到更多細節：