要删除内部表中的相邻重复项,可以使用以下命令-
DELETE ADJACENT DUPLICATE ENTRIES FROM <itab> [COMPARING <f1> <f 2> ... |ALL FIELDS].
另外,请请看以下几点-
系统从内部表<itab>中删除所有相邻的重复条目。如果条目满足以下比较条件之一,则它们是重复的:
如果不添加COMPARING,则表的关键字段的内容在两行中必须相同。
如果使用加法COMPARING <f1> <f 2> ...,则指定字段<f 1> <f 2> ...的内容在两行中必须相同。您还可以动态地将字段<fi>指定为(<ni>)形式的字段<ni>的内容。如果在执行该语句时<ni>为空,则将其忽略。您可以通过指定偏移量和长度来将搜索限制为部分字段。
如果使用附加的比较所有字段,则两行所有字段的内容必须相同。
如果表按照指定的比较条件排序,则可以使用此语句从内部表中删除所有重复的条目。
如果删除至少一行,则系统将SY-SUBRC设置为0,否则设置为4。
DATA: BEGIN OF LINE, COL1 TYPE I, COL2 TYPE I, END OF LINE. DATA ITAB LIKE HASHED TABLE OF LINE WITH UNIQUE KEY COL1. DO 4 TIMES. LINE-COL1 = SY-INDEX. LINE-COL2 = SY-INDEX ** 2. INSERT LINE INTO TABLE ITAB. ENDDO. LINE-COL1 = 1. DELETE TABLE ITAB: FROM LINE, WITH TABLE KEY COL1 = 3. LOOP AT ITAB INTO LINE. WRITE: / LINE-COL1, LINE-COL2. ENDLOOP.
输出结果
输出是-
2 4 4 16
该程序将用平方数列表填充哈希表。DELETE语句从表中删除键字段COL1具有内容1或3的行。
DATA: BEGIN OF LINE, COL1 TYPE I, COL2 TYPE I, END OF LINE. DATA ITAB LIKE HASHED TABLE OF LINE WITH UNIQUE KEY COL1. DO 4 TIMES. LINE-COL1 = SY-INDEX. LINE-COL2 = SY-INDEX ** 2. INSERT LINE INTO TABLE ITAB. ENDDO. DELETE ITAB WHERE ( COL2 > 1 ) AND ( COL1 < 4 ). LOOP AT ITAB INTO LINE. WRITE: / LINE-COL1, LINE-COL2. ENDLOOP.
输出结果
输出是-
1 1 4 16
该程序将用平方数列表填充哈希表。DELETE语句删除表中字段COL2的内容大于1且字段COL1的内容小于4的行。