ABAP面向对象之EVENT处理

最新推荐文章于 2024-07-19 11:29:34 发布

liangziyisheng

最新推荐文章于 2024-07-19 11:29:34 发布

阅读量4.3k

点赞数

分类专栏： 01 ABAP 基础 10 OO 文章标签： methods events object class

本文链接：https://blog.csdn.net/liangziyisheng/article/details/6158643

版权

01 ABAP 基础同时被 2 个专栏收录

93 篇文章 5 订阅

订阅专栏

10 OO

5 篇文章 0 订阅

订阅专栏

CLASS counter DEFINITION.
PUBLIC SECTION.
    METHODS increment_counter.
    EVENTS critical_value EXPORTING value(excess) TYPE i.
PRIVATE SECTION.
    DATA: count     TYPE i,
          threshold TYPE i VALUE 10.
ENDCLASS.

CLASS counter IMPLEMENTATION.
METHOD increment_counter.
    DATA diff TYPE i.
    ADD 1 TO count.
    IF count > threshold.
      diff = count - threshold.
      RAISE EVENT critical_value EXPORTING excess = diff.
    ENDIF.
ENDMETHOD.
ENDCLASS.

CLASS handler DEFINITION.
PUBLIC SECTION.
METHODS handle_excess FOR EVENT critical_value OF counter
IMPORTING excess.
ENDCLASS.

CLASS handler IMPLEMENTATION.
METHOD handle_excess.
WRITE: / 'Excess is', excess.
ENDMETHOD.
ENDCLASS.

DATA: r1 TYPE REF TO counter,
h1 TYPE REF TO handler.

START-OF-SELECTION.

CREATE OBJECT: r1, h1.

SET HANDLER h1->handle_excess FOR ALL INSTANCES.

DO 20 TIMES.
CALL METHOD r1->increment_counter.
ENDDO.