abap form格式的异常处理

1： form 中有异常时，需要用 raising 将异常抛出。

*&---------------------------------------------------------------------*
*& Report ZHANSEN36
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZHANSEN36.
DATA myref TYPE REF TO cx_sy_arithmetic_error.
DATA err_text TYPE string.
data result TYPE i.

START-OF-SELECTION.
try.
  PERFORM exception_test.
  WRITE 'no exception'.
catch cx_sy_arithmetic_error INTO myref.
  err_text = myref->get_text( ).
  WRITE err_text.
endtry.

form exception_test RAISING cx_sy_arithmetic_error.
  write '异常'.
  result =  / .

ENDFORM.