Hallo Jutta !

Probier mal folgendes in deinem CL-Programm:


Code:
            DCL        VAR(&ADR) TYPE(*CHAR) LEN(5)

            IF         COND(&ADR *EQ ' ') THEN(GOTO CMDLBL(OK))
LOOP:       IF         COND(%SST(&ADR 5 1) *EQ ' ') THEN(DO)
            CHGVAR     VAR(&ADR) VALUE(' ' *CAT &ADR)
            GOTO       CMDLBL(LOOP)
            ENDDO
OK:
Gruß
Jürgen