SPELL_AMOUNT

*&---------------------------------------------------------------------*
*&      Form  change_to_en
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->DATA       text
*      -->STR        text
*----------------------------------------------------------------------*
form change_to_en using data type konv-kawrt  changing str .

  data:
   lw_spell like spell,
   lv_text type ltext,
   p_waers type eban-waers.
  p_waers = 'USD'.


  call function 'SPELL_AMOUNT'
    exporting
      amount   = data
      currency = p_waers
      filler   = ''
      language = 'E'
    importing
      in_words = lw_spell.

  data: lv_cent type spell.
  lw_spell-decimal = lw_spell-decimal / 10.
  if lw_spell-decimal is not initial.
    call function  'SPELL_AMOUNT'
    exporting
    amount   = lw_spell-decimal
*   currency = lw_vbak-waerk
    filler   = ''
    language = 'E'
    importing
    in_words = lv_cent.
  endif.

  if not lv_cent-word is initial.
    concatenate lw_spell-word 'AND' lv_cent-word 'CENTS'
     into str
    separated by space.
  else.
    str = lw_spell-word.

  endif.

endform.                    "change_to_en