abap 类方法定义报错一例

最新推荐文章于 2024-09-04 10:37:34 发布

handsome1234

最新推荐文章于 2024-09-04 10:37:34 发布

阅读量1k

点赞数

文章标签： abap METHODS "不能在 "CLASS ... DEFINITION" 和

本文链接：https://blog.csdn.net/handsome1234/article/details/81841409

版权

REPORT z_method_redefinition.  " 188

CLASS vehicle DEFINITION INHERITING FROM OBJECT.
  PUBLIC SECTION.
    METHODS:accelerate,write_status.
  PROTECTED SECTION.
  DATA speed TYPE i.
ENDCLASS.

CLASS plane DEFINITION INHERITING FROM vehicle.
   PUBLIC SECTION.
    METHODS:rise,write_status REDEFINITION.  " 这里是 METHODS ，否则报错"不能在 "CLASS ... DEFINITION" 和 "ENDCLASS" 之间使用当前语句。"ENDCLASS".
      PROTECTED SECTION.
      DATA altitude TYPE i.
ENDCLASS.

CLASS ship DEFINITION INHERITING FROM vehicle.
   PUBLIC SECTION.
    METHODS write_status REDEFINITION.    " 这里是 METHODS ，否则报错 "不能在 "CLASS ... DEFINITION" 和 "ENDCLASS" 之间使用当前语句。"ENDCLASS".
ENDCLASS.

CLASS vehicle IMPLEMENTATION.
   METHOD accelerate.
     speed = speed + 1.
    ENDMETHOD.
    METHOD write_status.
      WRITE: / 'SPEED：' , speed.
      ENDMETHOD.
ENDCLASS.

CLASS plane IMPLEMENTATION.
  METHOD rise.
    altitude = altitude + 1.
    ENDMETHOD.
    METHOD write_status.
      WRITE / 'plane:'.
      CALL METHOD super->write_status.
      WRITE: / 'Altitude:',altitude.
      ENDMETHOD.
    ENDCLASS.

CLASS ship IMPLEMENTATION .
  METHOD write_status.
    WRITE: / 'Ship speed :',speed.
    ENDMETHOD.
ENDCLASS.

DATA :plane_ref TYPE REF TO plane,
      ship_ref type REF TO ship.
START-OF-SELECTION.
CREATE OBJECT : plane_ref,ship_ref.
CALL METHOD:plane_ref->accelerate,
plane_ref->rise,
plane_ref->write_status,
ship_ref->accelerate,
ship_ref->write_status.