CPFA097 bei CPYTOSTMF

[B.Hauser]

Hallo,

verwendest Du QCMDEXC um den Befehl auszuführen?
Wenn Ja müsstest Du bei Verwendung der Erweiterung (E) im CALLP, die CPF-Nachricht aus der Programm-Status-Datenstruktur Stelle 40-46 ermitteln und abfagen können.

D PGMDS          SDS                 
D  SDSMsgId              40     46   
D  SDSMsgTxt             91    140

 /Free
    CAllP(E) QCmdExc(.....)
    If %Error and SDSMsgId = 'CPFA097';
       // Source Code
    ElseIf %Error;
       // Sonstiges Fehlerhandling
    EndIf; 

Ob das auch mit Monitor klappt, müsstest Du ausprobieren, da MONITOR i.d.R. erst die nächste Fehlermeldung (die RPG-Meldung RNXirgendwas) abfangen kann.
Falls Du die RNX-Nachricht ermitteln kannst, hast Du auch den Status. (einfach die letzten 4 Stellen in der RNX-Message-Id ) Ich vermute allerdings, dass der Status mehr pauschal ist.

Birgitta