cx_root - Division by zero

  *&-----------------------------------------------------------*
*& Report  YRTEST0037
*&
*&----------------------------------------------------------*
*&
*&
*&-----------------------------------------------------------*

report  yrtest0037.

  data: lv_msg  type bapi_msg,
        lr_root type ref to cx_root,
        l       type i.


*------------------------------------------------------------*
end-of-selection.
*--------------------------------------------------------------*
   l = 10.

  try.
    l = l / 0.
  catch cx_root into lr_root.
    lv_msg = lr_root->get_text( ) .
    write: lv_msg.
  endtry.