这是测试环境存在了很久的问题。由于基础配置信息（如：代理人信息）不像生产环境有专人维护，常常会有数据过期，导致无法使用的情况。
而很多配置数据是在外围系统维护（如代理人信息，在销管系统）以往的解决办法：
1. 联系销售管理系统协助配置。
2. 审核通过后同步到核心，然后出单
问题点：因为需要其他人配合，有等待；碰到大量数据配置时对配置人员来说很麻烦。
工具：数据库存过
思路：需要导入数据的表放在数据库中。遍历这些表，在遍历过程中先删除表中符合条件的数据，然后将生产环境符合条件的数据迁入到当前环境中
/***************************************************************************** * Name: P_IMPORT_CHA_DATA * PROCEDURE: 导生产环境基础数据（代理人信息） * Paramater: IC_C_CHA_CDE 代理人代码 * Programmer: lyt * Date: 2019/10/12 * Update: * 需导入表配置：T_IMPORT_TABLE WHERE C_MARK = ‘2‘; * 维护dbquery中间库表结构：SELECT ‘CREATE TABLE T_‘ || C_TABLE || ‘ AS SELECT * FROM ZSSYS.‘ || C_TABLE || ‘ WHERE ROWNUM = 0;‘,A.* FROM T_IMPORT_TABLE A； * 如果手续费打包时提示：算税平台找不到该代理人，需联系算税平台（沈一栋）邵先路，将算税生产环境信息同步到对应环境 \*****************************************************************************/ PROCEDURE P_IMPORT_CHA_DATA(IC_C_CHA_CDE VARCHAR2) AS LB_SQL CLOB; LB_COLS CLOB; LB_COND CLOB; LN_ROWS NUMBER; CURSOR CUR_TABLE IS SELECT * FROM T_IMPORT_TABLE WHERE C_MARK = ‘2‘; BEGIN FOR LR_TABLE IN CUR_TABLE LOOP SELECT WM_CONCAT(COLUMN_NAME) INTO LB_COLS FROM USER_TAB_COLS@LINK_CORE WHERE TABLE_NAME = ‘T_‘ || UPPER(LR_TABLE.C_TABLE) ORDER BY COLUMN_ID; LB_COND := ‘ WHERE ‘; IF (UPPER(LR_TABLE.C_TABLE) = ‘WEB_CUS_COM_ACCT‘) THEN LB_COND := LB_COND || ‘C_REL_CDE ‘; ELSIF (UPPER(LR_TABLE.C_TABLE) = ‘WEB_CUS_CONFER‘) THEN LB_COND := LB_COND || ‘C_CLNT_CDE ‘; ELSIF (UPPER(LR_TABLE.C_TABLE) = ‘WEB_CUS_CONFER_DTL‘ OR UPPER(LR_TABLE.C_TABLE) = ‘WEB_AUTH_CONFER‘) THEN LB_COND := LB_COND || ‘C_AGT_AGR_NO IN (SELECT C_AGT_AGR_NO FROM ZSSYS.WEB_CUS_CONFER WHERE C_CLNT_CDE‘; ELSIF (UPPER(LR_TABLE.C_TABLE) = ‘WEB_ORG_SALES‘) THEN LB_COND := LB_COND || ‘C_SLS_CDE IN(SELECT C_SLS_CDE FROM ZSSYS.WEB_CUS_CHA WHERE C_CHA_CDE‘; ELSE LB_COND := LB_COND || ‘C_CHA_CDE ‘; END IF; IF (UPPER(LR_TABLE.C_TABLE) = ‘WEB_CUS_CONFER_DTL‘ OR UPPER(LR_TABLE.C_TABLE) = ‘WEB_AUTH_CONFER‘ OR UPPER(LR_TABLE.C_TABLE) = ‘WEB_ORG_SALES‘) THEN LB_COND := LB_COND || ‘= ‘‘‘ || IC_C_CHA_CDE || ‘‘‘)‘; ELSE LB_COND := LB_COND || ‘= ‘‘‘ || IC_C_CHA_CDE || ‘‘‘‘; END IF; LB_SQL := ‘DELETE FROM ZSSYS.‘ || LR_TABLE.C_TABLE || LB_COND; EXECUTE IMMEDIATE LB_SQL; LB_SQL := ‘INSERT INTO ZSSYS.‘ || LR_TABLE.C_TABLE || ‘(‘ || LB_COLS || ‘) SELECT ‘ || LB_COLS || ‘ FROM ‘ || ‘ZSSYS.‘ || LR_TABLE.C_TABLE || ‘@LINK_CORE ‘|| LB_COND; EXECUTE IMMEDIATE LB_SQL; END IF; END LOOP; --COMMIT; END P_IMPORT_CHA_DATA;
FOR LR_TABLE IN CUR_TABLE LOOP
END LOOP;
IF () THEN
...;
ELSIF () THEN
...;
ELSE
...;
END IF;
Cursor类型包含三种: 隐式Cursor，显式Cursor和Ref Cursor（动态Cursor）。
1). 隐式游标：无需定义，Select /Update / Insert/Delete操作，就是隐式Cursor
2). 显式游标：
cursor <cursor>[(<param_list>)]is <select_statement>;
3). 动态游标：
Type [Cursor type name] is ref cursor
游标的属性（4个）1.found 2.notfound 3.rowcount 4.isopen
首先在左侧列表中，选中对应存过，右键后点击add debug informaintion（添加调试信息），然后在点Test，显示如下页面：
最上面一排是debug相关按键区域，中间为代码显示部分，左下为变量值显示区域（填写变量名称，执行过程中查看变量值）
版本1.1存在的问题：由于部分表之间存在外键约束，导致删除操作失败。
解决思路：先反向遍历表完成全部删除操作（删除符合条件的数据），在遍历表完成插入操作，这里用到动态索引
/***************************************************************************** * Name: P_IMPORT_CHA_DATA * PROCEDURE: 导生产环境基础数据（代理人信息） * Paramater: IC_C_CHA_CDE 代理人代码 * Programmer: lyt * Date: 2019/10/12 * Update: * 需导入表配置：T_IMPORT_TABLE WHERE C_MARK = ‘2‘; * 如果手续费打包时提示：算税平台找不到该代理人，需联系算税平台（沈一栋）邵先路，将算税生产环境信息同步到对应环境 \*****************************************************************************/ PROCEDURE P_IMPORT_CHA_DATA(IC_C_CHA_CDE VARCHAR2) AS TYPE ref_cursor_type IS REF CURSOR; CUR_TABLE ref_cursor_type; LR_TABLE ZSSYS.T_IMPORT_TABLE%ROWTYPE; LB_SQL CLOB; LB_COLS CLOB; LB_COND CLOB; BEGIN FOR i IN 1 .. 2 LOOP IF (i = 1) THEN OPEN CUR_TABLE FOR SELECT * FROM ZSSYS.T_IMPORT_TABLE WHERE C_MARK = ‘2‘ ORDER BY C_TABLE_NO DESC; ELSE OPEN CUR_TABLE FOR SELECT * FROM ZSSYS.T_IMPORT_TABLE WHERE C_MARK = ‘2‘ ORDER BY C_TABLE_NO; END IF; LOOP FETCH CUR_TABLE INTO LR_TABLE; EXIT WHEN CUR_TABLE%NOTFOUND; SELECT WM_CONCAT(COLUMN_NAME) INTO LB_COLS FROM DBA_TAB_COLS@LINK_CORE WHERE TABLE_NAME = ‘T_‘ || UPPER(LR_TABLE.C_TABLE) AND OWNER = ‘ZSSYS‘ ORDER BY COLUMN_ID; LB_COND := ‘ WHERE ‘; IF (UPPER(LR_TABLE.C_TABLE) = ‘WEB_CUS_COM_ACCT‘) THEN LB_COND := LB_COND || ‘C_REL_CDE ‘; ELSIF (UPPER(LR_TABLE.C_TABLE) = ‘WEB_CUS_CONFER‘) THEN LB_COND := LB_COND || ‘C_CLNT_CDE ‘; ELSIF (UPPER(LR_TABLE.C_TABLE) = ‘WEB_CUS_CONFER_DTL‘ OR UPPER(LR_TABLE.C_TABLE) = ‘WEB_AUTH_CONFER‘) THEN LB_COND := LB_COND || ‘C_AGT_AGR_NO IN (SELECT C_AGT_AGR_NO FROM ZSSYS.WEB_CUS_CONFER@LINK_CORE WHERE C_CLNT_CDE‘; ELSIF (UPPER(LR_TABLE.C_TABLE) = ‘WEB_ORG_SALES‘) THEN LB_COND := LB_COND || ‘C_SLS_CDE IN(SELECT C_SLS_CDE FROM ZSSYS.WEB_CUS_CHA@LINK_CORE WHERE C_CHA_CDE‘; ELSE LB_COND := LB_COND || ‘C_CHA_CDE ‘; END IF; IF (UPPER(LR_TABLE.C_TABLE) = ‘WEB_CUS_CONFER_DTL‘ OR UPPER(LR_TABLE.C_TABLE) = ‘WEB_AUTH_CONFER‘ OR UPPER(LR_TABLE.C_TABLE) = ‘WEB_ORG_SALES‘) THEN LB_COND := LB_COND || ‘= ‘‘‘ || IC_C_CHA_CDE || ‘‘‘)‘; ELSE LB_COND := LB_COND || ‘= ‘‘‘ || IC_C_CHA_CDE || ‘‘‘‘; END IF; IF (i = 1) THEN LB_SQL := ‘DELETE FROM ZSSYS.‘ || LR_TABLE.C_TABLE || LB_COND; ELSE LB_SQL := ‘INSERT INTO ZSSYS.‘ || LR_TABLE.C_TABLE || ‘(‘ || LB_COLS || ‘) SELECT ‘ || LB_COLS || ‘ FROM ‘ || ‘ZSSYS.‘ || LR_TABLE.C_TABLE || ‘@LINK_CORE‘ || LB_COND; END IF; EXECUTE IMMEDIATE LB_SQL; END LOOP; IF CUR_TABLE%ISOPEN THEN --close cursor CLOSE CUR_TABLE; END IF; END LOOP; END P_IMPORT_CHA_DATA;
原文：https://www.cnblogs.com/liuyitan/p/11660848.html