金额转换成英文描述

FUNCTION ysd_cov_num_to_en.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     REFERENCE(FROM_NUM) TYPE  DMBTR
*"  EXPORTING
*"     REFERENCE(TO_STR) TYPE  STRING
*"----------------------------------------------------------------------

DATA num(16) TYPE p DECIMALS 0 .
DATA pnum(2) TYPE i.

DATA temp1 TYPE i .
DATA temp2 TYPE i .
DATA temp3 TYPE i .
DATA temp4 TYPE i .

DATA tempq TYPE i .
DATA tempw TYPE i .
DATA tempe TYPE i .
DATA tempr TYPE i .

DATA temp(16) TYPE i.
DATA tempii TYPE i .

DATA ls_return TYPE string.
DATA ls_str TYPE string.
DATA moff TYPE i VALUE 0.
****
temp = from_num.

ls_str = from_num.
FIND '.' IN ls_str MATCH OFFSET moff.

IF moff > 0.
num = ls_str+0(moff).
moff = moff + 1.
ls_str = ls_str+moff(2).
pnum = ls_str.
ELSE.
num = temp.
pnum = 0.
ENDIF.

IF from_num < 0.
ls_return = 'Negative'.
ELSE.
ls_return = ''.
ENDIF.

num = ABS( num ).

****
*************************************************
temp = num .

temp1 = temp DIV 1000000000 .
temp = temp MOD 1000000000 .

temp2 = temp DIV 1000000 .
temp = temp MOD 1000000 .

temp3 = temp DIV 1000 .
temp = temp MOD 1000 .

temp4 = temp .
********************************************************
IF temp1 <> 0 .
tempii = temp1 .

tempw = tempii DIV 100 .
tempii = tempii MOD 100 .

tempe = tempii DIV 10 .
tempii = tempii MOD 10 .

tempr = tempii .
*********************
IF tempw <> 0 .
tempii = tempw .
CASE tempii.
WHEN 1 .
CONCATENATE ls_return 'One' INTO ls_return SEPARATED BY ' '.    "WRITE 'One' .
WHEN 2 .
CONCATENATE ls_return 'Two' INTO ls_return SEPARATED BY ' '.    "WRITE 'Two' .
WHEN 3 .
CONCATENATE ls_return 'Three' INTO ls_return SEPARATED BY ' '.    "WRITE 'Three' .
WHEN 4 .
CONCATENATE ls_return 'Four' INTO ls_return SEPARATED BY ' '.    "WRITE 'Four' .
WHEN 5 .
CONCATENATE ls_return 'Five' INTO ls_return SEPARATED BY ' '.    "WRITE 'Five' .
WHEN 6 .
CONCATENATE ls_return 'Six' INTO ls_return SEPARATED BY ' '.    "WRITE 'Six' .
WHEN 7 .
CONCATENATE ls_return 'Seven' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seven' .
WHEN 8 .
CONCATENATE ls_return 'Eight' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eight' .
WHEN 9 .
CONCATENATE ls_return 'Nine' INTO ls_return SEPARATED BY ' '.    "WRITE 'Nine' .
ENDCASE.
CONCATENATE ls_return 'Hundred' INTO ls_return SEPARATED BY ' '.    "WRITE 'Hundred' .
ENDIF .
*********************

tempii = tempe .
CASE tempii.
WHEN 1 .
tempii = temp1 MOD 100.

CASE tempii.
WHEN 11 .
CONCATENATE ls_return 'Eleven' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eleven' .
WHEN 12 .
CONCATENATE ls_return 'Twelve' INTO ls_return SEPARATED BY ' '.    "WRITE 'Twelve' .
WHEN 13 .
CONCATENATE ls_return 'Thirteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Thirteen' .
WHEN 14 .
CONCATENATE ls_return 'Fourteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Fourteen' .
WHEN 15 .
CONCATENATE ls_return 'Fifteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Fifteen' .
WHEN 16 .
CONCATENATE ls_return 'Sixteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Sixteen' .
WHEN 17 .
CONCATENATE ls_return 'Seventeen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seventeen' .
WHEN 18 .
CONCATENATE ls_return 'Eighteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eighteen' .
WHEN 19 .
CONCATENATE ls_return 'Nineteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Nineteen' .
ENDCASE.
tempr = 0.  "leotian
WHEN 0 .

