Benutzung von gespeicherten Pzd

rem****vorbereitendes View für die interaktive Abfrage der Skills

create or replace view viPK as select p.idp,p.pname,s.skill1,s.skill2,s.skill3
                                   from tblperson p,tblskills s where p.idp=s.ids;



rem *** interaktive Auswahl einer Fähigkeit mit Ausgabe der dazu gehörenden Person

set serveroutput on;
create or replace procedure PzdSkill(parSkill varchar2) is

cursor cu is select * from viPK where upper(skill1)=upper(parskill) or
                                      upper(skill2)=upper(parskill) or
                                      upper(skill3)=upper(parskill) or
                                      upper(skill4)=upper(parskill);
ds viPK%rowtype;
begin
open cu;

loop
 fetch cu into ds;
 exit when cu%notfound;
dbms_output.put_line(ds.pname);
end loop;
end;
/

execute PzdSkill(&Skill');