CREATE OR REPLACE PACKAGE SPEC P_RECORD AS
TYPE emp_det IS RECORD (
      empno number(10),
      ename varchar2(15),
      deptno number(20));
PROCEDURE  collection_rec(emp_det1 emp_det);
END;

CREATE OR REPLACE PACKAGE BODY P_RECORD AS 

procedure collection_rec(emp_det1 emp_det) is
TYPE INS_DEL IS TABLE OF EMP%ROWTYPE INDEX BY BINARY_INTEGER;
INS_DEL1 INS_DEL ;
begin
DELETE FROM EMP3 WHERE empno=emp_det1.empno and ename =emp_det1.ename  and DEPTNO =emp_det1.deptno RETURNING empno,ename,job,mgr,hiredate,sal,comm,deptno bulk collect INTO INS_DEL1;
FORALL I IN INS_DEL1.FIRST..INS_DEL1.LAST
INSERT INTO EMP2 VALUES INS_DEL1;
end;