/*--+------------------------------------------------------------+--*/
/*--+   COMMAND ID : DSPMSGID                                    +--*/
/*--+ COMMAND NAME : DISPLAY MESSAGE ID                          +--*/
/*--+------------------------------------------------------------+--*/
/*--+      VERSION : 2.0 (1999/06/22) REMOVE SLANG AND SPCLIB    +--*/
/*--+                1.0 (1998/10/14)                            +--*/
/*--+------------------------------------------------------------+--*/
             CMD        PROMPT('DISPLAY MESSAGE ID')

             PARM       KWD(MSGID) TYPE(*CHAR) LEN(7) MIN(1) +
                          PROMPT('MESSAGE ID')
             PARM       KWD(MSGF) TYPE(GETMSGF) PROMPT('MESSAGE FILE')


             PARM       KWD(NEXT) TYPE(*CHAR) LEN(4) RSTD(*YES) +
                          DFT(*NO) SPCVAL((*YES *YES) (*NO *NO)) +
                          PMTCTL(*PMTRQS) PROMPT('IF FOUND, THEN +
                          CONTINUE ?')


 GETMSGF:    QUAL       TYPE(*GENERIC) LEN(10) DFT(*ALL) +
                          SPCVAL((*ALL *ALL))
             QUAL       TYPE(*NAME) LEN(10) DFT(*ALL) SPCVAL((*ALL +
                          *ALL) (*ALLUSR *ALLUSR) (*CURLIB *CURLIB) +
                          (*LIBL *LIBL) (*USRLIBL *USRLIBL)) +
                          PROMPT(LIBRARY)