CREATE OR REPLACE PACKAGE P_RECORD AS
TYPE emp_det IS RECORD (
      empno number(10),
      ename varchar2(15),
      deptno number(20));
emp_det1 emp_det;	  
	  
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;
FORALL I IN INS_DEL1.FIRST..INS_DEL1.LAST
INSERT INTO EMP2 VALUES INS_DEL1(i);
end collection_rec;
end P_RECORD;