Einfache CL Schleife

[Techniker]

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

[malzusrex]

PGM                                                          
DCL VAR(&ANFANG) TYPE(*DEC) LEN(2)                           
DCL VAR(&ENDE) TYPE(*DEC) LEN(2)                             
CHGVAR VAR(&ANFANG) VALUE(1)                                 
CHGVAR VAR(&ENDE) VALUE(3)                                   
SCHLEIFE: IF COND(&ENDE *EQ &ANFANG) THEN(GOTO CMDLBL(ENDE)) 
CHGVAR VAR(&ANFANG) VALUE(&ANFANG + 1)                       
GOTO CMDLBL(SCHLEIFE)                                        
ENDE: ENDPGM

[Fuerchau]

Nur noch so zur Ergänzung.

Mittels CHGVAR lassen sich auch komlexere Rechenoperationen durchführen:

CHGVAR &MYVAR VALUE(&MYVAR * 5 + &MXVAR * 3 - 12)

CHGVAR &MYVAR VALUE(&VAR1 *CAT &VAR2 *TCAT %SST(&VAR3 1 3))

usw.usf.

[Techniker]

Ha,ha,ha,ha...

ich habe die Variable al *char gehabt.

Das geht nicht.

Danke,danke *dec muss es sein.
Super!!!