/*************************************************************************/
/* Program Id...........  SC0005CL - Remove a program message            */
/*                                                                       */
/* Programmer...........  Steven Croy                                   */
/*                                                                       */
/* Function.............  This program functions to remove an item       */
/*                        from a program message queue from any          */
/*                        CL, or HLL program                             */
/*                                                                       */
/* Compiler options.....  *OWNER                                         */
/*                                                                       */
/*************************************************************************/

     PGM PARM(&PRGNAM)
     DCL VAR(&PRGNAM) TYPE(*CHAR) LEN(10)
     RMVMSG PGMQ(*SAME &PRGNAM) CLEAR(*ALL)
     MONMSG MSGID(CPF0000)
     ENDPGM