本文共 3121 字，大约阅读时间需要 10 分钟。
-- 创建日志表create table T_LOG_DATA_POSITION( LOG_ID NUMBER(12) not null, ERROR_DESC VARCHAR2(4000), ERROR_POSITION VARCHAR2(4000), OCCUR_TIME DATE default SYSDATE not null, TYPE VARCHAR2(10))
--创建 序列
REATE SEQUENCE S_DATA_POSITION_IDSTART WITH 1MINVALUE 1MAXVALUE 999999999INCREMENT BY 1CACHE 20;
--设置主键
alter table T_LOG_DATA_POSITION add constraint PK_DATA_POSITION_ID primary key (LOG_ID)using index tablespace OTHER_INDX;
--账户授权 :
grant select, insert, update on SCORE_OPRS.T_LOG_DATA_POSITION to TP_SCORE_OPR_CC;grant select, insert, update on SCORE_OPRS.T_LOG_DATA_POSITION to SCORE_OPR_RAC_CC;grant select, insert, update on SCORE_OPRS.T_LOG_DATA_POSITION to TP_SCORE_OPR_RAC_CC;
--存储过程脚本：
CREATE OR REPLACE PACKAGE PKG_DATA_POSITION IS -- 执行程序逻辑 PROCEDURE P_PR_DATA_POSITION; -- 执行日志记录 PROCEDURE T_INSERT_LOG(P_ERROR_DESC T_LOG_DATA_POSITION.ERROR_DESC%TYPE,P_ERROR_POSITION T_LOG_DATA_POSITION.ERROR_POSITION%TYPE,P_TYPE T_LOG_DATA_POSITION.TYPE%TYPE);END PKG_DATA_POSITION;/CREATE OR REPLACE PACKAGE BODY PKG_DATA_POSITION IS /** 修正数据存储位置 createdBy：2020/03/20 **/ PROCEDURE P_PR_DATA_POSITION IS --初始化数据赋值给游标 CURSOR CUR_PRICING_DATA(C_BEGIN_DATE DATE) IS SELECT t.SCORERUNID,t.BAK6,t.BAK7,t.DUTY_RISK_PREMIUM FROM T_TABLENAME1 t WHERE DECODE(translate(t.DUTY_RISK_PREMIUM, '\1234567890 ', '\'),'','0') ='0' AND t.DUTY_RISK_PREMIUM IS NOT NULL AND t.CREATED_DATE >= C_BEGIN_DATE AND t.CREATED_DATE < C_BEGIN_DATE + 1; V_BEGIN_DATE DATE; V_END_DATE DATE; V_COMMIT_CNT NUMBER(5); BEGIN --开始执行程序 V_BEGIN_DATE := trunc(to_date('2019-09-10 00:00:00','yyyy-MM-dd HH24:mi:ss')); V_END_DATE := trunc(to_date('2020-03-19 00:00:00','yyyy-MM-dd HH24:mi:ss')); V_COMMIT_CNT := 0; PKG_DATA_POSITION.T_INSERT_LOG('开始修正数据存储位置','PKG_DATA_POSITION.P_PR_DATA_POSITION','0'); LOOP EXIT WHEN V_BEGIN_DATE = V_END_DATE; --按天处理 FOR P_DATALIST IN CUR_PRICING_DATA(V_BEGIN_DATE) LOOP BEGIN --数据前进一位 UPDATE T_TABLENAME1 t SET t.BAK6=P_DATALIST.BAK7 ,t.BAK7=P_DATALIST.DUTY_RISK_PREMIUM ,t.DUTY_RISK_PREMIUM=P_DATALIST.BAK6 WHERE t.SCORERUNID=P_DATALIST.SCORERUNID; END; PKG_DATA_POSITION.T_INSERT_LOG('Update_ScoreRunId - ' || P_DATALIST.SCORERUNID,'PKG_DATA_POSITION.P_PR_DATA_POSITION','1'); V_COMMIT_CNT := V_COMMIT_CNT + 1; IF V_COMMIT_CNT = 1000 THEN COMMIT; V_COMMIT_CNT := 0; END IF; END LOOP; V_BEGIN_DATE := V_BEGIN_DATE + 1; COMMIT; END LOOP; PKG_DATA_POSITION.T_INSERT_LOG('修正数据存储位置完成','PKG_DATA_POSITION.P_PR_DATA_POSITION','0'); END P_PR_DATA_POSITION; -- 记录日志 PROCEDURE T_INSERT_LOG(P_ERROR_DESC T_LOG_DATA_POSITION.ERROR_DESC%TYPE, P_ERROR_POSITION T_LOG_DATA_POSITION.ERROR_POSITION%TYPE, P_TYPE T_LOG_DATA_POSITION.TYPE%TYPE) IS BEGIN INSERT INTO T_LOG_DATA_POSITION (LOG_ID, ERROR_DESC, ERROR_POSITION ,TYPE) VALUES (S_DATA_POSITION_ID.NEXTVAL,P_ERROR_DESC,P_ERROR_POSITION,P_TYPE); COMMIT; END;END PKG_DATA_POSITION;/
转载地址：http://jaooz.baihongyu.com/