工作记录(2)

CREATE OR REPLACE PROCEDURE SP_INTERFACELOG_TO_HISTORY IS

BEGIN

/* declare

  CURSOR logs IS

  SELECT * FROM thorn_interface_log log WHERE TO_CHAR(log.created_time, 'yyyyMMdd')<=TO_CHAR(SYSDATE-60,'yyyyMMdd');

  TYPE his_log IS TABLE OF thorn_interface_log%ROWTYPE;

  his_logs his_log;

  BEGIN

    OPEN logs;

    WHILE (TRUE) LOOP

      FETCH logs BULK COLLECT

      INTO his_logs LIMIT 10000;

        FORALL i IN 1 .. his_logs.COUNT

           INSERT INTO thorn_interface_log_back VALUES his_logs (i);

      COMMIT;

      EXIT WHEN logs%NOTFOUND;

    END LOOP;

    CLOSE logs;

  END;*/

  DELETE FROM thorn_interface_log log WHERE TO_CHAR(log.created_time, 'yyyyMMdd')<=TO_CHAR(SYSDATE-180,'yyyyMMdd');

  COMMIT;

  DELETE FROM THORN_TASKS T WHERE TO_CHAR(T.Create_Time,'yyyyMMdd')<=TO_CHAR(SYSDATE-20,'yyyyMMdd');

  COMMIT;

  DELETE FROM TMS_EDI_TASK T WHERE TO_CHAR(T.Create_Time,'yyyyMMdd')<=TO_CHAR(SYSDATE-20,'yyyyMMdd');

  COMMIT;

  DELETE FROM TMS_INTERFACE_FROM_LOG T WHERE TO_CHAR(T.Request_Time,'yyyyMMdd')<=TO_CHAR(SYSDATE-180,'yyyyMMdd');

  COMMIT;

  DELETE FROM TMS_INTERFACE_TO_LOG T WHERE TO_CHAR(T.Request_Time,'yyyyMMdd')<=TO_CHAR(SYSDATE-180,'yyyyMMdd');

  COMMIT;

END SP_INTERFACELOG_TO_HISTORY;