Архивы ABAP - Страница 3 из 16

Маски в ABAP и SQL

	Файловая система	Open SQL	ABAP
Любое кол-во символов	*	%	*
Один любой символ	?	_	+

Давайте рассмотрим примеры поиска
SQL используется оператор LIKE

SELECT *
       FROM doktl
       WHERE id      = 'SD'      AND
             object  LIKE 'AB%'  AND
             langu   = @sy-langu AND
             typ     = 'E'       
       INTO TABLE @DATA(text_tab)
       UP TO 100 ROWS.

SELECT *

FROM doktl

WHERE id = 'SD' AND

object LIKE 'AB%' AND

langu = @sy-langu AND

typ = 'E'

INTO TABLE @DATA(text_tab)

UP TO 100 ROWS.

Внутренние таблицы ABAP используем оператор CP и NP для:
Чтение по маске:

TYPES: BEGIN OF lty_s_tmp,
    id   type i,
    line type string,
       END OF lty_s_tmp,

    lty_t_tmp TYPE TABLE OF lty_s_tmp WITH DEFAULT KEY.

DATA(lt_data) = VALUE lty_t_tmp(
                        ( id = 1 line = 'data 100 data' )
                        ( id = 2 line = 'data 100* data' )
                        ( id = 3 line = 'data 100##' )
                               ).

LOOP AT lt_data ASSIGNING FIELD-SYMBOL(<ls_data0>) WHERE line CP '*100*' .

ENDLOOP.

TYPES: BEGIN OF lty_s_tmp,

id type i,

line type string,

END OF lty_s_tmp,

lty_t_tmp TYPE TABLE OF lty_s_tmp WITH DEFAULT KEY.

