社内でちょっとしたコマンドを作成している例はいくつかあるかも知れない。
処理プログラムのない簡単なコマンドは次のように作成できる。
CRTCMD CMD(QGPL/DU) PGM(QSYS/QCMDEXC) SRCFILE(QTRSRC/QCMDSRC)
これでコマンド入力画面で DU と打鍵すれば WRKACTJOB が実行される。
ソースコード
0001.00 CMD PROMPT(' 活動ジョブ表示 ')
0002.00 PARM KWD(CMD) TYPE(*CHAR) LEN(9) CONSTANT(WRKACTJOB)
0003.00 PARM KWD(LEN) TYPE(*DEC) LEN(15 5) CONSTANT(9)