ABAP function to convert Number to Words

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