一个实现数据增量加载的ETL算法(记录新增、更新和删除标志)

/*********************************************************************************/
--存储过程名称: P_CONTRACT
--作者:          倪士甲
--时间:          2011-09-16
--使用源表名称:
--使用目标表名称:
--参数说明:      O_RUNSTATUS、O_MSG(传出参数)
--功能:          仓库数据ETL处理
--修改记录
/*********************************************************************************/
PROCEDURE P_CONTRACT
(P_ETLDATE   IN VARCHAR2, --日期参数
O_RUNSTATUS OUT NUMBER, --执行结果
O_MSG       OUT VARCHAR2 --错误返回
) AS
  --PROCEDURE NAME:P_CONTRACT
  --AUTHOR        :倪士甲  2011-09-16
  --UPDATE_AUTHOR :
  --SCRIPT FILE   :P_CONTRACT.SQL
  --定义存储过程信息
 V_PROC_NAME       VARCHAR2(50)   := 'P_CONTRACT';
 V_START_TIMESTAMP TIMESTAMP;                --加载开始时间
 V_END_TIMESTAMP   TIMESTAMP;                --加载结束时间
 V_RECORD_NUMBER   INTEGER;                  --记录数
 --定义错误代码,错误状态
 V_SQLERRM         VARCHAR2(1000);           --异常信息
 V_ERR_SQL         VARCHAR2(1000);           --出错位置
