学习笔记（二十二）

CLASS application DEFINITION.  PUBLIC SECTION.    CLASS-DATA: class_name(20) TYPE c READ-ONLY VALUE 'application'.    CONSTANTS: class_ver(20) TYPE c VALUE '1.0'.    METHODS: show_info.    CLASS-METHODS: show.  PRIVATE SECTION.    DATA text(60) TYPE c VALUE 'Hello world.'.ENDCLASS.CLASS application IMPLEMENTATION.  METHOD: show_info.    WRITE / text.  ENDMETHOD.  METHOD: show.    WRITE: / class_name, class_ver.  ENDMETHOD.ENDCLASS.DATA obj_app TYPE REF TO application.START-OF-SELECTION.  CREATE OBJECT obj_app.  CALL METHOD obj_app->show.  CALL METHOD obj_app->show_info.  WRITE / obj_app->class_name.  WRITE / obj_app->class_ver.