Natürlich; man kann mit RCVMSG die Nachricht empfangen und somit auch die Nachrichtendaten. Bei CPF3773 interessiert Dich &2, das ist eine 4 Byte lange Zahl, ab Stelle 5 in den Nachrichtendaten. Wenn Dich die Zahl selber nicht interessiert, kann man die 4 Bytes auch mit der Zeichenfolge x'00000000' vergleichen.
Code:
             DCL        VAR(&MSGDTA) TYPE(*CHAR) LEN(512)    
             DCL        VAR(&HEX004) TYPE(*CHAR) LEN(4) VALUE(X'00000000') 
...
             MONMSG     MSGID(CPF3773) EXEC(DO)                          
             RCVMSG     MSGQ(*PGMQ) MSGTYPE(*LAST) RMV(*NO) +            
                          MSGDTA(&MSGDTA)                                
             IF         COND(%SST(&MSGDTA 5 4) *NE &HEX004) THEN(DO)     
/* Hier ist klar, dass mind. 1 Objekt nicht zurückgespeichert wurde. */
             ENDDO                                                       
             ENDDO