CMD PROMPT('Create MI Program')



CMD PROMPT('Create MI Program')

PARM KWD(PGM) TYPE(QPGM) MIN(1) PROMPT('Program')

QPGM: QUAL TYPE(*NAME) LEN(10)

QUAL TYPE(*NAME) LEN(10) DFT(*CURLIB) +

SPCVAL((*CURLIB *CURLIB)) PROMPT('Library')

PARM KWD(SRCFILE) TYPE(QSRCFILE) PROMPT('Source +

file')

QSRCFILE: QUAL TYPE(*NAME) LEN(10) DFT(QMISRC)

QUAL TYPE(*NAME) LEN(10) DFT(*LIBL) +

SPCVAL((*LIBL) (*CURLIB *CURLIB)) +

PROMPT('Library')

PARM KWD(SRCMBR) TYPE(*NAME) LEN(10) DFT(*PGM) +

SPCVAL((*PGM)) PROMPT('Source member')

PARM KWD(TEXT) TYPE(*CHAR) LEN(50) +

DFT(*SRCMBRTXT) SPCVAL((*SRCMBRTXT)) +

PROMPT('Text ''description''')

PARM KWD(OPTIONS) TYPE(*CHAR) LEN(11) RSTD(*YES) +

DFT(*LIST) VALUES(*GEN *NOGEN *NOLIST +

*LIST *NOXREF *XREF *NOATR *ATR *USER +

*ADOPT *OWNER *ADPAUT *NOAPTAUT *SUBSCR +

*NOSUBSCR *UNCON *SUBSTR *NOSUBSTR +

*CLRPSSA *NOCLRPSSA *CLRPASA *NOCLRPASA +

*NOIGNDEC *IGNDEC *NOIGNBIN *IGNBIN +

*NOOVERLAP *OVERLAP *NODUP *DUP *OPT +

*NOOPT) MAX(15) PMTCTL(*PMTRQS) +

PROMPT('Compiler options')

PARM KWD(REPLACE) TYPE(*LGL) LEN(1) RSTD(*YES) +

DFT(*YES) SPCVAL((*YES '1') (*NO '0')) +

PMTCTL(*PMTRQS) PROMPT('Replace program')

PARM KWD(AUT) TYPE(*NAME) LEN(10) DFT(*LIBCRTAUT) +

SPCVAL((*LIBCRTAUT) (*CHANGE) (*ALL) +

(*USE) (*EXCLUDE)) PMTCTL(*PMTRQS) +

PROMPT('Authority')

................
................

In order to avoid copyright disputes, this page is only a partial summary.

Google Online Preview   Download