[مخالف - عنوان غير مناسب :]سؤال هاااااااااااااااااااااام

set serveroutput on

declare

type rctyp is ref cursor;

myrc1 rctyp;

myrc2 rctyp;

empno number;

deptno number;

ename varchar2(50);

dname varchar2(50);

begin

open myrc1 for select department_name, department_id,

cursor(select e.employee_id, e.first_name ||' '||e.last_name

from employees e

where e.department_id = d.department_id)

from departments d

order by d.department_id;

fetch myrc1 into dname, deptno,myrc2;

while myrc1%FOUND loop

dbms_output.put_line('**Department name is :' || dname ||' ('||deptno||')'||null);

dbms_output.put_line('-----------------------------------------------------');

fetch myrc2 into empno, ename;

while myrc2%FOUND loop

dbms_output.put_line('-'||ename||' '||empno);

fetch myrc2 into empno, ename;

end loop;

fetch myrc1 into dname, deptno,myrc2;

end loop;

close myrc1;

end;