Error en creación de store procedure

[ej1]

Gracias por tu respuesta disculpa que tarde en responder pues me ataco un virus humano y bueno estuve medio mal la semana pasada;
probe el codigo y me funciono, faltaba este codigo dif INT4;
Bueno mi idea final del codigo es que compare una fecha y me arroje el resultado, entonces lo he estado transformando pero siempre sale un error, este es el codigo:





CREATE OR REPLACE FUNCTION ejemplo_txt(fecha_inicio date)

RETURNS VARCHAR(5000) AS
$BODY$
DECLARE

resultado_txt VARCHAR(2000);
--dif INT4;
dif date;

BEGIN

resultado_txt:= 'Estatus activo';

--dif := 1;

dif:= Select
to_char(age (current_date, fecha_inicio),'dd') AS valor
From
empleado_historico;

IF dif <> '0' THEN

resultado_txt := 'Estatus inactivo';
END IF;
RETURN resultado_txt;

END;

$BODY$
LANGUAGE 'plpgsql' VOLATILE;



Alguna sugerencia?