【Delphi/400】ライブラリリストを表示する方法

Delphiの画面にライブラリリストを表示する簡単な方法としては、
TCmd400コンポーネントを使い、RTVJOBAコマンドを実行する方法があります。

（DSPLIBLコマンドの結果をスプールに出力して表示する方法もありますが、
　こちらの方がシンプルです。）

　

画面上にTAS400・TCmd400コンポーネントを、表示用のLabelコンポーネントを2つ配置します。

TCmd400コンポーネントの設定で、文字型で150桁のパラメータを2つ用意します。
またAS400プロパティに配置したTAS400を指定します。

この状態で下記のようにコードを記述して実行すると、
Labelにライブラリリストのライブラリが表示されます。

    AS4001.Connect;
    Cmd4001.CommandLine.Text := 'RTVJOBA SYSLIBL(&P.1) USRLIBL(&P.2)';
    Cmd4001.Execute;
    Label1.Caption := Cmd4001.Value[0];
    Label2.Caption := Cmd4001.Value[1];

＜表示例＞
Label1：QSYS QSYS2 QHLPSYS QUSRSYS
Label2：CO423 QGPL QTEMP QEVX

　

　

（ミガロ.情報マガジン「MIGARO News!!」Vol.091 2008年08月号より）