IF tempr <> 0 .
IF ls_return <> ''.
CONCATENATE ls_return 'And' INTO ls_return SEPARATED BY ' '.    "WRITE 'And'.
ENDIF.
tempii = tempr.
CASE tempii.

WHEN 1 .
CONCATENATE ls_return 'One' INTO ls_return SEPARATED BY ' '.    "WRITE 'One' .
WHEN 2 .
CONCATENATE ls_return 'Two' INTO ls_return SEPARATED BY ' '.    "WRITE 'Two' .
WHEN 3 .
CONCATENATE ls_return 'Three' INTO ls_return SEPARATED BY ' '.    "WRITE 'Three' .
WHEN 4 .
CONCATENATE ls_return 'Four' INTO ls_return SEPARATED BY ' '.    "WRITE 'Four' .
WHEN 5 .
CONCATENATE ls_return 'Five' INTO ls_return SEPARATED BY ' '.    "WRITE 'Five' .
WHEN 6 .
CONCATENATE ls_return 'Six' INTO ls_return SEPARATED BY ' '.    "WRITE 'Six' .
WHEN 7 .
CONCATENATE ls_return 'Seven' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seven' .
WHEN 8 .
CONCATENATE ls_return 'Eight' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eight' .
WHEN 9 .
CONCATENATE ls_return 'Nine' INTO ls_return SEPARATED BY ' '.    "WRITE 'Nine' .
ENDCASE.

ENDIF .
tempe = 0.  "leotian
WHEN 2 .
CONCATENATE ls_return 'Twenty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Twenty' .
WHEN 3 .
CONCATENATE ls_return 'Thirty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Thirty' .
WHEN 4 .
CONCATENATE ls_return 'Fourty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Fourty' .
WHEN 5 .
CONCATENATE ls_return 'Fifty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Fifty' .
WHEN 6 .
CONCATENATE ls_return 'Sixty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Sixty' .
WHEN 7 .
CONCATENATE ls_return 'Seventy' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seventy' .
WHEN 8 .
CONCATENATE ls_return 'Eighty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eighty' .
WHEN 9 .
CONCATENATE ls_return 'Ninty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Ninty' .
ENDCASE.

***********************
IF tempr <> 0 And tempe <> 0.
tempii = tempr .
CASE tempii.

WHEN 1 .
CONCATENATE ls_return 'One' INTO ls_return SEPARATED BY ' '.    "WRITE 'One' .
WHEN 2 .
CONCATENATE ls_return 'Two' INTO ls_return SEPARATED BY ' '.    "WRITE 'Two' .
WHEN 3 .
CONCATENATE ls_return 'Three' INTO ls_return SEPARATED BY ' '.    "WRITE 'Three' .
WHEN 4 .
CONCATENATE ls_return 'Four' INTO ls_return SEPARATED BY ' '.    "WRITE 'Four' .
WHEN 5 .
CONCATENATE ls_return 'Five' INTO ls_return SEPARATED BY ' '.    "WRITE 'Five' .
WHEN 6 .
CONCATENATE ls_return 'Six' INTO ls_return SEPARATED BY ' '.    "WRITE 'Six' .
WHEN 7 .
CONCATENATE ls_return 'Seven' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seven' .
WHEN 8 .
CONCATENATE ls_return 'Eight' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eight' .
WHEN 9 .
CONCATENATE ls_return 'Nine' INTO ls_return SEPARATED BY ' '.    "WRITE 'Nine' .
ENDCASE.

ENDIF .

***********************

CONCATENATE ls_return 'Billion' INTO ls_return SEPARATED BY ' '.    "WRITE 'billion' .
"CONCATENATE ls_return 'One' INTO ls_return SEPARATED BY ' '.    "WRITE / .
ENDIF .

***************************************************************
IF temp2 <> 0 .
*    IF ls_return <> ''.
*      CONCATENATE ls_return 'And' INTO ls_return SEPARATED BY ' '.    "WRITE 'And'.
*    ENDIF.
tempii = temp2 .

tempw = tempii DIV 100 .
tempii = tempii MOD 100 .

tempe = tempii DIV 10 .
tempii = tempii MOD 10 .

tempr = tempii .
*********************
IF tempw <> 0 .
tempii = tempw .
CASE tempii.

