ABAP面向对象事件处理-简单实例

REPORT  ZWTEST.

 class class1 definition.
 public section.
 events: event1.
 methods: method1 for event event1 of class1.
 methods: trigger1.
 endclass.

 class class1 implementation.
 method: method1.
  write: /5  'I am the event handler method'.
 endmethod.
 method:trigger1.
  write: /5  'I am trigger1, going to raise event event1'.
  raise event event1.
 endmethod.
 endclass.

 start-of-selection.

 data: OBJ type ref to class1.
 create object:OBJ.
 set handler OBJ->method1 for All INSTANCES.
 call method OBJ->trigger1.

 

 

转自：http://www.saptechnical.com/Tutorials/OOPS/Events/Index.htm