DECLARE
 CURSOR dept_cur is SELECT deptno, dname, loc from dept;
 CTR number;
BEGIN
 FOR r_dept in dept_cur 
 LOOP
  INSERT into old_dept VALUES r_dept;
  ctr:= ctr + 1;
 END LOOP;
 DBMS_OUT.PUT_LINE(ctr || ' processed');
END;

Add a code snippet to your website: www.paste.org