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>