SAP ABAP Collect的用法与实例（一）

DATA: BEGIN OF gs_tab,
key1 TYPE string,
key2 TYPE string,
v1   TYPE i,
v2   TYPE i,
END OF gs_tab,
gt_tab    LIKE gs_tab OCCURS 0 WITH HEADER LINE,
gt_hastab LIKE HASHED TABLE OF gs_tab WITH UNIQUE KEY key1 key2 WITH HEADER LINE.
DATA gv_count TYPE i.
DO 10 TIMES.
gt_tab-key1 = 1.
IF gv_count < 5.
gt_tab-key2 = 1.
ELSE.
gt_tab-key2 = 2.
ENDIF.
gt_tab-v1 = sy-index.
gt_tab-v2 = sy-index + 1.
APPEND gt_tab.
gv_count = gv_count + 1.
ENDDO.

LOOP AT gt_tab.
COLLECT gt_tab INTO gt_hastab.
ENDLOOP.

WRITE : sy-uline .
WRITE : '内表数据:' .
LOOP  AT  gt_tab.
WRITE : / ' ' ,gt_tab-key1 ,gt_tab-key2,gt_tab-v1, gt_tab-v2.
ENDLOOP .
WRITE : sy-uline .

WRITE : sy-uline .
WRITE : '处理后数据:' .
LOOP  AT  gt_hastab.
WRITE : / ' ' ,gt_hastab-key1 ,gt_hastab-key2,gt_hastab-v1, gt_hastab-v2.
ENDLOOP .
WRITE : sy-uline .

</pre><pre name="code" class="plain">

<span style="background-color: rgb(255, 255, 255);">执行结果如下</span>

<span style="background-color: rgb(255, 255, 255);"><img src="https://img-blog.csdn.net/20161107140346676?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQv/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center" alt="" />
</span>