Changing date but saving time

Question

I have some code where I copy records from one partition to another partition the table has the
followin partition.
PARTITION BY RANGE (CREATE_DATE)
I would like to change the date to a new value for the destination record but keep the time.
Here is my code, can somebody provide an example of how I can do this
CREATE OR REPLACE PROCEDURE C0HARPA.mtas_req_feat_copy_part
(p_create_date in DATE, p_create_date1 in DATE)
IS
--  desc mtas.mtas_req_feat;
-- REQUEST_SEQ  NUMBER                           NOT NULL,
-- MTAS_SYSTEM  VARCHAR2(15 BYTE)                NOT NULL,
-- FEATURE      VARCHAR2(64 BYTE)                NOT NULL,
-- FLAG         VARCHAR2(16 BYTE),
-- CREATE_DATE  DATE
TYPE myarray IS TABLE OF mtas.mtas_req_feat%ROWTYPE;
l_data myarray;
myREQUEST_SEQ mtas.mtas_req_feat.request_seq%TYPE;
CURSOR r IS
SELECT * FROM mtas.mtas_req_feat r
WHERE r.create_date >= p_create_date
AND r.create_date < p_create_date + interval '1' day;
l_start number default dbms_utility.get_time;
rows_processed number :=0;
BEGIN
  -- To prevent ORA-20000: ORU-10027: buffer overflow, limit of 2000 bytes
  DBMS_OUTPUT.ENABLE (buffer_size => NULL);
  select max(REQUEST_SEQ) into myREQUEST_SEQ from mtas.mtas_req_feat;
  DBMS_OUTPUT.PUT_LINE('High Value REQUEST_SEQ is '||myREQUEST_SEQ);
  OPEN r;
  LOOP
    FETCH r BULK COLLECT INTO l_data LIMIT 10000;
    FOR j IN 1 .. l_data.COUNT
    LOOP
      l_data(j).create_date := p_create_date1 || (NEED TIME FROM SOURCE RECORD);
      myREQUEST_SEQ := myREQUEST_SEQ +1;
      l_data(j).request_seq := myREQUEST_SEQ;
      INSERT INTO c0harpa.mtas_req_feat VALUES l_data(j);
      rows_processed := rows_processed+1;
    END LOOP;
    FORALL i IN 1..l_data.COUNT
      INSERT INTO c0harpa.mtas_req_feat VALUES l_data(i);
    COMMIT;
    EXIT WHEN r%NOTFOUND;
  END LOOP;
  COMMIT;
  dbms_output.put_line
     (round((dbms_utility.get_time-l_start)/100, 2) ||' Seconds...' || rows_processed || ' Rows Processed' );
  CLOSE r;
END mtas_req_feat_copy_part;
I am calling like this:
sqlplus / <<EOT >> $LOG 2>&1
set serveroutput on
SET PAGESIZE 0
SET FEEDBACK OFF
SET VERIFY OFF;
set heading off;
set line 200
exec C0HARPA.mtas_request_copy_part ( to_date( '2011-09-01', 'YYYY-MM-DD' ),
                                                           to_date( '2011-09-02', 'YYYY-MM-DD' ))
exit;
EOTThanks to all who answer

Answer 1

840386 wrote:
I have some code where I copy records from one partition to another partition the table has the
followin partition.
PARTITION BY RANGE (CREATE_DATE)
I would like to change the date to a new value for the destination record but keep the time.
Here is my code, can somebody provide an example of how I can do this
CREATE OR REPLACE PROCEDURE C0HARPA.mtas_req_feat_copy_part
(p_create_date in DATE, p_create_date1 in DATE)
IS
--  desc mtas.mtas_req_feat;
-- REQUEST_SEQ  NUMBER                           NOT NULL,
-- MTAS_SYSTEM  VARCHAR2(15 BYTE)                NOT NULL,
-- FEATURE      VARCHAR2(64 BYTE)                NOT NULL,
-- FLAG         VARCHAR2(16 BYTE),
-- CREATE_DATE  DATE
TYPE myarray IS TABLE OF mtas.mtas_req_feat%ROWTYPE;
l_data myarray;
myREQUEST_SEQ mtas.mtas_req_feat.request_seq%TYPE;
CURSOR r IS
SELECT * FROM mtas.mtas_req_feat r
WHERE r.create_date >= p_create_date
AND r.create_date < p_create_date + interval '1' day;
l_start number default dbms_utility.get_time;
rows_processed number :=0;
BEGIN
-- To prevent ORA-20000: ORU-10027: buffer overflow, limit of 2000 bytes
DBMS_OUTPUT.ENABLE (buffer_size => NULL);
select max(REQUEST_SEQ) into myREQUEST_SEQ from mtas.mtas_req_feat;
DBMS_OUTPUT.PUT_LINE('High Value REQUEST_SEQ is '||myREQUEST_SEQ);
OPEN r;
LOOP
FETCH r BULK COLLECT INTO l_data LIMIT 10000;
FOR j IN 1 .. l_data.COUNT
LOOP
l_data(j).create_date := p_create_date1 || (NEED TIME FROM SOURCE RECORD);
myREQUEST_SEQ := myREQUEST_SEQ +1;
l_data(j).request_seq := myREQUEST_SEQ;
INSERT INTO c0harpa.mtas_req_feat VALUES l_data(j);
rows_processed := rows_processed+1;
END LOOP;
FORALL i IN 1..l_data.COUNT
INSERT INTO c0harpa.mtas_req_feat VALUES l_data(i);
COMMIT;
EXIT WHEN r%NOTFOUND;
END LOOP;
COMMIT;
dbms_output.put_line
(round((dbms_utility.get_time-l_start)/100, 2) ||' Seconds...' || rows_processed || ' Rows Processed' );
CLOSE r;
END mtas_req_feat_copy_part;
I am calling like this:
sqlplus / <<EOT >> $LOG 2>&1
set serveroutput on
SET PAGESIZE 0
SET FEEDBACK OFF
SET VERIFY OFF;
set heading off;
set line 200
exec C0HARPA.mtas_request_copy_part ( to_date( '2011-09-01', 'YYYY-MM-DD' ),
to_date( '2011-09-02', 'YYYY-MM-DD' ))
exit;
EOTThanks to all who answersince we don't have your tables or data, we can't run or improve posted code.
to_date( '2011-09-02', 'YYYY-MM-DD' ))time component for DATE above will be all zeros (00:00:00)