Hallo Michael,

wie das mit dem Breakmodus ist, weiss ich nicht. Bei uns ist die QSYSOPR-MSGQ von einem Batch-Job gesperrt:

QSYSOPR QSYSOPR *EXCL HELD *THREAD 00000001

Folgende REXX-Procedur liest dann von einem interakt. Job die letzten paar Nachrichten aus der MSGQ aus. Habe die Procedur auch getestet und geht:

Code:
mkey = d2c(0,4)                                                     
text1 = copies(" ",50)                                              
                                                                    
"RCVMSG     MSGQ(QSYSOPR) MSGTYPE(*last) RMV(*KEEPEXCP)",           
           "MSG(&TEXT1) SECLVL(&TEXT2) MSGDTA(&DATEN)",             
           "MSGID(&MSGID)"                                          
SAY msgid text1                                                     
do 5                                                                
"RCVMSG   MSGTYPE(*PRV) MSGKEY(&MKEY) RMV(*KEEPEXCP) KEYVAR(&MKEY)",
           "MSG(&TEXT1) SECLVL(&TEXT2) MSGDTA(&DATEN)",             
           "MSGID(&MSGID) msgq(Qsysopr)"                            
SAY msgid text1                                                     
end                                                                 
exit
Vergleiche doch mal Dein RCVMSG mit meinem oder probiere die REXX-Procedur auch mal aus.

Gruß
Bruno