ABAP OO练习-技术开发专区

ABAP OO练习

作者：cnblogs.com 编辑：李倩 2009-07-31 14:29 来源：IT168�

第五节:测试程序的实现

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

    *& Report ZBOBO_OO_SAPLINK_004

    *&

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

    *&

    *&

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

    REPORT ZBOBO_OO_SAPLINK_004.

    INCLUDE ZBOBO_OO_EMPLOYEE_CLASS.

    INCLUDE ZBOBO_OO_BOSS_CLASS.

    INCLUDE ZBOBO_OO_COMWORKER_CLASS.

    INCLUDE ZBOBO_OO_PIWORKER_CLASS.

    *定义引用变量

    DATA:

    EM_REF TYPE REF TO EMPLOYEE,

    BO_REF TYPE REF TO BOSS,

    CO_REF TYPE REF TO COMMISSIONWORKER,

    PI_REF TYPE REF TO PIWORKER.

    DATA:

    EARNS TYPE F.

    START-OF-SELECTION.

    *创建boss对象

    CREATE OBJECT BO_REF

    EXPORTING BOSS_A = 'Jhon'

    BOSS_B = 'Smith'

    S = '800.00'.

    *narrowing cast

    EM_REF = BO_REF.

    *输出到屏幕

    CALL METHOD EM_REF->PRINT.

    EARNS = EM_REF->EARNINGS( ).

    WRITE: / 'Earned: $',EARNS DECIMALS 2 EXPONENT 0.

    *下面的代码基本上和上面的相同

    CREATE OBJECT CO_REF

    EXPORTING A = 'Sue'

    B = 'Jones'

    C = '800.00'

    D = '3.0'

    E = 150.

    EM_REF = CO_REF.

    CALL METHOD EM_REF->PRINT.

    EARNS = EM_REF->EARNINGS( ).

    WRITE: / 'Earned: $',EARNS DECIMALS 2 EXPONENT 0.

    CREATE OBJECT PI_REF

    EXPORTING A = 'BOB'

    B = 'LEWIS'

    W = '2.5'

    Q = 200.

    EM_REF = PI_REF.

    CALL METHOD EM_REF->PRINT.

    EARNS = EM_REF->EARNINGS( ).

    WRITE: / 'Earned: $',EARNS DECIMALS 2 EXPONENT 0.

第1页：类图第2页：employee类的实现第3页：boss类的实现第4页：commission worker类的实现第5页：piece worker类的实现第6页：测试程序的实现

关注我们