*&---------------------------------------------------------------------*
  *& Report  Z_EXCEPTION_TEST
  *&---------------------------------------------------------------------*
  REPORT  z_exception_test.
  *----------------------------------------------------------------------*
  *       CLASS lcl_demo DEFINITION
  *----------------------------------------------------------------------*
  CLASS lcl_demo DEFINITION.
    PUBLIC SECTION.
      CLASS-METHODS
      main IMPORTING  tablename  TYPE tabname16.
  ENDCLASS.                    "lcl_demo DEFINITION
  *----------------------------------------------------------------------*
  *       CLASS lcl_demo IMPLEMENTATION
  *----------------------------------------------------------------------*
  CLASS lcl_demo IMPLEMENTATION.
    METHOD main.
      DATA : l_count TYPE int4.
      DATA : oerror  TYPE REF TO cx_root.
      DATA : estring TYPE string.

      TRY.
          SELECT COUNT(*)
          INTO  l_count
          FROM (tablename).

        CATCH cx_sy_dynamic_osql_semantics INTO oerror.
          estring = oerror->get_longtext( ).
          MESSAGE estring TYPE 'I' DISPLAY LIKE 'E'.
        CATCH cx_root INTO oerror.
          estring = oerror->get_longtext( ).
          MESSAGE estring TYPE 'I' DISPLAY LIKE 'E'.
      ENDTRY.

    ENDMETHOD.           "lcl_demo IMPLEMENTATION
  ENDCLASS.                    "lcl_demo IMPLEMENTATION

  *//SELECTION SCREEN.
  PARAMETER p_name TYPE tabname16.
  *//
  START-OF-SELECTION.
    lcl_demo=>main( tablename = p_name ).