Systemanfrage 2 (Vorherige Anfrage beenden) im RPG abfangen ?

[harkne]

Ich hatte am Anfang das so gemacht wie es ob als Beispiel steht. Da es nicht funktioniert hat, habe ich versucht den MONMSG hinter das RPG zu machen, da ja dort die Systemanfrage 2 ausgeführt wird. Er macht das noch nicht mal mit CPF0000 sowohl hinter dem CALL als auch ganz am Anfang. Ich würde die Quelle gerne etwas öfter posten aber das ist sehr viel arbeit, weil er mir das nicht richtig ausrichtet auch wenn ich ein PHP /PHP drum rum schnalle.
Momentan habe ich zu Beginn der Quelle nochmal den CPF1907 probiert. Macht er nicht. Dann habe ich jetzt am Anfang statt CPF1907 den CPF0000. Das macht er. Allerdings habe ich gesagt dass er nochmal das gleiche RPG im Fehlerfall aufrufen soll. Das macht er nicht mehr.

[harkne]

Hallo nochmal an alle

Vielen Dank für die Hilfe.
Also ich hab das jetzt so geändert wie Herr Fuerchau beschrieben hat. Will aber nicht die Hand dafür ins Feuer legen, dass es vorher nicht auch schon ging. Die CPF1907 bekomme ich nach wie vor nicht abgefangen aber die CPF0000.

Viele Grüße Harkne

[Fuerchau]

Mach den MONMSG(CPF1907) am Anfang, korrigiere den SND/RCVPGMMSG auf PGMQ(*SAME).
Prüfe während des RPG-Aufrufes den Callstack ob die Aufrufebene eine Nummer bekommen hat.
Bei mir läuft das schon so seit V2R1.

[Pikachu]

Hier ein Beispiel, das bei mir funktioniert, wenn man den WRKACTJOB mit "Vorherige Anfrage beenden" abbricht:

             PGM                                                      
             DCL        VAR(&KEY) TYPE(*CHAR) LEN(4)                  
                                                                      
             MONMSG     MSGID(CPF1907) EXEC(GOTO CMDLBL(ENDRQS))      
                                                                      
             SNDPGMMSG  MSG('-')   TOPGMQ(*EXT) MSGTYPE(*RQS)         
             RCVMSG     KEYVAR(&KEY) PGMQ(*EXT) MSGTYPE(*RQS) RMV(*NO)
                                                                      
             WRKACTJOB                                                
 ENDRQS:     SNDPGMMSG  MSGID(CPF9897) MSGF(QCPFMSG) +                
                          MSGDTA('Anforderungsebene beendet') +       
                          TOUSR(*REQUESTER)                           
                                                                      
             RMVMSG     MSGKEY(&KEY)                                  
             ENDPGM 

[hel400]

Hier ein Beispiel, das bei mir funktioniert, wenn man den WRKACTJOB mit "Vorherige Anfrage beenden" abbricht:

             PGM                                                      
             DCL        VAR(&KEY) TYPE(*CHAR) LEN(4)                  
                                                                      
             MONMSG     MSGID(CPF1907) EXEC(GOTO CMDLBL(ENDRQS))      
                                                                      
             SNDPGMMSG  MSG('-')   TOPGMQ(*EXT) MSGTYPE(*RQS)         
             RCVMSG     KEYVAR(&KEY) PGMQ(*EXT) MSGTYPE(*RQS) RMV(*NO)
                                                                      
             WRKACTJOB                                                
 ENDRQS:     SNDPGMMSG  MSGID(CPF9897) MSGF(QCPFMSG) +                
                          MSGDTA('Anforderungsebene beendet') +       
                          TOUSR(*REQUESTER)                           
                                                                      
             RMVMSG     MSGKEY(&KEY)                                  
             ENDPGM 

... ich denke aber, dass direkt nach dem WRKACTJOB noch ein "GOTO ENDPGM" hingehört,
sonst kommt die Meldung ja auch bei normaler Beendigung :-)

Aber ansonsten richtig - so geht's tatsächlich, die Sysabf-2 abzufangen.

[Pikachu]

Der RMVMSG muß aber erreicht werden, damit die Anforderungsebene tatsächlich beendet wird.

... ich denke aber, dass direkt nach dem WRKACTJOB noch ein "GOTO ENDPGM" hingehört, sonst kommt die Meldung ja auch bei normaler Beendigung :-)

[Fuerchau]

Die Anforderungsebene wird mit verlassen des Callstacks aufgehoben.
Unschön ist halt nur der Verbleib der Anforderungnachricht, die man dann immer noch per F9 abholen kann (außer bei "/* */").

[Pikachu]

Wird die nicht durch den RMVMSG entfernt?

Unschön ist halt nur der Verbleib der Anforderungnachricht, die man dann immer noch per F9 abholen kann (außer bei "/* */").

[Fuerchau]

Ja, für die aktuelle Ebene.
Da du aber mit Return verlässt ist die Aufrufebene ja auch beendet und wird nicht dem nächsten der selben Ebene zugeordnet.