常用的oracle存儲過程

1、create or replace procedure P_DM_VOICE_TOT_M10(V_ACCT_DATE VARCHAR2, V_RETCODE OUT VARCHAR2, V_RETINFO OUT VARCHAR2 IS /* * *名稱 -%NAME:P_DM_VOICE_TOT_M10 *功能描述 -%COMMENT:移動業(yè)務(wù)訂購實例短信匯總信息(2G-日 *執(zhí)行周期 -%PERIOD:月 *參數(shù) -%PARAM:V_ACCT_DAY 執(zhí)行時間,格式Y(jié)YYYMMDD *參數(shù) -%PARAM:V_RETCODE 過程運行結(jié)束成功與否標(biāo)志（SUCCESS/FAIL） *參數(shù) -

2、%PARAM:V_RETINFO 過程運行結(jié)束成功與否描述 *創(chuàng)建人 -%CREATOR: ghm *創(chuàng)建時間 -%CREATED_TIME:2012-07-17 *備注 -%REMARK: *來源表 -%FROM: BDWA.DM_VOICE_TOT_M10ODSDB *目標(biāo)表 -%TO: DM_VOICE_TOT_M10 *修改記錄 -%MODIFY: 姓名 日期 修改說明 * */ V_ROWCOUNT NUMBER; -用于保存記錄數(shù) V_PKG VARCHAR2(40; -過程包名 V_PROCNAME VARCHAR2(100; -過程名 V_TIME DATE; -當(dāng)前時間，用于

3、保存過程開始執(zhí)行時間 V_LOG_MSG VARCHAR2(100; -日志內(nèi)容 V_STRSQL VARCHAR2(1000; V_ACCT_MONTH varchar2(6; V_ACCT_DAY varchar2(2; BEGIN V_PKG := 'SRC' V_PROCNAME := 'SRC.P_DM_VOICE_TOT_M10' V_TIME := SYSDATE; V_LOG_MSG := '匯表' /*V_ACCT_MONTH := substr(V_ACCT_DATE, 1, 6; V_ACCT_DAY := substr(V

4、_ACCT_DATE, 7, 2;*/ -插入開始日志 SRC.P_INSERT_LOG(V_ACCT_DATE, V_PKG, V_PROCNAME, V_LOG_MSG, V_TIME, 'DM_VOICE_TOT_M10' -刪除當(dāng)期數(shù)據(jù) V_STRSQL := 'truncate TABLE DM_VOICE_TOT_M10' EXECUTE IMMEDIATE V_STRSQL; COMMIT; -插入數(shù)據(jù) INSERT /*+APPEND*/ INTO DM_VOICE_TOT_M10 SELECT * FROM bi_rw.DM_VOICE_TOT

5、_M10ODSDB T; -獲得記錄數(shù) V_ROWCOUNT := SQL%ROWCOUNT; COMMIT; -過程執(zhí)行成功,更新日志 V_RETCODE := 'SUCCESS' V_RETINFO := '結(jié)束' - 變更日志信息 SRC.P_UPDATE_LOG(V_ACCT_DATE, V_PKG, V_PROCNAME, V_RETCODE, V_RETINFO, SYSDATE, V_ROWCOUNT; -異常 EXCEPTION WHEN OTHERS THEN V_RETCODE := 'FAIL' V_RETINFO := S

6、QLERRM; SRC.P_UPDATE_LOG(V_ACCT_DATE, V_PKG, V_PROCNAME, V_RETCODE, V_RETINFO, SYSDATE, V_ROWCOUNT; end P_DM_VOICE_TOT_M10; - - create or replace procedure P_DM_VOICE_TOT_M11(V_ACCT_DATE VARCHAR2, V_RETCODE OUT VARCHAR2, V_RETINFO OUT VARCHAR2 IS /* * *名稱 -%NAME:P_DM_VOICE_TOT_M11 *功能描述 -%COMMENT:移動

7、業(yè)務(wù)訂購實例短信匯總信息(2G-日 *執(zhí)行周期 -%PERIOD:月 *參數(shù) -%PARAM:V_ACCT_DAY 執(zhí)行時間,格式Y(jié)YYYMMDD *參數(shù) -%PARAM:V_RETCODE 過程運行結(jié)束成功與否標(biāo)志（SUCCESS/FAIL） *參數(shù) -%PARAM:V_RETINFO 過程運行結(jié)束成功與否描述 *創(chuàng)建人 -%CREATOR: ghm *創(chuàng)建時間 -%CREATED_TIME:2012-07-17 *備注 -%REMARK: *來源表 -%FROM: BDWA.DM_VOICE_TOT_M11ODSDB *目標(biāo)表 -%TO: DM_VOICE_TOT_M11 *修改記錄 -%

8、MODIFY: 姓名 日期 修改說明 * */ V_ROWCOUNT NUMBER; -用于保存記錄數(shù) V_PKG VARCHAR2(40; -過程包名 V_PROCNAME VARCHAR2(100; -過程名 V_TIME DATE; -當(dāng)前時間，用于保存過程開始執(zhí)行時間 V_LOG_MSG VARCHAR2(100; -日志內(nèi)容 V_STRSQL VARCHAR2(1000; V_ACCT_MONTH varchar2(6; V_ACCT_DAY varchar2(2; BEGIN V_PKG := 'SRC' V_PROCNAME := 'SRC.P_DM_VO

9、ICE_TOT_M11' V_TIME := SYSDATE; V_LOG_MSG := '匯表' /*V_ACCT_MONTH := substr(V_ACCT_DATE, 1, 6; V_ACCT_DAY := substr(V_ACCT_DATE, 7, 2;*/ -插入開始日志 SRC.P_INSERT_LOG(V_ACCT_DATE, V_PKG, V_PROCNAME, V_LOG_MSG, V_TIME, 'DM_VOICE_TOT_M11' -刪除當(dāng)期數(shù)據(jù) V_STRSQL := 'truncate TABLE DM_VOICE_

10、TOT_M11' EXECUTE IMMEDIATE V_STRSQL; COMMIT; -插入數(shù)據(jù) INSERT /*+APPEND*/ INTO DM_VOICE_TOT_M11 SELECT * FROM bi_rw.DM_VOICE_TOT_M11ODSDB T; -獲得記錄數(shù) V_ROWCOUNT := SQL%ROWCOUNT; COMMIT; -過程執(zhí)行成功,更新日志 V_RETCODE := 'SUCCESS' V_RETINFO := '結(jié)束' - 變更日志信息 SRC.P_UPDATE_LOG(V_ACCT_DATE, V_PKG,

11、V_PROCNAME, V_RETCODE, V_RETINFO, SYSDATE, V_ROWCOUNT; -異常 EXCEPTION WHEN OTHERS THEN V_RETCODE := 'FAIL' V_RETINFO := SQLERRM; SRC.P_UPDATE_LOG(V_ACCT_DATE, V_PKG, V_PROCNAME, V_RETCODE, V_RETINFO, SYSDATE, V_ROWCOUNT; end P_DM_VOICE_TOT_M11; - - create or replace procedure P_DM_VOICE_TOT_M

12、12(V_ACCT_DATE VARCHAR2, V_RETCODE OUT VARCHAR2, V_RETINFO OUT VARCHAR2 IS /* * *名稱 -%NAME:P_DM_V OICE_TOT_M12 *功能描述 -%COMMENT:移動業(yè)務(wù)訂購實例短信匯總信息(2G-日 *執(zhí)行周期 -%PERIOD:月 *參數(shù) -%PARAM:V_ACCT_DAY 執(zhí)行時間,格式Y(jié)YYYMMDD *參數(shù) -%PARAM:V_RETCODE 過程運行結(jié)束成功與否標(biāo)志（SUCCESS/FAIL） *參數(shù) -%PARAM:V_RETINFO 過程運行結(jié)束成功與否描述 *創(chuàng)建人 -%CREATO

13、R: ghm *創(chuàng)建時間 -%CREATED_TIME:2012-07-17 *備注 -%REMARK: *來源表 -%FROM: BDWA.DM_VOICE_TOT_M12ODSDB *目標(biāo)表 -%TO: DM_VOICE_TOT_M12 *修改記錄 -%MODIFY: 姓名 日期 修改說明 * */ V_ROWCOUNT NUMBER; -用于保存記錄數(shù) V_PKG VARCHAR2(40; -過程包名 V_PROCNAME VARCHAR2(100; -過程名 V_TIME DATE; -當(dāng)前時間，用于保存過程開始執(zhí)行時間 V_LOG_MSG VARCHAR2(100; -日志內(nèi)容 V_

14、STRSQL VARCHAR2(1000; V_ACCT_MONTH varchar2(6; V_ACCT_DAY varchar2(2; BEGIN V_PKG := 'SRC' V_PROCNAME := 'SRC.P_DM_VOICE_TOT_M12' V_TIME := SYSDATE; V_LOG_MSG := '匯表' /*V_ACCT_MONTH := substr(V_ACCT_DATE, 1, 6; V_ACCT_DAY := substr(V_ACCT_DATE, 7, 2;*/ -插入開始日志 SRC.P_INSERT_LO

15、G(V_ACCT_DATE, V_PKG, V_PROCNAME, V_LOG_MSG, V_TIME, 'DM_VOICE_TOT_M12' -刪除當(dāng)期數(shù)據(jù) V_STRSQL := 'truncate TABLE DM_VOICE_TOT_M12' EXECUTE IMMEDIATE V_STRSQL; COMMIT; -插入數(shù)據(jù) INSERT /*+APPEND*/ INTO DM_VOICE_TOT_M12 SELECT * FROM bi_rw.DM_VOICE_TOT_M12ODSDB T; -獲得記錄數(shù) V_ROWCOUNT := SQL%ROWCO

16、UNT; COMMIT; -過程執(zhí)行成功,更新日志 V_RETCODE := 'SUCCESS' V_RETINFO := '結(jié)束' - 變更日志信息 SRC.P_UPDATE_LOG(V_ACCT_DATE, V_PKG, V_PROCNAME, V_RETCODE, V_RETINFO, SYSDATE, V_ROWCOUNT; -異常 EXCEPTION WHEN OTHERS THEN V_RETCODE := 'FAIL' V_RETINFO := SQLERRM; SRC.P_UPDATE_LOG(V_ACCT_DATE, V_PKG

17、, V_PROCNAME, V_RETCODE, V_RETINFO, SYSDATE, V_ROWCOUNT; end P_DM_VOICE_TOT_M12; - - create or replace procedure p_DM_VOICE_TOT_M20( V_RETCODE OUT VARCHAR2, V_RETINFO OUT VARCHAR2 IS /* * *名稱 -%NAME:p_DM_VOICE_TOT_M20 *功能描述 -%COMMENT:統(tǒng)計 *執(zhí)行周期 -%PERIOD:日 *參數(shù) -%PARAM:V_ACCT_DAY 執(zhí)行時間,格式Y(jié)YYYMMDD *參數(shù) -%P

18、ARAM:V_RETCODE 過程 運行結(jié)束成功與否標(biāo)志（SUCCESS/FAIL） *參數(shù) -%PARAM:V_RETINFO 過程運行結(jié)束成功與否描述 *創(chuàng)建人 -%CREATOR: 宋勇 *創(chuàng)建時間 -%CREATED_TIME:2012-08-01 *備注 -%REMARK: *來源表 -%FROM: *目標(biāo)表 -%TO: *修改記錄 -%MODIFY: 姓名 日期 修改說明 * */ V_ROWCOUNT NUMBER; -用于保存記錄數(shù) V_PKG VARCHAR2(40; -過程包名 V_PROCNAME VARCHAR2(100; -過程名 V_TIME DATE; -當(dāng)前時間

19、，用于保存過程開始執(zhí)行時間 V_LOG_MSG VARCHAR2(100; -日志內(nèi)容 V_STRSQL VARCHAR2(1000; BEGIN V_PKG := 'SRC' V_PROCNAME := 'P_DM_VOICE_TOT_M20' V_TIME := SYSDATE; V_LOG_MSG := '統(tǒng)計標(biāo)準(zhǔn)差' -插入開始日志 SRC.P_INSERT_LOG(' ', V_PKG, V_PROCNAME, V_LOG_MSG, V_TIME, 'p_DM_VOICE_TOT_M20' V_STRSQ

20、L := 'truncate table DM_VOICE_TOT_M20' EXECUTE IMMEDIATE V_STRSQL; COMMIT; INSERT Into DM_VOICE_TOT_M20 SELECT B.*, A.CDR_DENS_STD1, A.DUR_DENS_STD1, A.OPP_MOBILE_STD1, A.CDR_DENS_CV1, A.DUR_DENS_CV1, A.OPP_MOBILE_CV1 FROM (SELECT t.SVC_ID, F_BYTESTD(t.CDR_DENS CDR_DENS_STD1, F_BYTESTD(t.DUR

21、_DENS DUR_DENS_STD1, F_BYTESTD(t.OPP_MOBILE OPP_MOBILE_STD1, F_BYTECV(t.CDR_DENS CDR_DENS_CV1, F_BYTECV(t.DUR_DENS DUR_DENS_CV1, F_BYTECV(t.OPP_MOBILE OPP_MOBILE_CV1 FROM src.DM_VOICE_TOT_M10 T A, (SELECT t.SVC_ID, F_BYTESTD(t.CDR_DENS CDR_DENS_STD, F_BYTESTD(t.DUR_DENS DUR_DENS_STD, F_BYTESTD(t.OPP

22、_MOBILE OPP_MOBILE_STD, F_BYTECV(t.CDR_DENS CDR_DENS_CV, F_BYTECV(t.DUR_DENS DUR_DENS_CV, F_BYTECV(t.OPP_MOBILE OPP_MOBILE_CV, t.FST_DATE, t.LST_DATE, t.GENT_TAG, 30 - F_BYTECNT(t.CDR_DENS, '0' CDR_DENS_CNT, 30 - F_BYTECNT(t.DUR_DENS, '0' DUR_DENS_CNT, 30 - F_BYTECNT(t.OPP_MOBILE, '0' OPP_MOBILE_CNT, F_BYTESUM(t.DUR_DENS / decode(F_BYTESUM(t.CDR_DENS,0,1,F_BYTESUM(t.CDR_DENS DUR_CDR, F_BYTESUM(t.CDR