Ü CRTCMD (Create command)
·
It is used to make commands that can be run on the command line to
process any specific request, just like any system defined command.
·
The CRTCMD command may be run
interactively or in a batch job.
Ü Steps for creating CRTCMD commands
a) Create a source member of type “cmd” and as a source code
write CMD.
Columns . . . : 1 80 Browse AMIT/QRPGLESRC
SEU==> CMD0001
FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8
*************** Beginning of data ********************************************************
0001.00 CMD PROMPT('ENTER THE LIBRARY NAMES')
0002.00 PARM KWD(PARM1) TYPE(*CHAR) LEN(10) MIN(1) +
0003.00 PROMPT('Financials old version library')
0004.00 PARM KWD(PARM2) TYPE(*CHAR) LEN(10) MIN(1) +
0005.00 PROMPT('Financials new version library')
0006.00 PARM KWD(PARM3) TYPE(*CHAR) LEN(10) MIN(1) +
0007.00 PROMPT('CS&L old version library')
0008.00 PARM KWD(PARM4) TYPE(*CHAR) LEN(10) MIN(1) +
0009.00 PROMPT('CS&L new version library')
0010.00 PARM KWD(PARM5) TYPE(*CHAR) LEN(10) MIN(1) +
0011.00 PROMPT('Manufacture old ver. library')
0012.00 PARM KWD(PARM6) TYPE(*CHAR) LEN(10) MIN(1) +
0013.00 PROMPT('Manufacture new ver. library')
****************** End of data ***********************************************************
b) Save the source member and then use option-14 against the
source member to compile it and create a command. Option-14 is equivalent to
CRTCMD.
Work with Members Using PDM SYSAI005
File . . . . . . QRPGLESRC
Library . . . . AMITC Position to . . . . .
Type options, press Enter.
2=Edit 3=Copy 4=Delete 5=Display 6=Print 7=Rename
8=Display description 9=Save 13=Change text 14=Compile 15=Create module...
Opt Member Type Text
14 CMD0001 CMD COMMAND TO CALL CL PROGRAM QUERYCL >>>>>> Command QUERYCMD created in library AMITC.
c) Here when we run the command CMD0001 from command line it
will prompt for the parameters and then will call the program QUERYCL. The
parameters can be retrieved by the calling program.
ENTER THE LIBRARY NAMES (CMD0001)
Type choices, press Enter.
Financials old version library _______________ Character value
Financials new version library _______________ Character value
CS&L old version library . . . . _______________ Character value
CS&L new version library . . . . _______________ Character value
Manufacture old ver. library . . _______________ Character value
Manufacture new ver. library . . _______________ Character value
Bottom
F3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to use this display
F24=More keys