CREATE OR REPLACE FUNCTION SIREN(id_e integer) RETURNS varchar
LANGUAGE SQL
AS '
DECLARE
  SIREN varchar;
BEGIN
  SELECT SUBSTR(e.siret,1,9) INTO SIREN
  FROM enterprise e
  WHERE id=id_e;
  RETURN SIREN;
END;' ;