学习笔记（二十二）

最新推荐文章于 2022-02-25 21:57:21 发布

qiume

最新推荐文章于 2022-02-25 21:57:21 发布

阅读量1.7k

点赞数

分类专栏：架构设计文章标签： application constants class methods object c

架构设计专栏收录该内容

61 篇文章 0 订阅

订阅专栏

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.