Сравнение таблиц

РМщик

Задача.
Дано две таблицы с одинаковой структурой.
Необходимо проставить индикатор в тех строчках
таблиц, которые одинаковы и в 1-й, и во 2-й таблице.

Т.е.

Code:

DATA:  Begin of itab1 OCCURS 0,
             ch,
             matnr like mara-matnr,
           end of itab1,
           Begin of itab2 OCCURS 0,
             ch,
             matnr like mara-matnr,
           end of itab2.

loop at itab1.
     loop at itab2 where
                matnr = itab1-matnr
               and ch = space.
        itab2-ch = 'X'.
        itab1-ch = 'X'.
        modify itab2.
     endloop.
    modify itab1.
endloop.

и вроде просто, если бы не КРАЙНЯЯ медлительность
на больших объемах данных...

Собственно вопрос: Как лучше оптимизировать данную задачу?
Через таблицы с ключами, через field-symbols, и т.д.......

Заранее всем спасибо.

author

можно попробовать READ TABLE вместо внутренного цикла
или внутреннюю таблицу сделать сортированной по ключам
+ field-symbols

ArmAnn

Первое что приходит в голову - можно отсортировать вторую табличку и вместо вложенного цикла использовать read table ... binary search.
Либо вторую таблицу можно попробовать сделать хешированной, и опять таки read table

РМщик

сейчас буду всё попробовать....

о результатах - доложу

ArmAnn

ждем-с

Loyso

С индексами главное не запутаться:))))

Вот что меня бесит в АБАПе, это то, что можно внутри LOOP-а удалить строку, на которой сейчас "стоишь", а потом, если ещё раз попробовать её удалить, то удаляется следующая строчка:((((. Один раз попался...

sibrin

РМщик написал(а):

Дано две таблицы с одинаковой структурой.

matnr могут дублироваться в одной таблице?

РМщик

sibrin написал:

РМщик написал(а):

Дано две таблицы с одинаковой структурой.

matnr могут дублироваться в одной таблице?

да, могут. Как раз задача чтобы не было отметок 1:N ,
а именно 1:1

sibrin

ABAP, конечно, не С++. Циклы как правило работают медленно.
Но в качестве эксперимента предлагаю попробовать следующее:

Code:

field-symbols: <t1> like line of itab1,
               <t2> like line of itab2.

data: i1 type i, i2 type i, max1 type i, max2 type i.

describe table itab1 lines max1.
describe table itab2 lines max2.
sort itab1 by matnr.
sort itab2 by matnr.

i1 = '1'.
i2 = '1'.
   read table itab1 index i1 assigning <t1>.
   read table itab2 index i2 assigning <t2>.
do.
   if i1 > max1 or i2 > max2. exit. endif.
   if <t1>-matnr = <t2>-matnr.
      <t1>-ch = 'X'. <t2>-ch = 'X'.
      i1 = i1 + 1. i2 = i2 + 1.
      read table itab1 index i1 assigning <t1>.
      read table itab2 index i2 assigning <t2>.
   elseif <t1>-matnr > <t2>-matnr.
      i2 = i2 + 1.
      read table itab2 index i2 assigning <t2>.
   else.
      i1 = i1 + 1.
      read table itab1 index i1 assigning <t1>.
   endif.
enddo.

Причём порядок сравнения (= > или < >) следует выбирать в зависимиости от условий задачи: 2 совпадения из 10000 записей или же, наоборот, отличие только в двух строках.

sibrin

У меня получилось, что время только на расставление крестиков в цикле в 2 раза больше, чем READ TABLE ... BINARY SEARCH.

Однако, если учесть время на заполнение sorted table, то результаты примерно одинаковы.

Ich Will

sibrin написал:

ABAP, конечно, не С++. .....

этот алгоритм напоминает симетричную разность ...

РМщик

вообщем заменил второй loop на read
и добавил assigning и в loop и в read

Раньше работало 3.5 часа,
теперь 1.5 часа....

так что лучше конечно, но далеко до идеала

Но всем, особенно sibrin - биг сэнкс!

author

теперь сортируй табличку и делай READ TABLE ... BINARY SEARCH
и будет тебе счастье

Snegurenok

loop at itab1.
itab2-ch = 'X'.
modify itab2 transporting ch
where
matnr = itab1-matnr
and ch = space.

check sy-subrc = 0.
itab1-ch = 'X'.
modify itab1.
endloop.

РМщик

author написал(а):

теперь сортируй табличку и делай READ TABLE ... BINARY SEARCH
и будет тебе счастье

огромное спасибо!!! стало 40 секунд!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!

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

Сравнение таблиц

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