REPORT zr_excp.
DATA gv_avg TYPE i.
DATA r_ex TYPE REF TO cx_root."cx_sy_zerodivide.
DATA gv_text TYPE string.
PARAMETERS pa_num1 TYPE i.
START-OF-SELECTION.
TRY.
gv_avg = 10 / pa_num1.
CATCH cx_sy_zerodivide INTO r_ex. "up casting
gv_text = r_ex->get_text( ).
MESSAGE i016(pn) WITH gv_text.
* MESSAGE i016(pn) WITH 'error'.
ENDTRY.
WRITE:/ gv_avg, pa_num1.