So könnte es vielleicht gehen:
Code:
             PGM                                                     
             DCL        VAR(&MSGQ)    TYPE(*CHAR) LEN(10) VALUE(MSGQ)
             DCL        VAR(&MSGQLIB) TYPE(*CHAR) LEN(10) VALUE(QGPL)
             MONMSG     MSGID(CPF0000)

             CRTMSGQ    MSGQ(&MSGQLIB/&MSGQ)                         
             CLRMSGQ    MSGQ(&MSGQLIB/&MSGQ)                         

             SBMJOB     CMD(CALL PGM(Programm)) JOB(Jobname) +             
                          JOBD(Jobbeschreibung) JOBQ(QSYSNOMAX) +
                          USER(Benutzer) MSGQ(&MSGQLIB/&MSGQ)        
             MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ENDPGM))
             RCVMSG     MSGQ(&MSGQLIB/&MSGQ) WAIT(*MAX) RMV(*YES)

 ENDPGM:     ENDPGM