Table1 -- 8 years data -- No. Of Records 3538969000
Table2 -- 6 years data -- No. Of Records  592844435
Table3 -- 3 years data -- No. Of Records   33224993
Table4 -- 4 years data -- No. Of Records   52361756
Table5 -- 5 years data -- No. Of Records    8948567
.
.
.
Table15 -- 6 years data -- No. Of Records 308476987

For Table1 I want to transfer 6 years data to test database, keeep 2 years data in production 
and delete all 6 years data from production databse.

For Table2 I want to transfer 4 years data to test database, keeep 2 years data in production 
and delete all 4 years data from production databse.

For Table3 I want to transfer 2 years data to test database keeep 1 years data in production 
and delete all 2 years data from production databse.

CREATE OR REPLACE PROCEDURE Archive_tables
AS
   COUNT   NUMBER := 0;
   total   NUMBER := 0;

   CURSOR del_rec_Table2
   IS
      SELECT *
        FROM @production_db.Table2
       WHERE event_time <= ADD_MONTHS (SYSDATE, -48);

   CURSOR del_rec_Table3
   IS
      SELECT *
        FROM @production_db.Table3
       WHERE event_time <= ADD_MONTHS (SYSDATE, -24);
BEGIN
BEGIN
   FOR rec IN del_rec_Table2
   LOOP
      INSERT INTO Archive_db.Table2_ARCHIVE
           VALUES (rec.COLUMN1,rec.COLUMN2,rec.COLUMN3,rec.COLUMN4);

      COMMIT;

      DELETE FROM @production_db. Table2
            WHERE ROWID = rec.ROWID;

      total := total + 1;
      COUNT := COUNT + 1;

      IF (COUNT >= 5000)
      THEN
         COMMIT;
         COUNT := 0;
      END IF;
   END LOOP;

   COMMIT;
   DBMS_OUTPUT.PUT_LINE ('Deleted ' || total || ' records from Table2');
END;
/

BEGIN
   FOR rec IN del_record_cur
   LOOP
      INSERT INTO Archive_db.Table3_ARCHIVE
           VALUES (rec.COLUMN1,rec.COLUMN2,rec.COLUMN3,rec.COLUMN4);

      COMMIT;

      DELETE FROM @production_db.Table3
            WHERE ROWID = rec.ROWID;

      total := total + 1;
      COUNT := COUNT + 1;

      IF (COUNT >= 5000)
      THEN
         COMMIT;
         COUNT := 0;
      END IF;
   END LOOP;

   COMMIT;
   DBMS_OUTPUT.PUT_LINE ('Deleted ' || total || ' records from Table3');
END;
END Archive_tables;
/

As per client requirement it will done using DBMS_JOB scheduled jobs and the jobs
will be scheduled in ARCHIVE DB.
i.e. The job should execute every one year and number of jobs should not be grater than 5.

ID  TABLE_NAME ARCHIVE_TABLE_NAME  WHERE_CONDITION

1   Table1	archive_table1	  created_date< MONTHS_BETWEEN(SYSDATE,-24)
1   Table2	archive_table2    Accepted_date< MONTHS_BETWEEN(SYSDATE,-24)
1   Table3	archive_table3    last_proposal_date< MONTHS_BETWEEN(SYSDATE,-24)
1   Table4	archive_table4    lat_modified_date< MONTHS_BETWEEN(SYSDATE,-24)
2   Table5	archive_table5	  changed_date< MONTHS_BETWEEN(SYSDATE,-24)
2   Table6	archive_table6    received_date< MONTHS_BETWEEN(SYSDATE,-24)
3   Table7	archive_table7	  send_date< MONTHS_BETWEEN(SYSDATE,-24)
3   Table8	archive_table8	  exact_date< MONTHS_BETWEEN(SYSDATE,-24)

DECLARE
  X NUMBER;
BEGIN
  SYS.DBMS_JOB.SUBMIT
  ( job       => X 
   ,what      => 'APPS.myprocedure(1);'
   ,next_date => to_date('24/12/2012 00:00:00','dd/mm/yyyy hh24:mi:ss')
   ,interval  => 'TRUNC(SYSDATE+1)'
   ,no_parse  => FALSE
  );
  SYS.DBMS_OUTPUT.PUT_LINE('Job Number is: ' || to_char(x));
COMMIT;
END;
/

For example if I pass the ID as '1' through job,then the procedure should execute for 

1   Table1	archive_table1	  created_date< MONTHS_BETWEEN(SYSDATE,-24)
1   Table2	archive_table2    Accepted_date< MONTHS_BETWEEN(SYSDATE,-24)
1   Table3	archive_table3    last_proposal_date< MONTHS_BETWEEN(SYSDATE,-24)

