CL

12. 時間待機をコントロールするには?

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))