Tuesday, 29 July 2014

Convert to Indian Currency


REPORT ZCS_STR2.

DATA: AMT TYPE PC207-BETRG VALUE 98564765,
      AMT_WORDS TYPE C LENGTH 100.

AMT = AMT / 7.

CALL FUNCTION 'HR_IN_CHG_INR_WRDS'
  EXPORTING
    AMT_IN_NUM         = AMT
  IMPORTING
    AMT_IN_WORDS       = AMT_WORDS
  EXCEPTIONS
    DATA_TYPE_MISMATCH = 1
    OTHERS             = 2.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ELSE.
  REPLACE ALL OCCURRENCES OF 'Rupees' IN AMT_WORDS WITH ' '.
  CONCATENATE 'Rupees' AMT_WORDS INTO AMT_WORDS.
  WRITE :/ AMT,
         / AMT_WORDS.
ENDIF.