DOUNTIL IN CL AS400
问题描述:
PGM
DCL VAR(&I) TYPE(*INT) VALUE(1)
DCL VAR(&OUT) TYPE(*CHAR) LEN(3)
DOUNTIL COND(&I < 10)
CHGVAR VAR(&OUT) VALUE(&I)
SNDUSRMSG MSG(&OUT)
CHGVAR VAR(&I) VALUE(&I +1)
ENDDO
ENDPGM
在上述程序中DOUNTIL
正在执行一次。任何人都可以解释一下它的原因吗?DOUNTIL IN CL AS400
答
要解决这个问题:
DOUNTIL COND(&I > 10)
或
DOWHILE COND(&I <= 10)
+0
感谢您的帮助 –
调试是你的朋友 –
'谁能解释我的原因吧'很简单? **原因**是在第一次通过后满足条件(&I user2338816