Как перехватить исключение типа MESSAGE RAISING?

Допустим, в функции cl_foo=>bar возникает классическое исключение. Вы перехватываете исключение, указывая параметры при вызове функции с помощью ключевого слова EXCEPTIONS. После этого позвоните CASE sy-subrc.

Например:

cl_foo=>bar( EXCEPTIONS foo1   = 1
                        foo2   = 2
                        foo3   = 3
                        OTHERS = 4 ).
CASE sy-subrc.
  WHEN 0.
      WRITE: / |Success|.
  WHEN OTHERS.
      WRITE: / |Error|.
ENDCASE.

1. Классические исключения объявляются на вкладке ИСКЛЮЧЕНИЯ.
2. Добавьте FM через Pattern->CALL FUNCTION, чтобы были добавлены все типы параметров: ИМПОРТ, ЭКСПОРТ... и ИСКЛЮЧЕНИЯ.
3. Исключения перечисляются путем присвоения последовательного номера (который можно изменить). Это число возвращается в переменной SY-SUBRC, если оно встречается.
4. Проверьте SY-SUBRC, если значение не равно 0, произошло исключение (эквивалент возвращаемого числа).

Решение указано в документации ABAP MESSAGE, RAISING:

Если оператор MESSAGE выполняется с добавлением RAISING во время обработки метода или функционального модуля, вызывающая сторона которого присваивает возвращаемое значение исключению с использованием дополнения EXCEPTIONS оператора CALL, этот оператор имеет тот же эффект, что и оператор ПОДНИМАТЬ.

По ссылке исключение вы можете увидеть главу об обращении:

Обработка исключений, не связанных с классами, становится возможной благодаря добавлению EXCEPTIONS в вызовы методов и функциональных модулей путем присвоения исключениям числовых значений, которые используются для заполнения системного поля sy-subrc при возникновении исключения. Фактическая обработка ошибок происходит после вызова, когда оценивается sy-subrc.

Если исключение возникает внутри функционального модуля (или подпрограммы внутри этого функционального модуля), вы должны обработать его следующим образом:

CALL FUNCTION '...'
  EXCEPTIONS
    exception_name = 1.
IF sy-subrc = 1.
  " handling of exception_name
ENDIF.

Если исключение возникает внутри метода, вы можете обработать его следующим образом:

cl_foo=>bar( EXCEPTIONS exception_name = 1 ).
IF sy-subrc = 1.
  " handling of exception_name
ENDIF.

Специальное имя исключения OTHERS можно использовать, чтобы не упоминать все имена исключений.

Обратите внимание, что эти «исключения, не основанные на классах», устарели, их «больше не следует определять в новых разработках ». Вместо этого вам следует использовать исключения на основе классов (которые работают по-другому).

Ссылки на документацию ABAP для всех тем, посвященных исключениям, не связанным с классами:

• Исключения, не связанные с классами
  • Повышение/объявление
    • СООБЩЕНИЕ... ПОДНЯТИЕ...
    • ПОДНИМАТЬ... (не ПОДНИМАТЬ ИСКЛЮЧЕНИЕ...)
    • [CLASS-]МЕТОДЫ ... ИСКЛЮЧЕНИЯ exc1 exc2 ...
    • Интерфейс функционального модуля - Исключения
  • Перехват, обработка
    • Методы
      • meth( или ВЫЗОВ МЕТОДА ... ИСКЛЮЧЕНИЯ exc1 = n1 exc2 = n2 ... [OTHERS = n_others].
    • Функциональные модули
      • ВЫЗОВ ФУНКЦИИ ... ИСКЛЮЧЕНИЯ exc1 = n1 exc2 = n2 ... [OTHERS =n_others] - Специальное исключение: error_message
      • Динамический вариант ВЫЗОВА ФУНКЦИИ... etab ТАБЛИЦА ИСКЛЮЧЕНИЙ...
      • НАЗНАЧЕНИЕ ВЫЗОВА ФУНКЦИИ ... ИСКЛЮЧЕНИЯ exc1 = n1 exc2 = n2 ... [MESSAGE ...] - Специальные исключения RFC: system_failure, communication_failure, resources_failure
      • НАЗНАЧЕНИЕ ВЫЗОВА ФУНКЦИИ... etab ТАБЛИЦА ИСКЛЮЧЕНИЙ