ABAP COLLECT 開發及其相關性質介紹

ABAP Collect是SAP ABAP中最常用的函數之一，其作用是將相同標識的數據行進行組合，並根據一定條件進行匯總。它在查詢、生成報告等方面都有著廣泛的應用。本文將從多個方面對ABAP Collect函數做詳細的闡述，包括其基本用法、應用場景、實現技巧、相關問題等。

一、ABAP Collect基本用法

ABAP Collect函數的基本語法如下：

  COLLECT itab [INTO wa] [AGGREGATING BY (f1 f2 … fn)][ORDER BY (f1 f2 … fn)].

itab：待匯總的內表名稱或者普通表名稱。必須是已經定義的內表或者普通表。

wa：用於存儲匯總結果的記錄名稱。可以是內表或結構體，也可以不指定。如果未指定，則結果保存在itab中。

f1 f2 …fn：用於匯總數據的欄位名稱。可以是結構體內的欄位或普通表內的數據列名稱。

例如：

  DATA wa_result TYPE TABLE OF wa_itab.
  COLLECT wa_itab INTO wa_result AGGREGATING BY (field1 field2) ORDER BY field1.

以上代碼的含義是：將wa_itab中相同field1和field2的數據行進行匯總，並按照field1欄位升序排序，最終結果保存在wa_result表中。

二、ABAP Collect的應用場景

1. 具有相同鍵值的數據分組統計

ABAP Collect函數最常見的應用是對某個欄位進行分組，然後再對該分組進行統計。例如：

  DATA: BEGIN OF wa_itab,
          field1 TYPE field1,
          field2 TYPE field2,
          …
        END OF wa_itab.

  TYPES: BEGIN OF ty_result,
           field1 TYPE field1,
           field2 TYPE field2,
           sum TYPE i,
         END OF ty_result.

  DATA: wa_result TYPE TABLE OF ty_result.

  SELECT field1 field2 sum(amt)
    INTO CORRESPONDING FIELDS OF TABLE wa_result
    FROM itab
    GROUP BY field1 field2.

  LOOP AT wa_result INTO wa.
    COLLECT wa_itab INTO wa_1 AGGREGATING BY (field1 field2).
    wa_1-sum = wa-sum.
    MODIFY wa_itab FROM wa_1 TRANSPORTING sum WHERE field1 = wa_1-field1 AND field2 = wa_1-field2.
  ENDLOOP.

以上代碼實現的功能是：將itab表中相同field1和field2的數據進行匯總，將匯總結果保存在wa_1表中，並將求和結果存儲在wa_1-sum欄位中。

2. 數據去重

通過ABAP Collect函數，可以將相同的記錄合併為一條記錄，從而達到數據去重的目的。如下代碼所示：

  TYPES: BEGIN OF ty_itab,
           customer TYPE string,
           amt      TYPE p LENGTH 10,
         END OF ty_itab.

  DATA: itab TYPE TABLE OF ty_itab,
        res  TYPE TABLE OF ty_itab
            WITH UNIQUE KEY customer amt.

  SELECT-OPTIONS: s_customer FOR itab-customer.

  SELECT itab~customer itab~amt
    FROM table itab
    INTO CORRESPONDING FIELDS OF TABLE res
    WHERE itab~customer IN s_customer.

  LOOP AT res INTO DATA(ls_res).
    COLLECT ls_res INTO itab_aggr AGGREGATING BY (customer amt).
  ENDLOOP.

三、ABAP Collect的實現技巧

1. 按照多列進行匯總

如果需要按照多列進行匯總，則可以使用結構體的方式進行匯總。例如：

  TYPES: BEGIN OF ty_itab,
           customer TYPE string,
           product  TYPE string,
           amt      TYPE p LENGTH 10,
         END OF ty_itab.

  TYPES: BEGIN OF ty_result,
           customer TYPE string,
           product  TYPE string,
           sum      TYPE p LENGTH 10,
         END OF ty_result.

  DATA: wa_result TYPE ty_result,
        itab TYPE TABLE OF ty_itab,
        res  TYPE TABLE OF ty_result.

  SELECT itab~customer itab~product itab~amt
    FROM table itab
    INTO CORRESPONDING FIELDS OF TABLE res
    WHERE itab~customer IN s_customer.

  wa_result-sum = res-amt.
  wa_result-customer = res-customer.
  wa_result-product = res-product.

  COLLECT wa_result INTO itab_aggr AGGREGATING BY (customer product).

以上代碼實現的功能是：將表itab中按照customer和product欄位進行匯總，並將求和結果保存在sum欄位中。

2. 對匯總結果進行排序

通過給ABAP collect函數指定ORDER BY子句，可以對匯總結果進行排序。例如：

  TYPES: BEGIN OF ty_itab,
           customer TYPE string,
           amt      TYPE p LENGTH 10,
         END OF ty_itab.

  TYPES: BEGIN OF ty_result,
           customer TYPE string,
           sum      TYPE p LENGTH 10,
         END OF ty_result.

  DATA: wa_result TYPE ty_result,
        itab TYPE TABLE OF ty_itab,
        res  TYPE TABLE OF ty_result.

  SELECT itab~customer itab~amt
    FROM table itab
    INTO CORRESPONDING FIELDS OF TABLE res
    WHERE itab~customer IN s_customer.

  wa_result-sum = res-amt.
  wa_result-customer = res-customer.

  COLLECT wa_result INTO itab_aggr AGGREGATING BY (customer) ORDER BY customer.

以上代碼實現的功能是：將表itab中的customer欄位進行匯總，並按照customer欄位進行升序排序。

四、 ABAP Collect相關問題解決

1. GROUP BY和AGGREGATE BY使用的區別

它們的區別在於：GROUP BY關鍵字必須在SELECT語句中使用，並且它可以對SELECT語句中的任意欄位進行分組；而AGGREGATE BY關鍵字只能用於COLLECT語句中，並且必須指定需要匯總的欄位。

2. COLLECT混合使用情況下的問題

當我們在同一個程序中已經使用了其他的內表匯總方法（例如SUM）或者某些函數庫中的方法（例如SUMMARY），然後又使用了ABAP Collect函數進行匯總時，會導致結果不正確。

解決方法是：在使用ABAP Collect函數進行匯總時，需要先清空其他匯總方法的結果。

  CLEAR itab_aggr.
  COLLECT itab INTO itab_aggr AGGREGATING BY (customer product) ORDER BY customer product.

3. 處理匯總結果為空的問題

當一個內表中沒有任何記錄時，使用ABAP Collect函數進行匯總會得到一個空結果，這可能導致程序出錯。如果需要避免這種情況，可以使用IF語句或者EXCEPTION來處理。

  COLLECT itab INTO itab_aggr AGGREGATING BY (customer) ORDER BY customer.

  IF sy-subrc  0.
    "do something
  ENDIF.

以上代碼表示：如果itab中的記錄數為0，則將不會執行ABAP Collect函數。

總結

ABAP Collect函數是SAP ABAP編程中最常用的內表匯總方法之一，它能夠對相同鍵值的數據進行合併，實現數據的去重和統計。使用ABAP Collect函數需要注意一些技巧和問題，我們需要根據具體情況進行處理。掌握ABAP Collect函數的使用方法和實現技巧，可以提高編程效率和程序的質量。

原創文章，作者：小藍，如若轉載，請註明出處：https://www.506064.com/zh-tw/n/183407.html