Einfache CL Schleife

[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!!!