ABAP Object Oriented Programming
REPORT ZHEF_ABAP_OBJECTS_EXAMPLE2.
************************************************************************
* Local classes Example 2
* Using enheritance
* Raising and handling events
************************************************************************
************************************************************************
* Super class Empolyee
************************************************************************
*定义一个父类,只是定义里面的一些数据类型,
* 具体的方法和内容在下面实现.
CLASS Employee DEFINITION.
*定义公共部分的数据和方法
PUBLIC SECTION.
DATA:
nEmployeeNo(4) type n, “雇员员工号
cEmployeeName(30) type c, “雇员姓名
iNoOfUnits type i, “生产的的单元的数量
iPayPerUnit type i. “每个单元的价格
*定义两个方法,一个是输出,一个是输入
METHODS:
CalculatePay RETURNING VALUE(iPay) TYPE i,
WritePay IMPORTING VALUE(iPay) TYPE i.
ENDCLASS.
*这里是具体的实现的
CLASS Employee IMPLEMENTATION.
*实现上面的方法