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