Would you like to create a shortcut command to replace an often-keyed, lengthy command? You can create the command without creating a CL program to execute the long version of the command. The technique utilizes the QCMDEXC program as the command processing program (CPP).

You simply create a command that passes parameters to QCMDEXC as constants. The first parameter will be the command string to be executed (whatever length you want), and the second parameter will be a 15, 5 length decimal field containing the length of the command string in parameter one.

For example, to create a shortcut command that executes the Work with Output Queue (WRKOUTQ) command to view the output queue QPRINT, create source member OQ (see 1). When you create the command, specify QCMDEXC as the CPP. That's all there is to it!

For example, to create a shortcut command that executes the Work with Output Queue (WRKOUTQ) command to view the output queue QPRINT, create source member OQ (see Figure 1). When you create the command, specify QCMDEXC as the CPP. That's all there is to it!

? Paul Jackson

TechTalk: Shortcut Commands

Figure 1: Shortcut Command OQ

 /*===============================================================*/ /* To compile: */ /* */ /* CRTCMD CMD(XXX/OQ) PGM(XXX/QCMDEXC) + */ /* SRCFILE(XXX/QCMDSRC) */ /* */ /*===============================================================*/ CMD PROMPT('Work with Output Queue QPRINT') PARM KWD(CMD) TYPE(*CHAR) LEN(20) + CONSTANT('WRKOUTQ OUTQ(QPRINT)') PARM KWD(LEN) TYPE(*DEC) LEN(15 5) CONSTANT(20)