2016-09-21 3 views
-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 
+0

をデバッグ 'あなたの友人 –

+2

で誰も私にその理由'簡単だ説明することができます。 **理由**は、条件(&I <10)が初めて初めて満たされたことです。あなたがプログラムにしたいことを言っていないので、我々は多くの助けを提供することはできません。 – user2338816

答えて

0

:?

DOUNTIL COND(&I > 10) 

または

DOWHILE COND(&I <= 10) 
+0

助けてくれてありがとう –

関連する問題