高橋CTOのSystemiテクニカル講座

IFS(統合ファイルシステム）上のあるディレクトリーのオブジェクトに対してＣＬで一括でなにか処理(RMVLNKやCRTJVAPGM….)を行い
たい場合は、IFS上のオブジェクトを取得する必要がありますね。
IFS上のオブジェクト情報がファイルへ出力できれば、CLでDCLFで定義しRCVFでファイルを読込む事ができるので、一括で処理する事が可能です。

DSPLNKでは画面又はスプールへの出力がありますが、残念ながらファイルへの出力がありません。
(APIを使用すれば、可能なのでしょうが・・・)

V5R3からですが、RTVDIRINFコマンドが用意されています。
RTVDIRINFを実行すると、指定したライブラリー（デフォルトではQUSRSYS)
に２つのファイルが作成されます。

1.QAEZDXXXXO
2.QAEZDXXXXD
XXXXの部分は連番になります。

1のファイルはオブジェクト情報で、2のファイルはディレクトリー情報になります。
オブジェクトがどこのディレクトリーにあるかを確認するには２つのファイルをdirectory indexで結合すれば把握できます。

また、ファイルの出力先ライブラリーですが、QTEMPを指定する事はできません。# 不要になったら削除しましょう。

実は、RTVDIRINFと一緒にPRTDIRINFコマンドが用意されています。
これはRTVDIRINFコマンドで作成されたファイルを元に、ディレクトリー情報を印刷するものです。
RTVDIRINFコマンドの本来の正しい使い方は、RTVDIRINFで情報を取得し、PRTDIRINFで情報を印刷なのでしょうが、
作成されるファイルをうまく利用すれば色々できますね。

Pcommの初期設定では、カーソルが漢字の場所に来ると
IMEの入力モードが自動で漢字モードになります。

個人の好みの問題ですが、私は自動切り替えが嫌いです。
自動切り替えをＯＦＦにしたい場合は
C:\Program Files\IBM\Personal Communications\private\pcswin.ini
に次ぎの記述を追加します

[DBCS]
IME_AUTO_START=N

Pcommが起動中であれば、次回起動時から有効となります。

今回は画面のカーソル制御その２です。

カーソルの動きは通常、右→左、上→下の順ですが、任意にカーソル移動先を設定する方法をお伝えします。

DDS側のコーディングです。

キーワード FLDCSRPRGを指定します。カッコ内には移動したい先にフィールド名を指定します。
この例では、カーソルはD1C0D1→D1COD3→D1COD2→D1COD1と移動できます。