Parameter rechtsbündig im Command

[Pikachu]

Hallo Jutta !

Probier mal folgendes in deinem CL-Programm:

            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

[Jutta]

Vielen Dank für all die super Tipps hier. Ich werde alles ausprobieren und mich dann u.U. noch mal melden. Auch an ILERPG werde ich mich ranwagen.

Danke noch mal euch allen.

Jutta