WHEN 1 .
CONCATENATE ls_return 'One' INTO ls_return SEPARATED BY ' '.    "WRITE 'One' .
WHEN 2 .
CONCATENATE ls_return 'Two' INTO ls_return SEPARATED BY ' '.    "WRITE 'Two' .
WHEN 3 .
CONCATENATE ls_return 'Three' INTO ls_return SEPARATED BY ' '.    "WRITE 'Three' .
WHEN 4 .
CONCATENATE ls_return 'Four' INTO ls_return SEPARATED BY ' '.    "WRITE 'Four' .
WHEN 5 .
CONCATENATE ls_return 'Five' INTO ls_return SEPARATED BY ' '.    "WRITE 'Five' .
WHEN 6 .
CONCATENATE ls_return 'Six' INTO ls_return SEPARATED BY ' '.    "WRITE 'Six' .
WHEN 7 .
CONCATENATE ls_return 'Seven' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seven' .
WHEN 8 .
CONCATENATE ls_return 'Eight' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eight' .
WHEN 9 .
CONCATENATE ls_return 'Nine' INTO ls_return SEPARATED BY ' '.    "WRITE 'Nine' .
ENDCASE.
CONCATENATE ls_return 'Hundred' INTO ls_return SEPARATED BY ' '.    "WRITE 'Hundred' .
ENDIF .
*********************

tempii = tempe .
CASE tempii.
WHEN 1 .
tempii = temp2 MOD 100 .

CASE tempii.

WHEN 11 .
CONCATENATE ls_return 'Eleven' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eleven' .
WHEN 12 .
CONCATENATE ls_return 'Twelve' INTO ls_return SEPARATED BY ' '.    "WRITE 'Twelve' .
WHEN 13 .
CONCATENATE ls_return 'Thirteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Thirteen' .
WHEN 14 .
CONCATENATE ls_return 'Fourteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Fourteen' .
WHEN 15 .
CONCATENATE ls_return 'Fifteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Fifteen' .
WHEN 16 .
CONCATENATE ls_return 'Sixteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Sixteen' .
WHEN 17 .
CONCATENATE ls_return 'Seventeen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seventeen' .
WHEN 18 .
CONCATENATE ls_return 'Eighteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eighteen' .
WHEN 19 .
CONCATENATE ls_return 'Nineteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Nineteen' .

ENDCASE.
tempr = 0.  "leotian
WHEN 0 .

IF tempr <> 0 .
IF ls_return <> ''.
CONCATENATE ls_return 'And' INTO ls_return SEPARATED BY ' '.    "WRITE 'And'.
ENDIF.
tempii = tempr.
CASE tempii.
WHEN 1 .
CONCATENATE ls_return 'One' INTO ls_return SEPARATED BY ' '.    "WRITE 'One' .
WHEN 2 .
CONCATENATE ls_return 'Two' INTO ls_return SEPARATED BY ' '.    "WRITE 'Two' .
WHEN 3 .
CONCATENATE ls_return 'Three' INTO ls_return SEPARATED BY ' '.    "WRITE 'Three' .
WHEN 4 .
CONCATENATE ls_return 'Four' INTO ls_return SEPARATED BY ' '.    "WRITE 'Four' .
WHEN 5 .
CONCATENATE ls_return 'Five' INTO ls_return SEPARATED BY ' '.    "WRITE 'Five' .
WHEN 6 .
CONCATENATE ls_return 'Six' INTO ls_return SEPARATED BY ' '.    "WRITE 'Six' .
WHEN 7 .
CONCATENATE ls_return 'Seven' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seven' .
WHEN 8 .
CONCATENATE ls_return 'Eight' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eight' .
WHEN 9 .
CONCATENATE ls_return 'Nine' INTO ls_return SEPARATED BY ' '.    "WRITE 'Nine' .
ENDCASE.

ENDIF .
tempe = 0.  "leotian
WHEN 2 .
CONCATENATE ls_return 'Twenty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Twenty' .
WHEN 3 .
CONCATENATE ls_return 'Thirty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Thirty' .
WHEN 4 .
CONCATENATE ls_return 'Fourty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Fourty' .
WHEN 5 .
CONCATENATE ls_return 'Fifty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Fifty' .
WHEN 6 .
CONCATENATE ls_return 'Sixty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Sixty' .
WHEN 7 .
CONCATENATE ls_return 'Seventy' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seventy' .
WHEN 8 .
CONCATENATE ls_return 'Eighty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eighty' .
WHEN 9 .
CONCATENATE ls_return 'Ninty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Ninty' .
ENDCASE.

