Hallo Marc,

Du könntest das Ganze auch über die C-Funktion SYSTEM lösen. Dann kannst Du bei Bedarf die CPF-Nachricht abfragen. Dazu brauchst Du das Binderverzeichnis QC2LE. Die Definition sieht dann folgendermaßen aus:

H BNDDIR('QC2LE')
D SYSTEM PR 10I 0 EXTPROC('SYSTEM')
D * VALUE OPTIONS(*STRING)
D CPFMSG S 7 IMPORT('_EXCP_MSGID')
D * VALUE OPTIONS(*STRING)
/FREE
SYSTEM('Befehl')
.
/END-FREE

Gruß,
KM