Полезные трюки ABAP

LAT

nicky555 написал:

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

А в чем прикол? Просто в использовании одной и той же таблицы или в каких-то спецэффектах?
UPDATE. Сразу дополню. Имхо, опасный подход. Например, выполним:

Code:

DATA: t_usr02 TYPE TABLE OF usr02.

SELECT bname FROM usr01 INTO CORRESPONDING FIELDS OF TABLE t_usr02.
BREAK-POINT.
SELECT * FROM usr02 INTO TABLE t_usr02
FOR ALL ENTRIES IN t_usr02
WHERE bname = t_usr02-bname AND aname = 'SAP*'.
BREAK-POINT.

На первом брейк-поинте во внутренней таблице все bname, после второго их становится [в системе, где запускаю] значительно меньше. Этот пример просто для иллюстрации: одно неверное движение в where второго селекта - и в "универсальной" таблице потеряются записи.

nicky555

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

nicky555 написал:

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

А в чем прикол? Просто в использовании одной и той же таблицы или в каких-то спецэффектах?
UPDATE. Сразу дополню. Имхо, опасный подход. Например, выполним:

Code:

DATA: t_usr02 TYPE TABLE OF usr02.

SELECT bname FROM usr01 INTO CORRESPONDING FIELDS OF TABLE t_usr02.
BREAK-POINT.
SELECT * FROM usr02 INTO TABLE t_usr02
FOR ALL ENTRIES IN t_usr02
WHERE bname = t_usr02-bname AND aname = 'SAP*'.
BREAK-POINT.

На первом брейк-поинте во внутренней таблице все bname, после второго их становится [в системе, где запускаю] значительно меньше. Этот пример просто для иллюстрации: одно неверное движение в where второго селекта - и в "универсальной" таблице потеряются записи.

Ну, коллега, зачем же сразу так уничижительно? :lol:

Мы же все-таки на форуме, подразумевающем профессионально-уважительное отношение друг к другу.
Из описаний модераторов я понял, что в этой ветке публикуются вещи, показавшиеся авторам-разработчикам на АВАР необычными и забавными. Если вас не вдохновил мой пост, зачем же сразу высказывать свое "фи"? Как говорит мой хороший знакомый, "на вкус и цвет все фломастеры разные". :lol:

И, кстати, было бы удивительно, при наложении дополнительных ограничений на выборку, получить в результате то же количество записей. :roll:

Хотя, "неверным движением" это назвать сложно. Скорее, "осознанное ограничение".

LAT

Это ни в коем случае не "фи". Просто посчитал своим долгом

указать на особенность приема: он подходит, если нужно сузить (заиннерджойнить) выборку; а вот если нужно сделать довыборку в ту же таблицу (залефтджойнить) - тут могут появиться сюрпризы. Особенно, если внезапно потеряется парочка из нескольких тысяч записей

.

troy

nicky555 написал:

было бы удивительно, при наложении дополнительных ограничений на выборку, получить в результате то же количество записей

+1.
Это не "потенциально опасный" пример использования (с доп.ограничениями), а наоборот, очень даже удобный.
Сам часто так делаю.

UKY

CASE можно использовать так:

Code:

CASE 'X'.
  WHEN rb1.
     " IF rb1 = 'X'.
  WHEN rb2.
     " IF rb2 = 'X'.
ENDCASE.

Особенно удобно, когда rb1 и rb2 - это RADIOBUTTON.

e.savitskij

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

CASE можно использовать так:

Code:

CASE 'X'.
  WHEN rb1.
     " IF rb1 = 'X'.
  WHEN rb2.
     " IF rb2 = 'X'.
ENDCASE.

Особенно удобно, когда rb1 и rb2 - это RADIOBUTTON.

Прямо так скажем, RADIOBUTTON - единственный случай, когда такая конструкция будет работать 100% правильно

Orgazm

e.savitskij написал:

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

CASE можно использовать так:

Code:

CASE 'X'.
  WHEN rb1.
     " IF rb1 = 'X'.
  WHEN rb2.
     " IF rb2 = 'X'.
ENDCASE.

Особенно удобно, когда rb1 и rb2 - это RADIOBUTTON.

Прямо так скажем, RADIOBUTTON - единственный случай, когда такая конструкция будет работать 100% правильно

Ну почему единственный.
Вдруг есть какой нибудь набор флагов и нужно выяснить, какой именно установлен. Если их больше 2, определенно

Code:

case 'X'

удобная вещь

UKY

Оказывается, в SELECT можно фильтровать по полям таблицы БД той же строки БД:

Code:

SELECT carrid connid fldate 
       FROM sflight 
       INTO CORRESPONDING FIELDS OF TABLE sflight_tab 
       WHERE seatsocc > sflight~seatsmax. 

При выборке SELECT *, если в условиях выборки есть EXISTS, то выбираются все поля из таблицы, а не только нужные…

