/*************************************************************************/
/* Program Id...........  SC0010CL - Retreive message text               */
/* Programmer...........  Steven Croy                                    */
/*                                                                       */
/* Function.............  This program functions as a message text       */
/*                        receiver. It gets message data from the        */
/*                        specified file and returns to the calling      */
/*                        program.                                       */
/*                                                                       */
/* Compiler options.....  *OWNER                                         */
/*                                                                       */
/*                                                                       */
/*************************************************************************/

PGM        PARM(&MSGID  +
                &MSGFILE   +
                &MSGDTA +
                &MSG    +
               )

DCL        VAR(&MSGID)    TYPE(*CHAR) LEN(7)
DCL        VAR(&MSGFILE)     TYPE(*CHAR) LEN(10)
DCL        VAR(&MSGDTA)   TYPE(*CHAR) LEN(132)
DCL        VAR(&MSG)      TYPE(*CHAR) LEN(80)

             CHGVAR     VAR(&MSG) VALUE(' ')

             RTVMSG     MSGID(&MSGID) MSGF(*LIBL/&MSGFILE) +
                          MSGDTA(&MSGDTA) MSG(&MSG)

             MONMSG     MSGID(CPF0000) EXEC(DO)
             CHGVAR     VAR(%SST(&MSG 1 10)) VALUE('Message ID')
             CHGVAR     VAR(%SST(&MSG 12 7)) VALUE(&MSGID)
             CHGVAR     VAR(%SST(&MSG 20 22)) VALUE('not found in ' +
                          *CAT &MSGFILE *TCAT '.')
             ENDDO

 END:        ENDPGM