ABAP面向对象之EVENT处理
来源:互联网 发布:证件照裁剪软件 编辑:程序博客网 时间:2024/05/22 09:07
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.
- ABAP面向对象之EVENT处理
- ABAP 面向对象之继承
- ABAP面向对象事件处理-简单实例
- ABAP面向对象之实现接口
- 面向对象之异常处理
- 面向对象之异常处理
- abap面向对象的报表
- abap面向对象的报表
- ABAP面向对象的开发
- Event事件对象之Event
- event面向对象【笔记-未完】
- JAVA-面向对象之异常处理
- 面向对象编程之异常处理
- javascript之event对象
- DOM之Event对象
- abap 面向对象入门很简单
- Abap/4 面向对象语法(1)
- Abap/4 面向对象语法(2)
- myeclipse 8.6安装spket
- ABAP 面向对象之继承
- vs2008+ddkwizard+wdk基于xp环境 windows内核编程环境配置
- ABAP面向对象之实现接口
- oracle认证的2种方式:作系统认证和口令文件认证
- ABAP面向对象之EVENT处理
- [BAT][JAVA]定时任务之-Quartz使用篇
- C
- build android gingerbread
- [Android]APK程序卸载二次确认的实现
- jquery插件【编辑表格】
- 【外刊IT评论】改良程序的11技巧
- ASP.NET 文件下载
- Web负载均衡解决方案 HAproxy