コマンド

69. コマンドの情報を検索するQCDRCMDI

 
 
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 を知っておくだけで十分である。