Nachricht CPA4262 empfangen bei Befehl SAVLIB

[schatte]

Hallo,

wenn man in einem Batchjob SAVLIB ausführt, aber das Band schreibgeschützt ist wird ja die Nachricht CPA4262 (Datenträger xxx in Einheit TAP01 ist schreibgeschützt (C R)) erzeugt.

Damit der Job nicht auf MSGW läuft habe ich entsprechend die JOBD angepasst, sodass diese Nachricht automatisch mit C (Cancel) beantwortet wird.

Jedoch kann ich diese Nachricht nicht mit MONMSG empfangen. Mein CL dazu sieht so aus:

SAVLIB LIB(XXX) DEV(TAP01)
MONMSG MSGID(CPF0000) EXEC(DO)
RCVMSG MSGTYPE(*LAST) MSG(&RETTEXT) MSGID(&RETID)
ENDDO

Mit diesen Zeilen empfange ich jedoch nur die Meldung CPF3794 (Sichern/Zurückspeichern ohne Erfolg beendet.) Ich habe auch schon versucht RCVMSG ein zweites Mal auszuführen. Dabei wird jedoch keine Nachricht mehr empfangen.

Was kann ich tun um die wirkliche Fehlermeldung zu empfangen?

Gruß
Matthias Schatte

[Fuerchau]

Doch, und zwar die Antwort. Die Nachricht ist dann nochmal davor, also 3. RCVMSG.

[kuempi von stein]

Hello,

mir ist noch nicht ganz klar, was der Sinn dieser ganzen Geschichte sein soll.

Die CPA könntest Du ja auch direkt abfangen?

k.

[DVE]

Vorausgesetzt du hast das richtige iSeries Release, schau dir die API QTARDSTS an. Damit ermittelst du (vor dem SAV.. Befehl) ob das Band schreibgeschütz ist.

Gruß
DVE

[schatte]

Den CPA kann ich leider nicht direkt abfangen. Das habe ich bereits versucht. Leider springt er darüber.

Ich benötige die Fehlermeldung und die MSGID jeweils in einer Variable.

Ich hab V5R3 als Release.

[DVE]

Bei dem Release kein Problem. Du schreibst Programm in dem du die API aufrufst und ermittelst damit vor dem SAV.. Befehl ob das Band ein Schreibschutz hat.
Damit brauchst du den SAV.. Befehl bei Schreibschutz nicht aufzurufen, oder ??

Gruß
DVE

[schatte]

Leider bin ich mit der API Programmierung im Moment noch nicht so vertraut. Muss ich mir mal anschauen.

3 mal RCVMSG hat leider nicht funktioniert.
Kann das sein, dass man mit RCVMSG nur Nachrichten empfangen kannn, die man auch mit MONMSG abfangen könnte?
CPA4262 konnte ich ja nicht mit MONMSG abfangen.

PS: Danke schonmal für eure schnellen Antworten!

[DVE]

Willst du das Programm (incl. Source) haben ??
Gruß
DVE

Kostenlos 'latürlich

[schatte]

Willst du das Programm (incl. Source) haben ??
Gruß
DVE

Kostenlos 'latürlich

Ja gerne. In die API Programmierung wollte ich mich sowieso mal einarbeiten.

Kannst du das in einem CL oder Cobol Programm schicken oder nur als RPG Programm?

[DVE]

Das Programm ist in RPG. API in CL zu Programmieren ist für mich immer ein Grauen (wegen den binären Variablen).
Schicke mir eine Nachricht mit deiner eMail Adresse und du erhälst spätestens Morgen, Programm und Source.

Gruß
DVE

[DVE]

Nachricht angekommen, Mail geht heute abend 'raus.
Gruß
DVE

[Fuerchau]

Du kannst alle Nachrichten des Joblog's per RCVMSG auslesen.
Wichtig ist der Nachrichten-Typ !
Bei *ANY erhältst du auch die anderen.
Deshalb ist die Methode mit KEYVAR und *NEXT zu empfehlen.