Cursor

rem*** Zuerst wird ein View erzeugt
create or replace view viwProPers as
        select distinct  p.pname, pro.pro_bez from tblPerson p, tblProjekt pro, tblBearbeiter b
        where p.idp=b.idp and b.idpro=pro.idpro;

select * from viwProPers;



set charwidth 300;
rem **** Ermittlung der an den Projekten arbeitenden Personen

create or replace function fkt_pro_pers(Parname varchar2) return varchar2 is

cursor cutest is select * from viwProPers where pname=parname;

ds viwProPers%rowtype;
ausgabe varchar2(250);

begin
open cutest;
  loop
        fetch cutest into ds;
        exit when cutest%notfound;

         ausgabe:=ausgabe||ds.pname|| ' arbeitet an '||ds.pro_bez;
  end loop;
return ausgabe ;

end;
/
show errors;
select fkt_pro_pers('Einsporn') from dual;