存储过程-数据位置调换demo-白红宇

存储过程-数据位置调换demo

阅读量：635 次

发布时间：2019-03-14

本文共 2869 字，大约阅读时间需要 9 分钟。


   
   
	
   
创建日志表
	
   
	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))
	
   
	创建序列
	
   
	create sequence S_DATA_POSITION_ID	start with 1	minvalue 1	maxvalue 999999999	increment by 1	cache 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	สาว-only>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	
    
     修正数据存储位置
     
	
     BEGIN		V_BEGIN_DATE := trunc(to_date('2019-09-10 00:00:00','yyyy-MM-ddHH24:mi:ss'));		V_END_DATE := trunc(to_date('2020-03-19 00:00:00','yyyy-MM-ddHH24:mi:ss'));		V_commit_cnt := 0;		PKG_DATA_POSITION.T_INSERT_LOG('开始修正数据存储位置','PKG_DATA_POSITION.P_PR_DATA_POSITION','0');		LOOP		EX Booth		EXIT WHEN V_BEGIN_DATE = V_END_DATE;		-- 按天处理		_FOR P_DATALIST INCUR_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;		- 记录日志		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;