第二节：boss类的实现

*&---------------------------------------------------------------------*

*& Include ZBOBO_OO_BOSS_CLASS

*&---------------------------------------------------------------------*

*定义boss类,该类从employee中继承

CLASS BOSS DEFINITION INHERITING FROM EMPLOYEE.

PUBLIC SECTION.

METHODS:

*定义构造函数,初始化对象

CONSTRUCTOR IMPORTING BOSS_A TYPE STRING

BOSS_B TYPE STRING

S TYPE F,

*定义boss类的方法(setter方法)

SETWEEKLYSALARY IMPORTING WS TYPE F,

*实现基类中的抽象方法,因为boss类有自己的工资结构

*所以在此部分实现

EARNINGS REDEFINITION,

PRINT REDEFINITION.

PRIVATE SECTION.

DATA:

WEEKLYSALARY TYPE F.

ENDCLASS.

CLASS BOSS IMPLEMENTATION.

METHOD CONSTRUCTOR.

*调用父类的构造函数

CALL METHOD SUPER->CONSTRUCTOR

EXPORTING A = BOSS_A

B = BOSS_B.

*根据新的传入变量,设置boss类私有实例变量

WEEKLYSALARY = S.

ENDMETHOD.

*setter方法的实现

METHOD SETWEEKLYSALARY.

WEEKLYSALARY = WS.

ENDMETHOD.

*定义工资以及输出的实现

METHOD EARNINGS.

EARN = WEEKLYSALARY.

ENDMETHOD.

METHOD PRINT.

DATA: FIRST TYPE STRING,

LAST TYPE STRING.

FIRST = GETFIRSTNAME( ).

LAST = ME->GETLASTNAME( ).

WRITE: / 'Boss name is:',LAST,FIRST.

ENDMETHOD.

ENDCLASS.