How to write a job

Question

The functionality of job to delete data for every one week or whenever it count reaches greater than 10,000 and how should we configure it
Edited by: 812809 on Feb 24, 2011 3:30 AM

Answer 1

hi there
here in this procedure checks the data if the numbers of rows is greater than or equal to 10,000 then it will delete
the table and also check on daily basis
i am checking on the daily basis because if in the 6th day if data reaches more that 10000 then it should delete it
create or replace procedure delete_date_jobs
   V_COUNT      NUMBER := 0;
   V_DATE       DATE := TO_DATE ('02/FEB/2011');
BEGIN
   SELECT   COUNT (1) INTO V_COUNT FROM EMP;
   DBMS_OUTPUT.put_line (v_date);
   IF V_COUNT >= 10000
   THEN
      DELETE FROM   HITESH;
   ELSIF MOD (SYSDATE - V_DATE, 7) = 0
   THEN
      DELETE FROM   HITESH;
   END IF;
EXCEPTION
   WHEN NO_DATA_FOUND
   THEN
      NULL;
END delete_date_jobs;after that create a job which runs on daily basis
BEGIN
  SYS.DBMS_JOB.REMOVE(277);
COMMIT;
END;
DECLARE
  X NUMBER;
BEGIN
  SYS.DBMS_JOB.SUBMIT
  ( job       => X
   ,what      => 'begin delete_date_jobs exception when no_data_found then null; end;'
   ,next_date => to_date('24/02/2011 18:05:07','dd/mm/yyyy hh24:mi:ss')
   ,interval  => 'SYSDATE+1'
   ,no_parse  => FALSE
  SYS.DBMS_OUTPUT.PUT_LINE('Job Number is: ' || to_char(x));
COMMIT;
END;
/regards
Hitesh
Edited by: Hitesh Nirkhey on Feb 24, 2011 6:50 PM