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

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

代码如下：

1. TYPES: BEGIN OF t_itab1,
   
2.           f1  TYPE char1,
   
3.           f2  TYPE char1,
   
4.         END OF t_itab1.
   
5. 
   
6. DATA: itab1 TYPE STANDARD TABLE OF t_itab1 WITH HEADER LINE,
   
7.        wa_itab1 TYPE t_itab1,
   
8.        wa_itab2 TYPE t_itab1.
   
9. 
   
10. DATA: v_flag TYPE char1,
    
11.        v_index TYPE sy-tabix,
    
12.        v_count TYPE sy-loopc,       "计数器
    
13.        v_itab_length TYPE sy-tfill. "记录内表的行数
    
14. 
    
15. *****填充内表*****
    
16. wa_itab1-f1 = 'a'.
    
17. wa_itab1-f2 = '1'.
    
18. APPEND wa_itab1 TO itab1.
    
19. 
    
20. wa_itab1-f1 = 'a'.
    
21. wa_itab1-f2 = '2'.
    
22. APPEND wa_itab1 TO itab1.
    
23. 
    
24. wa_itab1-f1 = 'b'.
    
25. wa_itab1-f2 = '3'.
    
26. APPEND wa_itab1 TO itab1.
    
27. 
    
28. wa_itab1-f1 = 'a'.
    
29. wa_itab1-f2 = '4'.
    
30. APPEND wa_itab1 TO itab1.
    
31. 
    
32. wa_itab1-f1 = 'b'.
    
33. wa_itab1-f2 = '5'.
    
34. APPEND wa_itab1 TO itab1.
    
35. 
    
36. wa_itab1-f1 = 'b'.
    
37. wa_itab1-f2 = '6'.
    
38. APPEND wa_itab1 TO itab1.
    
39. 
    
40. wa_itab1-f1 = 'c'.
    
41. wa_itab1-f2 = '7'.
    
42. APPEND wa_itab1 TO itab1.
    
43. 
    
44. wa_itab1-f1 = 'c'.
    
45. wa_itab1-f2 = '8'.
    
46. APPEND wa_itab1 TO itab1.
    
47. 
    
48. *****按照key进行排序，此key用于拆分内表*****
    
49. SORT itab1 BY f1.
    
50. v_index = 1.
    
51. v_flag = 'X'."用于判断是否已到表底的标识符，X表示未到底。
    
52. v_count = 0.
    
53. *****得到内表的长度*****
    
54. DESCRIBE TABLE itab1 LINES v_itab_length.
    
55. *****如果内表未读到底，则继续。*****
    
56. WHILE v_flag = 'X'.
    
57. *****得到当前行的key值
    
58.   READ TABLE itab1 INTO wa_itab2 INDEX v_index TRANSPORTING f1.
    
59. *****从记录位置行开始循环，比较key值，如果相同，则进行操作；如果不同，则记录下此行位置，跳出循环*****
    
60.   LOOP AT itab1 FROM v_index.
    
61.     IF itab1-f1 = wa_itab2-f1.
    
62.       WRITE itab1-f1."此处可以进行不同的操作，比如把这些相同key的记录放到另外的地方以便后续处理。
    
63.       v_count = v_count + 1.
    
64.     ELSE.
    
65.       v_index = sy-tabix.
    
66.       EXIT.
    
67.     ENDIF.
    
68.   ENDLOOP.
    
69.   CLEAR wa_itab2.
    
70. **每一次loop结束都能把同一个key的所有记录取出来，所以如果需要对这些记录进行后续操作，可以把代码写这里***
    
71. *因为每次操作内表的一次记录都能让计数器加1，所以如果计数器等于内表的行数，意味着内表的所有记录都被操作过了
    
72. *那么循环结束。如果不等，说明是下一个key值的开始，那么继续返回开始下一个key操作的循环。
    
73.   IF v_count EQ v_itab_length.
    
74.     v_flag = space.
    
75.   ENDIF.
    
76. ENDWHILE.

复制代码

优点：虽然用了子循环，但是由于用了v_index的关系，其实总的来说内表只循环了一次，所以不会影响效率。另外就是一次性把相关操作都完成了。
缺点：把取数据和数据处理整合在一起，可能比较乱,readabilty有点粗糙。

还有种solution：
1，先单独loop内表，只读出key字段的值，并把dupicated的记录去掉，进而构建一张key表。（当然，也可以用at new这个event来做）
2，然后loop这张key表，再去loop内表把相同key的记录读出来，操作。

优点：分开了可能容易读吧（大概）。
缺点：loop套loop啦，效率有点低下，而且代码得写的比较多。