Question

关于abap 如何高效获取内表重复数据?

你好，关于abap 如何高效获取内表重复数据? 你说用at new/endat.请问怎么用，能给段示例代码吗？

Answer 1

AT NEW field是当内表中连续出现不同的field或之前的字段时，执行它与ENDAT之间的语句。一般使用之前需要以字段field及之前的字段为key对内表进行排序。这句话可能很抽象，下面举个例子来说明。

例：

DATA: BEGIN OF wa,

               col01 TYPE char10,

               col02 TYPE char10,

               col03 TYPE char10,

            END OF wa,

            itab LIKE TABLE OF wa.

*  省略初始化内表itab

SORT itab by col01 col02.

LOOP AT itab into wa.

     AT NEW col02.

* 当wa-col01不等于上一条数据的col01的值或者wa-col02不等于上一条数据的col01的值的时候执行

*       由于执行语句AT NEW之后，工作区中类型为char的字段值会变成*，所以在AT NEW之后需要重新读取该条数据

         READ TABLE itab INTO wa INDEX sy-tabix.

 *      省略其它语句

     ENDAT.

ENDLOOP.

如果排序后内表itab中的数据为上图中的数据，则当序号为1、4、8、10时会执行AT NEW和ENDAT之间的语句。

追问

我知道语法，我是想问用他怎样把所有重复数据都取出来例如有两条重复数据，怎么两条都取出来？

追答

能不能举个例子说明一下你想要达到的目的是什么？

追问

例如内表里有A1，A2，A2，A3，A4，A4 ，A4 7条数据，我要将两条A2和三条A4共5条重复数据全部取出。

追答

两条A2中的所有字段的值都一样？
三条A4中的所有字段的值都一样？

追问

是的，也可以只有前3个字段一样

追答

给你一个例子参考一下吧!

运行结果如下：

Answer 2

有一个语法是on change of，可以直接判断字段是否重复。