CMD        PROMPT('Create MI Program')
             PARM       KWD(PGM) TYPE(PGM) MIN(1) PROMPT('Program Name')
             PARM       KWD(SRCFILE) TYPE(SRCFILE) PROMPT('Source file')
             PARM       KWD(SRCMBR) TYPE(*NAME) DFT(*PGM) SPCVAL((*PGM)) +
                          PROMPT('Source member')
             PARM       KWD(TEXT) TYPE(*CHAR) LEN(50) DFT(*SRCMBRTXT) +
                          SPCVAL((*SRCMBRTXT)) PROMPT('Text +
                          ''description''')
             PARM       KWD(SRCOPT) TYPE(*CHAR) LEN(10) RSTD(*YES) +
                          DFT(*USRSPC) SPCVAL((*USRSPC) (*VAR)) +
                          PMTCTL(*PMTRQS) PROMPT('Source option')
             PARM       KWD(SRCCMP) TYPE(*CHAR) LEN(10) RSTD(*YES) +
                          DFT(*NO) SPCVAL((*YES) (*NO)) PMTCTL(*PMTRQS) +
                          PROMPT('Source compression')


             PARM       KWD(REPLACE) TYPE(*CHAR) LEN(11) RSTD(*YES) +
                          DFT(*YES) SPCVAL((*YES *REPLACE) (*NO +
                          *NOREPLACE)) PMTCTL(*PMTRQS) PROMPT('Replace +
                          program')
             PARM       KWD(USRPRF) TYPE(*CHAR) LEN(11) RSTD(*YES) +
                          DFT(*USER) SPCVAL((*USER) (*ADOPT) (*OWNER)) +
                          PROMPT('User profile')      PMTCTL(*PMTRQS)
             parm       adpaut type(*CHAR) len(11) dft(*NO) SPCVAL((*YES +
                          *ADPAUT) (*NO *NOADPAUT)) PROMPT('Use adopted +
                          authority') rstd(*yes)    PMTCTL(*PMTRQS)

             PARM       KWD(AUT) TYPE(*NAME) LEN(10) DFT(*LIBCRTAUT) +
                          SPCVAL((*LIBCRTAUT) (*CHANGE) (*ALL) (*USE) +
                          (*EXCLUDE)) prompt('Authority') pmtctl(*PMTRQS)
             PARM       KWD(LIST) TYPE(*CHAR) LEN(11) RSTD(*YES) DFT(*YES) +
                          SPCVAL((*YES *LIST) (*NO *NOLIST)) +
                          PMTCTL(*PMTRQS) PROMPT('Generate listing')
             PARM       GEN TYPE(*CHAR) len(11) RSTD(*YES) DFT(*YES) +
                          SPCVAL((*YES *GEN) ( *NO *NOGEN)) +
                          PMTCTL(*PMTRQS) PROMPT('Generate program object')
             PARM       XREF TYPE(*CHAR) len(11) RSTD(*YES) DFT(*NO) +
                          SPCVAL((*YES *XREF) ( *NO *NOXREF)) +
                          PMTCTL(*PMTRQS) PROMPT('Create cross-reference +
                          listing')
             PARM       atr TYPE(*CHAR) len(11) RSTD(*YES) DFT(*NO) +
                          SPCVAL((*YES *ATR) ( *NO *NOATR)) +
                          PMTCTL(*PMTRQS) PROMPT('Create summary listing')
             PARM       subscr TYPE(*CHAR) len(11) RSTD(*YES) DFT(*YES) +
                          SPCVAL((*YES *SUBSCR) ( *NO *NOSUBSCR) (*FULL +
                          *UNCON)) PMTCTL(*PMTRQS) PROMPT('Constrain +
                          arrays')
             PARM       subSTR TYPE(*CHAR) len(11) RSTD(*YES) DFT(*YES) +
                          SPCVAL((*YES *SUBSTR) ( *NO *NOSUBSTR))       +
                                   PMTCTL(*PMTRQS) PROMPT('Constrain +
                          strings')
             PARM       clrpssa TYPE(*CHAR) len(11) RSTD(*YES) DFT(*YES) +
                          SPCVAL((*YES *CLRPSSA) ( *NO *NOCLRPSSA)) +
                          PMTCTL(*PMTRQS) PROMPT('Initialise static +
                          storage')
             PARM       clrpasa TYPE(*CHAR) len(11) RSTD(*YES) DFT(*YES) +
                          SPCVAL((*YES *CLRPASA) ( *NO *NOCLRPASA)) +
                          PMTCTL(*PMTRQS) PROMPT('Initialise automatic +
                          storage')
             PARM       igndec TYPE(*CHAR) len(11) RSTD(*YES) DFT(*NO) +
                          SPCVAL((*YES *IGNDEC) ( *NO *NOIGNDEC)) +
                          PMTCTL(*PMTRQS) PROMPT('Ignore decimal data +
                          errors')
             PARM       ignbin TYPE(*CHAR) len(11) RSTD(*YES) DFT(*NO) +
                          SPCVAL((*YES *IGNBIN) ( *NO *NOIGNBIN)) +
                          PMTCTL(*PMTRQS) PROMPT('Ignore binary data size +
                          errors')
             PARM       overlap TYPE(*CHAR) len(11) RSTD(*YES) DFT(*YES) +
                          SPCVAL((*YES *OVERLAP) ( *NO *NOOVERLAP)) +
                          PMTCTL(*PMTRQS) PROMPT('Coincident instruction +
                          support')
             PARM       dup TYPE(*CHAR) len(11) RSTD(*YES) DFT(*NO) +
                          SPCVAL((*YES *DUP) ( *NO *NODUP)) +
                          PMTCTL(*PMTRQS) PROMPT('Allow duplicate +
                          declares')
             PARM       opt TYPE(*CHAR) len(11) RSTD(*YES) DFT(*NO) +
                          SPCVAL((*YES *OPT) ( *NO *NOOPT)) +
                          PMTCTL(*PMTRQS) PROMPT('Optimise')
             PARM       tgtrls TYPE(*CHAR) len(11)  DFT(*CURRENT) +
                          SPCVAL((*CURRENT) ( *PRV) (V5R4M0) (V6R1M0) +
                          (V7R1M0)) PMTCTL(*PMTRQS) PROMPT('Target +
                          release') rstd(*YES)




 PGM:        QUAL       TYPE(*NAME) LEN(10)
             QUAL       TYPE(*NAME) LEN(10) DFT(*CURLIB) SPCVAL((*CURLIB)) +
                          PROMPT('Library')
 SRCFILE:    QUAL       type(*NAME) len(10) dft(QMISRC)
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) SPCVAL((*LIBL)) +
                          PROMPT('Library')