Oracle存储过程模板
ccwgpt 2024-11-27 12:19 21 浏览 0 评论
开发存储过程模板
--存储过程，调用日志存储过程在第2个
CREATE OR REPLACE PROCEDURE SP_WA_BDXSRYGLB(V_ETLDATE IN VARCHAR2 --执行日期
,V_RETURN OUT NUMBER --0=成功，-1=失败
,V_MSG OUT VARCHAR2 --如果报错，返回报错原因及代码
)
--------------------------------------------------------------------
--功能名称 : 表关联表完整性数据跑批
--执行周期 : 平台实时调用
--创建日期 : 2020/12/30
--源表 : W_JGBDDZB;BDXSRYGLB
--目标表 : W_BDXSRYGLB
--功能描述 : 进行表的拆分处理
--版本历史 : 1.0
--作者 : PH
--------------------------------------------------------------------
IS
V_DATE_ID DATE := TO_DATE(V_ETLDATE, 'YYYYMMDD'); --执行日期
V_SCHEMA VARCHAR2(10) ; --目标表所属用户
V_PROC_START_FLAG VARCHAR2(10) ; --运行开始标记符 00：运行
V_PROC_STOP_FLAG VARCHAR2(10) ; --运行开始标记符 01：结束
V_LOG_RUN_PNAME VARCHAR2(40) ; --存储过程英文名称
V_LOG_RUN_STEP NUMBER ; --执行步数
V_LOG_RUN_TABNAME VARCHAR2(40) ; --目标表名
V_LOG_RUN_OPRTTYP VARCHAR2(10) ; --操作类型
V_LOG_RUN_MSG VARCHAR2(1024) ; --返回状态信息:执行步骤/步骤+报错信息
V_LOG_RUN_MSGFLAG VARCHAR2(10) ; --错误信息
V_LOG_RUN_COUNT NUMBER ; --总次数
V_LOG_RUN_BEGIN_TIME DATE ; --开始时间
V_LOG_RUN_RECDATE DATE ; --步骤执行时间戳
V_LOG_RUN_ETL_DATE DATE ; --ETL执行日期
BEGIN
V_SCHEMA := 'EAST' ;
V_PROC_START_FLAG := '00' ;
V_PROC_STOP_FLAG := '01' ;
V_LOG_RUN_PNAME := 'SP_WA_BDXSRYGLB' ;
V_LOG_RUN_TABNAME := 'W_BDXSRYGLB' ;
V_LOG_RUN_OPRTTYP := '' ;
V_LOG_RUN_ETL_DATE := TO_DATE(V_ETLDATE,'YYYYMMDD') ;
V_LOG_RUN_BEGIN_TIME := SYSDATE ;
--插入存储过程运行日志
ETL.SP_DMD_PROCEDURE_LOG(V_DATE_ID ,V_SCHEMA ,V_LOG_RUN_PNAME ,V_PROC_START_FLAG);
--启用oracle并行
EXECUTE IMMEDIATE 'ALTER SESSION ENABLE PARALLEL DML';
EXECUTE IMMEDIATE 'ALTER SESSION FORCE PARALLEL DML PARALLEL 16';
EXECUTE IMMEDIATE 'ALTER SESSION FORCE PARALLEL QUERY PARALLEL 16';
V_LOG_RUN_STEP := 1 ;
V_LOG_RUN_BEGIN_TIME := SYSDATE ;
V_LOG_RUN_OPRTTYP := 'DELETE';
-----------------------------------------/STEP-1:删除当前批次数据/------------------------------
DELETE FROM W_BDXSRYGLB T WHERE T.SJBSPCH = V_ETLDATE;
V_LOG_RUN_COUNT := SQL%ROWCOUNT ;
V_LOG_RUN_MSG := '执行STEP' || V_LOG_RUN_STEP || '成功';
V_LOG_RUN_RECDATE := SYSDATE ;
V_LOG_RUN_MSGFLAG := 'SUCCESS' ;
ETL.SP_DMD_PROCEDURE_STEP_LOG(V_LOG_RUN_PNAME --程序名称
,V_LOG_RUN_STEP --执行步数
,V_LOG_RUN_TABNAME --表名称
,V_LOG_RUN_OPRTTYP --数据操作类型 DELETE=删除 INSERT=新增 UPDATE=更新 SP=调用存储
,V_LOG_RUN_MSG --信息描述
,V_LOG_RUN_MSGFLAG --信息标志 FAILED=错误标识 SUCCESS=正常标志
,V_LOG_RUN_COUNT --记录条数
,V_LOG_RUN_BEGIN_TIME --开始时间
,V_LOG_RUN_RECDATE --运行日志时间
,V_LOG_RUN_ETL_DATE) --数据日期
;
COMMIT;
V_LOG_RUN_STEP := 2 ;
V_LOG_RUN_BEGIN_TIME := SYSDATE ;
V_LOG_RUN_OPRTTYP := 'INSERT';
-----------------------------------------/STEP-2:插入完整关联表数据/------------------------------------
INSERT INTO W_BDXSRYGLB(
LSH --流水号
,BXJGDM --保险机构代码
,BXJGMC --保险机构名称
,XSRYDM --销售人员代码
,XSRYXM --销售人员姓名
,YYXSRYDM --银邮销售人员代码
,YYXSRYXM --银邮销售人员姓名
)SELECT/*+parallel(8)*/
T.LSH --流水号
,T.BXJGDM --保险机构代码
,T.BXJGMC --保险机构名称
,T.XSRYDM --销售人员代码
,T.XSRYXM --销售人员姓名
,T.YYXSRYDM --银邮销售人员代码
FROM D0508_BDXSRYGLB T;
V_LOG_RUN_COUNT := SQL%ROWCOUNT ;
V_LOG_RUN_MSG := '执行STEP' || V_LOG_RUN_STEP || '成功';
V_LOG_RUN_RECDATE := SYSDATE ;
V_LOG_RUN_MSGFLAG := 'SUCCESS' ;
ETL.SP_DMD_PROCEDURE_STEP_LOG(V_LOG_RUN_PNAME --程序名称
,V_LOG_RUN_STEP --执行步数
,V_LOG_RUN_TABNAME --表名称
,V_LOG_RUN_OPRTTYP --数据操作类型
,V_LOG_RUN_MSG --信息描述
,V_LOG_RUN_MSGFLAG --信息标志 failed-错误标识 success-正常标志
,V_LOG_RUN_COUNT --记录条数
,V_LOG_RUN_BEGIN_TIME --开始时间
,V_LOG_RUN_RECDATE --运行日志时间
,V_LOG_RUN_ETL_DATE) --数据日期
;
COMMIT;
V_RETURN := 0 ;
YDETL.SP_DMD_PROCEDURE_LOG(V_DATE_ID, V_SCHEMA, V_LOG_RUN_PNAME, V_PROC_STOP_FLAG);
-----------------------------------------------/异常处理/-----------------------------------------
EXCEPTION
WHEN OTHERS THEN
ROLLBACK ;
V_LOG_RUN_MSG := 'STEP =' || V_LOG_RUN_STEP || ',ORAERROR = ' || SQLCODE || ',' || SQLERRM(SQLCODE);
V_LOG_RUN_RECDATE := SYSDATE ;
V_LOG_RUN_MSGFLAG := 'FAILED' ;
ETL.SP_DMD_PROCEDURE_STEP_LOG(V_LOG_RUN_PNAME --程序名称
,V_LOG_RUN_STEP --执行步数
,V_LOG_RUN_TABNAME --表名称
,V_LOG_RUN_OPRTTYP --数据操作类型
,V_LOG_RUN_MSG --信息描述
,V_LOG_RUN_MSGFLAG --信息标志 failed-错误标识 success-正常标志
,V_LOG_RUN_COUNT --记录条数
,V_LOG_RUN_BEGIN_TIME --开始时间
,V_LOG_RUN_RECDATE --运行日志时间
,V_LOG_RUN_ETL_DATE) --数据日期
;
V_RETURN := -1 ;
V_MSG := V_LOG_RUN_MSG;
ETL.SP_DMD_PROCEDURE_LOG(V_DATE_ID, V_SCHEMA, V_LOG_RUN_PNAME, V_PROC_STOP_FLAG);
END;
日志存储过程和建表语句
--建总日志表**************************************************************
create table ETL.DMD_PROCEDURE_LOG
(
run_etl_date DATE,
user_name VARCHAR2(30),
run_pname VARCHAR2(60),
run_status VARCHAR2(20),
run_begin_time DATE,
run_recdate DATE,
run_sql_code INTEGER,
run_sql_errm VARCHAR2(1000)
)
--建步骤日志表**************************************************************
create table ETL.DMD_PROCEDURE_STEP_LOG
(
run_pname VARCHAR2(200 CHAR),
run_step VARCHAR2(20 CHAR),
run_tabname VARCHAR2(200 CHAR),
run_oprttyp VARCHAR2(20 CHAR),
run_msg VARCHAR2(500 CHAR),
run_msgflag VARCHAR2(20 CHAR),
run_count INTEGER,
run_recdate DATE,
run_etl_date DATE,
run_begin_time DATE
)
--日志存储过程**************************************************************
CREATE OR REPLACE PROCEDURE ETL.SP_DMD_PROCEDURE_LOG(P_WORK_DATE DATE,
P_USER_NAME VARCHAR2,
P_PROCEDURE_NAME VARCHAR2,
P_PHASE_FLAG VARCHAR2 DEFAULT '00')
/*--------------------------------------------------------------------
--功能名称 : ETL运行日志记录
--执行周期 : 天
--创建日期 : 2019/1/30
--数据来源 :其他程序传参
--目标表 :DMD_PROCEDURE_LOG
--功能描述 :记录ETL存储过程运行日志
--处理逻辑： :
--版本历史 :
--------------------------------------------------------------------
--作者 ： GHC 日期 版本号 说明
--表中文名: ETL运行日志记录 2045/1/30 1.0 稳定版
--------------------------------------------------------------------
--定义存储过程信息*/
/*
参数列表：
P_WORK_DATE: 批次日期
P_PROCEDURE_NAME: 存储过程名称
P_PROC_FLAG: 运行阶段标记符【00：开始；01：结束】
*/
IS
V_NOW_TIME DATE;
V_ETL_DATE DATE;
V_USER_NAME VARCHAR2(30);
V_PROC_NAME VARCHAR2(2000);
V_SQL_CODE INTEGER;
V_SQL_ERRM VARCHAR2(1000);
BEGIN
V_SQL_CODE := SQLCODE;
V_SQL_ERRM := SUBSTR(SQLERRM, 1, 1000);
V_NOW_TIME := SYSDATE;
V_ETL_DATE := TRUNC(P_WORK_DATE, 'DD');
V_USER_NAME := UPPER(P_USER_NAME);
V_PROC_NAME := UPPER(P_PROCEDURE_NAME);
IF P_PHASE_FLAG = '00' THEN
DELETE FROM DMD_PROCEDURE_LOG A
WHERE A.RUN_ETL_DATE = V_ETL_DATE
AND A.USER_NAME = V_USER_NAME
AND A.RUN_PNAME = V_PROC_NAME
AND A.RUN_SQL_CODE = 0;
COMMIT;
INSERT INTO DMD_PROCEDURE_LOG
(RUN_ETL_DATE,
USER_NAME,
RUN_PNAME,
RUN_STATUS,
RUN_BEGIN_TIME,
RUN_RECDATE,
RUN_SQL_CODE,
RUN_SQL_ERRM)
VALUES
(V_ETL_DATE,
V_USER_NAME,
V_PROC_NAME,
'RUNNING',
V_NOW_TIME,
NULL,
NULL,
NULL);
COMMIT;
ELSIF P_PHASE_FLAG = '01' THEN
IF V_SQL_CODE = 0 THEN
UPDATE DMD_PROCEDURE_LOG A
SET A.RUN_STATUS = 'SUCCESS',
A.RUN_RECDATE = V_NOW_TIME,
A.RUN_SQL_CODE = V_SQL_CODE,
A.RUN_SQL_ERRM = V_SQL_ERRM
WHERE A.RUN_ETL_DATE = V_ETL_DATE
AND A.USER_NAME = V_USER_NAME
AND A.RUN_PNAME = V_PROC_NAME
AND A.RUN_STATUS = 'RUNNING';
COMMIT;
ELSE
UPDATE DMD_PROCEDURE_LOG A
SET A.RUN_STATUS = 'FAILED',
A.RUN_RECDATE = V_NOW_TIME,
A.RUN_SQL_CODE = V_SQL_CODE,
A.RUN_SQL_ERRM = V_SQL_ERRM
WHERE A.RUN_ETL_DATE = V_ETL_DATE
AND A.USER_NAME = V_USER_NAME
AND A.RUN_PNAME = V_PROC_NAME
AND A.RUN_STATUS = 'RUNNING';
COMMIT;
-- 如果不想继续抛出异常，则可以注释该行代码
--RAISE_APPLICATION_ERROR(-20000,V_SQL_ERRM);
END IF;
END IF;
--如果是EAST存储过程，还需要往EAST日志表中增加执行结果
IF V_USER_NAME = 'EAST' THEN
/* SELECT COUNT(1) INTO V_COUNT FROM ETL.DMD_PROCEDURE_LOG A
WHERE A.RUN_ETL_DATE = V_ETL_DATE
AND A.RUN_PNAME = V_PROC_NAME;
IF V_COUNT = 0 THEN
--RETURN;
V_RUN_STATUS := '未执行';
ELSE
SELECT DECODE(RUN_STATUS, 'SUCCESS', '通过', '不通过') INTO V_RUN_STATUS
FROM ETL.DMD_PROCEDURE_LOG A
WHERE A.RUN_ETL_DATE = V_ETL_DATE
AND A.RUN_PNAME = V_PROC_NAME;
END IF;
V_SQL := ' INSERT INTO EAST.L_FLOW_LOG (ID,TAR_TAB_NM,DATA_DATE,OBJECT_TYPE,USER_ID,BEGIN_TIME,END_TIME,RESULT)
SELECT SYS_GUID(),'
||V_TAB_NAME||',
RUN_ETL_DATE,
''20'',
''ETL'',
RUN_BEGIN_TIME,
RUN_RECDATE,'
||V_RUN_STATUS||'
FROM ETL.DMD_PROCEDURE_LOG T
WHERE T.RUN_ETL_DATE = ' ||V_ETL_DATE||
' AND T.RUN_PNAME = ' || V_PROC_NAME ;
DBMS_OUTPUT.PUT_LINE(V_SQL);
EXECUTE IMMEDIATE V_SQL;
--END IF;*/
/* INSERT INTO L_FLOW_LOG
(ID,
TAR_TAB_NM,
DATA_DATE,
OBJECT_TYPE,
USER_ID,
BEGIN_TIME,
END_TIME,
RESULT,
DESC_)
SELECT SYS_GUID() AS ID,
REPLACE(RUN_PNAME, 'SP_', '') AS TAR_TAB_NM,
RUN_ETL_DATE AS DATA_DATE,
'20' AS OBJECT_TYPE,
'ETL' AS USER_ID,
RUN_BEGIN_TIME AS BEGIN_TIME,
RUN_RECDATE AS END_TIME,
DECODE(RUN_STATUS, 'SUCCESS', '通过', '不通过') AS RESULT,
REPLACE(RUN_PNAME, 'SP_', '') || '-' ||
TO_CHAR(RUN_ETL_DATE, 'YYYYMMDD') || '-采集任务执行' ||
DECODE(RUN_STATUS, 'SUCCESS', '通过', '不通过') AS DESC_
FROM DMD_PROCEDURE_LOG T
WHERE T.RUN_ETL_DATE = V_ETL_DATE
AND T.RUN_PNAME = V_PROC_NAME;*/
COMMIT;
END IF;
END;
/
---------步骤存储过程********************************
CREATE OR REPLACE PROCEDURE ETL.SP_DMD_PROCEDURE_STEP_LOG
(
V_LOG_RUN_PNAME VARCHAR2 DEFAULT NULL,
V_LOG_RUN_STEP NUMBER DEFAULT 0,
V_LOG_RUN_TABNAME VARCHAR2 DEFAULT NULL,
V_LOG_RUN_OPRTTYP VARCHAR2 DEFAULT NULL,
V_LOG_RUN_MSG VARCHAR2 DEFAULT NULL,
V_LOG_RUN_MSGFLAG VARCHAR2 DEFAULT NULL,
V_LOG_RUN_COUNT NUMBER DEFAULT 0,
V_LOG_RUN_BEGIN_TIME DATE DEFAULT NULL,
V_LOG_RUN_RECDATE DATE DEFAULT NULL,
V_LOG_RUN_ETL_DATE DATE DEFAULT NULL
) IS
/*--------------------------------------------------------------------
--功能名称 : ETL分步骤运行日志记录
--执行周期 : 天
--创建日期 : 2045/1/30
--数据来源 :其他程序传参
--目标表 :DMD_PROCEDURE_STEP_LOG
--功能描述 :记录ETL存储过程运行分步骤日志
--处理逻辑： :
--版本历史 :
--------------------------------------------------------------------
--作者 ： GHC 日期 版本号 说明
--表中文名: ETL分步骤运行日志记录 2045/1/30 1.0 稳定版
--------------------------------------------------------------------
--定义存储过程信息*/
BEGIN
--获取日志参数信息
DELETE FROM DMD_PROCEDURE_STEP_LOG T
WHERE T.RUN_PNAME=V_LOG_RUN_PNAME
AND (T.RUN_ETL_DATE=V_LOG_RUN_ETL_DATE OR T.RUN_ETL_DATE IS NULL)
AND (T.RUN_STEP = V_LOG_RUN_STEP OR T.RUN_STEP IS NULL);
COMMIT;
--插入日志参数到系统运行日志信息表
INSERT INTO DMD_PROCEDURE_STEP_LOG( RUN_PNAME --程序名称
,RUN_STEP --执行步
,RUN_TABNAME --表名称
,RUN_OPRTTYP --数据操作类型
,RUN_MSG --信息描述
,RUN_MSGFLAG --信息标志 failed-错误标志 success-正常标志
,RUN_COUNT --记录条数
,RUN_BEGIN_TIME --开始时间
,RUN_RECDATE --运行日志时间
,RUN_ETL_DATE --数据日期
)
VALUES(
V_LOG_RUN_PNAME
,V_LOG_RUN_STEP
,V_LOG_RUN_TABNAME
,V_LOG_RUN_OPRTTYP
,V_LOG_RUN_MSG
,V_LOG_RUN_MSGFLAG
,V_LOG_RUN_COUNT
,V_LOG_RUN_BEGIN_TIME
,V_LOG_RUN_RECDATE
,V_LOG_RUN_ETL_DATE
);
--IF SQLCODE = 0 THEN
--成功 提交
COMMIT;
--ELSE
--失败 回滚
--RUN_MSG:='执行失败'||'ORAERROR = '||SQLCODE||','||SQLERRM(SQLCODE);
-- ROLLBACK;
--end if ;
end SP_DMD_PROCEDURE_STEP_LOG;
/
- 上一篇：Oracle数据库常用undo查询思路
- 下一篇：自定义代码生成器(上)
相关推荐
- 想快速上手Python网络爬虫?这份实战指南你不能错过!
-
以下是关于Python网络爬虫实战的详细指南，涵盖基础知识、常用工具、实战案例及注意事项：一、爬虫基础概念1.什么是网络爬虫？o通过自动化程序从网页上抓取并提取数据的工具。o核心步骤：请求网...
- python爬虫怎么副业接单
-
其实这个问题也挺重要的，花了时间花了经历去学了python爬虫，本想靠着这个技能去补贴家用或者挣点零花钱，但是发现有时候的单子是自己力所不能及的，有的东西真的是不会，又或者不知从何下手。那么这篇文章主...
- 用Python写了一个图像文字识别OCR工具
-
人生苦短，快学Python！在之前的文章里，我们多次尝试用Python实现文本OCR识别！今天我们要搞一个升级版：直接写一个图像文字识别OCR工具！引言最近在技术交流群里聊到一个关于图像文字识别的...
- taskPyro:为 Python 任务与爬虫插上自动化翅膀的开源利器
-
在数据驱动的时代，无论是数据采集、ETL流程，还是定期的系统维护脚本，高效、可靠的任务调度成为了许多开发者和运维人员的刚需。特别是对于Python开发者而言，如何优雅地管理和调度日益增多的爬虫任...
- 网络爬虫:Python动态网页爬虫2种技术方式及示例
-
作者：糖甜甜甜https://mp.weixin.qq.com/s/5Dwh5cbfjpDfm_FRcpw1Ug这一讲，我将会为大家讲解稍微复杂一点的爬虫，即动态网页的爬虫。动态网页技术介绍动态网页爬...
- 30个小时搞定Python网络爬虫(全套详细版)
-
【课程介绍】适用人群1、零基础对Python网络爬虫感兴趣的学员2、想从事Python网络爬虫工程师相关工作的学员3、想学习Python网络爬虫作为技术储备的学员课程目标1、本课程的目标是将大家培养成...
- python爬虫常用工具库总结
-
说起爬虫，大家可能第一时间想到的是python，今天就简单为大家介绍下pyhton常用的一些库。请求库：实现基础Http操作urllib:python内置基本库，实现了一系列用于操作url的功能。...
- 玛森:Python爬虫书籍推荐
-
Python爬虫书籍推荐什么?玛森科技徐老师介绍，网络爬虫现在很火，不管业内人士或业外人士，大家对爬虫或多或少都有一些了解，网络爬虫通俗的讲，就是通过程序去互联网上面爬取想要的内容，并且爬取的过程...
- 如何入门python爬虫?
-
1.很多人一上来就要爬虫，其实没有弄明白要用爬虫做什么，最后学完了却用不上。大多数人其实是不需要去学习爬虫的，因为工作所在的公司里有自己的数据库，里面就有数据来帮助你完成业务分析。什么时候要用到爬虫呢...
- 爬虫修炼手册，Python爬虫学习入门Scrapy
-
爬虫就如同江湖中的神秘侠客，应运而生，成为了我们获取数据的得力助手。爬虫，正式名称是网络爬虫（WebCrawler），也被叫做网页蜘蛛、网络机器人，它是一段神奇的计算机代码，能够自动在互联网的信息...
- 如何入门 Python 爬虫?
-
1.很多人一上来就要爬虫，其实没有弄明白要用爬虫做什么，最后学完了却用不上。大多数人其实是不需要去学习爬虫的，因为工作所在的公司里有自己的数据库，里面就有数据来帮助你完成业务分析。什么时候要用到爬虫呢...
- 有了这4张思维导图，带你Python(爬虫)轻松入门
-
刚接触Python爬虫，该怎么学更有效？指南君给大家带来了这四张思维导图。非常适合刚开始学Python爬虫的同学用于回顾知识点、巩固学习情况等。话不多说，快来学习Python爬虫入门的最强干货吧！P...
- python爬虫教程之爬取当当网 Top 500 本五星好评书籍
-
我们使用requests和re来写一个爬虫作为一个爱看书的你（说的跟真的似的）怎么能发现好书呢？所以我们爬取当当网的前500本好五星评书籍怎么样？ok接下来就是学习python的正确姿...
- 超实用!Python 在爬虫和自动化领域的 8 类工具与技术大盘点
-
Python在爬虫和自动化领域拥有丰富的工具库和框架，以下是一些常用工具和技术的分类整理，帮助你高效实现数据抓取和自动化任务：1.基础HTTP请求库oRequestso简洁的HTTP库...
- 学习Python的第四天之网络爬虫
-
30岁程序员学习Python的第四天之网络爬虫的Scrapy库Scrapy库的基本信息Scrapy库的安装在windows系统中通过管理员权限打开cmd。运行pipinstallscrapy即可安...
欢迎 你 发表评论:
- 一周热门
- 最近发表
- 标签列表
-
- MVC框架 (46)
- spring框架 (46)
- 框架图 (58)
- bootstrap框架 (43)
- flask框架 (53)
- quartz框架 (51)
- abp框架 (47)
- jpa框架 (47)
- laravel框架 (46)
- express框架 (43)
- springmvc框架 (49)
- 分布式事务框架 (65)
- scrapy框架 (56)
- shiro框架 (61)
- 定时任务框架 (56)
- grpc框架 (55)
- ppt框架 (48)
- 内联框架 (52)
- winform框架 (46)
- gui框架 (44)
- cad怎么画框架 (58)
- ps怎么画框架 (47)
- ssm框架实现登录注册 (49)
- oracle字符串长度 (48)
- oracle提交事务 (47)