/*************************************************************************/
/* Program Id...........  SC0015CL - Send Program Message                */
/*                                                                       */
/* Programmer...........  Steven Croy                                    */
/*                                                                       */
/* Function.............  This program functions as a command            */
/*                        to send messages to a program queue            */
/*                        from a CL, or HLL program                      */
/*                                                                       */
/* Compiler options.....  *OWNER                                         */
/*                                                                       */
/*************************************************************************/

     PGM PARM(&MSGID &MSGF &MSGDTA &RELQ &PGM)

     DCL VAR(&MSGID) TYPE(*CHAR) LEN(7)
     DCL VAR(&MSGF) TYPE(*CHAR) LEN(10)
     DCL VAR(&MSGDTA) TYPE(*CHAR) LEN(132)
     DCL VAR(&RELQ) TYPE(*CHAR) LEN(5)
     DCL VAR(&PGM) TYPE(*CHAR) LEN(10)


             SNDPGMMSG  MSGID(&MSGID) MSGF(&MSGF) MSGDTA(&MSGDTA) +
                          TOPGMQ(&RELQ &PGM)
             MONMSG     MSGID(CPF0000)

     ENDPGM