[ABAP] Eigenschaften einer Klasse prüfen

DATA(lv_class) = |CL_DEMO_OUTPUT|.
DATA(lv_interface) = |IF_DEMO_OUTPUT|.

* Aktiv?
IF cl_esh_ca_check=>is_active_class( CONV #( lv_class ) ) = abap_true.
  WRITE: / |Klasse { lv_class } ist aktiv.|.
ELSE.
  WRITE: / |Klasse { lv_class } ist nicht aktiv.|.
ENDIF.

* Instanziierbar?
IF cl_esh_ca_check=>is_instantiable_class( CONV #( lv_class ) ) = abap_true.
  WRITE: / |Klasse { lv_class } ist instanziierbar.|.
ELSE.
  WRITE: / |Klasse { lv_class } ist nicht instanziierbar.|.
ENDIF.

* Implementiert Interface?
IF cl_esh_ca_check=>is_interface_implem_class( iv_class = CONV #( lv_class ) iv_interface = CONV #( lv_interface ) ) = abap_true.
  WRITE: / |Klasse { lv_class } implementier Interface { lv_interface }.|.
ELSE.
  WRITE: / |Klasse { lv_class } implementier Interface { lv_interface } nicht.|.
ENDIF.