QCMDEXEC in free-RPG

[KM]

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

[AndreasH]

sollte auch mit erweiterung E problemlos abzufangen sein. Ist einfach die Geschmacksfrage was man "hübscher" findet:

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

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ß