F12-Taste nach verlassen von QUERY

[DVE]

Ich gehe davon aus, du hast z.B. ein CL geschrieben und aus diesem wird ein RUNQRY gepromptet. Der Anwender drückt ENTER, das Query wird ausgeführt. Der Anwender drückt F3/F12 das CLP geht auf MSGW. Also einfach mit MONMSG das RUNQRY abfangen.
Wenn ich falsch liege, dann Entschuldigung für die falsche Antwort.

Gruß
DVE

[Kaufmann]

Es ist kein CL sondern ein RPGLE aus dem ich den RUNQRY mache und das Programm läuft auch nicht auf Fehler wenn der Anwender F3/F12 drückt.
Ich habe das Problem aber jetzt so gelöst:

Die Datei die vom RUNQRY erstellt wird wird in die QTEMP gestellt(vorher wird ein möglich noch vorhandene Datei gekillt(mit Fehlerabfangen wenn nicht da)).
Ist diese nach den RUNQRY nicht vorhanden so heißt das für mich der Anwender hat F3 / F12 gedrückt.

[DVE]

Nur für mich zur Info. IM RPGLE rufst du das RUNQRY mit einem CALL "irgendwas" auf ? Wenn ja, hast du diesen CALL über Bezugszahlen abgefangen ? Wenn ja, gehen die Bezugszahl auf *ON wenn du F3/F12 drückst.
Gruß
DVE

[Kaufmann]

Alls erstes habe ich mir eine allgemeine Prozedur geschaffen mit der ich alle CL-Aufrufe über QCMDEXC(....) aufrufen kann. Weiterhin habe ich eine Prozedur die mir in einer Befehlszeile Ersatzzeichen gegen was auch immer austauscht.

Die Prozedur zum Aufruf von CL-Befehlen wird z.B. so aufgerufen
docmd('DSPMSG');

Das ist der Befehl um DSPMSG auszuführen.

Oder besseres Beispiel

D cCmd1 C 'DLTF FILE({1}/{2})'

D vVals S like(typVals) DIM(%elem(typVals)) inz
D vCmd S 255A inz

// DLTF
clear vVals;
vVals(1) = cTempLib;
vVals(2) = cQryFile;
vCmd = sFillTextVar(cCmd1 :vVals);
docmd(vCmd :true);

Dabei ist cCmd1 die Konstante mit Befehl.
vVals ist die Struktur in der die zuersetzenden Teile sind.
cTempLib = QTEMP(als Konstante)
cQryFile = Ist das File

sFillTextVar = Prozedur in der die Ersatzzeichen({1} / {2}) gegen Werte ausgetauscht werden.

docmd = Prozedur in der ein CL-Befehl ausgeführt wird