***********************
IF tempr <> 0 And tempe <> 0.
tempii = tempr .
CASE tempii.

WHEN 1 .
CONCATENATE ls_return 'One' INTO ls_return SEPARATED BY ' '.    "WRITE 'One' .
WHEN 2 .
CONCATENATE ls_return 'Two' INTO ls_return SEPARATED BY ' '.    "WRITE 'Two' .
WHEN 3 .
CONCATENATE ls_return 'Three' INTO ls_return SEPARATED BY ' '.    "WRITE 'Three' .
WHEN 4 .
CONCATENATE ls_return 'Four' INTO ls_return SEPARATED BY ' '.    "WRITE 'Four' .
WHEN 5 .
CONCATENATE ls_return 'Five' INTO ls_return SEPARATED BY ' '.    "WRITE 'Five' .
WHEN 6 .
CONCATENATE ls_return 'Six' INTO ls_return SEPARATED BY ' '.    "WRITE 'Six' .
WHEN 7 .
CONCATENATE ls_return 'Seven' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seven' .
WHEN 8 .
CONCATENATE ls_return 'Eight' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eight' .
WHEN 9 .
CONCATENATE ls_return 'Nine' INTO ls_return SEPARATED BY ' '.    "WRITE 'Nine' .
ENDCASE.

ENDIF .

***********************
CONCATENATE ls_return 'Million' INTO ls_return SEPARATED BY ' '.    "WRITE 'million' .
"CONCATENATE ls_return 'One' INTO ls_return SEPARATED BY ' '.    "WRITE / .
ENDIF .

***************************************************************
IF temp3 <> 0 .
*    IF ls_return <> ''.
*      CONCATENATE ls_return 'And' INTO ls_return SEPARATED BY ' '.    "WRITE 'And'.
*    ENDIF.
tempii = temp3 .

tempw = tempii DIV 100 .
tempii = tempii MOD 100 .

tempe = tempii DIV 10 .
tempii = tempii MOD 10 .

tempr = tempii .
*********************
IF tempw <> 0 .
tempii = tempw .
CASE tempii.

WHEN 1 .
CONCATENATE ls_return 'One' INTO ls_return SEPARATED BY ' '.    "WRITE 'One' .
WHEN 2 .
CONCATENATE ls_return 'Two' INTO ls_return SEPARATED BY ' '.    "WRITE 'Two' .
WHEN 3 .
CONCATENATE ls_return 'Three' INTO ls_return SEPARATED BY ' '.    "WRITE 'Three' .
WHEN 4 .
CONCATENATE ls_return 'Four' INTO ls_return SEPARATED BY ' '.    "WRITE 'Four' .
WHEN 5 .
CONCATENATE ls_return 'Five' INTO ls_return SEPARATED BY ' '.    "WRITE 'Five' .
WHEN 6 .
CONCATENATE ls_return 'Six' INTO ls_return SEPARATED BY ' '.    "WRITE 'Six' .
WHEN 7 .
CONCATENATE ls_return 'Seven' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seven' .
WHEN 8 .
CONCATENATE ls_return 'Eight' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eight' .
WHEN 9 .
CONCATENATE ls_return 'Nine' INTO ls_return SEPARATED BY ' '.    "WRITE 'Nine' .
ENDCASE.
CONCATENATE ls_return 'Hundred' INTO ls_return SEPARATED BY ' '.    "WRITE 'Hundred' .
ENDIF .
*********************

tempii = tempe .
CASE tempii.
WHEN 1 .
tempii = temp3 MOD 100 .

CASE tempii.

WHEN 11 .
CONCATENATE ls_return 'Eleven' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eleven' .
WHEN 12 .
CONCATENATE ls_return 'Twelve' INTO ls_return SEPARATED BY ' '.    "WRITE 'Twelve' .
WHEN 13 .
CONCATENATE ls_return 'Thirteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Thirteen' .
WHEN 14 .
CONCATENATE ls_return 'Fourteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Fourteen' .
WHEN 15 .
CONCATENATE ls_return 'Fifteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Fifteen' .
WHEN 16 .
CONCATENATE ls_return 'Sixteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Sixteen' .
WHEN 17 .
CONCATENATE ls_return 'Seventeen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seventeen' .
WHEN 18 .
CONCATENATE ls_return 'Eighteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eighteen' .
WHEN 19 .
CONCATENATE ls_return 'Nineteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Nineteen' .

