CREATE OR REPLACE FUNCTION Getnomefileesp(id_ric IN VARCHAR2, donating IN VARCHAR2, modo IN NUMBER) RETURN VARCHAR2
-- dato l'id_richiesta ritorna una stringa con la lista dei nome_file espletamento 3° parti/espletamento donating
AS
nome_file_esp VARCHAR2(2000);
CURSOR cur_esp (id_ric IN VARCHAR2) 
IS SELECT nome_file FROM MNP_DWH_XML_IN WHERE id_richiesta=id_ric AND tipo_file=6;

BEGIN
nome_file_esp:='';

FOR rec IN cur_esp(id_ric)  LOOP
  IF modo =1  --espletamento terze parti
    THEN
      IF SUBSTR( rec.nome_file, 0 , 4) <> donating
        THEN
  	       nome_file_esp:=nome_file_esp || '  ' || rec.nome_file;
  	    END IF;
  	ELSE
  	   IF SUBSTR( rec.nome_file, 0 , 4) = donating
        THEN
  	       nome_file_esp:=nome_file_esp || '  ' || rec.nome_file;
  	    END IF;
  	END IF;
END LOOP;

RETURN nome_file_esp;

END;
/