Problem with Dbms_Scheduler.Create_Job

Question

Hi,
Below is my package, where in I am calling scheduler to run a job for the procedure written.
My Main Procedure: requests_delete_proc, deletes the requests which are more than 2 year old then sysdate.
I want to run a job monthly once for this procedure which is written under "delete_job".
This seems to be not working. I am not able to delete the records .
Can anyone suggest me as what is the problem pls?
CREATE OR REPLACE
PACKAGE BODY DELETE_REQUEST_PKG
AS
PROCEDURE requests_delete_proc
AS
request_count NUMBER;
nodatafound EXCEPTION;
BEGIN
SELECT
COUNT(request_id)
INTO
request_count
FROM
max_request_dtls
WHERE
requested_date < sysdate - (2*365);
IF request_count <> 0 THEN
DELETE
FROM
max_req_history_dtls
WHERE
request_id IN
SELECT
request_id
FROM
max_request_dtls
WHERE
requested_date < sysdate -(2 *365)
DELETE
FROM
max_request_dtls
WHERE
requested_date < sysdate -(2 * 365);
dbms_output.put_line('requests deleted');
COMMIT;
ELSE
raise nodatafound;
END IF;
EXCEPTION
WHEN nodatafound THEN
dbms_output.put_line('no records found for mentioned requested date');
END requests_delete_proc;
PROCEDURE delete_job
AS
BEGIN
DBMS_SCHEDULER.create_job (
job_name => 'request_Delete_job',
job_type => 'STORED_PROCEDURE',
job_action => 'Requests_Delete_Proc',
start_date => SYSTIMESTAMP,
repeat_interval => 'freq=MINUTELY',
end_date => NULL,
enabled => TRUE,
comments => 'Job defined entirely by the CREATE JOB procedure.');
END delete_job;
END DELETE_REQUEST_PKG;

Answer 1

Most probably your delete statement is faulty, otherwise it should work.
SQL>  CREATE TABLE emp_test_job AS SELECT * FROM emp;
Table created.
SQL> SELECT COUNT(*) FROM emp_test_job;
  COUNT(*)
        14
SQL> CREATE OR REPLACE PACKAGE DELETE_REQUEST_PKG AS
  2   PROCEDURE requests_delete_proc;
  3   PROCEDURE delete_job;
  4  END;
  5  /
SQL> CREATE OR REPLACE PACKAGE BODY DELETE_REQUEST_PKG AS
  2    PROCEDURE requests_delete_proc AS
  3      request_count NUMBER;
  4      nodatafound EXCEPTION;
  5    BEGIN
  6      DELETE FROM emp_test_job WHERE rownum<5;
  7    END requests_delete_proc;
  8 
  9    PROCEDURE delete_job AS
10    BEGIN
11      DBMS_SCHEDULER.create_job(job_name        => 'request_Delete_job',
12                                job_type        => 'PLSQL_BLOCK',
13                                job_action      => 'BEGIN DELETE_REQUEST_PKG.requests_delete_proc; END;',
14                                start_date      => SYSTIMESTAMP,
15                                repeat_interval => 'freq=MINUTELY',
16                                end_date        => NULL,
17                                enabled         => TRUE,
18                                comments        => 'Job defined entirely by the CREATE JOB procedure.');
19 
20    END delete_job;
21  END DELETE_REQUEST_PKG;
22  /
Package body created.
SQL>
SQL>  BEGIN
  2   DELETE_REQUEST_PKG.DELETE_JOB();
  3   END;
  4  /
PL/SQL procedure successfully completed.
SQL> SELECT job_name, program_name, start_date
  2  FROM all_scheduler_jobs;
JOB_NAME
PROGRAM_NAME
START_DATE
REQUEST_DELETE_JOB
29-NOV-10 05.38.10.703000 PM +05:30
SQL>  SELECT COUNT(*) FROM   emp_test_job;
  COUNT(*)
         6
SQL> SELECT COUNT(*) FROM   emp_test_job;
  COUNT(*)
         0
SQL> BEGIN
  2  DBMS_SCHEDULER.DROP_JOB('request_Delete_job',TRUE);
  3  END;
  4  /
PL/SQL procedure successfully completed.