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) ENDPGMcall t5a ('x') --> xCode: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 (' ') --> ' '
call t5a ('x y') --> 'x y'
call t5a ('*N') --> ohne alles
Bookmarks