Oracle存储过程模板
ccwgpt 2024-11-27 12:19 29 浏览 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查询思路
- 下一篇：自定义代码生成器(上)
相关推荐
- 一个基于.Net Core遵循Clean Architecture原则开源架构
-
今天给大家推荐一个遵循CleanArchitecture原则开源架构。项目简介这是基于Asp.netCore6开发的，遵循CleanArchitecture原则，可以高效、快速地构建基于Ra...
- AI写代码翻车无数次，我发现只要提前做好这3步，bug立减80%
-
写十万行全是bug之后终于找到方法了开发"提示词管理助手"新版本那会儿，我差点被bug整崩溃。刚开始两周，全靠AI改代码架构，结果十万行程序漏洞百出。本来以为AI说没问题就稳了，结果...
- OneCode低代码平台的事件驱动设计:架构解析与实践
-
引言：低代码平台的事件驱动范式在现代软件开发中，事件驱动架构（EDA）已成为构建灵活、松耦合系统的核心范式。OneCode低代码平台通过创新性的注解驱动设计，将事件驱动理念深度融入平台架构，实现了业务...
- 国内大厂AI插件评测:根据UI图生成Vue前端代码
-
在IDEA中安装大厂的AI插件，打开ruoyi增强项目：yudao-ui-admin-vue31.CodeBuddy插件登录腾讯的CodeBuddy后，大模型选择deepseek-v3，输入提示语：...
- AI+低代码技术揭秘(二):核心架构
-
本文档介绍了为VTJ低代码平台提供支持的基本架构组件，包括Engine编排层、Provider服务系统、数据模型和代码生成管道。有关UI组件库和widget系统的信息，请参阅UI...
- GitDiagram用AI把代码库变成可视化架构图
-
这是一个名为gitdiagram的开源工具，可将GitHub仓库实时转换为交互式架构图，帮助开发者快速理解代码结构。核心功能一键可视化：替换GitHubURL中的"hub...
- 30天自制操作系统:第六天:代码架构整理与中断处理
-
1.拆开bootpack.c文件。根据设计模式将对应的功能封装成独立的文件。2.初始化pic:pic(可编程中断控制器)：在设计上，cpu单独只能处理一个中断。而pic是将8个中断信号集合成一个中断...
- AI写代码越帮越忙?2025年研究揭露惊人真相
-
近年来，AI工具如雨后春笋般涌现，许多人开始幻想程序员的未来就是“对着AI说几句话”，就能轻松写出完美的代码。然而，2025年的一项最新研究却颠覆了这一期待，揭示了一个令人意外的结果。研究邀请了16位...
- 一键理解开源项目:两个自动生成GitHub代码架构图与说明书工具
-
一、GitDiagram可以一键生成github代码仓库的架构图如果想要可视化github开源项目：https://github.com/luler/reflex_ai_fast，也可以直接把域名替换...
- 5分钟掌握 c# 网络通讯架构及代码示例
-
以下是C#网络通讯架构的核心要点及代码示例，按协议类型分类整理：一、TCP协议（可靠连接）1.同步通信//服务器端usingSystem.Net.Sockets;usingTcpListene...
- 从复杂到优雅:用建造者和责任链重塑代码架构
-
引用设计模式是软件开发中的重要工具，它为解决常见问题提供了标准化的解决方案，提高了代码的可维护性和可扩展性，提升了开发效率，促进了团队协作，提高了软件质量，并帮助开发者更好地适应需求变化。通过学习和应...
- 低代码开发当道，我还需要学习LangChain这些框架吗?| IT杂谈
-
专注LLM深度应用，关注我不迷路前两天有位兄弟问了个问题：当然我很能理解这位朋友的担忧：期望效率最大化，时间用在刀刃上，“不要重新发明轮子”嘛。铺天盖地的AI信息轰炸与概念炒作，很容易让人浮躁与迷茫。...
- 框架设计并不是简单粗暴地写代码，而是要先弄清逻辑
-
3.框架设计3.框架设计本节我们要开发一个UI框架，底层以白鹭引擎为例。框架设计的第一步并不是直接撸代码，而是先想清楚设计思想，抽象。一个一个的UI窗口是独立的吗？不是的，...
- 大佬用 Avalonia 框架开发的 C# 代码 IDE
-
AvalonStudioAvalonStudio是一个开源的跨平台的开发编辑器（IDE），AvalonStudio的目标是成为一个功能齐全，并且可以让开发者快速使用的IDE，提高开发的生产力。A...
- 轻量级框架Lagent 仅需20行代码即可构建自己的智能代理
-
站长之家（ChinaZ.com）8月30日消息:Lagent是一个专注于基于LLM模型的代理开发的轻量级框架。它的设计旨在简化和提高这种模型下代理的开发效率。LLM模型是一种强大的工具，可以...
欢迎 你 发表评论:
- 一周热门
- 最近发表
- 标签列表
-
- 框架图 (58)
- flask框架 (53)
- quartz框架 (51)
- abp框架 (47)
- springmvc框架 (49)
- 分布式事务框架 (65)
- scrapy框架 (56)
- shiro框架 (61)
- 定时任务框架 (56)
- java日志框架 (61)
- mfc框架 (52)
- abb框架断路器 (48)
- beego框架 (52)
- java框架spring (58)
- grpc框架 (65)
- tornado框架 (48)
- 前端框架bootstrap (54)
- orm框架有哪些 (51)
- 知识框架图 (52)
- ppt框架 (55)
- 框架图模板 (59)
- 内联框架 (52)
- cad怎么画框架 (58)
- ssm框架实现登录注册 (49)
- oracle字符串长度 (48)