代码表更新-CSDN博客

/*
代码表更新
用途：更新以"DM_HF_"开头的代码表（可选全部更新或指定表更新）
编制日期：2009-03-12
测试用例：
传入参数P_OPTION：
1、若要全部更新，传入值可为：'ALL', 'all', 'All',例如：EXEC SP_UPDATE_DM_HF(ALL);
2、若只要单表更新，传入该表名，例如：EXEC SP_UPDATE_DM_HF(DM_HF_DWB);
3、若要多表更新，传入各表名，并以','隔开，
例如：EXEC SP_UPDATE_DM_HF('DM_HF_BJLBB,DM_HF_BJLXB,DM_HF_BJXLB');
*/
CREATE OR REPLACE PROCEDURE SP_UPDATE_DM_HF(
P_OPTION IN VARCHAR2 -- 更新表选项，详细说明见上面的测试用例
) AS
V_TNAME_SRC VARCHAR2(200); -- QB库中DEAS_ADMIN用户下的表码表表名
V_TNAME_DEST VARCHAR2(200); -- DMZHK中对应的表码表表名
V_POSITION NUMBER(3); -- 记录','的位置
V_SQL_TRUNC VARCHAR2(200); -- 清空DEST表中数据的SQL
V_SQL_INSERT VARCHAR2(500); -- 向DEST表插入SRC表数据的SQL
V_OPTION VARCHAR2(50); -- 存储传入的参数值

BEGIN
IF P_OPTION IN ('ALL', 'all', 'All') THEN
-- 全部更新
FOR V_CUR IN (SELECT TABLE_NAME
FROM USER_TABLES
WHERE TABLE_NAME LIKE 'DM_HF_%') LOOP -- 使用游标V_CUR获取所有以'DM_HF_'开头的表名
V_TNAME_SRC := 'A_' || SUBSTR(V_CUR.TABLE_NAME, 4) ||'@DBL_AH';
V_TNAME_DEST := V_CUR.TABLE_NAME;
V_SQL_TRUNC := 'TRUNCATE TABLE ' || V_TNAME_DEST;
V_SQL_INSERT := 'INSERT INTO ' || V_TNAME_DEST || ' SELECT * FROM ' ||
V_TNAME_SRC;
EXECUTE IMMEDIATE V_SQL_TRUNC;
EXECUTE IMMEDIATE V_SQL_INSERT;
END LOOP;
COMMIT;

ELSE
-- 更新指定表
V_OPTION := P_OPTION;
WHILE LENGTH(V_OPTION) > 0 LOOP -- 存储表名的变量还有值
V_POSITION := CASE INSTR(V_OPTION, ',')
WHEN '0' THEN LENGTH(V_OPTION) + 1 -- 无','，即只剩最后一张表，取变量长度为截取终止位
ELSE INSTR(V_OPTION, ',') -- 有','，即还有多张表，取','的位置为截取终止位
END;
-- 表名在ZHKDM中是以'DM'开头，而在DEAS_ADMIN中是以'A'开头，故需截取并替换
V_TNAME_SRC := 'A_' || SUBSTR(V_OPTION, 4, V_POSITION - 4) ||
'@DBL_AH';
V_TNAME_DEST := SUBSTR(V_OPTION, 1, V_POSITION - 1);
V_OPTION := SUBSTR(V_OPTION, V_POSITION + 1); -- 获取完一张表后，截取变量
V_SQL_TRUNC := 'TRUNCATE TABLE ' || V_TNAME_DEST;
V_SQL_INSERT := 'INSERT INTO ' || V_TNAME_DEST || ' SELECT * FROM ' ||
V_TNAME_SRC;
EXECUTE IMMEDIATE V_SQL_TRUNC;
EXECUTE IMMEDIATE V_SQL_INSERT;
END LOOP;
COMMIT;
END IF;