BEGIN
    --0、AP_CONTRACT表LOAN_CLS字段值特殊处理    
   V_ERR_SQL:='1';
    EXECUTE IMMEDIATE 'TRUNCATE TABLE YES_CONTRACT';
    INSERT INTO YES_CONTRACT
      (ID, DATA_DT, AGMT_NO, CONTRACT_NO, LOAN_AMT, AGMT_HOLDER, CUSTOMER_NAME, LOAN_TYPE_CD, AGMT_STATUS_CD, CURR_CD, BALANCE, INTEREST1, INTEREST2, CLASSIFY5, LOAN_DIRC_CD, AGMT_START_DATE, AGMT_END_DATE, AGMT_BELONG_ORG_NO, MANAGER_NO, CORP_SCALE_GB_CD, LOAN_CARD_NO, ACCOUNT_BANK, ACCOUNT_NO, REPAY_PERIOD, FIN_PROM_SCOPE_A, FIN_PROM_SCOPE_B, FIN_PROM_SCOPE_C, CORP_REG_TYPE_CD, LOAN_KIND_CD, SMALL_CORP_FLAG, INDUSTRY_CUST_FLAG, MEAGER_PROFIT_CD, PROCESS_RATE, BASIS_RATE, PUNISH_RATE, OVERDUE_PUNISH_RATE, UPPER_RATE, OVERDUE_UPPER_RATE, RATE_TYPE_CD, TERM_TYPE_CD, SETTLE_RATE_METH_CD, INSURE_METH_TYPE_CD, AGMT_SIGN_DATE, LOAN_PROP_CD, LOAN_USE_TYPE, BANK_CONSORTIUM_FLAG, LOAN_REPAY_TYPE_CD, REPAY_ACCT, APPROVE_NO, LEND_TYPE_CD, RATE_ADJUST_METH_CD, ENTRUST_LOAN_FLAG, ENTRUST_NAME, CURR_RATE, BANK_CONSORTIUM_AGMT_AMT, LEAD_BANK_FLAG, CHARGE_RATE, CHARGE_AMT, LOAN_FORM_CD, ORIG_AGMT_NO, FARM_SYN_DEV_LOAN_FLAG, POVERTY_SUBSIDY_LOAN_FLAG, LEAD_CORP_FLAG, LEAD_CORP_LEVEL_CD, FARM_LOAN_FLAG, FARM_LOAN_TYPE_CD, LOAN_BIZ_TYPE_CD, UPDATEDATE, CHG_FLAG, YSTDY_BALANCE, LOAN_CLS)
      SELECT ID, DATA_DT, AGMT_NO, CONTRACT_NO, LOAN_AMT, AGMT_HOLDER, CUSTOMER_NAME, LOAN_TYPE_CD, AGMT_STATUS_CD, CURR_CD, BALANCE, INTEREST1, INTEREST2, CLASSIFY5, LOAN_DIRC_CD, AGMT_START_DATE, AGMT_END_DATE, AGMT_BELONG_ORG_NO, MANAGER_NO, CORP_SCALE_GB_CD, LOAN_CARD_NO, ACCOUNT_BANK, ACCOUNT_NO, REPAY_PERIOD, FIN_PROM_SCOPE_A, FIN_PROM_SCOPE_B, FIN_PROM_SCOPE_C, CORP_REG_TYPE_CD, LOAN_KIND_CD, SMALL_CORP_FLAG, INDUSTRY_CUST_FLAG, MEAGER_PROFIT_CD, PROCESS_RATE, BASIS_RATE, PUNISH_RATE, OVERDUE_PUNISH_RATE, UPPER_RATE, OVERDUE_UPPER_RATE, RATE_TYPE_CD, TERM_TYPE_CD, SETTLE_RATE_METH_CD, INSURE_METH_TYPE_CD, AGMT_SIGN_DATE, LOAN_PROP_CD, LOAN_USE_TYPE, BANK_CONSORTIUM_FLAG, LOAN_REPAY_TYPE_CD, REPAY_ACCT, APPROVE_NO, LEND_TYPE_CD, RATE_ADJUST_METH_CD, ENTRUST_LOAN_FLAG, ENTRUST_NAME, CURR_RATE, BANK_CONSORTIUM_AGMT_AMT, LEAD_BANK_FLAG, CHARGE_RATE, CHARGE_AMT, LOAN_FORM_CD, ORIG_AGMT_NO, FARM_SYN_DEV_LOAN_FLAG, POVERTY_SUBSIDY_LOAN_FLAG, LEAD_CORP_FLAG, LEAD_CORP_LEVEL_CD, FARM_LOAN_FLAG, FARM_LOAN_TYPE_CD, LOAN_BIZ_TYPE_CD, UPDATEDATE, CHG_FLAG, YSTDY_BALANCE, LOAN_CLS
        FROM AP_CONTRACT
       --WHERE LOAN_CLS IN ('A', 'S')
       ;
    --1、新增当前表存在而AP表不存在的数据  
   V_ERR_SQL:='2';
    INSERT INTO AP_CONTRACT
      (ID,
       DATA_DT,
       AGMT_NO,
       CONTRACT_NO,
       LOAN_AMT,
       AGMT_HOLDER,
       CUSTOMER_NAME,
       LOAN_TYPE_CD,
       AGMT_STATUS_CD,
       CURR_CD,
       BALANCE,
       INTEREST1,
       INTEREST2,
       CLASSIFY5,
       LOAN_DIRC_CD,
       AGMT_START_DATE,
       AGMT_END_DATE,
       AGMT_BELONG_ORG_NO,
       MANAGER_NO,
       CORP_SCALE_GB_CD,
       LOAN_CARD_NO,
       ACCOUNT_BANK,
       ACCOUNT_NO,
       REPAY_PERIOD,
       FIN_PROM_SCOPE_A,
       FIN_PROM_SCOPE_B,
       FIN_PROM_SCOPE_C,
       CORP_REG_TYPE_CD,
       LOAN_KIND_CD,
       SMALL_CORP_FLAG,
       INDUSTRY_CUST_FLAG,
       MEAGER_PROFIT_CD,
       PROCESS_RATE,
       BASIS_RATE,
       PUNISH_RATE,
       OVERDUE_PUNISH_RATE,
       UPPER_RATE,
       OVERDUE_UPPER_RATE,
       RATE_TYPE_CD,
       TERM_TYPE_CD,
       SETTLE_RATE_METH_CD,
       INSURE_METH_TYPE_CD,
       AGMT_SIGN_DATE,
       LOAN_PROP_CD,
       LOAN_USE_TYPE,
       BANK_CONSORTIUM_FLAG,
       LOAN_REPAY_TYPE_CD,
       REPAY_ACCT,
       APPROVE_NO,
       LEND_TYPE_CD,
       RATE_ADJUST_METH_CD,
       ENTRUST_LOAN_FLAG,
       ENTRUST_NAME,
       CURR_RATE,
       BANK_CONSORTIUM_AGMT_AMT,
       LEAD_BANK_FLAG,
       CHARGE_RATE,
       CHARGE_AMT,
       LOAN_FORM_CD,
       ORIG_AGMT_NO,
       FARM_SYN_DEV_LOAN_FLAG,
       POVERTY_SUBSIDY_LOAN_FLAG,
       LEAD_CORP_FLAG,
       LEAD_CORP_LEVEL_CD,
       FARM_LOAN_FLAG,
       FARM_LOAN_TYPE_CD,
       LOAN_BIZ_TYPE_CD,
       UPDATEDATE,
       DATA_STATUS,
       UP_DATE,
       LOAN_CLS, CHG_FLAG, YSTDY_BALANCE)
      SELECT A1.ID,
             A1.DATA_DT,
             A1.AGMT_NO,
             A1.CONTRACT_NO,
             A1.LOAN_AMT,
             A1.AGMT_HOLDER,
             A1.CUSTOMER_NAME,
             A1.LOAN_TYPE_CD,
             A1.AGMT_STATUS_CD,
             A1.CURR_CD,
             A1.BALANCE,
             A1.INTEREST1,
             A1.INTEREST2,
             A1.CLASSIFY5,
             A1.LOAN_DIRC_CD,
             A1.AGMT_START_DATE,
             A1.AGMT_END_DATE,
             A1.AGMT_BELONG_ORG_NO,
             A1.MANAGER_NO,
             A1.CORP_SCALE_GB_CD,
             A1.LOAN_CARD_NO,
             A1.ACCOUNT_BANK,
             A1.ACCOUNT_NO,
             A1.REPAY_PERIOD,
             A1.FIN_PROM_SCOPE_A,
             A1.FIN_PROM_SCOPE_B,
             A1.FIN_PROM_SCOPE_C,
             A1.CORP_REG_TYPE_CD,
             A1.LOAN_KIND_CD,
             A1.SMALL_CORP_FLAG,
             A1.INDUSTRY_CUST_FLAG,
             A1.MEAGER_PROFIT_CD,
             A1.PROCESS_RATE,
             A1.BASIS_RATE,
             A1.PUNISH_RATE,
             A1.OVERDUE_PUNISH_RATE,
             A1.UPPER_RATE,
             A1.OVERDUE_UPPER_RATE,
             A1.RATE_TYPE_CD,
             A1.TERM_TYPE_CD,
             A1.SETTLE_RATE_METH_CD,
             A1.INSURE_METH_TYPE_CD,
             A1.AGMT_SIGN_DATE,
             A1.LOAN_PROP_CD,
             A1.LOAN_USE_TYPE,
             A1.BANK_CONSORTIUM_FLAG,
             A1.LOAN_REPAY_TYPE_CD,
             A1.REPAY_ACCT,
             A1.APPROVE_NO,
             A1.LEND_TYPE_CD,
             A1.RATE_ADJUST_METH_CD,
             A1.ENTRUST_LOAN_FLAG,
             A1.ENTRUST_NAME,
             A1.CURR_RATE,
             A1.BANK_CONSORTIUM_AGMT_AMT,
             A1.LEAD_BANK_FLAG,
             A1.CHARGE_RATE,
             A1.CHARGE_AMT,
             A1.LOAN_FORM_CD,
             A1.ORIG_AGMT_NO,
             A1.FARM_SYN_DEV_LOAN_FLAG,
             A1.POVERTY_SUBSIDY_LOAN_FLAG,
             A1.LEAD_CORP_FLAG,
             A1.LEAD_CORP_LEVEL_CD,
             A1.FARM_LOAN_FLAG,
             A1.FARM_LOAN_TYPE_CD,
             A1.LOAN_BIZ_TYPE_CD,
             A1.UPDATEDATE,
             '0', --新增
             TO_CHAR(SYSDATE, 'YYYYMMDD'),
             'N' ,   --新增数据将此字段置为N
             'N',    --因为是新增,昨日余额为空,将其设置为余额未变
             ''      --因为是新增,昨日余额为空
        FROM CUR_CONTRACT A1
       WHERE NOT EXISTS (SELECT 1
                FROM YES_CONTRACT B1
               WHERE A1.AGMT_NO = B1.AGMT_NO
                 AND A1.AGMT_HOLDER = B1.AGMT_HOLDER);
    --2、更新当前表与AP表都有的记录
    --(1)、删除两共有的AP表数据  
   V_ERR_SQL:='3';
    DELETE FROM AP_CONTRACT A1
     WHERE EXISTS (SELECT 1
              FROM CUR_CONTRACT B1
             INNER JOIN YES_CONTRACT B2
                ON B1.AGMT_NO = B2.AGMT_NO
               AND B1.AGMT_HOLDER = B2.AGMT_HOLDER
             WHERE A1.AGMT_NO = B1.AGMT_NO
               AND A1.AGMT_HOLDER = B1.AGMT_HOLDER);
    --(2)、从当前表更新数据到AP表中  
   V_ERR_SQL:='4';
    INSERT INTO AP_CONTRACT
      (ID,
       DATA_DT,
       AGMT_NO,
       CONTRACT_NO,
       LOAN_AMT,
       AGMT_HOLDER,
       CUSTOMER_NAME,
       LOAN_TYPE_CD,
       AGMT_STATUS_CD,
       CURR_CD,
       BALANCE,
       INTEREST1,
       INTEREST2,
       CLASSIFY5,
       LOAN_DIRC_CD,
       AGMT_START_DATE,
       AGMT_END_DATE,
       AGMT_BELONG_ORG_NO,
       MANAGER_NO,
       CORP_SCALE_GB_CD,
       LOAN_CARD_NO,
       ACCOUNT_BANK,
       ACCOUNT_NO,
       REPAY_PERIOD,
       FIN_PROM_SCOPE_A,
       FIN_PROM_SCOPE_B,
       FIN_PROM_SCOPE_C,
       CORP_REG_TYPE_CD,
       LOAN_KIND_CD,
       SMALL_CORP_FLAG,
       INDUSTRY_CUST_FLAG,
       MEAGER_PROFIT_CD,
       PROCESS_RATE,
       BASIS_RATE,
       PUNISH_RATE,
       OVERDUE_PUNISH_RATE,
       UPPER_RATE,
       OVERDUE_UPPER_RATE,
       RATE_TYPE_CD,
       TERM_TYPE_CD,
       SETTLE_RATE_METH_CD,
       INSURE_METH_TYPE_CD,
       AGMT_SIGN_DATE,
       LOAN_PROP_CD,
       LOAN_USE_TYPE,
       BANK_CONSORTIUM_FLAG,
       LOAN_REPAY_TYPE_CD,
       REPAY_ACCT,
       APPROVE_NO,
       LEND_TYPE_CD,
       RATE_ADJUST_METH_CD,
       ENTRUST_LOAN_FLAG,
       ENTRUST_NAME,
       CURR_RATE,
       BANK_CONSORTIUM_AGMT_AMT,
       LEAD_BANK_FLAG,
       CHARGE_RATE,
       CHARGE_AMT,
       LOAN_FORM_CD,
       ORIG_AGMT_NO,
       FARM_SYN_DEV_LOAN_FLAG,
       POVERTY_SUBSIDY_LOAN_FLAG,
       LEAD_CORP_FLAG,
       LEAD_CORP_LEVEL_CD,
       FARM_LOAN_FLAG,
       FARM_LOAN_TYPE_CD,
       LOAN_BIZ_TYPE_CD,
       UPDATEDATE,
       DATA_STATUS,
       UP_DATE,
       LOAN_CLS, CHG_FLAG, YSTDY_BALANCE)
      SELECT A1.ID,
             A1.DATA_DT,
             A1.AGMT_NO,
             A1.CONTRACT_NO,
             A1.LOAN_AMT,
             A1.AGMT_HOLDER,
             A1.CUSTOMER_NAME,
             A1.LOAN_TYPE_CD,
             A1.AGMT_STATUS_CD,
             A1.CURR_CD,
             A1.BALANCE,
             A1.INTEREST1,
             A1.INTEREST2,
             A1.CLASSIFY5,
             A1.LOAN_DIRC_CD,
             A1.AGMT_START_DATE,
             A1.AGMT_END_DATE,
             A1.AGMT_BELONG_ORG_NO,
             A1.MANAGER_NO,
             A1.CORP_SCALE_GB_CD,
             A1.LOAN_CARD_NO,
             A1.ACCOUNT_BANK,
             A1.ACCOUNT_NO,
             A1.REPAY_PERIOD,
             A1.FIN_PROM_SCOPE_A,
             A1.FIN_PROM_SCOPE_B,
             A1.FIN_PROM_SCOPE_C,
             A1.CORP_REG_TYPE_CD,
             A1.LOAN_KIND_CD,
             A1.SMALL_CORP_FLAG,
             A1.INDUSTRY_CUST_FLAG,
             A1.MEAGER_PROFIT_CD,
             A1.PROCESS_RATE,
             A1.BASIS_RATE,
             A1.PUNISH_RATE,
             A1.OVERDUE_PUNISH_RATE,
             A1.UPPER_RATE,
             A1.OVERDUE_UPPER_RATE,
             A1.RATE_TYPE_CD,
             A1.TERM_TYPE_CD,
             A1.SETTLE_RATE_METH_CD,
             A1.INSURE_METH_TYPE_CD,
             A1.AGMT_SIGN_DATE,
             A1.LOAN_PROP_CD,
             A1.LOAN_USE_TYPE,
             A1.BANK_CONSORTIUM_FLAG,
             A1.LOAN_REPAY_TYPE_CD,
             A1.REPAY_ACCT,
             A1.APPROVE_NO,
             A1.LEND_TYPE_CD,
             A1.RATE_ADJUST_METH_CD,
             A1.ENTRUST_LOAN_FLAG,
             A1.ENTRUST_NAME,
             A1.CURR_RATE,
             A1.BANK_CONSORTIUM_AGMT_AMT,
             A1.LEAD_BANK_FLAG,
             A1.CHARGE_RATE,
             A1.CHARGE_AMT,
             A1.LOAN_FORM_CD,
             A1.ORIG_AGMT_NO,
             A1.FARM_SYN_DEV_LOAN_FLAG,
             A1.POVERTY_SUBSIDY_LOAN_FLAG,
             A1.LEAD_CORP_FLAG,
             A1.LEAD_CORP_LEVEL_CD,
             A1.FARM_LOAN_FLAG,
             A1.FARM_LOAN_TYPE_CD,
             A1.LOAN_BIZ_TYPE_CD,
             A1.UPDATEDATE,
             '1', --更新的记录
             TO_CHAR(SYSDATE, 'YYYYMMDD'),
             A2.LOAN_CLS,  --更新数据将此字段沿用老的,不变
             CASE WHEN A1.BALANCE=A2.BALANCE
               THEN 'N'
                  WHEN A2.BALANCE IS NULL
               THEN 'N'
                  ELSE 'Y'
             END,                   --与昨天相比,余额是否改变
             A2.Balance               --昨日余额
        FROM CUR_CONTRACT A1
        LEFT JOIN YES_CONTRACT A2
        ON A1.AGMT_NO = A2.AGMT_NO
        AND A1.AGMT_HOLDER = A2.AGMT_HOLDER
       WHERE EXISTS (SELECT 1
              FROM YES_CONTRACT B1
             WHERE A1.AGMT_NO = B1.AGMT_NO
               AND A1.AGMT_HOLDER = B1.AGMT_HOLDER);

    --3、当前表不存在的数据在AP表中将状态置为2(对于昨日余额问题,不用在此作处理)  
   V_ERR_SQL:='5';
    UPDATE AP_CONTRACT A1
       SET A1.DATA_STATUS = '2', A1.UP_DATE = TO_CHAR(SYSDATE, 'YYYYMMDD')
     WHERE NOT EXISTS (SELECT 1
              FROM CUR_CONTRACT B2
             WHERE A1.AGMT_NO = B2.AGMT_NO
               AND A1.AGMT_HOLDER = B2.AGMT_HOLDER);

  --正常处理
  V_RECORD_NUMBER := SQL%ROWCOUNT;
  SELECT SYSDATE INTO V_END_TIMESTAMP FROM DUAL;
  INSERT INTO APS_ETL_LOG_DETAIL(START_TIMESTAMP,END_TIMESTAMP,PROC_NAME,ETL_RECORD_NUM,ETL_MEMO,P_ETLDATE)
  VALUES (V_START_TIMESTAMP,V_END_TIMESTAMP,V_PROC_NAME,V_RECORD_NUMBER,'成功',P_ETLDATE);
  COMMIT;

  --异常处理
  EXCEPTION WHEN OTHERS THEN
  BEGIN
         ROLLBACK;
         V_SQLERRM := SQLERRM;
         INSERT INTO APS_ETL_LOG_DETAIL(START_TIMESTAMP,END_TIMESTAMP,PROC_NAME,ETL_RECORD_NUM,ETL_MEMO,ERR_MSG,ERR_SQL,P_ETLDATE)
         VALUES (V_START_TIMESTAMP,V_END_TIMESTAMP,V_PROC_NAME,0,'失败',V_SQLERRM,V_ERR_SQL,P_ETLDATE);
         O_RUNSTATUS := 1;
         O_MSG := 'PROGRAMMING ERROR HAPPENED';
         COMMIT;
  END;
END;
/
说明:此算法记录了全部数据新增、更新、删除的状态,并有相应其他操作;算法主要用到两个临时表cur_、yes_来实现;比之原先数据仓库常用的增量更新算法,记的更细;两种算法,各有优缺点。
  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值