Vielleicht hilft ja das:

Displayfile BRKMSG
Code:
                R PSEUDO                               
                                            ASSUME     
                  $$X            1   B 24  1           
                R ALARM                                
                                            ALARM      
                                            FRCDTA     
                                            CLRL(*NO)
CLP BRKMSG
Code:
             PGM        PARM(&MSGQ &MSGL &MSGK)                    
                                                                   
             DCL        VAR(&MSGQ) TYPE(*CHAR) LEN(10)             
             DCL        VAR(&MSGL) TYPE(*CHAR) LEN(10)             
             DCL        VAR(&MSGK) TYPE(*CHAR) LEN(4)              
                                                                   
             DCL        VAR(&MSGTEXT) TYPE(*CHAR) LEN(132)         
                                                                   
             DCLF       FILE(FUERCHAU/BRKMSG)                      
                                                                   
             MONMSG     MSGID(CPF0000)                             
             RCVMSG     MSGQ(&MSGL/&MSGQ) MSGKEY(&MSGK) RMV(*NO) + 
                          MSG(&MSGTEXT)                            
                                                                   
             SNDPGMMSG  MSGID(CPF9897) MSGF(QCPFMSG) +             
                          MSGDTA(&MSGTEXT) TOPGMQ(*EXT) +          
                          MSGTYPE(*STATUS)  
                                            
             SNDF       RCDFMT(ALARM)       
                                            
             ENDPGM
Beides umwandeln und

Code:
CHGMSGQ MSGQ(*USRPRF)                
        DLVRY(*BREAK)                
        SEV(00)                      
        PGM(FUERCHAU/BRKMSG *ALWRPY) 
        RESET(*YES)
ausführen.
Viel spaß beim testen, bei mir funktionierts !