ABAP中类对象反射

*----------------------------------------------------------------------*
*       CLASS c1 DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS c1 DEFINITION.
  PUBLIC SECTION.
    DATA:c VALUE 'C'.
    METHODS:test.
ENDCLASS.                    "c1 DEFINITION

*----------------------------------------------------------------------*
*       CLASS c1 IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS c1 IMPLEMENTATION.
  METHOD:test.
    WRITE: / 'Test'.
  ENDMETHOD.                    "test
ENDCLASS.                    "c1 IMPLEMENTATION

START-OF-SELECTION.
  TYPES:ty_c.
  DATA:oref TYPE REF TO object.
  DATA:oref_classdescr TYPE REF TO cl_abap_classdescr.
  CREATE OBJECT oref type ('C1')."根据类名动态创建实例对象
  "相当于Java中的Class类对象
  oref_classdescr ?= cl_abap_classdescr=>describe_by_object_ref( oref ).
  DATA:t_attrdescr_tab TYPE abap_attrdescr_tab WITH HEADER LINE,"类中的属性列表
        t_methdescr_tab TYPE abap_methdescr_tab WITH HEADER LINE."类中的方法列表
  FIELD-SYMBOLS <fs_attr> TYPE ANY.
  t_attrdescr_tab[] = oref_classdescr->attributes.
  t_methdescr_tab[] = oref_classdescr->methods.
  LOOP AT t_attrdescr_tab."动态访问类中的属性
    ASSIGN oref->(t_attrdescr_tab-name) TO <fs_attr>.
    WRITE:/ <fs_attr>.
  ENDLOOP.
  LOOP AT t_methdescr_tab."动态访问类中的方法
    CALL METHOD oref->(t_methdescr_tab-name).
  ENDLOOP.