Performance Issue - 2.5 hrs of 37000 Records...

Question

Hello Experts,
Good Day to all...
Following is the Anonymous block which i am using to execute a procedure logic...
Execution time is resulting more... Around 2.5 hrs for 37000 records in departments table.
Moreover there is a procedure - *"validations.move_process_history"* which has lots of DBMS_OUTPUT messages been stored and i thought of storing into a temporary table.
Will this increases the performance??
Plz suggest.
Thanks for ur suggestions...
DECLARE
   CURSOR cur_get_rec
   IS
   select
           di.location_type
          ,di.location_no
          ,di.dept_id
    from departments di
   where di.location_no    = 600
     and di.location_type = 'CH'
     and di.dept_id     > 0;
   l_cnt      NUMBER := 0;
   l_error_msg    varchar2(32678);
BEGIN
FOR i IN cur_get_rec
LOOP
     validations.move_process_history
     p_loc_typ           => i.location_type,                         --> Passing IN to procedure
     p_loc_nbr               => i.location_no,                    --> Passing IN to procedure
     p_dept_id           => i.dept_id,                              --> Passing IN to procedure
     p_ts_start               => (SYSTIMESTAMP - 200),          --> Passing IN to procedure
     p_ts_end                 => SYSTIMESTAMP,                    --> Passing IN to procedure
     p_mode                  => 0,                                   --> Passing IN to procedure
     p_result                  => l_cnt,                              --> Passing OUT ; 1 - Success or 0 - Failure
     p_error_msg           => l_error_msg                         --> Passing OUT from procedure i.e error messages
     END LOOP;
END;
validations.move_process_history Procedure
PROCEDURE move_process_history
     p_loc_typ           departments.loc_type%TYPE 
     p_loc_nbr            departments.loc_nbr%TYPE 
     p_dept_id                departments.dept_id%TYPE       
     p_ts_start           TIMESTAMP  
     p_ts_end               TIMESTAMP
     p_mode              NUMBER   
     p_result                OUT NUMBER
     p_error_msg            OUT VARCHAR2
  ) IS
CURSOR c_hist IS
       SELECT
        FROM history
       WHERE ...
   --TYPE g_hist_table IS TABLE OF history%ROWTYPE;
   -- Global Collection of PL/SQL Table for Holding History Records
    l_hist_table g_hist_table ;
  Begin
  dbms_output.put_line('opening cursor');
  p_result := 0 ;
  OPEN c_hist;
  LOOP
      dbms_output.put_line('fetching ..');
      -- Fetch 2000 history records for processing
       FETCH c_hist BULK COLLECT
         INTO  l_hist_table limit 10000;
       FOR i IN 1..l_hist_table.COUNT
       Loop
               If...then
               else
                    p_error_msg := 'Dept# '||l_hist_table(i).p_loc_nbr ||' Effective Timestamp '||l_hist_table(i).Timestamp ||' Sequence #'
            ||l_hist_table(i).sequence || ' Mode Id '||l_hist_table(i).mode_id ;
               end if;
               if... then
               else
                    p_error_msg := 'Dept# '||l_hist_table(i).p_loc_nbr ||' Effective Timestamp '||l_hist_table(i).Timestamp ||' Sequence #'
            ||l_hist_table(i).sequence || ' Mode Id '||l_hist_table(i).mode_id ;
               end if;
       End Loop;
       -- Flush out the data from memory and to Databasse
       l_hist_table.delete;
  Exception When Others then
  rollback;
  -- Cleanup
  close c_hist;
  l_hist_table.delete;
  raise;
  End move_process_history;

Answer 1

Thanks Billy for your prompt reply.
I am so glad to see your reply.
If you could have some sample eg. of Parallel processing, definitely it will help me in this case.
Moreover to be more specific; departments & History table has 37000 records. --> Reply to Mustafa KALAYCI
I will explain you the complete logic of query below
-- Below code is called in-order to update the information related to the (location_no-600) in the dept_history table.
-- cur_get_rec i.e Departments table contain 37000 records
DECLARE
   CURSOR cur_get_rec
   IS
   select
           di.location_type
          ,di.location_no
          ,di.dept_id
    from departments di
   where di.location_no    = 600
     and di.location_type = 'CH'
     and di.dept_id     > 0;
   l_cnt      NUMBER := 0;
   l_error_msg    varchar2(32678);
