Page History
取引ファイルを一覧表示する単純なRDMLプログラム。取引のタイプや状態については、その説明も表示します。
[ 
|../../index.htm#lansa/l4wdev05_0240.htm]
現在地:
...
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パラメータを指定する、などの改訂により、処理性能を大きく改善することができます。
[ |../../index.htm#lansa/l4wdev05_0240.htm]