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