Exception not working

Question

create procedure name emp_test as
cursor c1 is select * from emp where deptno=10;
begin
for i in c1 loop
begin
          insert into emp1(col1,col2,col3)value(i.col1,i.col2..........);
exception
when no_data_fund then
dbms_output.put_line( 'no data found from thhis deptno' || i.deptno);
end;
end loop;
end;
my question is, exception is not working when no datafound in my cursor.
Please help me out in this regard.
thanks in advance
Dharma.

Answer 1

You are using a for loop, in case no data is found by the cursor c1, the statement in the for loop is not executed so there is no question of exception.
Try the below code, the exception will be raised -
declare
v_cnt number;
begin
select count(*) into v_cnt from emp where deptno=-999;
insert into emp1(col1,col2,col3)value(i.col1,i.col2..........);
exception
when no_data_found then
dbms_output.put_line( 'no data found from thhis deptno' );
end;