/*  Create Module                                                             */
/*  CPP:  CRTMOD                                                              */

             CMD        PROMPT('Create Module')

             PARM       KWD(MODULE) TYPE(MODULE) MIN(1) +
                          PROMPT('Module')

             PARM       KWD(SRCFILE) TYPE(SRCFILE) MIN(1) +
                          PROMPT('Source File')

             PARM       KWD(SRCMBR) TYPE(*CHAR) LEN(10) DFT(*MODULE) +
                          SPCVAL((*MODULE)) PROMPT('Source Member')

             PARM       KWD(OPTION) TYPE(*CHAR) LEN(10) RSTD(*YES) +
                          DFT(*EVENTF) VALUES(*EVENTF *NOEVENTF) +
                          PROMPT('Option')

 MODULE:     QUAL       TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES)
             QUAL       TYPE(*NAME) LEN(10) SPCVAL((*CURLIB)) MIN(1) +
                          PROMPT('Library')

 SRCFILE:    QUAL       TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES)
             QUAL       TYPE(*NAME) LEN(10) SPCVAL((*LIBL) +
                          (*CURLIB)) MIN(1) PROMPT('Library')