CMD        PROMPT('Create MI Program')

/*T: Create MI Program */
/*O: CRTCMD  PGM(CRTMIPGMR) HLPPNLGRP(CRTMIPGMH) HLPID(*CMD)         */

 PGM:        PARM       KWD(PGM) TYPE(QPGM) MIN(1) PROMPT('Program')
 QPGM:       QUAL       TYPE(*NAME) LEN(10)
             QUAL       TYPE(*NAME) DFT(*CURLIB) SPCVAL((*CURLIB)) +
                          PROMPT('Library')

 SRCFILE:    PARM       KWD(SRCFILE) TYPE(QSRCFILE) PROMPT('Source +
                          file')
 QSRCFILE:   QUAL       TYPE(*NAME) LEN(10) DFT(QMISRC)
             QUAL       TYPE(*NAME) DFT(*PGMLIB) SPCVAL((*PGMLIB) +
                          (*CURLIB) (*LIBL)) PROMPT('Library')

 SRCMBR:     PARM       KWD(SRCMBR) TYPE(*NAME) LEN(10) DFT(*PGM) +
                          SPCVAL((*PGM)) PROMPT('Source member')

 TEXT:       PARM       KWD(TEXT) TYPE(*CHAR) LEN(50) +
                          DFT(*SRCMBRTXT) SPCVAL((*SRCMBRTXT)) +
                          PROMPT('Text ''description''')

 OPTION:     PARM       KWD(OPTION) TYPE(*CHAR) LEN(11) RSTD(*YES) +
                          SPCVAL((*GEN) (*NOGEN) (*NOREPLACE) +
                          (*REPLACE) (*NOLIST) (*LIST) (*NOXREF) +
                          (*XREF) (*NOATR) (*ATR) (*USER) (*ADOPT) +
                          (*OWNER) (*ADPAUT) (*NOADPAUT) (*SUBSCR) +
                          (*NOSUBSCR) (*UNCON) (*SUBSTR) +
                          (*NOSUBSTR) (*CLRPSSA) (*NOCLRPSSA) +
                          (*NOIGNDEC) (*IGNDEC) (*NOIGNBIN) +
                          (*IGNBIN) (*NOOVERLAP) (*OVERLAP) +
                          (*NODUP) (*DUP) (*OPT) (*NOOPT)) MAX(16) +
                          PROMPT('Compiler options')

 PRTFILE:    PARM       KWD(PRTFILE) TYPE(QPRTFILE) PMTCTL(LIST) +
                          PROMPT('Print file')
 QPRTFILE:   QUAL       TYPE(*NAME) LEN(10) DFT(QSYSPRT)
             QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*CURLIB) +
                          (*LIBL)) PROMPT('Library')

 AUT:        PARM       KWD(AUT) TYPE(*NAME) LEN(10) RSTD(*NO) +
                          DFT(*USE) SPCVAL((*ALL) (*CHANGE) (*USE) +
                          (*EXCLUDE)) PMTCTL(*PMTRQS) +
                          PROMPT('Authority')

 LIST:       PMTCTL     CTL(OPTION) COND((*EQ *LIST))