Spell_amount-wrong amount description

Question

i m using the function module spell_amount. but when i m passing the amount field say value 900,000.12, then the output comin is 'RUPEES NINE HUNDRED THOUSAND AND ZERO PAISA ONLY', which is not correct in my sceneario. i want it to be nine lakh and twelve paise only.
how it could be and what changes i have to make ?

Answer 1

Example
TABLES : vbak.
data :
CTOTTEXT type c.
PARAMETER : ncurr(15) type c.
DATA :nsignamt like reguh-rwbtr,
      nLentotake type i,
      actualstrlen type i,
      flen TYPE i,
      nStrt type i,
      nPos type i,
      nIntEndsAt type i,
      decpos type i.
DATA : cFullText(254) type c,
       cstring(18) type c,
       cIntstring(15) type c,
       cPart(2) type c,
       c1stdigit(1) type c,
       c2nddigit(1) type c,
       cDecstring(2) type c,
       cTextpos(10) type c,
       ctext like T015Z-WORT.
  cFullText = ''.
  move ncurr to cString.
  REPLACE '-' WITH ' ' INTO CSTRING.
  REPLACE ',' WITH ' ' INTO CSTRING.
  REPLACE ',' WITH ' ' INTO CSTRING.
  condense cSTring NO-GAPS .
  fLEN = STRLEN( cString ).  "gives correct length
  decpos = flen - 2.
  nIntEndsAt = flen - 3.
*split currency string into integer part and decimal part.
*  move cString+0( nIntendsat ) to cIntString.
  cIntstring  = cString+0(nIntendsat).
  move cString+decpos(2) to cDecString.
* TAKE 2 TIMES AS ONCE FOR INTEGER 2NDLY FOR DECIMAL
  do 2 times.
* whichver part of the amount (int or dec) u want to process put it
* in cstring.
     if sy-index = 1.
        move cIntString to cString .
     else.   " for paise part.
        if cDecstring = '00'.
           EXIT.
        endif.
        CONCATENATE  cFullText  'AND PAISE' INTO cFullText SEPARATED BY
SPACE.
        move cDecString to cString .
     endif.
fLEN = STRLEN( cString ).  "gives correct length
  nStrt = 0.
  nLentotake = 1.
  DO 10 times.
    CASE flen.
         WHEN 3.  "hundreth position.
              nLentotake = 1.
         WHEN 9 or 7 or 5 or 2.
              nLentotake = 2.
         WHEN  8 or 6 or 4 or 1.
              nLentotake = 1.
    ENDCASE.