Выход из Функционального модуля.

skaa

Здравствуйте!
Подскажите возможно ли такое.
Функциональный модуль вызывается в программе в цикле 10 раз. В теле самого функционально модуля находится подпрограмма(form). Когда мы находимся в подпрограмме функционального модуля, нужно при определенном условии выходить из ФМ на уровень программы. Операторы exit, return не подходят, так как при их использовании мы выходим из подпрограммы только на уровень Функционального модуля, а надо выйти на уровень программы( не заканчивая обработки программы а лишь продолжая следующую итерацию вызова ФМ).

Only2611

Определите в своем ФМ исключения (exceptions, например go_out). И в подпрограмме пишите raise go_out.
функциональный модуль завершать работу не будет.

8051core

Мне кажется, что такой код не совсем корректен.
ИМХО правильнее по коду завершения от form уже кидать исключение и выходить из ФМа.
что-то вроде:

Code:

perform some_form
    changing lv_subrc.

if lv_subrc NE 0.
    raise <exc>.
endif.

Only2611

Вот этот код работает так, как спрашивает skaa. На втором брейк уже не останавливается. Что здесь некорректного?

Code:

FUNCTION y_test_raise .
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*"  EXCEPTIONS
*"      GO_OUT
*"----------------------------------------------------------------------
  IF sy-uname = 'MY_USER'.
    BREAK-POINT.
  ENDIF.

  PERFORM check.

  IF sy-uname = 'MY_USER'.
    BREAK-POINT.
  ENDIF.

ENDFUNCTION.

*&---------------------------------------------------------------------*
*&      Form  check
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM check.
  RAISE go_out.
ENDFORM.                    "check

8051core

Я немного про другое, код то конечно работает правильно и выйдет и ФМа.
Я считаю, что такой стиль написания не совсем корректен.

Only2611

Ну тогда "для корректности" лучше писать так:

Code:

FUNCTION y_test_raise .
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*"  EXCEPTIONS
*"      GO_OUT
*"----------------------------------------------------------------------
****************************************************  
TRY .
      PERFORM check.
    CATCH CX_*error*.
      RAISE go_out.
  ENDTRY.
****************************************************

ENDFUNCTION.

*&---------------------------------------------------------------------*
*&      Form  check
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM check RAISING CX_*error*.
****************************************************
  RAISE EXCEPTION TYPE CX_*error*.
****************************************************
ENDFORM.                    "check

Удав

8051core написал(а):

Я считаю, что такой стиль написания не совсем корректен.

По каким причинам?

8051core

Получается что точка выхода из ФМа находится не в самом ФМе, а во вложенной форме, что затрудняет как чтение кода, так и его отладку.

Не претендую на истину в последней инстанции

,
но для меня это из той же серии правил кодирования:
что переменные и формы нельзя называть 1-3 буквами и транслитом,
что в программе не должно быть "мертвого" кода,
а так же по возможности не использовать множественные выходы из функций.

Поэтому временами очень бесит, когда вместо понятного имени для select-option или parameters приходится придумывать,
что-то состоящее из 8 символов (два из которых уже заняты под p_ или s_). Но это так оффтоп уже :idea:

Удав

8051core написал(а):

Получается что точка выхода из ФМа находится не в самом ФМе, а во вложенной форме, что затрудняет как чтение кода, так и его отладку.

Для других языков программирования это наверно так и есть. Для ABAP - спорно.
1.Механизм RAISE как раз придуман, чтобы минимизировать ненужную обработку переменных при ошибках.
-каждое исключение имеет свое название, все исключения описаны в интерфейсе ФМ
-есть поиск по ключевым словам по всей группе функций
2.Для отладки достаточно установить точку останова на операторе RAISE и например, на message с указанным классом и номером

8051core

После таких доводов соглашусь с вами.

Но для человека, который больше программировал на других языках,
чем на ABAPе выглядит непривычно, как и некоторые другие вещи.

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

Выход из Функционального модуля.

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