just show you basic for OO(动态调用方法)简单的例子

*&---------------------------------------------------------------------*
*& Report  Y_JAMES_OO_DAY1
*&
*&---------------------------------------------------------------------*
*&
*&just show you basic for OO(动态调用方法)
*&---------------------------------------------------------------------*

REPORT Y_JAMES_OO_DAY1.

*------类的定义------------
CLASS C1 DEFINITION.
  PUBLIC SECTION.
    DATA: gt_itab TYPE TABLE OF sflight,
          gs_str  TYPE sflight.
    METHODS:get_data,
            wri_data.
ENDCLASS.               " cl definition

*------类的实例------------

CLASS c1 IMPLEMENTATION .
  METHOD: get_data.
    select * INTO TABLE gt_itab
    FROM sflight
    UP TO 5 ROWS.
  ENDMETHOD.            " get_data

  METHOD: wri_data.
    LOOP AT gt_itab INTO gs_str.
      WRITE:/ gs_str-carrid, gs_str-connid.
    ENDLOOP.
  ENDMETHOD.           " wri_data

ENDCLASS.


DATA go_oref TYPE REF TO c1.
DATA gv_mth  TYPE string.

FIELD-SYMBOLS <fs> TYPE ANY.

START-OF-SELECTION.

  CREATE OBJECT go_oref.
  gv_mth = 'GET_DATA'.
*  CALL METHOD go_oref->get_data.
  CALL METHOD GO_OREF->(gv_mth).
  CLEAR: gv_mth.
  gv_mth = 'WRI_DATA'.
  CALL METHOD GO_OREF->(gv_mth).