Función Fecha para obtener el mes en letra

[patrus]

Hola
La solucion que te doy es esta aunque la puedes haber mejor
* Variables
Data: mes length 2 type c,
anio length 4 type c,
dia length 2 type c,
mes_letra length 50 type c.
anio = syst-datum(4). "para te coja el año
mes = syst-datum+4(2). " para que te coja los digitos del mes
dia = syst-datum+6(2). " para que te coja los digitos del dia
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.
Espero que te ayude