ABAP プロファイリングによる実行時間消費の測定

テンプレートクラス /LRN/CL_S4D401_ATS_UNIT_TEST をコピーします。前の演習問題を完了した場合は、このタスクをスキップし、クラス ZCL_##_SOLUTION の編集を続行することができます。

1. クラス /LRN/CL_S4D401_ATS_UNIT_TEST を各自のパッケージのクラスにコピーします (推奨名: ZCL_##_SOLUTION、## はグループ番号)。

   1. Project Explorer ビューで、クラス /LRN/CL_S4D401_ATS_UNIT_TEST を右クリックしてコンテキストメニューを開きます。

   2. コンテキストメニューから Duplicate.... を選択します。

   3. Package 項目にパッケージの名称を入力します。名称項目に、名称 ZCL_##_SOLUTION (## はグループ番号) を入力します。

   4. Next を選択します。

   5. 移送依頼を確認し、Finish を選択します。

2. コピーを有効化します。

   1. Ctrl + F3 を押してクラスを有効化します。

デフォルト設定を使用して、ABAP プロファイラで実行時測定を実行します。次に、結果を照会して分析します。

1. ABAP プロファイラで実行時測定を開始します。

   1. エディタで ABAP クラス ZCL_##_SOLUTION のソースコードを照会します。

   2. エディタを右クリックし、Profile As→ABAP Application (Console) を選択します。

   3. トレースパラメータダイアログボックスで、設定を変更せずに終了を選択します。

2. プロファイラパースペクティブに切り替えます。

   1. Window→Perspective→Open Perspective→Other... を選択します。

   2. ABAP Profiling を選択し、Open を選択します。

3. トレースが終了するまで待機します (右下隅の緑色の進捗インジケータが表示されなくなるまで待機します)。次に、トレース結果を開きます。

   1. 下部の ABAP トレースビューで、プロジェクトを右クリックし、リフレッシュを選択します。

   2. 最新のトレースをダブルクリックします (これはプロジェクトの最上部にあるエントリです)。一覧の上にあるビューでトレースが開きます。

4. トレース概要を分析します。

   1. 全体の実行時間および ABAP とデータベース間の配分が概要の下部セクションに表示されます。

5. トレース詳細を分析して、以下の質問に答えてください。

   1. 最も実行時間が消費された処理ブロックを見つけるには、圧縮該当対象一覧タブに切り替えて、 % Own Time (Specified and Unspecified ABAP Statements) というラベルの 8 列目の降順で表示をソートします。

   2. 最も負荷の高い SQL 文を検索するには、該当対象一覧タブに切り替えて、表示を % ユーザ時間というラベルの 6 列目の降順でソートします。

   3. 呼出ツリー内で最も負荷の高いコードを見つけるには、Aggregated Call Tree タブに切り替えます。

6. コールタイムライン (非集計) を表示し、拡大して繰り返される SELECT 文を視覚化します。

   1. コール時系列タブに切り替えます。

   2. 左側のスライダを使用して、高い頻度で繰り返されるデータベースアクセスの存在を示すストライプのオレンジと白のパターンが表示されるまで拡大します。

データベーステーブル /LRN/PASSFLIGHT への繰り返される SELECT SINGLE アクセスを削除します。そのためには、クラス lcl_passenger_flight のメソッド get_flights_by_carrier の SELECT 文を拡張して、乗客のフライトに必要なすべてのデータを読み込みます。テーブル型タイプの静的属性でデータをバッファします (推奨名: flights_buffer)。クラス lcl_passenger_flight のコンストラクタで、最初に flights_buffer からデータを読み込もうとします。これが失敗した場合にのみ、データベースからデータを読み込みます。

1. ABAP パースペクティブに戻り、クラス lcl_passenger_flight のメソッド get_flights_by_carrier の実装を編集します。SELECT 命令の項目一覧を拡張して、航空機タイプ、最大座席数と予約済座席数、チケット価格、および通貨コードも読み込みます。

   1. Eclipse メニューから、Window→Perspective→Open Perspective→Other... を選択します。ABAP を選択し、Open を選択します。または、Eclipse ウィンドウの右上隅にあるショートカットアイコンを選択します。

   2. クラス lcl_passenger_flight のメソッド get_flights_by_carrier の実装を開き、以下のようにコードを調整します。

      ABAP

      Copy codeSwitch to dark mode

      1234567
        SELECT
          FROM /lrn/passflight
          FIELDS carrier_id, connection_id, flight_date,
                 plane_type_id, seats_max, seats_occupied,
                 price, currency_code
          WHERE carrier_id = @i_carrier_id
          INTO TABLE @DATA(keys).

2. クイックフィックスを使用して、インライン宣言された変数キーの名前を flights_buffer に変更し、flightのキーを変更します。

   1. SELECT 命令の INTO 句で、キーにカーソルを合わせて Ctrl + 1 を押すと、利用可能なクイックフィックスの一覧が表示されます。

   2. クイックフィックスの一覧から、キーの名前変更を選択します。

   3. キーがまだ強調表示されている間に、新しい名称 flights_buffer を入力します。

   4. LOOP AT 命令の INTO 句で、カーソルをキーに置き、Ctrl + 1 を押して利用可能なクイックフィックスの一覧を表示します。

   5. クイックフィックスの一覧から Rename key を選択します。

   6. キーがまだ強調表示されている間に、新しいフライト名を入力します。

3. クイックフィックスを使用して、ローカル変数 flights_buffer を (静的) 属性に変換します。

   1. SELECT 文の INTO 句で、flights_buffer にカーソルを置き、Ctrl + 1 を押して利用可能なクイックフィックスの一覧を表示します。

   2. クイックフィックスの一覧から、flights_buffer を属性に変換を選択します。

4. 静的属性 flights_buffer の定義にナビゲートし、構造タイプ helper_type の定義を完了します。

   1. flights_buffer にカーソルを置き、F3 を押します。

      または、Ctrl キーを押しながら flights_buffer を左クリックします。

   2. 構造タイプ helper_type のコンポーネントに適したデータ型を追加します。

      注記

      最も簡単な方法は、データベーステーブル定義 /LRN/PASSFLIGHT の対応する項目を使用することです。

   3. helper_type 型の定義を次のように設定します。

      ABAP

      Copy codeSwitch to dark mode

      1234567891011
        TYPES: BEGIN OF helper_type,
                 carrier_id     TYPE /lrn/passflight-carrier_id,
                 connection_id  TYPE /lrn/passflight-connection_id,
                 flight_date    TYPE /lrn/passflight-flight_date,
                 plane_type_id  TYPE /lrn/passflight-plane_type_id,
                 seats_max      TYPE /lrn/passflight-seats_max,
                 seats_occupied TYPE /lrn/passflight-seats_occupied,
                 price          TYPE /lrn/passflight-price,
                 currency_code  TYPE /lrn/passflight-currency_code,
               END OF helper_type.
        CLASS-DATA: flights_buffer TYPE TABLE OF helper_type.

5. クイックフィックスを使用して、構造タイプ helper_type の名前を st_flights_buffer に変更します。

   1. TYPES 命令で helper_type にカーソルを置き、Ctrl + 1 を押して利用可能なクイックフィックスの一覧を表示します。

   2. クイックフィックスの一覧から、helper_type の名称変更を選択します。

   3. helper_type が強調表示されている間に、新しい名称 st_flights_buffer を入力します。

6. lcl_passenger_flight のコンストラクタの実装を調整します。SELECT SINGLE 命令の前に、内部テーブル flights_buffer から単一行を読み込みます。コンストラクタのインポートパラメータを使用して、テーブル行を識別します。

   1. メソッドの先頭に、以下のコードを追加します。

      ABAP

      Copy codeSwitch to dark mode

      123
        DATA(flight_raw) = flights_buffer[ carrier_id    = i_carrier_id
                                           connection_id = i_connection_id
                                           flight_date   = i_flight_date ].

7. SELECT SINGLE 命令の INTO 句を調整します。すでに宣言されている構造 flight_raw を再利用し、CORRESPONDING FIELDS OF オプションを追加します。

   1. SELECT SINGLE 命令の INTO 句で、@DATA(flight_raw) を @flight_raw に置き換えます。構文エラーに注意してください。"FLIGHT_RAW" のコンポーネント "CONNECTION_ID" のデータ型は、"SEATS_MAX" のデータ型と互換性がありません (テキスト (長) 参照)。

   2. コードを以下のように調整します。

      ABAP

      Copy codeSwitch to dark mode

      12345678
        SELECT SINGLE
          FROM /lrn/passflight
          FIELDS plane_type_id, seats_max, seats_occupied,
                 price, currency_code
          WHERE carrier_id    = @i_carrier_id
            AND connection_id = @i_connection_id
            AND flight_date   = @i_flight_date
          INTO CORRESPONDING FIELDS OF @flight_raw.

8. 例外処理による flights_buffer への読込アクセスを囲みます。ABAP ランタイムで例外 CX_SY_ITAB_LINE_NOT_FOUND が発生した場合にのみ、データベースからフライトデータを読み込むようにしてください。

   1. コードを以下のように調整します。

      ABAP

      Copy codeSwitch to dark mode

      1234567891011121314
        TRY. 
          DATA(flight_raw) = flights_buffer[ carrier_id    = i_carrier_id
                                             connection_id = i_connection_id
                                             flight_date   = i_flight_date ].
          CATCH cx_sy_itab_line_not_found.
            SELECT SINGLE
              FROM /lrn/passflight
              FIELDS plane_type_id, seats_max, seats_occupied,
                     price, currency_code
              WHERE carrier_id    = @i_carrier_id
                AND connection_id = @i_connection_id
                AND flight_date   = @i_flight_date
              INTO CORRESPONDING FIELDS OF @flight_raw.
       ENDTRY.

9. SELECT 文の後に IF 条件を調整します。システム項目 sy-subrc を確認するのではなく、構造 flight_raw が空でないことを確認してください。

   1. IF sy-subrc = 0. を IF flight_raw IS NOT INITIAL. に置き換えます。

グローバルクラスを有効化してテストします。クラスをコンソールアプリとして実行します。プロファイリングを繰り返して、パフォーマンス改善を測定します。

1. グローバルクラスを有効化し、コンソールアプリとして実行します。

   1. Ctrl + F3 を押してクラスを有効化します。

   2. F9 を押して、クラスをコンソールアプリとして実行します。

2. ABAP プロファイラで実行時測定を開始します。

   1. エディタを右クリックし、Profile As→ABAP Application (Console) を選択します。

   2. トレースパラメータダイアログボックスで、設定を変更せずに終了を選択します。

3. プロファイラパースペクティブに切り替え、トレース概要を分析します。

   1. Window→Perspective→Open Perspective→Other... を選択します。ABAP Profiling を選択し、Open を選択します。

   2. ABAP トレースビューで、ABAP プロジェクトのコンテキストメニューからリフレッシュを選択します。または、ABAP トレースビューの任意の場所にカーソルを置き、F5 を押してトレース結果の一覧を再ロードすることもできます。

   3. 最新のトレースをダブルクリックします (これはプロジェクトの最上部にあるエントリです)。

   4. 全体の実行時間および ABAP とデータベース間の配分が概要の下部セクションに表示されます。

4. トレース詳細を分析して、以下の質問に答えてください。

   1. 最も実行時間が消費された処理ブロックを見つけるには、圧縮該当対象一覧タブに切り替え、8 列目 (% Own Time (Specified and Unspecified ABAP Statements)) の降順で表示をソートします。

   2. 最も負荷の高い SQL 文を検索するには、該当対象一覧タブに切り替えて、表示を % ユーザ時間というラベルの 6 列目の降順でソートします。