ENDCASE.
tempr = 0.  "leotian
WHEN 0 .

IF tempr <> 0 .
IF ls_return <> ''.
CONCATENATE ls_return 'And' INTO ls_return SEPARATED BY ' '.    "WRITE 'And'.
ENDIF.
tempii = tempr.
CASE tempii.

WHEN 1 .
CONCATENATE ls_return 'One' INTO ls_return SEPARATED BY ' '.    "WRITE 'One' .
WHEN 2 .
CONCATENATE ls_return 'Two' INTO ls_return SEPARATED BY ' '.    "WRITE 'Two' .
WHEN 3 .
CONCATENATE ls_return 'Three' INTO ls_return SEPARATED BY ' '.    "WRITE 'Three' .
WHEN 4 .
CONCATENATE ls_return 'Four' INTO ls_return SEPARATED BY ' '.    "WRITE 'Four' .
WHEN 5 .
CONCATENATE ls_return 'Five' INTO ls_return SEPARATED BY ' '.    "WRITE 'Five' .
WHEN 6 .
CONCATENATE ls_return 'Six' INTO ls_return SEPARATED BY ' '.    "WRITE 'Six' .
WHEN 7 .
CONCATENATE ls_return 'Seven' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seven' .
WHEN 8 .
CONCATENATE ls_return 'Eight' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eight' .
WHEN 9 .
CONCATENATE ls_return 'Nine' INTO ls_return SEPARATED BY ' '.    "WRITE 'Nine' .
ENDCASE.

ENDIF .
tempe = 0.  "leotian
WHEN 2 .
CONCATENATE ls_return 'Twenty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Twenty' .
WHEN 3 .
CONCATENATE ls_return 'Thirty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Thirty' .
WHEN 4 .
CONCATENATE ls_return 'Fourty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Fourty' .
WHEN 5 .
CONCATENATE ls_return 'Fifty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Fifty' .
WHEN 6 .
CONCATENATE ls_return 'Sixty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Sixty' .
WHEN 7 .
CONCATENATE ls_return 'Seventy' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seventy' .
WHEN 8 .
CONCATENATE ls_return 'Eighty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eighty' .
WHEN 9 .
CONCATENATE ls_return 'Ninty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Ninty' .
ENDCASE.

***********************
IF tempr <> 0 And tempe <> 0.
tempii = tempr .
CASE tempii.

WHEN 1 .
CONCATENATE ls_return 'One' INTO ls_return SEPARATED BY ' '.    "WRITE 'One' .
WHEN 2 .
CONCATENATE ls_return 'Two' INTO ls_return SEPARATED BY ' '.    "WRITE 'Two' .
WHEN 3 .
CONCATENATE ls_return 'Three' INTO ls_return SEPARATED BY ' '.    "WRITE 'Three' .
WHEN 4 .
CONCATENATE ls_return 'Four' INTO ls_return SEPARATED BY ' '.    "WRITE 'Four' .
WHEN 5 .
CONCATENATE ls_return 'Five' INTO ls_return SEPARATED BY ' '.    "WRITE 'Five' .
WHEN 6 .
CONCATENATE ls_return 'Six' INTO ls_return SEPARATED BY ' '.    "WRITE 'Six' .
WHEN 7 .
CONCATENATE ls_return 'Seven' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seven' .
WHEN 8 .
CONCATENATE ls_return 'Eight' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eight' .
WHEN 9 .
CONCATENATE ls_return 'Nine' INTO ls_return SEPARATED BY ' '.    "WRITE 'Nine' .
ENDCASE.

ENDIF .

***********************
CONCATENATE ls_return 'Thousand' INTO ls_return SEPARATED BY ' '.    "WRITE 'thousAnd' .

ENDIF .

***************************************************************

IF temp4 <> 0 .
*    IF ls_return <> ''.
*      CONCATENATE ls_return 'And' INTO ls_return SEPARATED BY ' '.    "WRITE 'And'.
*    ENDIF.
tempii = temp4 .

