FUNCTION send_message_direct.
*"--------------------------------------------------------------------
*"*"Local Interface:
*" IMPORTING
*" REFERENCE(IT_RETURN) TYPE BAPIRETTAB OPTIONAL
*" REFERENCE(IV_SEND_IF_ONE) TYPE BOOLEAN DEFAULT ABAP_TRUE
*"--------------------------------------------------------------------
DATA: lt_return TYPE bapirettab.
FIELD-SYMBOLS: <lfs_return> TYPE bapiret2.
lt_return[] = it_return[].
CALL FUNCTION 'MESSAGES_INITIALIZE'
EXPORTING
reset = abap_true.
LOOP AT lt_return ASSIGNING <lfs_return>.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = <lfs_return>-id
msgty = <lfs_return>-type
msgv1 = <lfs_return>-message_v1
msgv2 = <lfs_return>-message_v2
msgv3 = <lfs_return>-message_v3
msgv4 = <lfs_return>-message_v4
txtnr = <lfs_return>-number
EXCEPTIONS
OTHERS = 0.
ENDLOOP.
CALL FUNCTION 'MESSAGES_SHOW'
EXPORTING
send_if_one = iv_send_if_one
i_use_grid = abap_true
show_linno = abap_false
EXCEPTIONS
OTHERS = 0.
ENDFUNCTION.
