so etwas habe ich auch schon gedacht aber da kommt dann folgendes raus:
Message . . . . : 700 - SNDMSG MSG('&A') TOUSR(
Message . . . . : 800 - SNDMSG MSG('03') TOUSR
Message . . . . : 700 - SNDMSG MSG('&A') TOUSR

Und er loop dann natürlich.

So sieht das PGM jetzt aus:
PGM
DCL VAR(&ANFANG) TYPE(*CHAR) LEN(2)
DCL VAR(&ENDE) TYPE(*CHAR) LEN(2)
CHGVAR VAR(&ANFANG) VALUE(1)
CHGVAR VAR(&ENDE) VALUE(3)
SCHLEIFE: IF COND(&ENDE *EQ &ANFANG) THEN(GOTO CMDLBL(ENDE))
SNDMSG MSG(&ANFANG) TOUSR(LI)
SNDMSG MSG(&ENDE) TOUSR(LI)
CHGVAR VAR(&ANFANG) VALUE('&ANFANG + 1')
GOTO CMDLBL(SCHLEIFE)
ENDE: ENDPGM