Выдернуть одинаковые строки из внутренней таблицы

Besa

Никто не знает есть ли ФМ чтобы выдернуть строки из внутренней таблицы с одинаковым значением некоторых столбцов?

Timon&Pumba

Что значит выдернуть?

Besa

[quote="Timon&Pumba"]Что значит выдернуть?[/quote]
Выбрать

111

Не ФМ, а оператор
DELETE ADJACENT DUPLICATES FROM itab
[COMPARING { comp1 comp2 ...}|{ALL FIELDS}]... .

Удаляет только соседние дубликаты (нужно отсортировать предварительно).

Если не удалить, а именно выбрать - немного пошевелить извилинами :lol:

.

Besa

[quote="111"]Не ФМ, а оператор
DELETE ADJACENT DUPLICATES FROM itab
[COMPARING { comp1 comp2 ...}|{ALL FIELDS}]... .

Удаляет только соседние дубликаты (нужно отсортировать предварительно).

Если не удалить, а именно выбрать - немного пошевелить извилинами :lol: .[/quote]
Да, я это понял, сначала удалить дупликаты, потом удалить таблицу с дупликатами из первоначальной таблицы, но если допустим в этой первоначальной таблицы 3 одинаковых строки, удалятся ведь тока две...

111

Besa написал:

Да, я это понял, сначала удалить дупликаты, потом удалить таблицу с дупликатами из первоначальной таблицы, но если допустим в этой первоначальной таблицы 3 одинаковых строки, удалятся ведь тока две...

Нет, просто создать копию первоначальной таблицы, затем из этой копии удалить дубликаты. Затем пойти по первоначальной таблице и построчно сверять ее записи с таблицей без дубликатов.
Если ITEAB1 NE ITAB2, то запись в ITAB1 - дубликат, уже удаленный из ITAB2. Примерно 5 строчек кода.

vga

Можно без копирования таблиц обойтись, чтобы не поймать дамп нехватки памяти на большой таблице. Например:

Code:

DATA: BEGIN OF it OCCURS 0,
        n TYPE i,
      END OF it,
      it2 LIKE TABLE OF it,
      i TYPE i.

DO 100 TIMES.
  it-n = sy-index.
  APPEND it.
  i = sy-index MOD 3.
  IF i IS INITIAL.
    APPEND it.
  ENDIF.
ENDDO.

SORT it BY n.
DESCRIBE TABLE it LINES i.
WHILE NOT i IS INITIAL.
  READ TABLE it INDEX i.
  READ TABLE it WITH KEY n = it-n BINARY SEARCH.
  IF sy-tabix NE i.
    APPEND LINES OF it FROM sy-tabix TO i TO it2.
  ENDIF.
  i = sy-tabix - 1.
ENDWHILE.

Jelena

Если позволяет структура таблицы, то можно еще воспользоваться LOOP и AT NEW field ... AT END OF field. Только для этого сравниваемые поля должны стоять первыми в определении таблицы.

Besa

Всем спасибо.

Правила форума

Выдернуть одинаковые строки из внутренней таблицы

Кто сейчас на конференции