tempw = tempii DIV 100 .
tempii = tempii MOD 100 .

tempe = tempii DIV 10 .
tempii = tempii MOD 10 .

tempr = tempii .
*********************
IF tempw <> 0 .
tempii = tempw .
CASE tempii.

WHEN 1 .
CONCATENATE ls_return 'One' INTO ls_return SEPARATED BY ' '.    "WRITE 'One' .
WHEN 2 .
CONCATENATE ls_return 'Two' INTO ls_return SEPARATED BY ' '.    "WRITE 'Two' .
WHEN 3 .
CONCATENATE ls_return 'Three' INTO ls_return SEPARATED BY ' '.    "WRITE 'Three' .
WHEN 4 .
CONCATENATE ls_return 'Four' INTO ls_return SEPARATED BY ' '.    "WRITE 'Four' .
WHEN 5 .
CONCATENATE ls_return 'Five' INTO ls_return SEPARATED BY ' '.    "WRITE 'Five' .
WHEN 6 .
CONCATENATE ls_return 'Six' INTO ls_return SEPARATED BY ' '.    "WRITE 'Six' .
WHEN 7 .
CONCATENATE ls_return 'Seven' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seven' .
WHEN 8 .
CONCATENATE ls_return 'Eight' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eight' .
WHEN 9 .
CONCATENATE ls_return 'Nine' INTO ls_return SEPARATED BY ' '.    "WRITE 'Nine' .
ENDCASE.
CONCATENATE ls_return 'Hundred' INTO ls_return SEPARATED BY ' '.    "WRITE 'Hundred' .
ENDIF .
*********************

tempii = tempe .
CASE tempii.
WHEN 1 .
tempii = temp4 MOD 100.

CASE tempii.

WHEN 11 .
CONCATENATE ls_return 'Eleven' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eleven' .
WHEN 12 .
CONCATENATE ls_return 'Twelve' INTO ls_return SEPARATED BY ' '.    "WRITE 'Twelve' .
WHEN 13 .
CONCATENATE ls_return 'Thirteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Thirteen' .
WHEN 14 .
CONCATENATE ls_return 'Fourteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Fourteen' .
WHEN 15 .
CONCATENATE ls_return 'Fifteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Fifteen' .
WHEN 16 .
CONCATENATE ls_return 'Sixteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Sixteen' .
WHEN 17 .
CONCATENATE ls_return 'Seventeen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seventeen' .
WHEN 18 .
CONCATENATE ls_return 'Eighteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eighteen' .
WHEN 19 .
CONCATENATE ls_return 'Nineteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Nineteen' .

ENDCASE.
tempr = 0.  "leotian
WHEN 0 .

IF tempr <> 0 .
IF ls_return <> ''.
CONCATENATE ls_return 'And' INTO ls_return SEPARATED BY ' '.    "WRITE 'And'.
ENDIF.
tempii = tempr.
CASE tempii.

WHEN 1 .
CONCATENATE ls_return 'One' INTO ls_return SEPARATED BY ' '.    "WRITE 'One' .
WHEN 2 .
CONCATENATE ls_return 'Two' INTO ls_return SEPARATED BY ' '.    "WRITE 'Two' .
WHEN 3 .
CONCATENATE ls_return 'Three' INTO ls_return SEPARATED BY ' '.    "WRITE 'Three' .
WHEN 4 .
CONCATENATE ls_return 'Four' INTO ls_return SEPARATED BY ' '.    "WRITE 'Four' .
WHEN 5 .
CONCATENATE ls_return 'Five' INTO ls_return SEPARATED BY ' '.    "WRITE 'Five' .
WHEN 6 .
CONCATENATE ls_return 'Six' INTO ls_return SEPARATED BY ' '.    "WRITE 'Six' .
WHEN 7 .
CONCATENATE ls_return 'Seven' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seven' .
WHEN 8 .
CONCATENATE ls_return 'Eight' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eight' .
WHEN 9 .
CONCATENATE ls_return 'Nine' INTO ls_return SEPARATED BY ' '.    "WRITE 'Nine' .
ENDCASE.

