CLP の中で、時間待機を指定したい場合がある。一定時間で応答がなければ 次のステップへ進むという処理である。
DLYJOB を使えば 正確に待ち時間を秒または分で指定できる。
次の例は CLP で罫線つきの画面を連続デモのように表示している。
0006.00 DCLF FILE(PANELWKR/DEMOFM) 0007.00 DCL VAR(&SAKBFR) TYPE(*CHAR) LEN(2) VALUE(X'2FC6') 0008.00 MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR)) 0009.00 0010.00 CHGVAR VAR(&S#KBFR) VALUE(&SAKBFR) 0011.00 SNDRCVF RCDFMT(DEMO010) WAIT(*NO) 0012.00 MONMSG MSGID(CPF0887) EXEC(GOTO CMDLBL(NXT001)) 0013.00 DLYJOB DLY(3) 0014.00 NXT001: 0015.00 SNDRCVF RCDFMT(DEMO020) WAIT(*NO) 0016.00 MONMSG MSGID(CPF0887) EXEC(GOTO CMDLBL(NXT002)) 0017.00 DLYJOB DLY(4) 0018.00 NXT002: 0019.00 SNDRCVF RCDFMT(DEMO030) WAIT(*NO) 0020.00 MONMSG MSGID(CPF0887) EXEC(GOTO CMDLBL(NXT003))