PROMPT----------------------------------------;
PROMPT KURSORY;
PROMPT----------------------------------------;


set serveroutput on size 30000;

CREATE OR REPLACE PROCEDURE KURSOR_DANE_1
IS

licznik number(2);
id number(2);
	CURSOR DANE_KURSOR
	IS SELECT *
	FROM SPRZATACZ;
	BEGIN
	licznik:=1;
	id:=licznik+7;
	OPEN DANE_KURSOR;
	--OPEN DANE_KURSOR;


		LOOP
		EXIT WHEN licznik>6 or DANE_KURSOR%NOTFOUND;
		INSERT INTO SPRZATACZ
		VALUES  ('','Imie'||licznik,'asd'||licznik,45435||licznik,
		'email'||licznik,2323||licznik,'');


		licznik:=licznik+1;

		END LOOP;
		EXCEPTION
		WHEN CURSOR_ALREADY_OPEN THEN
		dbms_output.put_line('kursor juz otwarty');
		INSERT INTO BLEDY VALUES ('','BLAD'||'kURSOR JUZ OTWARTY');

		WHEN VALUE_ERROR THEN
		dbms_output.put_line('value error');
		INSERT INTO BLEDY VALUES ('','BLAD'||'..value error');
		WHEN INVALID_NUMBER THEN
		dbms_output.put_line('INVALID_NUMBER');
		INSERT INTO BLEDY VALUES ('','BLAD'||'..invalid number');
	CLOSE DANE_KURSOR;
END;
/

BEGIN
KURSOR_DANE_1();
END;
/
select * FROM BLEDY;