Today, we will be inspecting some cool grouping techniques introduced in ABAP 7.40.
First, let’s get familiar with our context. We will read the table T001K, where BWKEY (valuation area) is the table key, but BUKRS (company code) is repeated multiple times in various lines. Let’s start off by reading this table.
SELECT * INTO TABLE @DATA(gt_t001k) FROM t001k ORDER BY bukrs.
So far so good. Now, our goal is to build a list of unique BUKRS values. Using classical ABAP, this is possible via the COLLECT command.
TYPES:
BEGIN OF t_bukrs,
bukrs TYPE bukrs,
END OF t_bukrs,
tt_bukrs TYPE STANDARD TABLE OF t_bukrs WITH DEFAULT KEY.
DATA:
gs_bukrs TYPE t_bukrs,
gt_bukrs TYPE tt_bukrs.
LOOP AT gt_t001k ASSIGNING FIELD-SYMBOL(<gs_t001k>).
gs_bukrs-bukrs = <gs_t001k>-bukrs.
COLLECT gs_bukrs INTO gt_bukrs.
ENDLOOP.
If we move forward to ABAP 7.40, we can achieve the same result with a better approach:
DATA(gt_bukrs) = CORRESPONDING tt_bukrs( gt_t001k ).
SORT gt_bukrs BY bukrs.
DELETE ADJACENT DUPLICATES FROM gt_bukrs COMPARING bukrs.
However, we can reduce the code even more by using the group command.
DATA(gt_bukrs) = VALUE tt_bukrs(
FOR GROUPS gr1 OF gs_t001k
IN gt_t001k
GROUP BY gs_t001k-bukrs (
bukrs = gr1
) ).
Cool eh? Just one line of code, and you are there!
Things get cooler when you want to do operations by grouping the data in an internal table. For example; you want to write the BWKEY’s corresponding to each BUKRS. Without grouping, you would first build GT_BUKRS, and then write two nested LOOPs to achieve that.
LOOP AT gt_bukrs ASSIGNING FIELD-SYMBOL(<gs_bukrs>).
NEW-LINE.
WRITE AT 1(5) 'Group'.
WRITE AT 7(20) <gs_bukrs>-bukrs.
LOOP AT gt_t001k
ASSIGNING FIELD-SYMBOL(<gs_t001k>)
WHERE bukrs EQ <gs_bukrs>-bukrs.
NEW-LINE.
WRITE <gs_t001k>-bwkey.
ENDLOOP.
ENDLOOP.
However; using the grouping option, you don’t even need to build GT_BUKRS. You can achieve the same goal by using GT_T001K alone.
LOOP AT gt_t001k
INTO DATA(gs_line)
GROUP BY ( gr_bukrs = gs_line-bukrs )
ASCENDING
ASSIGNING FIELD-SYMBOL(<gs_bukrs>).
NEW-LINE.
WRITE AT 1(5) 'Group'.
WRITE AT 7(20) <gs_bukrs>-gr_bukrs.
LOOP AT GROUP <gs_bukrs> ASSIGNING FIELD-SYMBOL(<gs_sub>).
NEW-LINE.
WRITE: <gs_sub>-bwkey.
ENDLOOP.
ENDLOOP.
And voila! This technique can be used for multi level grouping as well. Check the following code sample:
SELECT
ekko~ebeln,
ekpo~ebelp, ekpo~matnr,
eket~etenr, eket~eindt, eket~menge
INTO TABLE @DATA(gt_all)
FROM
ekko
INNER JOIN ekpo ON ekpo~ebeln EQ ekko~ebeln
INNER JOIN eket ON
eket~ebeln EQ ekko~ebeln AND
eket~ebelp EQ ekpo~ebelp
WHERE
ekko~ebeln EQ '5500000026' OR
ekko~ebeln EQ '5500000027'.
LOOP AT gt_all
INTO DATA(gs_1)
GROUP BY ( ebeln = gs_1-ebeln
ebelp = gs_1-ebelp
)
ASCENDING
ASSIGNING FIELD-SYMBOL(<gs_all>).
NEW-LINE.
WRITE:
'Outer loop for ',
<gs_all>-ebeln,
<gs_all>-ebelp.
LOOP AT GROUP <gs_all>
INTO DATA(gs_2)
GROUP BY ( ebeln = <gs_all>-ebeln )
ASCENDING
ASSIGNING FIELD-SYMBOL(<gs_sub>).
NEW-LINE.
WRITE:
'Inner loop for ',
<gs_sub>-ebeln.
ENDLOOP.
ENDLOOP.
GROUP command has many further applications in internal table operations, which I might write in more detail someday. You can check Google or ABAP help for further use.
