DATA : g_message_id_protocol TYPE REF TO if_wsprotocol_message_id,
g_server_context TYPE REF TO if_ws_server_context,
g_xi_message_id TYPE sxmsmguid.
* To get ABAP PROXY message ID
TRY.
* Get server context
g_server_context = cl_proxy_access=>get_server_context( ).
* Get message id protocol
g_message_id_protocol ?= g_server_context->get_protocol( if_wsprotocol=>message_id ).
* Fill in message id
g_xi_message_id = g_message_id_protocol->get_message_id( ).
CATCH cx_ai_system_fault. "#EC NO_HANDLER
ENDTRY.
call your customer FM .....
Error handling
* If Error
IF l_wa_standard_data IS NOT INITIAL.
RAISE EXCEPTION TYPE cx_mt_br_bank_files_fault
EXPORTING
standard = l_wa_standard_data.
ENDIF.
阅读(2345) | 评论(0) | 转发(0) |