*&---------------------------------------------------------------------*
*& 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).