BEGIN
FOR i IN cur_get_rec
LOOP
     validations.move_process_history
     p_loc_typ           => i.location_type,                         --> Passing IN to procedure
     p_loc_nbr           => i.location_no,                    --> Passing IN to procedure
     p_dept_id           => i.dept_id,                              --> Passing IN to procedure
     p_ts_start          => (SYSTIMESTAMP - 200),          --> Passing IN to procedure
     p_ts_end            => SYSTIMESTAMP,                    --> Passing IN to procedure
     p_mode              => 0,                                   --> Passing IN to procedure
     p_result            => l_cnt,                              --> Passing OUT ; 1 - Success or 0 - Failure
     p_error_msg         => l_error_msg                         --> Passing OUT from procedure i.e error messages
     END LOOP;
END;VALIDATIONS.MOVE_PROCESS_HISTORY PROCEDURE
-- Pass all 37000 records for processing.
PROCEDURE move_process_history
     p_loc_typ           departments.loc_type%TYPE 
     p_loc_nbr            departments.loc_nbr%TYPE 
     p_dept_id                departments.dept_id%TYPE       
     p_ts_start           TIMESTAMP  
     p_ts_end               TIMESTAMP
     p_mode              NUMBER   
     p_result                OUT NUMBER
     p_error_msg            OUT VARCHAR2
  ) IS
CURSOR c_hist IS
       SELECT
        FROM history
       WHERE loc_typ = p_loc_typ
              AND loc_nbr = p_loc_nbr
              AND dept_id = p_dept_id
              AND eff_ts BETWEEN p_ts_start AND p_ts_end
         ORDER BY eff_ts ASC;
   --TYPE g_hist_table IS TABLE OF history%ROWTYPE;
   -- Global Collection of PL/SQL Table for Holding History Records
    l_hist_table g_hist_table ;
   l_abs_row_number NUMBER := 0;
   BEGIN
      DBMS_OUTPUT.put_line ('opening cursor');
      p_result := 0;
      OPEN c_sih;
      LOOP
         -- Flush out the Record Collection if it is not empty
         DBMS_OUTPUT.put_line ('fetching ..');
         FETCH c_sih
         BULK COLLECT INTO l_hist_table LIMIT 10000;
         FOR i IN 1 .. l_hist_table.COUNT
         LOOP
            l_abs_row_number := l_abs_row_number + 1;
            IF (l_abs_row_number = 1)
            THEN
               -- Initialize the Values to local variable
            ELSE
                     p_error_msg := 'Dept# '||l_hist_table(i).p_loc_nbr ||' Effective Timestamp '||l_hist_table(i).Timestamp ||' Sequence #'
                                             ||l_hist_table(i).sequence || ' Mode Id '||l_hist_table(i).mode_id ;
               END IF;
                     IF (p_error_msg IS NULL)
                  THEN
                     p_error_msg :=     'Dept# '||l_hist_table(i).p_loc_nbr ||' Effective Timestamp '||l_hist_table(i).Timestamp ||' Sequence #'
                                             ||l_hist_table(i).sequence || ' Mode Id '||l_hist_table(i).mode_id ;                  --
                  END IF;
         END LOOP;
         -- Flush out the data from memory and to Databasse
         l_hist_table.DELETE;
         IF (   p_mode = validation_correction_rollback
             OR p_mode = validation_correction_commit
         THEN
            -- calling procedure which Updates History table
            update_history;
               -- Calling procedure which updates the Departments table
            update_departments;
         END IF;
         -- Delete the Temp Collection for Update
         -- Reset Counters
         l_ctr := 0;
         EXIT WHEN c_sih%NOTFOUND;
      END LOOP;
      -- Cleanup
      CLOSE c_sih;
      l_hist_table.DELETE;
      IF (p_mode = validation_correction_commit)
      THEN
         DBMS_OUTPUT.put_line ('Comitting');
         COMMIT;
      ELSE
         DBMS_OUTPUT.put_line ('Rolling Back');
         ROLLBACK;
      END IF;
      p_result := l_abs_row_number;
   EXCEPTION
      WHEN OTHERS
      THEN
         ROLLBACK;
         -- Cleanup
         CLOSE c_sih;
         l_hist_table.DELETE;
         RAISE;
   END move_process_history;