ABAP SQL でのデータセットのソートおよび圧縮

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

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

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

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

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

   4. Next を選択します。

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

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

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

ローカルクラス LCL_PASSENGER_FLIGHT で、メソッド GET_FLIGHTS_BY_CARRIER の実装を調整します。適切な指示を追加して、フライト日付別に昇順で順序付けられたフライトの一覧を取得します。次に、ローカルクラス LCL_CARGO_FLIGHT でも同じ処理を行います。

1. ローカルクラス LCL_PASSENGER_FLIGHT で、メソッド GET_FLIGHTS_BY_CARRIER の実装にナビゲートします。

   1. 前と同じ方法でこのステップを実行します。

2. SELECT 文を調整して、フライト日付で昇順にソートされた結果がデータベースから返されるようにします。

   1. INTO 句の前に ORDER BY 句を追加します。

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

      ABAP

      Copy codeSwitch to dark mode

      1234567891011121314151617
        SELECT
          FROM /lrn/passflight
          FIELDS carrier_id, connection_id, flight_date,
                 plane_type_id, seats_max, seats_occupied,
                 seats_max - seats_occupied AS seats_free,
                 currency_conversion(
                   amount             = price,
                   source_currency    = currency_code,
                   target_currency    = @currency,
                   exchange_rate_date = flight_date,
                   on_error           =
                     @sql_currency_conversion=>c_on_error-set_to_null
                                    ) AS price,
                 @currency AS currency_code    
          WHERE carrier_id = @i_carrier_id
          ORDER BY flight_date ASCENDING
          INTO TABLE @flights_buffer.

3. ローカルクラス LCL_CARGO_FLIGHT のメソッド GET_FLIGHTS_BY_CARRIER にナビゲートします。

   1. 前と同じ方法でこのステップを実行します。

4. SELECT 文を調整して、フライト日付で昇順にソートされた結果がデータベースから返されるようにします。

   1. INTO 句の前に ORDER BY 句を追加します。

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

      ABAP

      Copy codeSwitch to dark mode

      12345678
        SELECT
          FROM /lrn/cargoflight
          FIELDS carrier_id, connection_id, flight_date,
                 plane_type_id, maximum_load, actual_load, load_unit,
                 airport_from_id, airport_to_id, departure_time, arrival_time
          WHERE carrier_id = @i_carrier_id
          ORDER BY flight_date ASCENDING
          INTO CORRESPONDING FIELDS OF TABLE @flights_buffer.

ローカルクラス LCL_CARRIER で、メソッド GET_AVERAGE_FREE_SEATS の実装を調整します。すべての乗客フライトのループで結果を計算する代わりに、データベーステーブル /LRN/PASSFLIGHT の SELECT を使用して計算を行います。

1. ローカルクラス LCL_CARRIER で、メソッド GET_AVERAGE_FREE_SEATS の実装にナビゲートします。

   1. 前と同じ方法でこのステップを実行します。

2. メソッド実装のソースコードを削除またはコメントします。

   1. METHOD get_average_free_seats. 命令と ENDMETHOD. 命令の間のコードをマークし、Ctrl + < を押します。

3. ここで、現在の航空会社の空席と乗客フライト数の合計を取得する SELECT 文を実装します。これは、carrier_id 属性に保存されます。インライン宣言データオブジェクト (推奨名: aggregates) に結果を格納します。

   1. 以下のコードを追加します。

      ABAP

      Copy codeSwitch to dark mode

      12345
        SELECT FROM /lrn/passflight
          FIELDS SUM( seats_max - seats_occupied ) AS sum, 
                 COUNT(*) AS count
          WHERE carrier_id = @carrier_id
          INTO @DATA(aggregates).

4. SELECT 文の後、2 つの集約の比率を計算し、その結果をリターンパラメータ r_result に割り当てます。

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

      ABAP

      Copy codeSwitch to dark mode

      1234567
        SELECT FROM /lrn/passflight
          FIELDS SUM( seats_max - seats_occupied ) AS sum,
                 COUNT(*) AS count
          WHERE carrier_id = @carrier_id
          INTO @DATA(aggregates).
      
        r_result = aggregates-sum / aggregates-count.

      注記

      GET_AVERAGE_FREE_SEATS メソッドをさらに簡潔に実装するには、以下のコードを使用します。

      ABAP

      Copy codeSwitch to dark mode

      1234
        SELECT FROM /lrn/passflight
          FIELDS CAST( AVG( seats_max - seats_occupied ) AS INT4 )
          WHERE carrier_id = @carrier_id
          INTO @r_result.

5. グローバルクラスをコンソールアプリとして有効化してテストします。

   1. Ctrl + F3 を押します。

   2. F9 を押します。