Moin,

ich löse das so:

CHGVAR VAR(&MSG) VALUE('Datenaufbereitung +
läuft. Bitte warten..')
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&MSG) +
TOPGMQ(*EXT) MSGTYPE(*STATUS)

mfg