简单的ABAP面相对象实例

最新推荐文章于 2024-12-12 15:01:15 发布

dhjdhja

最新推荐文章于 2024-12-12 15:01:15 发布

阅读量660

点赞数

CC 4.0 BY-SA版权

分类专栏： SAP

本文链接：https://blog.youkuaiyun.com/dhjdhja/article/details/8166276

SAP 专栏收录该内容

6 篇文章

订阅专栏

本文介绍了 ABAP 中类的定义与实现过程，包括构造函数、多种方法类型的使用示例，如普通方法、静态方法等。

"包括定义和实现class，属性、构造函数、各种普通方法、静态方法等。

REPORT  ztest_sam_001.
"定义class
*----------------------------------------------------------------------*
*       CLASS ob1 DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS ob1 DEFINITION.
  PUBLIC SECTION.
    DATA name TYPE string VALUE 'name'.

    METHODS:
            constructor IMPORTING i_name TYPE string,"构造函数
            m1,
            m2 IMPORTING msg TYPE string,
            m3 IMPORTING msg1 TYPE string msg2 TYPE string EXPORTING msg3 TYPE string,
            m4 RETURNING value(r) TYPE string.
    CLASS-METHODS: m5.

ENDCLASS.                    "ob1 DEFINITION
"实现class
*----------------------------------------------------------------------*
*       CLASS ob1 IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS ob1 IMPLEMENTATION.
  METHOD constructor.
    name = i_name.
  ENDMETHOD.                    "constructor
  METHOD m1.
    WRITE: '方法中打印'.
  ENDMETHOD.                    "m1
  METHOD m2.
    WRITE: / msg.
  ENDMETHOD.                    "m1
  METHOD m3.
    CONCATENATE msg1 msg2 name INTO msg3 SEPARATED BY '*'.
  ENDMETHOD.                    "m3
  METHOD m4.
    r = name.
  ENDMETHOD.                    "m4
  METHOD m5.
    WRITE: / 'static'.
  ENDMETHOD.                    "m5
ENDCLASS.                    "ob1 IMPLEMENTATION

START-OF-SELECTION.

  ob1=>m5( ).

  DATA ob TYPE REF TO ob1.    "创建class实例
  CREATE OBJECT ob
    EXPORTING
      i_name = 'sam'.        "初始化
  ob->m1( ).
  DATA s1 TYPE string.
  s1 = ob->m4( ).
  ob->m2( msg = s1 ).
  DATA msg TYPE string.

  ob->m3(
  EXPORTING
      msg1 = 'msg'
      msg2 =  'm3'
      IMPORTING
        msg3 = msg
    ).
  WRITE: / msg.

  WRITE: / 'ztest_ob1 test'.
  DATA: o1 TYPE REF TO ztest_ob1.   "-------se24 是创建
  CREATE OBJECT o1.
  o1->m1( 's' ).

  DATA: st1 TYPE string.
  o1->m2(
  EXPORTING     "--------------------------注意exporting、importing和定义时相反
    s1 = 'test s1'
  IMPORTING
    s2 = st1

    ).
  WRITE: / st1.