--Cursor

cursor c_1 (in_numbervar number) is
                        Select f1, f2, f3
                         from tabelle
                         where f1=in_numbervar;
c1  c_1%rowtype;


open c_1 (vn_variable);
<<l_c1>>
Loop
	fetch c_1 into c1;
	Exit l_c1 when c_1%notfound;
	........
	

	Exception 
		When others then
		........
End loop l_c1;