declare
v_current_deptno dept.deptno%type;
v_emp  varchar2(250);
cursor dept_cursor is
select deptno
from dept where deptno=v_deptno;
begin open dept_cursor;
loop
fetch dept_cursor into v_cureent_deptno; exit when dept_cursor%notfound;
if emp_cursor%open  then
close emp_cursor;
endif;
open emp_cursor (v_current_deptno);
loop
fetch emp_cursor into v_emp; exit when emp_cursor%notfound
insert into message (result)
values (v_emp)
end loop;
end loop;
if emp_cursor%is open then
close emp_cursor;
end if;
close dept_cursor;
end;
/

أخى الكريم \ محمود شومان

أرجو ان توضح ما هو الغرض من كودك ..... لأنى لا أريد أن أصلح ال syntax للكود لكى يقوم بتنفيذ غرض انت لا تريده ،
أرجو ان تشرح الغرض بمزيد من التفصيل و شكراً.