Вопрос по команде loop

Gray_

Здравствуйте!
ABAPом занимаюсь недавно появился такой вопрос: каким образом мне можно правильно использовать такую кострукцию и можно ли вобще?

Code:

loop at tab1
  ....
  loop at tab1
  .... (здесь необходимо работать с полями из первого и второго loop-ов)
  endloop
endloop

Тоесть необходимо сравнивать tab1 самим с собой.

sy-uname

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

Здравствуйте!
ABAPом занимаюсь недавно появился такой вопрос: каким образом мне можно правильно использовать такую кострукцию и можно ли вобще?

Можно.

Цитата:

Code:

loop at tab1
  ....
  loop at tab1
  .... (здесь необходимо работать с полями из первого и второго loop-ов)
  endloop
endloop

Тоесть необходимо сравнивать tab1 самим с собой.

Не используйте таблицы с заголовком и внимательно читайте F1 по оператору LOOP. После LOOP AT есть ещё дополнения, которые позволят вам "сравнивать tab1 самим с собой"

Gray_

Спасибо большое за ответ, но я <я не знать русский языка> в ABAP как и песал выше... Если не сложно привидите пример.

slim

Можно попробовать так

Code:

data ls_tab_1 like line of tab1.
data ls_tab_2 like line of tab1.
tab2[] = tab1[].
loop at tab1 into ls_tab_1
  ....
  loop at tab2 into ls_tab_2
  .... (здесь необходимо работать с полями из первого и второго loop-ов)
  endloop
endloop

sy-uname

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

Спасибо большое за ответ, но я <я не знать русский языка> в ABAP как и песал выше... Если не сложно привидите пример.

И что? по F1 есть примеры, по ссылке, что я дал есть примеры.

Code:

Example

Nested LOOP loops without explicit key declaration. The contents of the current row for the outer loop are analyzed in the WHERE-condition for the inner loop.

PARAMETERS p_name TYPE scarr-carrname DEFAULT '*'.

DATA: scarr_tab TYPE SORTED TABLE OF scarr
                WITH UNIQUE KEY carrname,
      spfli_tab TYPE SORTED TABLE OF spfli
                WITH NON-UNIQUE KEY carrid.

FIELD-SYMBOLS <scarr_line> LIKE LINE OF scarr_tab.
DATA spfli_line LIKE LINE OF spfli_tab.

SELECT *
       FROM scarr
       INTO TABLE scarr_tab.

SELECT *
       FROM spfli
       INTO TABLE spfli_tab.

LOOP AT scarr_tab ASSIGNING <scarr_line>
                  WHERE carrname CP p_name.
  LOOP AT spfli_tab INTO spfli_line
                    WHERE carrid = <scarr_line>-carrid.
    WRITE: / spfli_line-carrid,
             spfli_line-connid.
  ENDLOOP.
ENDLOOP.

вроде не должно быть проблем с переложением на Вашу ситуацию.

Gray_

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

Можно попробовать так

Code:

data ls_tab_1 like line of tab1.
data ls_tab_2 like line of tab1.
tab2[] = tab1[].
loop at tab1 into ls_tab_1
  ....
  loop at tab2 into ls_tab_2
  .... (здесь необходимо работать с полями из первого и второго loop-ов)
  endloop
endloop

Спасибо! Просто и понятно.

DKiyanov

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

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

Можно попробовать так

Code:

data ls_tab_1 like line of tab1.
data ls_tab_2 like line of tab1.
tab2[] = tab1[].
loop at tab1 into ls_tab_1
  ....
  loop at tab2 into ls_tab_2
  .... (здесь необходимо работать с полями из первого и второго loop-ов)
  endloop
endloop

Спасибо! Просто и понятно.

на самом деле здесь не надо делать tab2[] = tab1[]. ибо ничто не мешает делать два вложенных лупа по одной и той же таблице.
если таблица без заголовков то "[]" при присвоении излишество

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

Вопрос по команде loop

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