データベースアクセスの実行時間測定 (SAP ライブラリ

データベースアクセスの実行時間測定

次に GET RUN TIME FIELD 命令を使って、データベースアクセスの実行時間を測定する例を示します。

DATA: T1 TYPE I,
T2 TYPE I,
T TYPE P DECIMALS 2.

PARAMETERS N TYPE I DEFAULT 10.

DATA: TOFF TYPE P DECIMALS 2,
TSEL1 TYPE P DECIMALS 2,
TSEL2 TYPE P DECIMALS 2.

TABLES SBOOK.

T = 0.
DO N TIMES.
GET RUN TIME FIELD T1.

* Offset

   GET RUN TIME FIELD T2.
  T2 = T2 - T1.
  T = T + T2 / N.
ENDDO.
TOFF = T.
WRITE: / ‘平均オフセット実行時間： ’ , TOFF, ‘マイクロ秒’ .

SKIP.
T = 0.
DO N TIMES.
GET RUN TIME FIELD T1.

SELECT * FROM SBOOK.
ENDSELECT.

   GET RUN TIME FIELD T2.
  T2 = T2 - T1.
  T = T + T2 / N.
ENDDO.
TSEL1 = T - TOFF.
WRITE ： / ‘平均実行時間 SELECT * ：’ ,
TSEL1, ‘マイクロ秒’ .

SKIP.
T = 0.
DO N TIMES.
GET RUN TIME FIELD T1.

SELECT CARRID CONNID FROM SBOOK
INTO (SBOOK-CARRID, SBOOK-CONNID).
ENDSELECT.

   GET RUN TIME FIELD T2.
  T2 = T2 - T1.
  T = T + T2 / N.
ENDDO.
TSEL2 = T - TOFF.
WRITE: / ‘平均実行時間 SELECT リスト：’ ,
TSEL2, ‘マイクロ秒’ .

これによって出力は次のようになります。

平均オフセット実行時間： 25.22 マイクロ秒

平均実行時間 SELECT * ： 257,496.85 マイクロ秒

平均実行時間 SELECT List ： 167,904.63 マイクロ秒

この例は、３つのプログラムセグメントの実行時間を測定しています。

実行時間測定のオフセットを得るための‘空の’プログラムセグメント

結果は、測定した実行時間のオフセットはこの場合無視してもよく、テーブルの指定項目を読む方が全行読むよりも速いということを示しています。