ABAP内表重复记录标记问题：sy-tabix无法按分组计数

原代码的问题 #

• 使用GROUP BY的外层LOOP是按分组迭代，而非遍历组内的每条数据，因此sy-tabix是全局的分组序号，不会在每个分组内重置为1。
• 代码末尾强行将lv_duplicate设为空字符串，导致前面的赋值逻辑完全失效，无法保留重复标记。

解决方案1：传统排序跟踪法（兼容所有ABAP版本） #

先按分组字段排序，通过辅助变量跟踪当前分组，统计组内的行序号，标记第2条及以后的记录为重复：

SORT result_package STABLE BY knumh zzklfn1.

DATA: lv_current_knum TYPE result_package-knum,
      lv_group_count TYPE i.

LOOP AT result_package ASSIGNING <result_fields>.
  " 切换到新分组时重置计数
  IF <result_fields>-knum <> lv_current_knum.
    lv_current_knum = <result_fields>-knum.
    lv_group_count = 1.
    <result_fields>-lv_duplicate = ''. " 组内第一条标记为非重复
  ELSE.
    lv_group_count = lv_group_count + 1.
    " 组内第2条及以后标记为重复
    IF lv_group_count > 1.
      <result_fields>-lv_duplicate = 'X'.
    ENDIF.
  ENDIF.
ENDLOOP.

解决方案2：ABAP 7.40+分组循环法 #

利用ABAP 7.40及以上版本的分组循环特性，直接遍历每个分组内的所有元素，在组内独立计数：

SORT result_package STABLE BY knumh zzklfn1.

LOOP AT result_package ASSIGNING <result_fields>
    GROUP BY ( knum = <result_fields>-knum ) INTO DATA(grp).
  DATA(lv_group_count) = 0.
  " 遍历当前分组内的每一行
  LOOP AT GROUP grp ASSIGNING <result_fields>.
    lv_group_count = lv_group_count + 1.
    " 根据组内序号标记重复
    <result_fields>-lv_duplicate = COND #( WHEN lv_group_count > 1 THEN 'X' ELSE '' ).
  ENDLOOP.
ENDLOOP.

关键说明 #

• 两种方法都需要先按knum（分组字段）排序，确保同组数据连续排列。
• 标记逻辑的核心是在分组内统计行序号，而非使用全局的sy-tabix。
• 建议将lv_duplicate字段添加到内表结构中，才能将标记结果持久化到每条记录里。

内容的提问来源于stack exchange，提问作者trapvader23