ABAP_OOP_Sample_6.07.txt

"示例程序6.7
REPORT zrep_cls_023.
DATA:
   lv_area TYPE i.
DATA go_rectangle TYPE REF TO zcl_rectangle.
DATA go_square TYPE REF TO zcl_square. 
START-OF-SELECTION.
  CREATE OBJECT go_rectangle.
  go_rectangle->set_width( 3 ).
  go_rectangle->set_height( 6 ).
  lv_area = go_rectangle->get_area( ).
  WRITE: / 'Area is:', lv_area.
  ASSERT lv_area = 18.