ENDIF .
tempe = 0.  "leotian
WHEN 2 .
CONCATENATE ls_return 'Twenty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Twenty' .
WHEN 3 .
CONCATENATE ls_return 'Thirty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Thirty' .
WHEN 4 .
CONCATENATE ls_return 'Fourty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Fourty' .
WHEN 5 .
CONCATENATE ls_return 'Fifty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Fifty' .
WHEN 6 .
CONCATENATE ls_return 'Sixty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Sixty' .
WHEN 7 .
CONCATENATE ls_return 'Seventy' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seventy' .
WHEN 8 .
CONCATENATE ls_return 'Eighty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eighty' .
WHEN 9 .
CONCATENATE ls_return 'Ninty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Ninty' .
ENDCASE.

***********************
IF tempr <> 0 And tempe <> 0.
tempii = tempr .
CASE tempii.

WHEN 1 .
CONCATENATE ls_return 'One' INTO ls_return SEPARATED BY ' '.    "WRITE 'One' .
WHEN 2 .
CONCATENATE ls_return 'Two' INTO ls_return SEPARATED BY ' '.    "WRITE 'Two' .
WHEN 3 .
CONCATENATE ls_return 'Three' INTO ls_return SEPARATED BY ' '.    "WRITE 'Three' .
WHEN 4 .
CONCATENATE ls_return 'Four' INTO ls_return SEPARATED BY ' '.    "WRITE 'Four' .
WHEN 5 .
CONCATENATE ls_return 'Five' INTO ls_return SEPARATED BY ' '.    "WRITE 'Five' .
WHEN 6 .
CONCATENATE ls_return 'Six' INTO ls_return SEPARATED BY ' '.    "WRITE 'Six' .
WHEN 7 .
CONCATENATE ls_return 'Seven' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seven' .
WHEN 8 .
CONCATENATE ls_return 'Eight' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eight' .
WHEN 9 .
CONCATENATE ls_return 'Nine' INTO ls_return SEPARATED BY ' '.    "WRITE 'Nine' .
ENDCASE.

ENDIF .

***********************

ENDIF .

IF ls_return <> ''.
CONCATENATE ls_return 'Dollars' INTO ls_return SEPARATED BY ' '.    "WRITE 'And'.
ENDIF.
***********************
"处理小数
IF pnum > 0.
tempii = pnum .

tempw = tempii DIV 100 .
tempii = tempii MOD 100 .

tempe = tempii DIV 10 .
tempii = tempii MOD 10 .

tempr = tempii .
*********************
IF tempw <> 0 .
tempii = tempw .
CASE tempii.

WHEN 1 .
CONCATENATE ls_return 'One' INTO ls_return SEPARATED BY ' '.    "WRITE 'One' .
WHEN 2 .
CONCATENATE ls_return 'Two' INTO ls_return SEPARATED BY ' '.    "WRITE 'Two' .
WHEN 3 .
CONCATENATE ls_return 'Three' INTO ls_return SEPARATED BY ' '.    "WRITE 'Three' .
WHEN 4 .
CONCATENATE ls_return 'Four' INTO ls_return SEPARATED BY ' '.    "WRITE 'Four' .
WHEN 5 .
CONCATENATE ls_return 'Five' INTO ls_return SEPARATED BY ' '.    "WRITE 'Five' .
WHEN 6 .
CONCATENATE ls_return 'Six' INTO ls_return SEPARATED BY ' '.    "WRITE 'Six' .
WHEN 7 .
CONCATENATE ls_return 'Seven' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seven' .
WHEN 8 .
CONCATENATE ls_return 'Eight' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eight' .
WHEN 9 .
CONCATENATE ls_return 'Nine' INTO ls_return SEPARATED BY ' '.    "WRITE 'Nine' .
ENDCASE.
CONCATENATE ls_return 'Hundred' INTO ls_return SEPARATED BY ' '.    "WRITE 'Hundred' .
ENDIF .
*********************

tempii = tempe .
CASE tempii.
WHEN 1 .
tempii = pnum MOD 100.
CONCATENATE ls_return 'And' INTO ls_return SEPARATED BY ' '.    "WRITE 'And'.
CASE tempii.

