Systemanfrage 2 (Vorherige Anfrage beenden) im RPG abfangen ?

[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.