*&---------------------------------------------------------------------*
*& 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.
*& 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.