学习笔记（二十五）

INTERFACE info.  METHODS output.ENDINTERFACE.CLASS bicycle DEFINITION.  PUBLIC SECTION.    INTERFACES info.ENDCLASS.CLASS truck DEFINITION.  PUBLIC SECTION.    INTERFACES info.ENDCLASS.CLASS bicycle IMPLEMENTATION.  METHOD info~output.    WRITE: 'Bike', /.  ENDMETHOD.ENDCLASS.CLASS truck IMPLEMENTATION.  METHOD info~output.    WRITE: 'Truck', /.  ENDMETHOD.ENDCLASS.DATA: inf TYPE REF TO info,      bike TYPE REF TO bicycle,      tk TYPE REF TO truck,      table_info TYPE TABLE OF REF TO info.START-OF-SELECTION.  CREATE OBJECT: bike, tk.  APPEND: bike TO table_info, tk TO table_info.  LOOP AT table_info INTO inf.    CALL METHOD inf->output.  **bike ?= info.  ENDLOOP.