لو سمحتو اخواني اين الخطأ ؟

 

create or replace procedure update_commition

 is 

cursor curs_emp_data

 is 

select empno ,sal,job from emp ;

v_emp_data cur_emp_data%rowtype;

comval number;





open cur_emp_data;

loop





fetch cur_emp_data into v_emp_data ; 





exit when (cur_emp_data%notfound);





if v_emp_data.job ='Manager' then 

comval := v_emp_data.sal * 0.10 ;

elsif v_emp_data.job ='SALESMAN' then 

comval := v_emp_data.sal * 0.05 ;

else 

comval := v_emp_data.sal * 0.02 ;

end if

update emp 

set comm = comval where v_emp_data.empno ;





end loop;





close cur_emp_data;





end update_commition;

 

تم تعديل 4 فبراير 201412 سنة بواسطة Ahmad.Hasan

فين الbegin وال end بتوع ال procedure

begin    and   end       thin run  

 

مشكورين اخواني بارك الله فيكم

وتم الموضوع على خير والحمد لله

 

set serveroutput on;

 

create or replace procedure update_commission (param1 in out number)

is

 

cursor curs_get_emp_data is select empno,sal,job from emp where deptno = param1;

var_emp_data curs_get_emp_data%rowtype;

commval number ;

 

begin

open curs_get_emp_data;

loop

fetch curs_get_emp_data into var_emp_data;

exit when (curs_get_emp_data%notfound);

if var_emp_data.job = 'Manager' then

commval := var_emp_data.sal *0.10;

elsif var_emp_data.job = 'SALESMAN' then

commval := var_emp_data.sal * 0.05;

else

commval := var_emp_data.sal *0.12;

end if ;

 

 

update emp

set comm = commval where empno = var_emp_data.empno ;

end loop;

close curs_get_emp_data;

 

select sum(comm) into param1 from emp where deptno = param1;

 

 

end update_commission;

 

لا يوجد خطا Warning: Procedure created with compilation errors. تم بنجاح

لا يوجد خطا Warning: Procedure created with compilation errors. تم بنجاح

اشكرك اخي وبارك الله فيكم جميعا