ABAP中创建本地类的例子

以下是如何创建一个本地类。

REPORT zrep_class_local_01.

* 定义一个本地类
CLASS zlcl_class_local DEFINITION.
  PUBLIC SECTION.
    DATA:
    mv_value TYPE string. " 实例属性
    CLASS-DATA:
    gv_cl_value TYPE string. " 静态属性
    METHODS:
    set_value IMPORTING iv_value TYPE string,
    display_value.
ENDCLASS.   "定义一个本地类


* 本地类的实现
CLASS zlcl_class_local IMPLEMENTATION.
  METHOD display_value.
    WRITE:/ '实例属性:', mv_value.
    WRITE:/ '静态属性:', gv_cl_value.
  ENDMETHOD.                    "本地类的实现

  METHOD set_value.
    mv_value = iv_value.
  ENDMETHOD.

ENDCLASS.


START-OF-SELECTION.
  DATA : lo_class_local TYPE REF TO zlcl_class_local. "声明一个类

  CREATE OBJECT lo_class_local. "创建对象

  CALL METHOD lo_class_local->set_value
    EXPORTING
      iv_value = '<手机>'.

  zlcl_class_local=>gv_cl_value = '苹果'.
  CALL METHOD lo_class_local->display_value.