Ibm midrange 在CL AS400中使用DOUTIL

在上面的程序中，DOUNTIL执行一次。谁能给我解释一下原因吗？

要解决这个问题：

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

或

---

调试是你的朋友谁能解释一下原因吗？那很容易。原因是第一次通过后满足条件&I<10。既然你没有说你希望这个项目做什么，我们就不能提供太多帮助。

DOUNTIL COND(&I > 10)

DOWHILE COND(&I <= 10)