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

回答

相關問題