Понадобилось тут реализовать алгорим таким образом, что он содержал 4 абсолютно одинаковых, достаточно больших куска кода.
Некрасиво как-то... да и поддерживать не удобно. Захотелось красиво использовать повторяющийся код.
Варианты:
PERFORM - не работает в классах с одной стороны, и не знает ничего о типах внутри класса с другой. Описывать допольнительно тип из класса, тоже не интересно.
ФМ - т.к. код тупой и не предполагается его где-либо использовать, некрасиво. Опять же типы.
INCLUDE - тоже вариант, но не самый безопасный.
Предлагаемый выход - создать свой метод.
1) Объявляем свой метод внутри класса
*$*$ begin of global - insert your declaration only below this line *-*
METHODS
simple
EXPORTING
MONITOR type rstr_ty_t_monitors
CHANGING
RESULT_PACKAGE type _ty_t_TG_1.
*$*$ end of global - insert your declaration only before this line *-*
2) Создаем реализацию (т.с. самая фишка - нам доступен только метод end_routine или inverse)
Но не все потеряно, мы закрываем метод end_routine просто написав ENDMETHOD.
А ниже пишем реализацию своего класса, которая будет закрываться ENDMETHOD, который нам достался от метода end_routine.
*----------------------------------------------------------------------*
* Method end_routine
*----------------------------------------------------------------------*
* Calculation of result package via end routine
* Note: Update of target fields depends on rule assignment in
* transformation editor. Only fields that have a rule assigned,
* are updated to the data target.
*----------------------------------------------------------------------*
* <-> result package
*----------------------------------------------------------------------*
METHOD end_routine.
*=== Segments ===
FIELD-SYMBOLS:
TYPE _ty_s_TG_1.
DATA:
MONITOR_REC TYPE rstmonitor.
*$*$ begin of routine - insert your code only below this line *-*
... "insert your code here
*-- fill table "MONITOR" with values of structure "MONITOR_REC"
*- to make monitor entries
... "to cancel the update process
* raise exception type CX_RSROUT_ABORT.
"Вызов нашего метода
me->SIMPLE(
* IMPORTING
* MONITOR =
CHANGING
RESULT_PACKAGE = RESULT_PACKAGE
).
ENDMETHOD. "закрываем метод end_routine
"реализация нашего метода
METHOD simple.
FIELD-SYMBOLS:
TYPE _ty_s_TG_1.
DATA:
MONITOR_REC TYPE rstmonitor.
BREAK-POINT.
*$*$ end of routine - insert your code only before this line *-*
ENDMETHOD. "end_routine
upd. Будет работать только если нет ни одной рутины
