"Fenster schließen" abfragen

[Fuerchau]

Entweder EXFMT mit Bezugszahl oder EXFMT(E).
Dann kannst du entweder die BZ oder %ERROR() abfragen.
Das gleiche gilt auch für READ(E) oder READ __ BZ.

Beim WRITE wird ggf. gar kein Fehler ausgelöst, wenn die Daten gepuffert werden, es sei denn du verwendest FRCDTA.

Bedenke, dass dein CLP ggf. den CHGJOB rückgängig macht (vorher also RTVJOBA).

[Fuerchau]

Nachtrag:
Du solltest dann aber auch "Systemanfrage 2" (ENDRQS) überwachen, wenn du Abschlussarbeiten benötigst.

Hierzu muss dein CLP als "Anforderungsprozessor" eingerichtet werden:
DCL &MYKEY *CHAR 4
SNDPGMMSG MSG('/* */') TOPGMQ(*SAME) MSGTYPE(*RQS) KEYVAR(&MYKEY)

RCVMSG PGMQ(*SAME) MSGTYPE(*RQS) RMV(*NO)

Erst mit diesen Aktionen kannst du per MONMSG CPF1907 überhaupt einen ENDRQS überwachen.

Zum Schluss deines Programmes nur noch
RMVMSG MSGKEY(&MYKEY) CLEAR(*BYKEY)
Damit die "/* */"-Nachricht wieder verschwindet.

[harkne]

Also das mit dem exfmt(e) hat wunderbar geklappt. Das mit Systemabfrage 2 kann ich vernachlässigen da dies von den Anwendern nicht gemacht wird.

Vielen Dank für die Hilfe

[Pikachu]

Da der ENDRQS vom CL-Programm abgefangen wird, können die Abschlußarbeiten auch nur dort stattfinden, sofern das aufgerufene Programm keine eigenen "Cancel Handler" (siehe meinen Beitrag weiter oben) registriert hat.