abap系统消息处理与自定义消息处理

最新推荐文章于 2023-07-06 11:28:12 发布

zjut_xiongfeng

最新推荐文章于 2023-07-06 11:28:12 发布

阅读量2.8k

点赞数

文章标签： im dialog manager object include events

本文链接：https://blog.csdn.net/zjut_xiongfeng/article/details/5619913

版权

本文档详细介绍了ABAP中如何处理系统消息，包括设置当前业务对象、处理不同类型的业务对象、配置消息类型和对话框，以及自定义消息的创建和删除。通过定义多个函数来实现消息的管理和控制，如mmpur_message_config、mmpur_message等。

摘要由CSDN通过智能技术生成

CLASS cl_message_mm DEFINITION LOAD.

DATA: gl_handle TYPE REF TO cl_handle_mm,
      gl_dummy(72),
      gl_message_handler TYPE REF TO cl_message_handler_mm,
      gl_subrc           TYPE sy-subrc,
      gl_tabix           TYPE sy-tabix,
      gl_objdesc         TYPE mepo_objdesc.

************************************************************************
*                                                                      *
* Current business Object                                              *
*                                                                      *
************************************************************************
DEFINE mmpur_business_obj.
gl_subrc = sy-subrc.
gl_tabix = sy-tabix.
call method cl_message_mm=>set_current_business_obj
                              exporting im_business_obj = &1.
sy-subrc = gl_subrc.
sy-tabix = gl_tabix.
END-OF-DEFINITION.

DEFINE mmpur_business_obj_id.
gl_subrc = sy-subrc.
gl_tabix = sy-tabix.
call method cl_handle_manager_mm=>get
exporting im_id = &1
importing ex_handle = gl_handle.

call method cl_message_mm=>set_current_business_obj
exporting im_business_obj = gl_handle.
call method cl_message_mm=>set_current_context
exporting im_context = 5.
sy-subrc = gl_subrc.
sy-tabix = gl_tabix.
END-OF-DEFINITION.

DEFINE mmpur_obj_from_id.
gl_tabix = sy-tabix.
gl_subrc = sy-subrc.
call method cl_handle_manager_mm=>get
exporting im_id = &1
importing ex_handle = &2.
sy-subrc = gl_subrc.
sy-tabix = gl_tabix.
END-OF-DEFINITION.

* Definitions via varkey (non object Case)
DEFINE mmpur_business_obj_hd.
gl_tabix = sy-tabix.
gl_subrc = sy-subrc.
clear gl_objdesc.
gl_objdesc-objtyp = cl_po_header_handle_mm=>c_objtyp.
gl_objdesc-varkey+0(10) = &1.
call method cl_message_mm=>set_current_business_obj
exporting im_business_obj_var = gl_objdesc.
sy-subrc = gl_subrc.
sy-tabix = gl_tabix.
END-OF-DEFINITION.

DEFINE mmpur_business_obj_it.
gl_tabix = sy-tabix.
gl_subrc = sy-subrc