1.簡單輸出
create or replace procedure t_xuanze(name in varchar)
as
tname varchar(10);
begin
dbms_output.put_line('this is error!');
end;
（注意:1.沒有declare;2.形參上沒有類型範圍）
///////////////////////////////////////////////
2.形參賦值輸出
create or replace procedure t_xuanze(name in varchar)
as
tname varchar(10):=name;
begin
dbms_output.put_line(tname);
end;
/
注:在as下tname型別為varchar(10)，含有範圍
////////////////////////////////////////////
3.帶有if判斷的儲存過程
create or replace procedure t_xuanze(name in varchar)
as
tname varchar(10):=name;
begin
if(tname='emp') then
dbms_output.put_line('this is emp!');
elsif(tname='dept') then
dbms_output.put_line('this is dept!');
else
dbms_output.put_line('this is error!');
end if;
end;
/
4.儲存過程中套遊標列印多行記錄問題
create or replace procedure t_xuanze(name in varchar)
as
tname varchar(10):=name;
begin
if(tname='emp') then
declare
cursor cc is select * from emp where sal>(select avg(sal) from emp where 


deptno=10);
ccrec cc%rowtype;
begin
open cc;
loop
fetch cc into ccrec;
exit when cc%notfound;
dbms_output.put_line(ccrec.empno||'--'||ccrec.ename||'--'||


ccrec.job||'--'||ccrec.sal);
end loop;
close cc;
end;
elsif(tname='dept') then
dbms_output.put_line('this is dept!');
else
dbms_output.put_line('this is error!');
end if;
end;
//////////////////////////////////////////////
5.儲存過程中使用if條件判斷進行遊標列印多行記錄
create or replace procedure t_xuanze(name in varchar)
as
tname varchar(10):=name;
begin
if(tname='emp') then
declare
cursor cc is select * from emp where sal>(select avg(sal) from emp where 


deptno=10);
ccrec cc%rowtype;
begin
open cc;
loop
fetch cc into ccrec;
exit when cc%notfound;
dbms_output.put_line(ccrec.empno||'--'||ccrec.ename||'--'||


ccrec.job||'--'||ccrec.sal);
end loop;
close cc;
end;
elsif(tname='dept') then
declare
cursor cc is select b.dname,count(a.empno) as zongshu from emp a,dept b 


where a.deptno=b.deptno group by b.dname;
ccrec cc%rowtype;
begin
open cc;
loop
fetch cc into ccrec;
exit when cc%notfound;
dbms_output.put_line(ccrec.dname||'----'||ccrec.zongshu);
end loop;
close cc;
end;
else
dbms_output.put_line('this is error!');
end if;
end; 
6.儲存過程中使用傳參後遊標查詢多行記錄顯示
create or replace procedure t_chaxun(dno number)
as
num1 number(10):=dno;
begin
declare
cursor cc is select * from emp where deptno=num1;
ccrec cc%rowtype;
begin
open cc;
loop
fetch cc into ccrec;
exit when cc%notfound;
dbms_output.put_line(ccrec.empno||'---'||ccrec.empno||'---'||


ccrec.sal||'---'||ccrec.deptno);
end loop;
end;
end;

////////////////////////////////////////////////////

2.遊標由淺到深

1.查詢工資大於10號部門平均工資的職工資訊
declare
cursor cc is select * from emp where sal>(select avg(sal) from emp where deptno=10);
ccrec cc%rowtype;
begin
open cc;
loop
fetch cc into ccrec;
exit when cc%notfound;
dbms_output.put_line(ccrec.empno||'--'||ccrec.ename||'--'||ccrec.job||'--'||ccrec.sal);
end loop;
close cc;
end;
2.查詢各個部門的人數
declare
cursor cc is select b.dname,count(a.empno) as zongshu from emp a,dept b where a.deptno=b.deptno group by b.dname;
ccrec cc%rowtype;
begin
open cc;
loop
fetch cc into ccrec;
exit when cc%notfound;
dbms_output.put_line(ccrec.dname||'----'||ccrec.zongshu);
end loop;
close cc;

end;

文章轉載至：http://blog.csdn.net/zhanggaokai/article/details/8816537