Невозможно обработать исключение в Z-ФМ

saphir

Добрый день, делаю первые шаги и не могу понять, почему у меня не получается обработать исключение.
Может, кто-то сможет подсказать, в чем тут ошибка.

Функция

Code:

 IF ( bvariable = 0 ) .
    RAISE nulldivision.
   ELSE.
    WRITE: / 'This is', function_result.
  ENDIF.

Программа

Code:

PARAMETERS: a TYPE I, B TYPE I.
DATA: result TYPE I.

CALL FUNCTION 'ZZ_V_TESTF'
EXPORTING
  avariable = a
  bvariable = b
  IMPORTING
  function_result = result
  EXCEPTIONS
    NULLDIVISION = 1.

CASE sy-subrc.
  WHEN 0.
    WRITE: / 'Программа завершилась нормально'.
    WHEN 1.
    WRITE: / 'Что-то пошло не так'.
ENDCASE.

baboon

Не совсем понятно, что значит "не получается обработать исключение".

Полностью повторил код.
Всё работает как надо - WRITE'ом выводятся соответствующие сообщения.
Если, конечно, внутри функции только IF...ENDIF стоит.

saphir

Спасибо за ответ.
НЕ получается: когда ввожу 0 (во втором значении b переменная), вываливается ошибка. А должно быть написано, что пошло не так, т.е обработаться исключительная ситуация.

baboon

Код ФМ в студию, вот прямо так,
как он выглядит на закладке Исходный текст с самой первой строки по последнюю.
Можно удалить компрометирующие строки

saphir

Code:

REPORT ZZ_V_TEST.
PARAMETERS: a TYPE I, B TYPE I.
TYPES: BEGIN OF str_table,
  field1(20) TYPE C,
  field2(20) TYPE C,
  END OF str_table.

DATA: result TYPE I,
      real_table TYPE STANDARD TABLE OF str_table,
      wa_real_table TYPE str_table,
      old_real_table TYPE STANDARD TABLE OF str_table WITH HEADER LINE.

wa_real_table-field1 = 'Поле 1'.
wa_real_table-field2 = 'Поле 2'.
APPEND wa_real_table TO old_real_table.
*READ TABLE old_real_table.
LOOP AT old_real_table.
WRITE:/ old_real_table-field1, old_real_table-field2.
ENDloop.

CALL FUNCTION 'ZZ_V_TESTF'
EXPORTING
 avariable = a
 bvariable = b
  IMPORTING
 function_result = result
  EXCEPTIONS
   NULLDIVISION = 1.

CASE sy-subrc.
 WHEN 0.
  WRITE: / 'Программа завершилась нормально'.
   WHEN 1.
    WRITE: / 'Что-то пошло не так'.
ENDCASE.

Code:

FUNCTION zz_v_testf.

  function_result = avariable / bvariable.
  IF ( bvariable = 0 ) .
    RAISE nulldivision.
   ELSE.
    WRITE: / 'This is', function_result.
  ENDIF.


ENDFUNCTION.

UKY

saphir написал(а):

Code:

FUNCTION zz_v_testf.
" Вот тут будет стандартное исключение деления на ноль
  function_result = avariable / bvariable.

" До этого кода дело даже не дойдёт
  IF ( bvariable = 0 ) .
    RAISE nulldivision.
   ELSE.
    WRITE: / 'This is', function_result.
  ENDIF.
ENDFUNCTION.

Само деление надо делать же после проверки. У вас другая системная исключительная ситуация деления на ноль получается, а не ваша nulldivision.

saphir

спасибо

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

Невозможно обработать исключение в Z-ФМ

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