create or replace procedure opiskelija_data (onimi in varchar2) is
cursor op is
select onumero, nimi, paa_aine, kaupunki, aloitusvuosi
from info1.opiskelija
where nimi like onimi
order by nimi;
t varchar2(80);
nobody boolean;
begin
nobody:=true;
htp.htmlOpen;
htp.headOpen;
htp.title('Kyselyesimerkki');
htp.headClose;
htp.bodyOpen(NULL,'BGCOLOR="WHITE"');
t:='
Opiskelijat, hakuehdolla NIMI LIKE '''||onimi||'''
';
htp.p(t);
for o in op loop
nobody := false;
htp.bold(o.nimi);
htp.blockquoteOpen;
htp.p('tunnus='||to_char(o.onumero)||', kaupunki= '||o.kaupunki);
htp.p(', pääaine= '||o.paa_aine);
htp.blockquoteClose;
htp.para;
end loop;
if nobody = true then
htp.p('Ketään ei löytynyt!');
end if;
htp.bodyClose;
htp.htmlClose;
end;
/
show errors;
exit;