Abbruch / Joblog

[Robi]

Hi,
in einem Programm findet sich folgender Code

C EVAL MBR = 'MYMBR'
C EVAL CMD = 'CHKOBJ OBJ(' + %TRIM(VONLIB) + '/' +
%TRIM(SRCFILE) +
') OBJTYPE(*FILE) MBR(MYMBR)'


C CALLP(E) QCMD(CMD:%SIZE(CMD))
* ===== ============
C IF NOT %ERROR
C EXSR CHG_MBR
C ENDIF

Ich dachte bisher, das ich mit dem (E) einen Abbruch abfange. Hier ist es möglich, das es MYMBR nicht gibt.
Ich bekomme jedoch einen JOBLOG (Spool) in dem eine 40 er Meldung zu genau dieser Zeile auftaucht.
D.H. das PGM ist an der Stelle abgebrochen und hat nicht weiter gemacht.
Hat sich da etwas geändert oder mach ich was falsch ?
Danke
Robi

[RobertMack]

CALLP(E) QCMDEXC(CMD:%SIZE(CMD))

[Robi]

Nein,


D QCMD PR EXTPGM('QCMDEXC')
D 3000A OPTIONS(*VARSIZE) CONST
D 15P 5 CONST
Das ist im Prototype so definiert.

Robi

[Fuerchau]

Schau mal ins Joblog, was genau die Fehlermeldung ist.
OPTIONS(*VARSIZE) könnte das Problem sein.

[Robi]

CPF9815 Abbruch 40
19.11.08 11:24:04,687536 QLICKOBJ QSYS 01B3 MYPGM MYLIB *STMT
Zielmodul . . . . . . . . . : MYPGM
Zielprozedur . . . . . . . : MYPGM
Anweisung . . . . . . . . . : 2078
Nachricht . . . : Teildatei MYMBR Datei QDDSSRC in Bibliothek MYLIB
nicht gefunden.
Ursache . . . . : Die im Befehl angegebene Teildatei MYMBR in Datei
QDDSSRC in Bibliothek MYLIB wurde nicht gefunden. Lautet der Name der
Teildatei *N, sind keine Teildateien in der Datei vorhanden. Wenn der
Teildateiname *ALL ist, handelt es sich bei der Datei nicht um eine
Partitionsdatei. Fehlerbeseitigung: Die Teildatei hinzufügen (Befehl ADDLFM
oder ADDPFM) und die Anforderung wiederholen.

und dann, Ende im Gelände

[Fuerchau]

Laut Handbuch können nicht alle Fehler mit (E) abgefangen werden, hier empfielt sich Monitor:

monitor;
callp ...
on-error *all;
// Fehler
endmon;