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.