ABAP function to convert Number to Words

*
* Converting Number to Words
*
* This function comes handy mostly for the Finance module as they need to print out check
* for the vendors.  The function allows you to covert easily from numbers to words.
*
* Written by : SAP Basis ABAP Programming and Other IMG Stuff
*              http://www.sap-img.com
*
REPORT ZSPELL.

TABLES SPELL.

DATA : T_SPELL LIKE SPELL OCCURS 0 WITH HEADER LINE.
DATA : PAMOUNT LIKE SPELL-NUMBER  VALUE '1234510'.

SY-TITLE = 'SPELLING NUMBER'.

PERFORM SPELL_AMOUNT USING PAMOUNT 'USD'.

WRITE: 'NUMBERS', T_SPELL-WORD, 'DECIMALS ', T_SPELL-DECWORD.

FORM SPELL_AMOUNT USING PWRBTR PWAERS.

 CALL FUNCTION 'SPELL_AMOUNT'
      EXPORTING
           AMOUNT    = PAMOUNT
           CURRENCY  = PWAERS
           FILLER    = SPACE
           LANGUAGE  = 'E'
      IMPORTING
           IN_WORDS  = T_SPELL
      EXCEPTIONS
           NOT_FOUND = 1
           TOO_LARGE = 2
           OTHERS    = 3.
ENDFORM.                               " SPELL_AMOUNT