*---------------------------------------------------------------------*
* MACROS for Dynamic Cast
*---------------------------------------------------------------------*
* use: dynamic_cast reference_target_type reference_source_type
* result:  a) cast works (reference_target_type assigned)
*          b) cast doesn't work (reference_target_type cleared)
*             sy-subrc = 1

DEFINE mmpur_dynamic_cast.
  catch system-exceptions move_cast_error = 1.
    &1 ?= &2.
  endcatch.
  if sy-subrc = 1.
    clear: &1.
  endif.
END-OF-DEFINITION.