Как написать цикл в ABAP

knek

Здравствуйте
подскажите, пожалуйста, тоже по циклам - не могу разобраться в чужом коде:

Code:

  LOOP AT ig.
    LOOP AT tb1 INTO wa1 WHERE izdel = ig-plnbez AND monat = ig-monat AND f07 = ''.  ** внешний цикл по tb1
      LOOP AT tb1 WHERE izdel = wa1-komp AND monat = wa1-monat AND f07 NE ''.        *** внутренний цикл по tb1
        READ TABLE tb1 INTO wa2 WITH KEY izdel = wa1-izdel komp = tb1-komp monat = tb1-monat plnbez = wa1-plnbez.
        IF sy-subrc NE 0.
          tb1-izdel = wa1-izdel.
          tb1-izden = wa1-izden.
          tb1-komp = tb1-komp.
          tb1-komn = tb1-komn.
...

1) С каким индексом/порядковым номером (или экземпляром tb1) работает операция присвоения в этом тексте кода, тк. есть внешний и внутренний цикл по tb1?

Code:

tb1-izdel = wa1-izdel.

2) Для чего делается, с виду, присвоение переменной самой себе?

Code:

tb1-komp = tb1-komp.

Bimit

Индусы писали

внешний в рабочую область wa1
внутренний в заголовок tb1

индексов и порядковых номеров в коде не вижу

смысл присвоения самой себе не вижу :roll:

З.Ы, смотрите в отладке и что в постановке написано, может есть смысл уйти от такого большого вложения цикл в цикле

knek

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

Индусы писали

внешний в рабочую область wa1
внутренний в заголовок tb1
индексов и порядковых номеров в коде не вижу
смысл присвоения самой себе не вижу :roll:

благодарю

Malych

Code:

data: n type i.
 read table lt_tab into fs_tab with key X = '5'.
  if sy-subrc ne 0.
   describe table lt_tab lines n. 
   read table lt_tab into fs_tab index n. 
  endif.     
 ls_tab = lt_tab-x.

Malych

На мой взгляд, и цикл не нужен, а также можно и обернуть в цикл...

Code:

data: n type i.
read table lt_tab into fs_tab with key X = '5'.
if sy-subrc ne 0.
describe table lt_tab lines n. 
read table lt_tab into fs_tab index n. 
endif. 
ls_tab = lt_tab-x.

Удав

Malych написал:

Code:

data: n type i.
 read table lt_tab into fs_tab with key X = '5'.
  if sy-subrc ne 0.
   describe table lt_tab lines n. 
   read table lt_tab into fs_tab index n. 
  endif.     
 ls_tab = lt_tab-x.

Бессмыслица какая-то:
1. Таблица отсортирована по ключу X?
2. Зачем нужна именно последняя запись - в поле X не может быть значений больше 5?

Malych

сортировка не причем...

Удав

Malych написал:

сортировка не причем...

как это не при чем?
Простой перебор - не комильфо в серьезных разработках.

Sam Stone

Какой смысл от сортировки, если нет binary search?

RA

Цитата:

Какой смысл от сортировки, если нет binary search?

Цитата:

Please note, the BINARY SEARCH is unnecessary with SORTED TABLES, it is allowed to simplify the switch from standard to sorted tables without need to change all READs.

Sam Stone

RA написал:

Цитата:

Какой смысл от сортировки, если нет binary search?

Цитата:

Please note, the BINARY SEARCH is unnecessary with SORTED TABLES, it is allowed to simplify the switch from standard to sorted tables without need to change all READs.

Но тогда таблицу все равно нет смысла (или даже невозможно?..) отсортировать, если она создана как sorted )

Bimit

Sam Stone написал(а):

Какой смысл от сортировки, если нет binary search?

А как же эстетический

Приятно в отладке смотреть сортированные (правильно) таблицы, а уж BINARY SEARCH всегда можно добавить

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

Как написать цикл в ABAP

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