Error Handling in ABAP

Question

Dear All,
How to handle errors in ABAP.
Thanks in Advance
Arun

Answer 1

REPORT ZTEST
PARAMETERS number TYPE i.
DATA: result TYPE p DECIMALS 2,
      oref TYPE REF TO cx_root,
      text TYPE string.
TRY.
    IF ABS( number ) > 100.
      RAISE EXCEPTION TYPE cx_demo_abs_too_large.
    ENDIF.
    PERFORM calculation USING    number
                      CHANGING result
                               text.
  CATCH cx_sy_arithmetic_error INTO oref.
    text = oref->get_text( ).
  CATCH cx_root INTO oref.
    text = oref->get_text( ).
ENDTRY.
IF NOT text IS INITIAL.
  WRITE / text.
ENDIF.
WRITE: / 'Final result:', result.
FORM calculation USING    p_number LIKE number
                 CHANGING p_result LIKE result
                          p_text   LIKE text
                          RAISING  cx_sy_arithmetic_error.
  DATA l_oref TYPE REF TO cx_root.
  TRY.
      p_result =  1 / p_number.
      WRITE: / 'Result of division:', p_result.
      p_result = SQRT( p_number ).
      WRITE: / 'Result of square root:', p_result.
    CATCH cx_sy_zerodivide INTO l_oref.
      p_text = l_oref->get_text( ).
    CLEANUP.
      CLEAR p_result.
  ENDTRY.
ENDFORM.