REPORT z04_14.

DATA  gv_result TYPE i.

CALL FUNCTION 'ZFM_01'
  EXPORTING
    i_num1   = 10
    i_num2   = 2
  IMPORTING
    e_result = gv_result
  EXCEPTIONS
    div_zero = 1
    OTHERS   = 2.

IF sy-subrc = 1.
  WRITE 'You cannot divide by 0'.
  EXIT.
ENDIF.

WRITE : 'Result : ', gv_result.