Как быстрее скопировать поля из таблицы A в B?

Валерка

На входе есть таблица A неизвестной структуры.
Нужно скопировать в таблицу B поля, которые есть и в A и в B.
Как это сделать наиболее быстро?

На текущем этап я делаю просто:

Code:

        
          LOOP AT <itPos> INTO <waPos>.
              LOOP AT it_FCshare ASSIGNING <wa_FCshare>.
                ASSIGN COMPONENT <wa_FCshare>-FIELDNAME
                    OF STRUCTURE waIT_POS TO <fsTo>.
                IF sy-subrc = 0.
                  ASSIGN COMPONENT <wa_FCshare>-FIELDNAME
                      OF STRUCTURE <waPos> TO <fsFrom>.
                  IF sy-subrc = 0.
                    <fsTo> = <fsFrom>.
                  ELSE.
                    ASSIGN COMPONENT <wa_FCshare>-FIELDNAME
                        OF STRUCTURE <waHead> TO <fsFrom>.
                    IF sy-subrc = 0.
                      <fsTo> = <fsFrom>.
                    ELSE.
                      CLEAR <fsTo>.
                    ENDIF.
                  ENDIF.
                  APPEND waIT_POS TO IT_POS.
                ENDIF.
             ENDLOOP.
        ENDLOOP.

Какие есть предложения по улучшению?

RA

MOVE-CORRESPONDING

vahtang

Может быть так:

Code:

DATA:
  a TYPE TABLE OF mseg,
  b TYPE TABLE OF bseg.

FIELD-SYMBOLS:
  <fs_a> TYPE data,
  <fs_b> TYPE data.

LOOP AT a ASSIGNING <fs_a>.
  APPEND INITIAL LINE TO b ASSIGNING <fs_b>.
  MOVE-CORRESPONDING <fs_a> TO <fs_b>.
ENDLOOP.

Валерка

RA написал:

MOVE-CORRESPONDING

Он требует, чтобы структуры были типизированы. В моем случае таблица A нетипизирована.

Всё упирается в эту нетипизированность.

Parazit

Валерка написал(а):

RA написал:

MOVE-CORRESPONDING

Он требует, чтобы структуры были типизированы. В моем случае таблица A нетипизирована.

Всё упирается в эту нетипизированность.

Значит у вас система 4.6.
Используйте свой начальный код.

Besa

http://sapboard.ru/forum/viewtopic.php?f=13&t=59842&start=0

Валерка

Почитав, и проведя тесты пришел к выводу, что нужно заменить

Цитата:

ASSIGN FIELDNAME

на

Цитата:

ASSIGN INDEX

что дает выигрыш в скорости в 2-3 раза.

Так что переделал на ASSIGN через индексы. Сначало определяю индексы откуда->куда, а потом делаю ASSIGN по индексам

__Gennady

Можно еще попробовать:
create data wa_table1 type line of...
create data wa_table2 type line of...

loop at tab2 into <wa_tab1>.
move-corresponding <wa_tab1> to <wa_tab2>.
...
endloop.

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

Как быстрее скопировать поля из таблицы A в B?

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