Архивы 7.40

Оператор FILTER

ABAP 7.4 вышел уже очень давно, однако, его операторы мало кто использует. Рассмотрим сегодня оператор FILTER который позволяет выбирать данные из одной внутренней таблицы в другую по ключам.
Читать далее «Оператор FILTER»

Mesh или немного синтаксического сахара.

Mesh - это специальный тип который представляет собой связанные внутренние таблицы(узлы). Структура в целом похожа на структуру БД.
Mesh появился в ABAP 7.40 бла-бла-бла... Основная проблема в том ,что он не прижился, возможно из-за слабой осведомленности разработчиков, возможно из-за не перспективности подхода. Однако, в некоторых случаях данная концепция ложится довольно хорошо.

Читать далее «Mesh или немного синтаксического сахара.»

Операторы SWITCH .. COND..

В abap давно уже есть функциональные операторы SWITH и COND которые являются альтернативой CASE и IF соответственно.
Операторы умеют определять возвращаемый тип из контекста. Если это не возможно, необходимо указать его в ручную.
Также возможно использование LET.
Пример с IF:

if lv_a > 0.
  data(lv_result_1) = 1.
elseif lv_a < 0.
  lv_result_1 = 2.
  else.
    lv_result_1 = 0.
endif.

if lv_a > 0.

data(lv_result_1) = 1.

elseif lv_a < 0.

lv_result_1 = 2.

else.

lv_result_1 = 0.

endif.

Заменим на COND:

data(lv_result_1_new) = cond i( when lv_a > 0  then 1
                             when lv_a < 0 then 2
                            else 0 )  .

data(lv_result_1_new) = cond i( when lv_a > 0 then 1

when lv_a < 0 then 2

else 0 ) .

Пример с CASE:

case lv_b.
  when 'A'.
    data(lv_result_2) = 'First'.
  when 'B'.
       lv_result_2 = 'Second'.
  when others.
    lv_result_2       = 'Others'.
 endcase.

case lv_b.

when 'A'.

data(lv_result_2) = 'First'.

when 'B'.

lv_result_2 = 'Second'.

when others.

lv_result_2 = 'Others'.

endcase.

Замена на SWITH:

DATA(lv_result_2_new) = switch #( lv_b
                                 when 'A' then 'First'
                                 when 'B' then 'Second'
                                 else  'Others'
                                ).

DATA(lv_result_2_new) = switch #( lv_b

when 'A' then 'First'

when 'B' then 'Second'

else 'Others'

Пример использования cond

boolc и xsdbool ABAP

В abap 7.40 появились новые логические функции boolc() и xsdbool() они определяют истинность логического выражения в аргументе boolc( логическое выражение )/ xsdbool ( логическое выражение ).
Отличаются тем, что boolc( ) имеет тип данных "С" в качестве возвращаемого параметра, а xsdbool() возвращает тип abap_bool.

Пример:

"
method example.

  ......
  if sy-subrc = 0 and lv_a = lv_b.
    rv_result = abap_true.
  endif.

endmethod.

method example.

......

if sy-subrc = 0 and lv_a = lv_b.

rv_result = abap_true.

endif.

endmethod.

Тоже самое с использованием xsdbool():

"

method example_xsdbool.

  ......
    rv_result = xsdbool( sy-subrc = 0 and lv_a = lv_b ).

endmethod.

method example_xsdbool.

......

rv_result = xsdbool( sy-subrc = 0 and lv_a = lv_b ).

endmethod.

Еще удобно можно передавать результат на вход метода.

report zhr_pau_test.

class lcl_example definition.
  public section.
  methods example importing iv_bool_par type abap_bool.
endclass.

class lcl_example implementation.
  method example.
    ".....text module
  endmethod.
endclass.

start-of-selection.

data(go_obj_example) = new lcl_example( ).
go_obj_example->example( iv_bool_par = xsdbool( sy-subrc = 0 ) ).

report zhr_pau_test.

class lcl_example definition.

public section.

methods example importing iv_bool_par type abap_bool.

endclass.

class lcl_example implementation.

method example.

".....text module

endmethod.

endclass.

start-of-selection.

data(go_obj_example) = new lcl_example( ).

go_obj_example->example( iv_bool_par = xsdbool( sy-subrc = 0 ) ).