ZMR Class Me Keyword
ZMR Class Me Keyword
ZMR Class Me Keyword
*& Report ZMR_CLASS_ME_KEYWORD
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZMR_CLASS_ME_KEYWORD.
class LC_ONE DEFINITION.
PUBLIC SECTION.
DATA : LV_KUNNR TYPE KUNNR VALUE '0000001000'.
METHODS : GET_DATA.
ENDCLASS.
CLASS LC_ONE IMPLEMENTATION.
METHOD GET_DATA.
DATA : LV_KUNNR TYPE KUNNR VALUE '0000002000',
lv_name1 type name1_gp.
SELECT SINGLE NAME1 FROM KNA1 INTO LV_NAME1 WHERE KUNNR = me->LV_KUNNR.
IF SY-SUBRC = 0.
WRITE :/ 'Class Customer Number:', me->lv_kunnr.
WRITE :/ 'Local Customer Number:', lv_kunnr.
WRITE :/ 'Class Customer Name:', lv_name1.
ENDIF.
ENDMETHOD.
ENDclass.
data : lr_one type ref to lc_one.
START-OF-SELECTION.
create OBJECT lr_one.
call method lr_one->get_data.