PL/SQL游标问题

使用游标计算所有售货员的佣金：
create or replace procedure do_commissions
is
commission_rate number:=2;
total_sale number:=0;
current_person varchar2(3):=' ';
next_person varchar2(3);
quantity_sold number:=0;
item_price number:=0;

cursor sales_cur /*声明游标*/
is
select pur.salesperson, pur.quantity,pro.p_price
from purchase pur,product pro
where pur.p_name=pro.p_name
order by salesperson;
begin
open sales_cur;/*打开游标*/
loop
fetch sales_curinto
next_person,quantity_sold,item_price; /*获取游标*/
where(next_person=current_person
and
sales_cur%found)
loop
total_sale:=total_sale+quantity_sold*item_price;
fetch sales_cur into
next_person,quantity_sold,item_price;
end loop;
if(sales_cur%found)
then
if(current_person!=next_person)
then
if(current_person!=' ')
then
dbms_output.put_line
( current_person || ' ' ||total_sale || ' ' || total_sale*commission_rat/100);
end if;
total_sale:=quantity_sold*item_price;
current_person:=next_person;
end if;
else if(current_person!=' ')
then
dbms_output.put_line
(current_person || ' ' || total_sale || ' ' ||total_sale*commission_rat/100);
end if;
end if;
exit when sales_cur%notfound;
endloop;
close sales_cur;/*关闭游标*/
end do_commissions;
//警告: 创建的过程带有编译错误
//
？？？？？？？？？？？？？

你没有plsql吗？在plsql里边编辑此过程
然后运行的时候如果有什么错误就会提示错误了