Doch:

DCL VAR(&EINGABE) TYPE(*CHAR) LEN(10)