طلب كود Pl-Sql...عايز أعمل nested loop يتعامل مع cursor

[محمد بطاله]

عايز أعمل nested loop يتعامل مع cursor
يطلع لى كل إدارة وتحت منها الموظفين بتوعها

مثلاً

10
mohamed
ali
20
ashraf
tamer


وجزاكم الله كل خير

[Ahmad.Hasan]

السلام عليكم
تفضل:

Declare
Cursor C Is
Select Deptno, Dname
  From Dept;
  
Cursor C1(Pn_Deptno Number) Is
Select Ename
  From Emp
 Where Deptno = Pn_Deptno; 
Begin
For Rec In C Loop
 Dbms_Output.Put_Line(Rec.Dname);
  For Rec1 In C1 (Rec.Deptno) Loop   
   Dbms_Output.Put_Line(Rec1.Ename);   
  End Loop;  
End Loop;
End; 

[محمد بطاله]

هو لازم ياباشمهندس نباصى رقم الإدارة (dept_id) فى الكيرسور التانى
وهل مفيش طريقة أخرى استخدمها اتنين لوب مثلاً داخل بعض بكيرسور واحد

[malik alwadi]

Declare
Cursor C ( Pn_Deptno Scott.Dept.Deptno%Type) Is
Select Ename
From Scott.Emp
Where Deptno = Pn_Deptno;
Begin
For I In ( Select Dname, Deptno From Scott.Dept) Loop
Dbms_Output.Put_Line( I.Dname);
For Rec In C( I.Deptno) Loop
Dbms_Output.Put_Line( Rec.Ename);
End Loop;
End Loop;
End;