ABAP OO(二)

*&---------------------------------------------------------------------*
*& Report  ZSTUDYC02
*&
*&---------------------------------------------------------------------*
*&类方法的声明和应用
*&
*&---------------------------------------------------------------------*

REPORT  ZSTUDYC02.
*----------------------------------------------------------------------*
*       CLASS PERSION DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS PERSION DEFINITION.
  PUBLIC SECTION.
    DATA: NAME TYPE STRING,
          AGE TYPE I.
    METHODS:SET IMPORTING NAME1 TYPE STRING AGE1 TYPE I,
      GET EXPORTING NAME1 TYPE STRING AGE1 TYPE I.
*  PROTECTED SECTION.
*  PRIVATE SECTION.
ENDCLASS.                    "PERSION DEFINITION
*----------------------------------------------------------------------*
*       CLASS PERSION IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS PERSION IMPLEMENTATION.
  METHOD SET.
    NAME = NAME1.
    AGE = AGE1.
  ENDMETHOD.                    "SET

  METHOD GET.
    NAME1 = NAME.
    AGE1 = AGE.
  ENDMETHOD.                    "GET
ENDCLASS.                    "PERSION IMPLEMENTATION

START-OF-SELECTION.
  DATA PERSION1 TYPE REF TO PERSION.

  CREATE OBJECT PERSION1.
  DATA:NAME TYPE STRING,
        AGE TYPE I,
        STR TYPE STRING,
        SAGE TYPE STRING.
  CALL METHOD PERSION1->SET
    EXPORTING
      NAME1 = 'XXX'
      AGE1  = 26.
  CALL METHOD PERSION1->GET
    IMPORTING
      NAME1 = NAME
      AGE1  = AGE.
  SAGE = AGE.
  CONCATENATE NAME '的年龄是:' SAGE INTO STR.
  WRITE:/ STR.