ABAP内表操作 - 根据某field的值拆分内表

这个问题碰到过好几次了，感觉也蛮常见的。solution虽然有，但是感觉繁琐，而且效率比较低下。今天好好考虑了下，总结出了一个相对聪明点的。

代码如下：

REPORT  ZTESTSQ.

TYPES: BEGIN OF t_itab1,

          f1  type char1,

          f2  type char1,

        END OF t_itab1.

DATA: itab1 type STANDARD TABLE OF t_itab1 WITH HEADER LINE,

       wa_itab1 type t_itab1,

       wa_itab2 type t_itab1.

DATA: v_flag type char1,

       v_index type sy-tabix,      

       v_count type sy-loopc,       "计数器

       v_itab_length type sy-tfill. "记录内表的行数

*****填充内表*****

 wa_itab1-f1 = 'a'.

 wa_itab1-f2 = '1'.

 APPEND wa_itab1 to itab1.

wa_itab1-f1 = 'a'.

 wa_itab1-f2 = '2'.

 APPEND wa_itab1 to itab1.

wa_itab1-f1 = 'b'.

 wa_itab1-f2 = '3'.

 APPEND wa_itab1 to itab1.

wa_itab1-f1 = 'a'.

 wa_itab1-f2 = '4'.

 APPEND wa_itab1 to itab1.

wa_itab1-f1 = 'b'.

 wa_itab1-f2 = '5'.

 APPEND wa_itab1 to itab1.

wa_itab1-f1 = 'b'.

 wa_itab1-f2 = '6'.

 APPEND wa_itab1 to itab1.

wa_itab1-f1 = 'c'.

 wa_itab1-f2 = '7'.

 APPEND wa_itab1 to itab1.

wa_itab1-f1 = 'c'.

 wa_itab1-f2 = '8'.

 APPEND wa_itab1 to itab1.

*****按照key进行排序，此key用于拆分内表*****

 sort itab1 by f1.

 v_index = 1.

 v_flag = 'X'."用于判断是否已到表底的标识符，X表示未到底。

 v_count = 0.

 *****得到内表的长度*****

 DESCRIBE TABLE itab1 LINES v_itab_length.

 *****如果内表未读到底，则继续。*****

 WHILE v_flag = 'X'.

 *****得到当前行的key值

   read table itab1 into wa_itab2 index v_index TRANSPORTING f1.

 *****从记录位置行开始循环，比较key值，如果相同，则进行操作；如果不同，则记录下此行位置，跳出循环*****

   LOOP AT itab1 FROM v_index.

    if itab1-f1 = wa_itab2-f1.

       write itab1-f1."此处可以进行不同的操作，比如把这些相同key的记录放到另外的地方以便后续处理。

       v_count = v_count + 1.

     else.

       v_index = sy-tabix.

       exit.

     endif.

   ENDLOOP.

   clear wa_itab2.

 **每一次loop结束都能把同一个key的所有记录取出来，所以如果需要对这些记录进行后续操作，可以把代码写这里***

 *因为每次操作内表的一次记录都能让计数器加1，所以如果计数器等于内表的行数，意味着内表的所有记录都被操作过了

 *那么循环结束。如果不等，说明是下一个key值的开始，那么继续返回开始下一个key操作的循环。

   if v_count eq v_itab_length.

     v_flag = space.

   endif.

 ENDWHILE.

 优点：虽然用了子循环，但是由于用了v_index的关系，其实总的来说内表只循环了一次，所以不会影响效率。另外就是一次性把相关操作都完成了。

缺点：把取数据和数据处理整合在一起，可能比较乱,readabilty有点粗糙。

还有种solution：

1，先单独loop内表，只读出key字段的值，并把dupicated的记录去掉，进而构建一张key表。（当然，也可以用at new这个event来做）

2，然后loop这张key表，再去loop内表把相同key的记录读出来，操作。

优点：分开了可能容易读吧（大概）。

缺点：loop套loop啦，效率有点低下，而且代码得写的比较多。