ABAP--如何将月份转化为对应文本(代码摘抄)

*&---------------------------------------------------------------------*
*& Form GET_NAME_MONTH
*&---------------------------------------------------------------------*
* Get the name of the month passed as parameter
*----------------------------------------------------------------------*
* -->P_INT_MONTH_WA_MONTH Month's Number
* <--P_MONTH_NAME Month's Name
*----------------------------------------------------------------------*
form get_name_month using p_int_month_wa_month like t247-mnr
changing p_month_name like t247-ltx.
*
data: names_month like t247 occurs 0 with header line,
subrc like sy-subrc.
*

call function 'MONTH_NAMES_GET'
exporting
language = sy-langu
importing
return_code = subrc
tables
month_names = names_month
exceptions
month_names_not_found = 1
others = 2.
if sy-subrc ne 0.
retcode_r = 21.
endif.

if subrc ne pve00_ok.
clear p_month_name.
else.
loop at names_month where mnr = p_int_month_wa_month. endloop.
if sy-subrc ne pve00_ok.
clear p_month_name.
else.
p_month_name = names_month-ltx.
endif.
endif.
endform. " GET_NAME_MONTH