Systemanfrage 2 (Vorherige Anfrage beenden) im RPG abfangen ?

[Pikachu]

Probier's mal so:

             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)
                                                                      
          /* Befehle */                                               
                                                                      
 ENDRQS:     RMVMSG     MSGKEY(&KEY)                                  
             ENDPGM