CURRENCY_AMOUNT_SAP_TO_DISPLAY FM to Convert currency value from SAP to display

* DATA declaration
*-----------------
* WMTO_S-AMOUNT =  Type DEC :: length 15 :: Deciamls 4 
parameter: p_discur like TCURC-WAERS,     "Display currency
           p_intval like WMTO_S-AMOUNT.   "Internal Amount

data:      gd_disval  like WMTO_S-AMOUNT. "Display Amount


***************************************************************
*Start-of-selection.
START-OF-SELECTION.
CALL FUNCTION 'CURRENCY_AMOUNT_SAP_TO_DISPLAY'
     EXPORTING
          currency        = p_discur
          amount_internal = p_intval
    IMPORTING
         AMOUNT_DISPLAY   = gd_disval
    EXCEPTIONS
         INTERNAL_ERROR   = 1
         OTHERS           = 2.

IF sy-subrc EQ 0.
*  You are now able to manipulate the returned value.
*                         I.e. Convert it to GBP

*  Without using this function module you would only be manipulating the
*  SAP stored value, which is often missing a number of zeroes.
*       I.e. 28000 JPY is stored within SAP as 280.
ENDIF.


***************************************************************
*End-of-selection.
END-OF-SELECTION.

write:/(30)  'Value stored in SAP:', p_intval,
      /(30)  'Displayed currency:',  p_discur,
      /(30)  'Ammount is displayed Currency:', gd_disval.