Maintaining log table

Question

Hi Experts,
The below procedure is scheduled using DBMS_JOB.
I want to maintain log table for the actions performed by this procedure
and as well as the job information.
CREATE OR REPLACE PROCEDURE load_proc (P_ID IN NUMBER)
IS
   CURSOR C
   IS
      SELECT   GROUP_ID, tablename, target_table
        FROM   temp_table
       WHERE   GROUP_ID = p_id;
BEGIN
   FOR I IN C
   LOOP
      EXECUTE IMMEDIATE   'INSERT INTO '
                       || I.target_table
                       || '(SELECT * FROM '
                       || I.tablename
                       || ' WHERE '
                       || 'last_dt<=SYSDATE-500'
                       || ')';
     EXECUTE IMMEDIATE   'DELETE FROM '
                       || I.tablename
                       || ' WHERE '
                       || 'last_dt<=SYSDATE-500';
      COMMIT;
   END LOOP;
EXCEPTION
   WHEN OTHERS
   THEN
      ROLLBACK;
      DBMS_OUTPUT.PUT_LINE (
         'An error was encountered - ' || SQLCODE || ' -ERROR- ' || SQLERRM
END load_proc;
DECLARE
  X NUMBER;
BEGIN
  SYS.DBMS_JOB.SUBMIT
  ( job       => X
   ,what      => 'ARP.load_proc(1);'
   ,next_date => to_date('20/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;
/I want to capture the below information in the log table.
SNO RECORDS_INSERTED               RECORDS_DELETED              JOBID   JOB_START_TIME         JOB_END_TIME          JOB_LAST_RAN_ON       JOB_STATUS  
1  2000 records inserted into     2000 records deleted from      1     20/01/2013 00:00:00    20/01/2013 02:30:00  20/01/2013 02:30:00   completed successfully
   table WEDB_EMPLOYEE            table WEDB_EMPLOYEE
2                                            1     21/01/2013 00:00:00     21/01/2013 01:00:00                   Failed: error message
3                                                                1                                     NULLIf the job is not started on the particular day NULL value has to be inserted in the JOB_LAST_RAN_ON column.
If the job is not failed in the middle on a particular day FAILED: ERROR MESSAGE value has to be inserted in the JOB_STATUS column.
Script for log table creation.
CREATE TABLE log_load_proc
(sno NUMBER,
records_inserted VARCHAR2(4000),
records_deleted VARCHAR2(4000),
jobid NUMBER,
job_start_time TIMESTAMP,
job_end_time TIMESTAMP,
job_last_ran_on TIMESTAMP,
job_status VARCHAR2(4000));Please help me on this.
Thanks in advance.

Answer 1

973205 wrote:
>If the job is not started on the particular day NULL value has to be inserted in the JOB_LAST_RAN_ON column.
If the job is not failed in the middle on a particular day FAILED: ERROR MESSAGE value has to be inserted in the JOB_STATUS column.
Thanks for posting the Procedure, Job and Table Details.
How do you want to represent the data in Log table, if you are processing Multiple Tables in a Single Job Run?
Certainly, to comply with your First requirement, you will have to setup another job that does the Logging for you.
Or, Calling of Job procedure has be modified like below
DECLARE
X NUMBER;
BEGIN
SYS.DBMS_JOB.SUBMIT
( job       => X
,what      => 'ARP.some_procedure(1);'           ----------> some_procedure will call Log Procedure, followed by load_proc(1) and further followed by Log procedure to indicate success/failure of Job;
,next_date => to_date('20/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;
/Below is a sample code, which you can modify according to your requriements:
create or replace procedure log_load_job
  p_rec_inserted                varchar2,
  p_rec_deleted                 varchar2,
  p_job_id                      number,
  p_start_date                  date,
  p_end_date                    date,
  p_job_status                  varchar2
is
declare
  pragma autonomous_transaction;
begin
  insert into log_load_job (records_inserted, records_deleted, job_id, start_date, end_date, last_run_date, job_status)
  values (p_rec_inserted, p_rec_deleted, p_job_id, p_start_date, p_end_date, decode(instr(p_job_status, 'ERROR'), 0, p_end_date, null), p_job_status);
                                                           --> Decode to check if Job Status is Error, do not enter Last Run Date
  commit;
exception
  when others then
    null;             ---> Failure of LOGGER must not interrupt the normal execution.
end log_load_job;
CREATE OR REPLACE PROCEDURE load_proc (P_ID IN NUMBER)
is
  v_inserted        varchar2(4000);
  v_deleted         varchar2(4000);
  v_start_date      date;
   CURSOR C
   IS
      SELECT   GROUP_ID, tablename, target_table
        FROM   temp_table
       WHERE   GROUP_ID = p_id;
begin
  v_start_date := sysdate;
   FOR I IN C
   LOOP
      EXECUTE IMMEDIATE   'INSERT INTO '
                       || I.target_table
                       || '(SELECT * FROM '
                       || I.tablename
                       || ' WHERE '
                       || 'last_dt<=SYSDATE-500'
                       || ')';
      v_inserted := sql%rowcount || ' records inserted into ' || i.tablename;
     EXECUTE IMMEDIATE   'DELETE FROM '
                       || I.tablename
                       || ' WHERE '
                       || 'last_dt<=SYSDATE-500';
      v_deleted := sql%rowcount || ' records deleted from ' || i.tablename;
      log_load_job(v_inserted, v_deleted, p_id, v_start_date, sysdate, 'Completed');
      --COMMIT;
      v_inserted := null;
      v_deleted := null;
   end loop;
   commit;                ---> Commit After Entire Tables have been Deleted and Inserted.
EXCEPTION
   WHEN OTHERS
   then
    log_load_job(v_inserted, v_deleted, p_id, v_start_date, sysdate, 'Error :: ' || sqlerrm);
      ROLLBACK;
end load_proc;
/Untested piece of code.