API: QCDRCMDI はコマンドの情報を
検索するAPIで例えばコマンドに登録されている
ヘルプ(=バネル・グループ)を次のように検索することができる。
DCL VAR(&CMDINFO) TYPE(*CHAR) LEN(20)
DCL VAR(&CMD) TYPE(*CHAR) STG(*DEFINED) LEN(10) +
DEFVAR(&CMDINFO 1)
DCL VAR(&CMDLIB) TYPE(*CHAR) STG(*DEFINED) +
LEN(10) DEFVAR(&CMDINFO 11)
DCL VAR(&CMDVAR) TYPE(*CHAR) LEN(1024)
DCL VAR(&HLPMOD) TYPE(*CHAR) STG(*DEFINED) +
LEN(10) DEFVAR(&CMDVAR 169)
DCL VAR(&MODLIB) TYPE(*CHAR) STG(*DEFINED) +
LEN(10) DEFVAR(&CMDVAR 179)
DCL VAR(&CMDLEN) TYPE(*CHAR) LEN(4) +
VALUE(X'00000400')
DCL VAR(&APIERR) TYPE(*CHAR) LEN(116) +
VALUE(X'0000007400000000') /* 2 進数 */
CALL PGM(QCDRCMDI) PARM(&CMDVAR &CMDLEN +
'CMDI0100' &CMDINFO &APIERR)
[解説]
QCDRCMDIから受け取った &CMDVAR の
DCL VAR(&HLPMOD) TYPE(*CHAR) STG(*DEFINED) +
LEN(10) DEFVAR(&CMDVAR 169)
DCL VAR(&MODLIB) TYPE(*CHAR) STG(*DEFINED) +
LEN(10) DEFVAR(&CMDVAR 179)
には ヘルプ・パネル・グループ名: &HLPMOD と
ライブラリー名 &MODLIB を受け取ることができる。
コマンドに関するAPIはこの QCDRCMDI を知っておくだけで十分である。
