ex3

REPORT ZEX3.

DATA: dia(2) TYPE c,
      mes(2) TYPE c,
      ano(4) TYPE c,
      mesExtenso(15) TYPE c,
      resultado(50) TYPE c.

dia = sy-datum+6(2).
mes = sy-datum+4(2).
ano = sy-datum+0(4).

CASE mes.
  WHEN 01.
    mesExtenso = 'Janeiro'.
  WHEN 02.
    mesExtenso = 'Fevereiro'.
  WHEN 03.
    mesExtenso = 'Março'.
  WHEN 04.
    mesExtenso = 'Abril'.
  WHEN 05.
    mesExtenso = 'Maio'.
  WHEN 06.
    mesExtenso = 'Junho'.
  WHEN 07.
    mesExtenso = 'Julho'.
  WHEN 08.
    mesExtenso = 'Agosto'.
  WHEN 09.
    mesExtenso = 'Setembro'.
  WHEN 10.
    mesExtenso = 'Outubro'.
  WHEN 11.
    mesExtenso = 'Novembro'.
  WHEN 12.
    mesExtenso = 'Dezembro'.
ENDCASE.

CONCATENATE 'Dia' dia 'do mês de' mesExtenso 'de' ano INTO resultado SEPARATED BY SPACE.

WRITE resultado.