WHEN 11 .
CONCATENATE ls_return 'Eleven' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eleven' .
WHEN 12 .
CONCATENATE ls_return 'Twelve' INTO ls_return SEPARATED BY ' '.    "WRITE 'Twelve' .
WHEN 13 .
CONCATENATE ls_return 'Thirteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Thirteen' .
WHEN 14 .
CONCATENATE ls_return 'Fourteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Fourteen' .
WHEN 15 .
CONCATENATE ls_return 'Fifteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Fifteen' .
WHEN 16 .
CONCATENATE ls_return 'Sixteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Sixteen' .
WHEN 17 .
CONCATENATE ls_return 'Seventeen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seventeen' .
WHEN 18 .
CONCATENATE ls_return 'Eighteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eighteen' .
WHEN 19 .
CONCATENATE ls_return 'Nineteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Nineteen' .

ENDCASE.
tempr = 0.  "leotian
WHEN 0 .

IF tempr <> 0 .
IF ls_return <> ''.
CONCATENATE ls_return 'And' INTO ls_return SEPARATED BY ' '.    "WRITE 'And'.
ENDIF.
tempii = tempr.
CASE tempii.

WHEN 1 .
CONCATENATE ls_return 'One' INTO ls_return SEPARATED BY ' '.    "WRITE 'One' .
WHEN 2 .
CONCATENATE ls_return 'Two' INTO ls_return SEPARATED BY ' '.    "WRITE 'Two' .
WHEN 3 .
CONCATENATE ls_return 'Three' INTO ls_return SEPARATED BY ' '.    "WRITE 'Three' .
WHEN 4 .
CONCATENATE ls_return 'Four' INTO ls_return SEPARATED BY ' '.    "WRITE 'Four' .
WHEN 5 .
CONCATENATE ls_return 'Five' INTO ls_return SEPARATED BY ' '.    "WRITE 'Five' .
WHEN 6 .
CONCATENATE ls_return 'Six' INTO ls_return SEPARATED BY ' '.    "WRITE 'Six' .
WHEN 7 .
CONCATENATE ls_return 'Seven' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seven' .
WHEN 8 .
CONCATENATE ls_return 'Eight' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eight' .
WHEN 9 .
CONCATENATE ls_return 'Nine' INTO ls_return SEPARATED BY ' '.    "WRITE 'Nine' .
ENDCASE.

ENDIF .
tempe = 0.  "leotian
WHEN 2 .
CONCATENATE ls_return 'Twenty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Twenty' .
WHEN 3 .
CONCATENATE ls_return 'Thirty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Thirty' .
WHEN 4 .
CONCATENATE ls_return 'Fourty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Fourty' .
WHEN 5 .
CONCATENATE ls_return 'Fifty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Fifty' .
WHEN 6 .
CONCATENATE ls_return 'Sixty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Sixty' .
WHEN 7 .
CONCATENATE ls_return 'Seventy' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seventy' .
WHEN 8 .
CONCATENATE ls_return 'Eighty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eighty' .
WHEN 9 .
CONCATENATE ls_return 'Ninty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Ninty' .
ENDCASE.

***********************
IF tempr <> 0 And tempe <> 0.
tempii = tempr .
CASE tempii.

WHEN 1 .
CONCATENATE ls_return 'One' INTO ls_return SEPARATED BY ' '.    "WRITE 'One' .
WHEN 2 .
CONCATENATE ls_return 'Two' INTO ls_return SEPARATED BY ' '.    "WRITE 'Two' .
WHEN 3 .
CONCATENATE ls_return 'Three' INTO ls_return SEPARATED BY ' '.    "WRITE 'Three' .
WHEN 4 .
CONCATENATE ls_return 'Four' INTO ls_return SEPARATED BY ' '.    "WRITE 'Four' .
WHEN 5 .
CONCATENATE ls_return 'Five' INTO ls_return SEPARATED BY ' '.    "WRITE 'Five' .
WHEN 6 .
CONCATENATE ls_return 'Six' INTO ls_return SEPARATED BY ' '.    "WRITE 'Six' .
WHEN 7 .
CONCATENATE ls_return 'Seven' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seven' .
WHEN 8 .
CONCATENATE ls_return 'Eight' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eight' .
WHEN 9 .
CONCATENATE ls_return 'Nine' INTO ls_return SEPARATED BY ' '.    "WRITE 'Nine' .
ENDCASE.

ENDIF .
IF ls_return <> ''.
CONCATENATE ls_return 'Cents only' INTO ls_return SEPARATED BY ' '.    "WRITE 'And'.
ENDIF.

ENDIF.
***********************
"返回结果
to_str = ls_return.

ENDFUNCTION.