Chinaunix首页 | 论坛 | 博客
  • 博客访问: 227072
  • 博文数量: 17
  • 博客积分: 50
  • 博客等级: 民兵
  • 技术积分: 329
  • 用 户 组: 普通用户
  • 注册时间: 2008-03-31 20:05
个人简介

linux kernal research

文章分类

全部博文(17)

文章存档

2023年(7)

2013年(10)

我的朋友

分类: 项目管理

2013-10-07 20:00:20

*&---------------------------------------------------------------------*
*& Report  ZTESTOO3
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZTESTOO3.

*CLASS CLTEST DEFINITION.
*  PUBLIC SECTION.
*     CLASS-DATA:W_NUMBER TYPE I."实例属性
*     METHODS:SET_VALUE IMPORTING W_I TYPE I,
*             GET_VALUE EXPORTING W_NUM TYPE I.
*ENDCLASS.
*
*CLASS CLTEST IMPLEMENTATION.
*  METHOD:SET_VALUE.
*    W_NUMBER = W_I.
*  ENDMETHOD.
*  METHOD:GET_VALUE.
*    W_NUM = W_NUMBER.
*  ENDMETHOD.
*ENDCLASS.
CLASS SUB_CLASS DEFINITION INHERITING FROM ZCL_TEST_TONY3.
  PUBLIC SECTION.
  METHODS:SET_VALUE REDEFINITION.
ENDCLASS.
CLASS SUB_CLASS IMPLEMENTATION.

*  METHOD ABC.
*    MESSAGE '子类方法' TYPE 'I'.
*  ENDMETHOD.
  METHOD SET_VALUE.
    MESSAGE 'ABC' TYPE 'I'.
  ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
  DATA:W_RESULT TYPE I.
  DATA:G_OBJ TYPE REF TO ZCL_TEST_TONY3."声明一个对象
  DATA:G_OBJ2 TYPE REF TO ZCL_TEST_TONY3."声明一个对象
  DATA:G_SUB_OBJ TYPE REF TO SUB_CLASS."声明一个对象
  CREATE OBJECT G_OBJ."创建对象
  CREATE OBJECT G_OBJ2."创建对象
  CREATE OBJECT G_SUB_OBJ."创建对象

  CALL METHOD G_OBJ->SET_VALUE
       EXPORTING W_I 7.
  CALL METHOD G_SUB_OBJ->SET_VALUE
       EXPORTING W_I 0.
*  CALL METHOD G_SUB_OBJ->ABC.
*  CALL METHOD G_OBJ->GET_VALUE
*       IMPORTING W_NUM = W_RESULT.

* CALL METHOD G_OBJ2->GET_VALUE
*       IMPORTING W_NUM = W_RESULT.

  WRITE G_OBJ->W_NUMBER.
  WRITE G_SUB_OBJ->W_NUMBER.
阅读(1974) | 评论(0) | 转发(0) |
0

上一篇:SAP 第六章HOMEWORK

下一篇:SAP OOALV例题

给主人留下些什么吧!~~