Vielleicht denke ich ja zu einfach, aber sowas in der Art habe ich schon verwendet:

Code:
CL T5:
PGM        PARM(&NAME)
DCL        VAR(&NAME) TYPE(*CHAR) LEN(10)
?T5K ??NAME(&NAME)
ENDPGM
Code:
CMD T5K:
CMD        PROMPT('Telefonsuche')
PARM       KWD(FIRMA) TYPE(*CHAR) LEN(2) +
             CHOICE('Firma') PROMPT('Firma')
PARM       KWD(NAME) TYPE(*CHAR) LEN(30) PROMPT('Name +  
             oder TelNr')
call t5a ('x') --> x
call t5a (' ') --> ' '
call t5a ('x y') --> 'x y'
call t5a ('*N') --> ohne alles