*&Check Currency exist
DATA: ls_return LIKE bapiret2,
lt_return LIKE TABLE OF bapiret2 WITH HEADER LINE.
CALL FUNCTION 'AIA_CHECK_EXIST_CURRENCY'
EXPORTING
i_currency = p_curr
TABLES
return = lt_return
EXCEPTIONS
no_currency = 1
currency_not_exist = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE s398(00) WITH 'Currency is not valid'.
STOP.
ENDIF.