topic Re: SPELL_AMOUNT in Application Development and Automation Discussions

SPELL_AMOUNT

Former Member — Mon, 07 May 2007 20:55:35 GMT

HI,

Can any one help me with following code.? Please fix the errors in the code.

DATA : MONEY TYPE I,

VALUE LIKE SY-WAERS,

LANG LIKE SY-LANGU,

IN_LETTERS LIKE SPELL.

MONEY = 1000.

CALL FUNCTION 'SPELL AMOUNT'

EXPORTING

AMOUNT = MONEY

IMPORTING

IN_WORDS = IN_LETTERS

EXCEPTIONS

NOT_FOUND = 1

TOO_LARGE = 2

OTHERS = 3

IF SY-SUBRC <> 0

ENDIF.

WRITE : / AMOUNT, VALUE, IN_LETTERS.

Re: SPELL_AMOUNT

Former Member — Mon, 07 May 2007 21:00:08 GMT

I guess data type for MONEY should be N.

Please check and confirm.

Regards,

Amey

Re: SPELL_AMOUNT

Former Member — Mon, 07 May 2007 21:10:58 GMT

Hi,

Check this..

DATA : money TYPE p DECIMALS 2,

in_letters LIKE spell.

money = '1000.00'.

CALL FUNCTION 'SPELL_AMOUNT'

EXPORTING

amount = money

IMPORTING

in_words = in_letters

EXCEPTIONS

not_found = 1

too_large = 2

OTHERS = 3.

WRITE : / in_letters-WORD.

Thanks,

Naren

Re: SPELL_AMOUNT

ferry_lianto — Mon, 07 May 2007 21:11:32 GMT

Hi,

Please try this.


DATA: MONEY LIKE PAYR-RWBTR,
      VALUE LIKE SY-WAERS,
      LANG  LIKE SY-LANGU,
      IN_LETTERS LIKE SPELL.
                                                                        
MONEY = 1000.
VALUE = SY-WAERS.
LANG = SY-LANGU.
                                                                        
CALL FUNCTION 'SPELL_AMOUNT'
  EXPORTING
    AMOUNT    = MONEY
    CURRENCY  = VALUE
    LANGUAGE  = LANG
  IMPORTING
    IN_WORDS  = IN_LETTERS
  EXCEPTIONS
    NOT_FOUND = 1
    TOO_LARGE = 2
    OTHERS    = 3.
                                                                        
WRITE : / MONEY, VALUE, IN_LETTERS-WORD.

Regards,

Ferry Lianto

Re: SPELL_AMOUNT

Former Member — Mon, 07 May 2007 21:15:57 GMT

Try:


DATA : money TYPE i,
value LIKE sy-waers,
lang LIKE sy-langu,
in_letters LIKE spell.

money = 1000.
CALL FUNCTION 'SPELL_AMOUNT'
  EXPORTING
    amount    = money
  IMPORTING
    in_words  = in_letters
  EXCEPTIONS
    not_found = 1
    too_large = 2
    OTHERS    = 3.
IF sy-subrc <> 0.
ENDIF.

WRITE : / money, value, in_letters-word.

Rob

Re: SPELL_AMOUNT

Former Member — Tue, 08 May 2007 00:40:32 GMT

The output I am getting is One Thousand.

I would like to have output as One thousand dollars.

VALUE = SY-WAERS.

Re: SPELL_AMOUNT

Former Member — Tue, 08 May 2007 00:41:31 GMT

The output I am getting is One Thousand.

I would like to have output as One thousand dollars.

VALUE = SY-WAERS. What does this statement do

Re: SPELL_AMOUNT

jayanthi_jayaraman — Tue, 08 May 2007 02:42:40 GMT

Hi,

Try this code.Now it is not showing any error.Reward points by clicking the star on the left of reply,if it helps.

DATA : MONEY TYPE I,

VALUE LIKE SY-WAERS,

LANG LIKE SY-LANGU,

IN_LETTERS TYPE SPELL.

MONEY = 1000.

CALL FUNCTION 'SPELL_AMOUNT'

EXPORTING

AMOUNT = MONEY

IMPORTING

IN_WORDS = IN_LETTERS

EXCEPTIONS

NOT_FOUND = 1

TOO_LARGE = 2

OTHERS = 3.

IF SY-SUBRC <> 0.

ENDIF.

WRITE : / MONEY, VALUE, IN_LETTERS-word.