set serveroutput on size 30000;


CREATE or REPLACE PROCEDURE REKORDY_1
IS
licznik number(2);
Rek_SPRZATACZ SPRZATACZ%ROWTYPE;
Rek_DOSTAWCA DOSTAWCA%ROWTYPE;
Rek_KUCHARZ KUCHARZ%ROWTYPE;
BEGIN
licznik := 2;
LOOP
		EXIT WHEN licznik>10 ;
		SELECT * INTO Rek_SPRZATACZ FROM SPRZATACZ WHERE SPRk_1_ID = licznik;
		SELECT * INTO Rek_DOSTAWCA FROM DOSTAWCA WHERE DOSk_1_ID = licznik;
		SELECT * INTO Rek_KUCHARZ FROM KUCHARZ WHERE KUCk_1_ID = licznik;
		DBMS_OUTPUT.PUT_LINE ('ImieSPRZATACZ:'||Rek_SPRZATACZ.SPR_Imie);
		DBMS_OUTPUT.PUT_LINE ('ImieDOSTAWCA:'||Rek_DOSTAWCA.DOS_Imie);
		DBMS_OUTPUT.PUT_LINE ('ImieKUCHARZ:'||Rek_KUCHARZ.KUC_Imie);
		licznik:=licznik+1;
		END LOOP;


END;
/

BEGIN
REKORDY_1();
END;
/