取引ファイルを一覧表示する単純なRDMLプログラム。取引のタイプや状態については、その説明も表示します。
GROUP_BY NAME(#TRANS) FIELDS(#TRANNUM #TRANDATE #TRANTIME
#TRANTYPE #TRANDESC #TRANUSER #TRANSTATE #STATDESC)
SELECT FIELDS(#TRANS) FROM_FILE(TRANS)
FETCH FIELDS(#TRANS) FROM_FILE(STATES)
WITH_KEY(#TRANSTATE)
FETCH FIELDS(#TRANS) FROM_FILE(TRNTYP)
WITH_KEY(#TRANTYPE)
UPRINT FIELDS(#TRANS)
ENDSELECT
ファイルTRANSに1万のレコードがあれば、このプログラムはデータベースに、(10000 + 10000 + 10000) = 30000回アクセスすることになります。
しかし、作業リストを使う、FETCHコマンドにKEEP_LASTパラメータを指定する、などの改訂により、処理性能を大きく改善することができます。