Чтобы удалить строку табицы в LOOP’е по вторичному ключу, нужно писать ключевое слово LOOP_KEY:

Code:

  LOOP AT mct_where_buf ASSIGNING <ls_where_buf>
                        USING KEY key_ref
                        WHERE key_ref = ir_buf.
    DELETE mct_where_buf USING KEY LOOP_KEY.
  ENDLOOP.

UKY

Кто-нибудь знает, зачем может пригодится написать такой код?

Code:

  TRY.
    sy-tabix = 1 / 0.
  ENDTRY.

Почему можно писать TRY без CATCH или CLEANUP?
EXIT, CHECK выходят не из TRY, а из всего блока.

Или это просто баг и не нужно об этом думать?

peper-

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

Кто-нибудь знает, зачем может пригодится написать такой код?

Code:

  TRY.
    sy-tabix = 1 / 0.
  ENDTRY.

Почему можно писать TRY без CATCH или CLEANUP?
EXIT, CHECK выходят не из TRY, а из всего блока.

Или это просто баг и не нужно об этом думать?

http://help.sap.com/abapdocu_740/en/abaptry.htm

Цитата:

If a class-based exception is raised in the TRY block, the system searches for an exception handler in the same TRY control structure or in an external structure (see System Behavior).

Так что это "не баг, а фича". :-)

olegbash

Заметил следующее

Code:

" отрабатывает неправильно - записи не удаляются
"delete ltf_table1 WHERE BUKRS ne wa1-bukrs and VBRK_KUNRG ne wa1-kunrg.

Code:

" правильное удаление записей
delete ltf_table1 WHERE BUKRS ne wa1-bukrs .
IF sy-subrc = 0.        ENDIF.
delete ltf_table1 WHERE VBRK_KUNRG ne wa1-kunrg.
IF sy-subrc = 0.        ENDIF.

Буду очень признателен, если поясните, почему 1ый способ записи не удаляет (то, что он не удаляет - убедился сам

).
Возможно, его как-то нужно преобразовать.

Кодер

olegbash
1) покажите структуру внутр. таблы
2) покажите исход. набор данных
3) укажите что из п2 не удалялось и при каких условиях удаления

Потому что эти два варианта делают совершенно разные вещи
вариант 1) убирает те строки, в которых И БЕ И KUNRG не совпадают с значением фильтра
вариант 2) убирает сперва строки с несовпадающей БЕ, а затем - строки с несовпадающей KUNRG
Удаляемые данные в вариантах 1 и 2 - разные. В варианте 1 набор данных, который может быть удален, меньше чем в варианте 2

olegbash

Спасибо большое за пояснение.
Возможно, я действительно, из виду упустил and <> or. Хотя коллегам показывал, мол покажите, в чем я не прав.
в тот период в системе было обновление ядра; дружно списали на это :-)

пример я себе оставил для прояснения на будущее.

по ответам на вопросы
types: begin of t_table
....
BUKRS type BUKRS
...
VBRK_KUNRG type KUNRG
....
end of t_table.

data: ltf_table1 TYPE STANDARD TABLE OF t_table.

с данными сложнее :-)

- по памяти.
стр1 BUKRS=[4000] VBRK_KUNRG=[200101]
стр2 BUKRS=[4000] VBRK_KUNRG=[200102]
стр3 BUKRS=[4000] VBRK_KUNRG=[200103]
стр4 BUKRS=[4000] VBRK_KUNRG=[200104]
стр5 BUKRS=[4000] VBRK_KUNRG=[200105]
стр5 BUKRS=[5000] VBRK_KUNRG=[200105]

Цель: оставить запись только с одной какой-то комбинацией, например 4000/200101.

1ый вариант вообще никак несреагировал - ничего не удалил. Хотя данные на основе, которых идет удаление (wa1) содержат
2ой вариант после 2го шага оставил запись
стр1 BUKRS=[4000] VBRK_KUNRG=[200101]

olegbash

так как тема про трюки; вот, что я полезным нашел
1 - в ABAP-отладчике появилась возможность просматривать данные внутренней таблице в ALV-отчете. Для этого перейти на вкладку "Таблицы", правой кнопкой мыши по данным -> Стандарт -> Просмотр данных в ALV

2- в LOOP можно сразу определять и использовать field-symbol.

Code:

LOOP AT <itab> ASSIGNING FIELD-SYMBOL(<line>). 
  ... 
ENDLOOP. 

3 - в отладчике можно сохранять точки останова через сеанс в локальный файл; выйти из системы и загрузить их снова. не надо тыкаться по каждой строке.

4 - две функции в отладчике "Перейти к оператору" (shift+F12) переходит к нужной строке кода (как наверх, так и вниз) без выполнения; и "выполнить до курсора" - переходит до указанного места в коде с выполнением кода.

Кодер

olegbash: вы не указали значение фильтра. Какие значения были у wa1-bukrs и wa1-kunrg?

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

Полезные трюки ABAP

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