midrange.com code scratchpad |
Name:
Build
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
09/10/2014 07:30:35 pm
|
IP:
Logged
|
|
Description:
Command definition
|
Code:
- /* *> CRTCMD CMD(&O/&ON) PGM(*LIBL/BUILDRG) - <* +
- * *> MODE(*ALL) ALLOW(*ALL) - <* +
- * *> HLPPNLGRP(BUILDPG) HLPID(BUILD) - <* +
- * *> TEXT(&X) <* +
- * */
- CMD PROMPT('Build an object from source')
-
- PARM KWD(OBJ) TYPE(FILE1) MIN(1) PROMPT('Object Name')
-
- PARM KWD(SRCFILE) TYPE(FILE2) PROMPT('Source File')
-
- PARM KWD(SRCMBR) TYPE(*NAME) DFT(*OBJ) SPCVAL((*OBJ)) +
- PROMPT('Source member') EXPR(*YES)
-
- PARM KWD(DBGVIEW) TYPE(*CHAR) LEN(7) RSTD(*YES) +
- DFT(*LIST) VALUES(*LIST *SOURCE *STMT +
- *NONE) PROMPT('Debug View') EXPR(*YES)
-
- PARM KWD(REPLACE) TYPE(*CHAR) LEN(4) RSTD(*YES) +
- DFT(*YES) VALUES(*YES *NO) EXPR(*YES) +
- PROMPT('Replace object')
-
- PARM KWD(ALWF9) TYPE(*CHAR) LEN(4) RSTD(*YES) DFT(*NO) +
- VALUES(*YES *NO) EXPR(*YES) PROMPT('Allow +
- F9=Retrieve on commands')
-
- PARM KWD(OPTION) TYPE(*CHAR) LEN(10) RSTD(*YES) +
- DFT(*EVENTF) VALUES(*NOEVENTF *EVENTF) +
- EXPR(*YES) PMTCTL(*PMTRQS) +
- PROMPT('Compiler Options')
-
- PARM KWD(USECMS) TYPE(*CHAR) LEN(1) RSTD(*YES) +
- DFT(*YES) SPCVAL((*YES '1') (*NO '0')) +
- PMTCTL(*PMTRQS) PROMPT('Use CMS compiler +
- command')
- PARM KWD(LIST) TYPE(*CHAR) LEN(1) RSTD(*YES) DFT(*NO) +
- SPCVAL((*YES '1') (*NO '0')) +
- PMTCTL(*PMTRQS) PROMPT('Generate compile +
- listing')
-
-
- FILE1: QUAL TYPE(*NAME) EXPR(*YES)
- QUAL TYPE(*NAME) DFT(*CURLIB) EXPR(*YES) +
- SPCVAL((*CURLIB)) PROMPT('Library')
-
- FILE2: QUAL TYPE(*NAME) DFT(QRPGLESRC) EXPR(*YES)
- QUAL TYPE(*NAME) DFT(*LIBL) EXPR(*YES) SPCVAL((*LIBL) +
- (*CURLIB)) PROMPT('Library')
-
|
|
|