sollte auch mit erweiterung E problemlos abzufangen sein. Ist einfach die Geschmacksfrage was man "hübscher" findet:
Code:
D AS400CMD        PR                  EXTPGM('QCMDEXC') 
D  CMD                         512    CONST             
D  LENCMD                       15P 5 CONST             
/free
monitor;
AS400CMD('machwas');
on-error *all;
endmon;
/end-free
funktioniert genauso wie
Code:
callp(E) AS400CMD('machwas');
Monitor benötigt halt ein paar mehr Zeilen, kann aber wunderbar die einzelnen Monitorgruppen abfragen.
callp(E) ist ein Einzeiler, wenn dir der Fehler egal ist.
In beiden Fällen kannst du über die SD Fehlercodes im Fehlerfall genauer abfragen.
Gruß