INSERT INTO archive_table1
(SELECT * FROM Table1 WHERE created_date< MONTHS_BETWEEN(SYSDATE,-24));
DELETE FROM Table1 WHERE created_date< MONTHS_BETWEEN(SYSDATE,-24));

INSERT INTO archive_table2
(SELECT * FROM Table2 WHERE created_date< MONTHS_BETWEEN(SYSDATE,-24));
DELETE FROM Table2 WHERE created_date< MONTHS_BETWEEN(SYSDATE,-24));

INSERT INTO archive_table3
(SELECT * FROM Table3 WHERE created_date< MONTHS_BETWEEN(SYSDATE,-24));
DELETE FROM Table3 WHERE created_date< MONTHS_BETWEEN(SYSDATE,-24));

CREATE OR REPLACE PROCEDURE myprocedure (P_ID IN NUMBER)
IS
   CURSOR C IS
      SELECT id, table_name,archive_table_name,where_condition FROM apps_global.control_ram WHERE id=p_id
      ORDER BY id,table_name;
BEGIN
   FOR I IN C
   LOOP
EXECUTE IMMEDIATE 'INSERT INTO '|| I.ARCHIVE_TABLE_NAME || '
(SELECT * FROM '|| I.TABLE_NAME ||' WHERE '||I.WHERE_CONDITION||)';

EXECUTE IMMEDIATE 'DELETE FROM ' ||I.TABLE_NAME|| ' WHERE '||I.WHERE_CONDITION||' ;
   END LOOP;
END;
END myprocedure;

CREATE OR REPLACE PROCEDURE arch_proc
IS
BEGIN
INSERT INTO archive_table1
(SELECT * FROM Table1 WHERE created_date< MONTHS_BETWEEN(SYSDATE,-24));
commit;
DELETE FROM Table1 WHERE created_date< MONTHS_BETWEEN(SYSDATE,-24));
commit;

INSERT INTO archive_table2
(SELECT * FROM Table2 WHERE created_date< MONTHS_BETWEEN(SYSDATE,-24));
commit;
DELETE FROM Table2 WHERE created_date< MONTHS_BETWEEN(SYSDATE,-24));
commit;

INSERT INTO archive_table3
(SELECT * FROM Table3 WHERE created_date< MONTHS_BETWEEN(SYSDATE,-24));
commit;
DELETE FROM Table3 WHERE created_date< MONTHS_BETWEEN(SYSDATE,-24));
commit;
END arch_proc;
/

CREATE OR REPLACE PROCEDURE arch_proc_table1
IS
BEGIN
INSERT INTO archive_table1
(SELECT * FROM Table1 WHERE created_date< MONTHS_BETWEEN(SYSDATE,-24));
DELETE FROM Table1 WHERE created_date< MONTHS_BETWEEN(SYSDATE,-24));
END;
/

	CREATE OR REPLACE PROCEDURE APPS_GLOBAL.arc_procedure (P_ID IN NUMBER)
	IS
	CURSOR C IS SELECT id,table_name,archive_table_name,where_condition
	FROM apps_global.control_ram
	WHERE id = p_id
	ORDER BY id, table_name;
	BEGIN
	   FOR I IN C
	   LOOP
	      EXECUTE IMMEDIATE
		    'INSERT INTO '
		 || I.ARCHIVE_TABLE_NAME
		 || '
	(SELECT * FROM '
		 || I.TABLE_NAME
		 || ' WHERE '
		 || I.WHERE_CONDITION
		 || ')';

	      EXECUTE IMMEDIATE
		    'DELETE FROM '
		 || I.TABLE_NAME
		 || ' WHERE '
		 || I.WHERE_CONDITION
		 || '';
	      COMMIT;
	   END LOOP;
	EXCEPTION
	   WHEN OTHERS
	   THEN
	      ROLLBACK;
	      DBMS_OUTPUT.PUT_LINE (
		 'An error was encountered - ' || SQLCODE || ' -ERROR- ' || SQLERRM);
	END arc_procedure;
	/

DECLARE
  X NUMBER;
BEGIN
  SYS.DBMS_JOB.SUBMIT
  ( job       => X 
   ,what      => 'APPS.arc_procedure(1);'
   ,next_date => to_date('05/01/2013 00:00:00','dd/mm/yyyy hh24:mi:ss')
   ,interval  => 'TRUNC(SYSDATE+1)'
   ,no_parse  => FALSE
  );
  SYS.DBMS_OUTPUT.PUT_LINE('Job Number is: ' || to_char(x));
COMMIT;
END;
/