CLP の中で RTVJOBA や RTVOBJD コマンドを使ってコマンドからの戻り値を
受け取ったことがあるかも知れない。
このような戻り値を戻すコマンドを作成するには、戻り値のパラメータに
RTNVAL(*YES)
を指定するだけでよい。
例えば、
PARM KWD(FILLIB) TYPE(*CHAR) LEN(10) RTNVAL(*YES) + PROMPT(' ライブラリー (10)')
のような記述となる。
但しコマンドのコンパイルでは
CRTCMD CMD(MYLIB/MYCMD) PGM(MYLIB/MYCMDCL) SRCFILE(MYSRCLIB/QCMDSRC) ALLOW(*IPGM *BPGM) PMTFILE(MYLIB/MYMSGF) AUT(*ALL)
のように実行環境を *IPGM *BPGM
に変更する必要がある。
もちろん、このようにしてコンパイルされたコマンドは対話式環境では使用できず、
CLP などの中だけで使用可能となる。