类在ABAP程序中的使用

*----------------------------------------------------------------------*
*       CLASS callobj DEFINITION 创建类
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS callobj DEFINITION.
  PUBLIC SECTION."定义公共类成员
    CLASS-DATA:para(30) TYPE c VALUE 'The static class parameter!'."定义静态变量
    DATA count TYPE i."定义该类中公用全局变量
    METHODS:showdata1,
            showdata2.

  PRIVATE SECTION."定义该类中私有成员，所定义变量或方法只能在该类内部使用
    METHODS:showdata3.
ENDCLASS.                    "callobj DEFINITION

*----------------------------------------------------------------------*
*       CLASS callobj IMPLEMENTATION  定义类方法实现行为
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS callobj IMPLEMENTATION.
  METHOD showdata1.
    WRITE:'Hello SAP!'.
  ENDMETHOD.                                                "showdata1

  METHOD showdata2.
    count = 1.
    WRITE count.
    CALL METHOD showdata3. "在类内部调用私有方法
  ENDMETHOD.                                                "showdata2

  METHOD showdata3.
    WRITE: / 'The Private Method!'.
  ENDMETHOD.                                                "showdata3
ENDCLASS.                    "callobj IMPLEMENTATION

*----------------------------------------------------------------------*
*       CLASS callobj2 DEFINITION  定义第二个类，其成员对象为一静态方法
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS callobj2 DEFINITION.
  PUBLIC SECTION.
    CLASS-METHODS:call_static_class.
ENDCLASS.                    "callobj2 DEFINITION

*----------------------------------------------------------------------*
*       CLASS callobj2 IMPLEMENTATION  定义第二个类方法
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS callobj2 IMPLEMENTATION.
  METHOD call_static_class.
    WRITE:/ callobj=>para."直接饮用其他类中的静态变量
  ENDMETHOD.                    "call_static_class
ENDCLASS.                    "callobj2 IMPLEMENTATION

DATA obj TYPE REF TO callobj."引用参照类声明变量
DATA:methname TYPE string."定义方法名变量

START-OF-SELECTION.
  CREATE OBJECT obj."创建类实例化对象
  methname = 'SHOWDATA2'."为变量赋值方法名
  CALL METHOD:obj->showdata1,"调用类方法
              obj->(methname)."通过变量调用类方法

  CALL METHOD:callobj2=>call_static_class."无需实例化类对象，直接引用静态方法
*********CALL METHOD:obj->showdata3."类的私有方法不允许外部调用
*********若使用该语句，系统将报错：You cannot access private method 'SHOWDATA3'.not allowed