/*PARMS PGM(FNDMSGRC) VLDCKR(FNDMSGRV) */
/********************************************************************/
/* */
/* Program Name: */
/* ------------- */
/* FNDMSGR...Find Message Description -Rebuild List */
/* */
/* Function: */
/* --------- */
/* Use this function to rebuild the list of message used */
/* to search. */
/* */
/* Parameters: */
/* ----------- */
/* MSGF */
/* The message file whos list is being rebuilt. */
/* */
/********************************************************************/
CMD PROMPT('Find A Msg Desc -Rebuild List')
PARM KWD(MSGF) TYPE(OBJLIB) +
PROMPT('Message file')
OBJLIB: QUAL TYPE(*NAME) DFT(MESSAGES) EXPR(*YES)
QUAL TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL)) +
PROMPT('Library')