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
 

Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=1857104