Convertir fecha en letras

FORM fecha_en_letras  CHANGING p_ls_fecha.
  DATA: mes LENGTH 2 TYPE c,
        anio LENGTH 4 TYPE c,
        dia LENGTH 2 TYPE c,
        mes_letra LENGTH 50 TYPE c.
  anio = gwa_ztaspirante_10-fereg(4).
  mes = gwa_ztaspirante_10-fereg+4(2).
  dia = gwa_ztaspirante_10-fereg+6(2).
  CASE mes.
    WHEN '01'.
      mes_letra = 'Enero'.
    WHEN '02'.
      mes_letra = 'Febrero'.
    WHEN '03'.
      mes_letra = 'Marzo'.
    WHEN '04'.
      mes_letra = 'Abril'.
    WHEN '05'.
      mes_letra = 'Mayo'.
    WHEN '06'.
      mes_letra = 'Junio'.
    WHEN '07'.
      mes_letra = 'Julio'.
    WHEN '08'.
      mes_letra = 'Agosto'.
    WHEN '09'.
      mes_letra = 'Septiembre'.
    WHEN '10'.
      mes_letra = 'Octubre'.
    WHEN '11'.
      mes_letra = 'Noviembre'.
    WHEN '12'.
      mes_letra = 'Diciembre'.
  ENDCASE.
  CONCATENATE dia 'de' mes_letra 'del' anio INTO p_ls_fecha SEPARATED BY ' '.
ENDFORM.                    " fecha_en_letras