DATA(lt_data) = VALUE lty_t_tmp(

( id = 1 line = 'data 100 data' )

( id = 2 line = 'data 100* data' )

( id = 3 line = 'data 100##' )

LOOP AT lt_data ASSIGNING FIELD-SYMBOL(<ls_data0>) WHERE line CP '*100*' .

ENDLOOP.

Удаление по маске(проверить возможность установить CP NP)
и использовать RANGE

types:
begin of lty_itab,
   str type string,
    other_fields type string,
end of lty_itab.

data:
lt_itab type standard table of lty_itab,
lr_str type range of string,
ls_str like line of lr_str.

ls_str-sign = 'I'.
ls_str-option = 'CP'.
ls_str-low = 'sap*'.
append ls_str to lr_str.

delete lt_itab where str in lr_str.

types:

begin of lty_itab,

str type string,

other_fields type string,

end of lty_itab.

data:

lt_itab type standard table of lty_itab,

lr_str type range of string,

ls_str like line of lr_str.

ls_str-sign = 'I'.

ls_str-option = 'CP'.

ls_str-low = 'sap*'.

append ls_str to lr_str.

delete lt_itab where str in lr_str.

Эскейп символ.

Немного усложним задачу, что если в искомой строке уже будет специальный
символ. Например, мы хотим выбрать строку "В молоке 30% жирности"
Для этого и существуют дополнение ESCAPE. SAP рекомендует использоать символ "#"

Пример:

SELECT  * 
     FROM ZZZ_TEST_TAB INTO TABLE @DATA(lt_result) 
                   WHERE FIELD_1 LIKE '%30#%%' ESCAPE '#'.

SELECT *

FROM ZZZ_TEST_TAB INTO TABLE @DATA(lt_result)

WHERE FIELD_1 LIKE '%30#%%' ESCAPE '#'.

Для внутренних таблиц аналогично, но работает без дополнения:

TYPES: BEGIN OF lty_s_tmp,
    id   type i,
    line type string,
       END OF lty_s_tmp,

    lty_t_tmp TYPE TABLE OF lty_s_tmp WITH DEFAULT KEY.

DATA(lt_data) = VALUE lty_t_tmp(
                        ( id = 1 line = 'data 100 data' )
                        ( id = 2 line = 'data 100* data' )
                        ( id = 3 line = 'data 100##' )
                               ).

LOOP AT lt_data ASSIGNING FIELD-SYMBOL(<ls_data0>) WHERE line CP '*100#**' .

ENDLOOP.

"где #* означает символ *, а последняя * - любое количество символов

LOOP AT lt_data ASSIGNING FIELD-SYMBOL(<ls_data1>) WHERE line CP '*100####' .

ENDLOOP.

TYPES: BEGIN OF lty_s_tmp,

id type i,

line type string,

END OF lty_s_tmp,

lty_t_tmp TYPE TABLE OF lty_s_tmp WITH DEFAULT KEY.

DATA(lt_data) = VALUE lty_t_tmp(

( id = 1 line = 'data 100 data' )

( id = 2 line = 'data 100* data' )

( id = 3 line = 'data 100##' )

LOOP AT lt_data ASSIGNING FIELD-SYMBOL(<ls_data0>) WHERE line CP '*100#**' .

ENDLOOP.

"где #* означает символ *, а последняя * - любое количество символов

LOOP AT lt_data ASSIGNING FIELD-SYMBOL(<ls_data1>) WHERE line CP '*100####' .

ENDLOOP.

Блокировки SAP. Позитивные\Негативные. Пример блокировок

Блокировка - отметка записи в базе данных на время проведения операции(INSERT, UPDATE и т.д.). Служит для предотвращения коллизий при доступе к записи и устанавливается на время операции на уровне БД. SAP для своей системы позволяет создал свою концепцию блокировок, которая позволяет блокировать определенные данные на все время работы транзакции.

Читать далее «Блокировки SAP. Позитивные\Негативные. Пример блокировок»

SELECT во внутренней таблице

Начиная с версии 7.52 ABAP позволяет делать внутреннюю таблицу источником данных.
Существует два варианта выполнения подобного запроса:
1. Выполнение операции на стороне сервера приложений. Работает только с операциями которые поддерживают работу с буфером.

2. Выполнение на стороне базы данных.
Для выполнения второго случая, операция должна поддерживаться самой базой данных. Иначе получаете исключение CX_SY_SQL_UNSUPPORTED_FEATURE. (удалось выполнить только в системе с HANA. Сомневаюсь, что другие БД поддерживают данную операцию)
Читать далее «SELECT во внутренней таблице»

oData Aliases работа с несколькими системами

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

Читать далее «oData Aliases работа с несколькими системами»

Динамический вызов метода бизнес-объекта

При интеграции, частенько надо вызывать классы и объекты из другой системы. Про динамический вызов класса писал ранее . Сейчас рассмотрим вызов бизнес-объекта (транзакция swo1) из другой системы. Хотя, может подобный код пригодится и для вызова в своей.
Создадим ФМ 'Z_DYN_CALL_BO_METHOD', который сможем вызывать удаленно.

FUNCTION Z_DYN_CALL_BO_METHOD.
*IMPORTING
*    VALUE(IV_OBJKEY) TYPE SWO_OBJTYP
*    VALUE(IV_OBJKEY) TYPE SWO_TYPEID OPTIONAL
*    VALUE(IV_METHOD) TYPE SWO_VERB
*TABLES
*    T_CONT TYPE SWCONTTAB

DATA ls_object TYPE swc_object.

swc_create_object ls_object iv_objtype iv_objkey.

IF check sy-subrc IS NOT INITIAL.
    RETURN.
ENDIF.

swc_call_method ls_object iv_method t_cont

ENDFUNCTION.

FUNCTION Z_DYN_CALL_BO_METHOD.

*IMPORTING

* VALUE(IV_OBJKEY) TYPE SWO_OBJTYP

* VALUE(IV_OBJKEY) TYPE SWO_TYPEID OPTIONAL

* VALUE(IV_METHOD) TYPE SWO_VERB

*TABLES

* T_CONT TYPE SWCONTTAB

DATA ls_object TYPE swc_object.

swc_create_object ls_object iv_objtype iv_objkey.

IF check sy-subrc IS NOT INITIAL.

RETURN.

ENDIF.

swc_call_method ls_object iv_method t_cont

ENDFUNCTION.

Читать далее «Динамический вызов метода бизнес-объекта»

Динамическое программирование ABAP. RFC ФМ для вызова методов произвольного класса.

При интеграциях между системами частенько надо получать данные из смежных систем. Самое простое - обернуть метод в RFC ФМ и вызвать его в нужной системе. Это хорошее решение, но что делать если нам нужно вызвать не один метод, а 50 или даже 100. Писать обертку для каждого? Довольно долгое занятие, плюс любое изменение в методе повлечет необходимость дополнительной поддержки этих ФМ. Короче, самое очевидное решение, не всегда самое удобное в конкретном случае.
Один из альтернативных путей решений - динамическое программирование. Это способ тоже не без недостатков, но он может позволить избежать создании сотен лишних ФМ. Если надо вызвать один-два метода, я бы не заморачивался и делал все в обертках.

Задача: Написать RFC функцию которая сможет выполнить произвольный метод любого класса и вернуть результат.
Конечно, все случаи мы не предусмотрим, особенно если классу требуется какое-то сложное создание инстанции, попробуем разобрать базовый подход.
Читать далее «Динамическое программирование ABAP. RFC ФМ для вызова методов произвольного класса.»

Узнать откуда вызвали RFC

Буквально вчера пришлось выяснять как изнутри RFC ФМ узнать систему из которой он вызвался.
Скажу кратко ФМ - 'RFC_SYSTEM_INFO' вызываем его как DESTINATION 'BACK'.
Пример вызова:

DATA lv_rfc TYPE rfcsi.

CALL FUNCTION 'RFC_SYSTEM_INFO' DESTINATION 'BACK'
  rfcsi = lv_rfc.

DATA lv_rfc TYPE rfcsi.

CALL FUNCTION 'RFC_SYSTEM_INFO' DESTINATION 'BACK'

rfcsi = lv_rfc.

Если мы вызовем ФМ таким образом не через RFC то он ничего не возвращает.

или можно вызвать ФМ 'RFC_GET_ATTRIBUTES' тоже вернет информацию о системе

Изменить поведение стандартной кнопки в ALV GRID

Частенько у консультанта возникает желание сделать так, чтобы кнопка была стандартная и располагалась на своем обычном месте, но реакция на нажатие была несколько другоя. Особенно часто это касается кнопки выгрузки, то формуляр нужен немного другой, то какую-то постобработкку сделать и т.д. Для таких целей можно использовать событие before_user_command
Демо пример:
Читать далее «Изменить поведение стандартной кнопки в ALV GRID»

oData использование кэша для хранения данных между вызовами

Предположим, что есть некая гипотетическая ситуация, в ходе которой нужно пойти на некоторый неправильный подход с точки зрения REST. Получить данные в одном методе, а потом использовать их при следующем вызове другого метода. В этом случае можем воспользоваться классом для кэша /ui2/cl_cache_handler

Читать далее «oData использование кэша для хранения данных между вызовами»

oData обновить метаданные сервиса

Когда производятся манипуляции с сущностями oData, необходимо обновить метаданные и очистить кэш. Иначе рискуете работать с неактуальной версией сервиса.
1. Транзакция 1. /IWFND/MAINT_SERVICE - Активация и ведение сервисов

Выбираем строку с нашим сервисом и жмем "Загрузить метаданные"