Ora-06511

if :blk_master.action_status = 'A' then
	declare
		doc_slno number;
		doc_1_dig varchar2(1);  -- I digit of DOCUMENT No.
		f_doc_no varchar2(6);  
	begin
	  begin
		  Select last_no+1 into doc_slno
		  from control_nos
		  where process_id='ISS' and control_id1=:keyblock.store_no and control_id2= :keyblock.tran_type;
	  exception 
	  	when others then
	  		msg_error ('Error selecting from control_nos @ keyblock.doc_no.when-new-item-instance');
	  end;
	  
	  loop
			doc_1_dig := get_doc_1_digit (:keyblock.store_no);	  	
			f_doc_no := doc_1_dig||to_char(doc_slno,'FM00000');
	  	declare
	  		f_doc_date date;
	  		cursor c1 is 
	  			select document_date
	  			from issue_tran_head
	  			where document_no = f_doc_no;
	  	begin
	  		open c1;
	  		fetch c1 into f_doc_date;
	  		if c1%notfound then
	  			close c1;
	  			exit;
	  		end if;
	  		if financial_year_beg(f_doc_date) <> financial_year_beg(sysdate) then
	  			close c1;
	  			exit;
	  		end if;
	  	end;
	  	doc_slno := doc_slno + 1;
	  end loop;
	  :keyblock.doc_no := f_doc_no;
end;
set_item_property('keyblock.doc_no',update_allowed,property_false);
next_item;
else
	set_item_property('keyblock.doc_no',update_allowed,property_true);
end if;	  						
		

declare
  cursor c1 is select * from emp;
  a emp%rowtype;

begin 
  open c1;
     for i in 1..50 loop
           fetch c1 into a
     exit when c1%notfound;

      insert into testing values(a.ename,a.sal);
  end loop;
      close c1;
  end;

declare
  cursor c1 is select * from emp;

begin 
  for rec in c1 loop
     
    insert into testing values(rec.ename,rec.sal);

  end loop;

end;