Função - MONTH_NAMES_GET

"  Agora vou passa pra vocês uma função muito facil e simples, ela traz
" os meses conforme a lingua que informar, tive que dar manutenção num
" programa onde eu teria que mostrar um relatorio onde o Titulo 'mês' estava
" em 'hardcode', mas o programa seria usado em varios paises e teria que
" mostrar conforme a lingua do acesso, então alem de criar elementos de
" textos e traduzí-los, preferi usar essa função e dar 'read table' na
" tabela it_mes e trazer os campos 'KTX' e 'LTX'.

REPORT zmj_month_names_get.

* Tipos
TYPES : BEGIN OF ty_mes.
        INCLUDE STRUCTURE t247.
TYPES : END   OF ty_mes.

* Tabela Internas
DATA : it_mes TYPE TABLE OF ty_mes.

* Estruturas
DATA : st_mes TYPE          ty_mes.

START-OF-SELECTION.

  PERFORM zf_month_names_get.

*&---------------------------------------------------------------------*
*&      Form  ZF_MONTH_NAMES_GET
*&---------------------------------------------------------------------*
FORM zf_month_names_get .

"  Executem uma vez com sy-langu e depois execute mudando o mesmo pra
" verem como retorna a tabela.
BREAK-POINT.

  CALL FUNCTION 'MONTH_NAMES_GET'
    EXPORTING
      language              = sy-langu
    TABLES
" Tabela que receberá as informações.
      month_names           = it_mes
    EXCEPTIONS
      month_names_not_found = 1
      OTHERS                = 2.

  BREAK-POINT.
" Sussa né?

ENDFORM.                    " ZF_MONTH_NAMES_GET