ABAP OO程式設計(一)

*&---------------------------------------------------------------------*

*& Report  ZSTUDYC01

*&

*&---------------------------------------------------------------------*

*&學習如何建立一個類 以及實作類中的方法

*&

*&---------------------------------------------------------------------*

REPORT  ZSTUDYC01.

*----------------------------------------------------------------------*

*       CLASS PERSION DEFINITION

*----------------------------------------------------------------------*

*

*----------------------------------------------------------------------*

CLASS PERSION DEFINITION.

  PUBLIC SECTION.

    DATA COUNT TYPE I.

    METHODS: SAY.

  PROTECTED SECTION.

  PRIVATE SECTION.

ENDCLASS.                    "PERSION DEFINITION

*----------------------------------------------------------------------*

*       CLASS PERSION IMPLEMENTATION

*----------------------------------------------------------------------*

*

*----------------------------------------------------------------------*

CLASS PERSION IMPLEMENTATION.

  METHOD SAY.

    COUNT = 20.

    WRITE:/ COUNT.

  ENDMETHOD.                    "SYA

ENDCLASS.                    "PERSION IMPLEMENTATION

START-OF-SELECTION.

  DATA PERSION1 TYPE REF TO PERSION.

  CREATE OBJECT PERSION1.

  CALL METHOD PERSION1->SAY.