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.