HI ,
I WRITE CODE in ZRFFOUS_C under include ZRFFORI99
and in program I can see TEXT1 AND TEXT2 split the amount but when i disply text1 and text 2 in sap script nothing is display in sap script.
i copy the standard sap script to ZF110_PRENUM_CHC
DATA: AMOUNT_NUM LIKE PC207-BETRG,
AMOUNT_WORDS(200) TYPE C.
DATA : TEXT01(255),
TEXT02(255),
TEXT03(255),
TEXT04(255).
DATA: LV_WORD TYPE IN_WORDS,
TEXT1 TYPE CHAR200,
TEXT2 TYPE CHAR200.
MOVE reguh-rwbtr TO AMOUNT_NUM.
CALL FUNCTION 'HR_IN_CHG_INR_WRDS'
EXPORTING
AMT_IN_NUM = AMOUNT_NUM
IMPORTING
AMT_IN_WORDS = AMOUNT_WORDS
* EXCEPTIONS
* DATA_TYPE_MISMATCH = 1
* OTHERS = 2
.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.
CLEAR : TEXT01,TEXT02,TEXT03,TEXT04.
SPLIT AMOUNT_WORDS AT 'Rupees' INTO : TEXT01 TEXT02.
SPLIT TEXT02 AT 'Paise' INTO : TEXT03 TEXT04.
CONDENSE : TEXT01,TEXT02,TEXT03,TEXT04.
IF TEXT03 IS INITIAL.
CONCATENATE TEXT01 'AND ZERO PAISE ONLY' INTO AMOUNT_WORDS SEPARATED BY SPACE.
ELSE.
CONCATENATE TEXT01 'AND' TEXT03 'PAISE ONLY' INTO AMOUNT_WORDS SEPARATED BY SPACE.
ENDIF.
*CONDENSE AMOUNT_WORDS .
spell-word = amount_words.
CONCATENATE SPELL-WORD SPELL-DECWORD INTO LV_WORD.
CALL FUNCTION 'RKD_WORD_WRAP'
EXPORTING
TEXTLINE = LV_WORD
* DELIMITER = ' '
OUTPUTLEN = 60
IMPORTING
OUT_LINE1 = TEXT1
OUT_LINE2 = TEXT2
* OUT_LINE3 =
* TABLES
* OUT_LINES =
EXCEPTIONS
OUTPUTLEN_TOO_LARGE = 1
OTHERS = 2
.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.
* REPLACE 'RUPEES' WITH '' INTO AMOUNT_WORDS.
* REPLACE 'ONLY' WITH '' INTO AMOUNT_WORDS.
* REPLACE 'AND' WITH '' INTO AMOUNT_WORDS.
* spell-word = amount_words.
* spell-word = TEXT2.
CONDENSE spell-word.
WRITE SPELL-WORD LEFT-JUSTIFIED TO SPELL-WORD.