*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" REFERENCE(IT_RETURN) TYPE BAPIRETTAB OPTIONAL
*" REFERENCE(IV_SEND_IF_ONE) TYPE BOOLEAN DEFAULT 'X'
*"----------------------------------------------------------------------
DATA: LT_RETURN TYPE BAPIRETTAB.
FIELD-SYMBOLS: <LFS_RETURN> TYPE BAPIRET2.
LT_RETURN[] = IT_RETURN[].
CALL FUNCTION 'MESSAGES_INITIALIZE'
EXPORTING
RESET = IV_SEND_IF_ONE.
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 = IV_SEND_IF_ONE
SHOW_LINNO = ''
EXCEPTIONS
OTHERS = 0.
ENDFUNCTION.
评论