Nun ich weiß nicht wie du das schaffst, aber bei meinen Kunden funktioniert das so nicht (V7R4):

Code:
PGM                                                    
                                                       
DCL        VAR(&MSG) TYPE(*CHAR) LEN(256)              
                                                       
CHGJOB     LOG(0 99 *NOLIST)                           
                                                       
SNDPGMMSG  MSG('/* */') TOPGMQ(*SAME) MSGTYPE(*RQS)    
RCVMSG     MSGTYPE(*RQS) RMV(*NO) MSG(&MSG)            
                                                       
SNDPGMMSG  MSG('Dies ist ein Test') TOPGMQ(*SAME)      
SNDPGMMSG  MSG('Dies ist ein Test') TOPGMQ(*SAME)      
SNDPGMMSG  MSG('Dies ist ein Test') TOPGMQ(*SAME)      
                                                       
CALL       PGM(QCMD)                                   
                                                       
CHGJOB     LOG(4 00 *NOLIST)                           
ENDPGM

Code:
                                 Befehlseingabe                        DEVP7    
                                                       Anforderungsebene:   4   
 Alle vorherigen Befehle und Nachrichten:                                       
      Dies ist ein Test                                                         
      Dies ist ein Test                                                         
      Ende der Anfrage.                                                         
  3 > /* */                                                                     
      Dies ist ein Test                                                         
      Dies ist ein Test                                                         
      Dies ist ein Test                                                         
  2 > CALL RDLIB/FUETEST                                                        
  3 > /* */                                                                     
      Dies ist ein Test                                                         
      Dies ist ein Test                                                         
      Dies ist ein Test                                                         
                                                                   Ende         
 Befehl eingeben und Eingabetaste drücken                                       
 ===>                                                                           
                                                                                
                                                                                
                                                                                
 F3=Verlassen   F4=Bedienerführung           F9=Auffinden                       
 F10=Detaillierte Nachrichten ausschließen   F24=Weitere Tasten
Zur Laufzeit kannst du das protokollieren der Nachrichten nicht unterbinden.