DOUNTIL IN CL AS400

-2

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

来源

2016-09-21 Deobrat Singh

调试是你的朋友 –

'谁能解释我的原因吧'很简单？ **原因**是在第一次通过后满足条件（＆I <10）。既然你没有说你想要什么程序，我们不能提供很多帮助。 – user2338816

要解决这个问题：

DOUNTIL COND(&I > 10)

或

DOWHILE COND(&I <= 10)

来源

2016-09-21 08:13:39

感谢您的帮助 –

DOUNTIL IN CL AS400

回答

相关问题