Hello,

da gibt es viele Wege....

Nur ein Beispiel:


PGM
DCL VAR(&ZAHLSTRING) TYPE(*CHAR) LEN(5) +
VALUE('12345')
DCL VAR(&HK) TYPE(*CHAR) LEN(1) VALUE('''')
DCL VAR(&NEU) TYPE(*CHAR) LEN(7)
CHGVAR VAR(&NEU) VALUE(&HK *CAT &ZAHLSTRING *CAT &HK)
SNDPGMMSG MSG(&NEU)
ENDPGM

gruss

k.

ups, da war jemand schneller
:-)