Oracle存储过程模板（oracle存储过程语法详解）
sinye56 2024-10-09 19:38 5 浏览 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;
/
相关推荐
- Linux基础知识之修改root用户密码
-
现象：Linux修改密码出现：Authenticationtokenmanipulationerror。故障解决办法：进入单用户，执行pwconv，再执行passwdroot。...
- Linux如何修改远程访问端口
-
对于Linux服务器而言，其默认的远程访问端口为22。但是，出于安全方面的考虑，一般都会修改该端口。下面我来简答介绍一下如何修改Linux服务器默认的远程访问端口。对于默认端口而言，其相关的配置位于/...
- 如何批量更改文件的权限
-
如果你发觉一个目录结构下的大量文件权限(读、写、可执行)很乱时,可以执行以下两个命令批量修正：批量修改文件夹的权限chmod755-Rdir_name批量修改文件的权限finddir_nam...
- CentOS「linux」学习笔记10:修改文件和目录权限
-
?linux基础操作：主要介绍了修改文件和目录的权限及chown和chgrp高级用法6.chmod修改权限1：字母方式[修改文件或目录的权限]u代表所属者，g代表所属组，o代表其他组的用户，a代表所有...
- Linux下更改串口的权限
-
问题描述我在Ubuntu中使用ArduinoIDE，并且遇到串口问题。它过去一直有效，但由于可能不必要的原因，我觉得有必要将一些文件的所有权从root所有权更改为我的用户所有权。...
- Linux chown命令:修改文件和目录的所有者和所属组
-
chown命令，可以认为是"changeowner"的缩写，主要用于修改文件（或目录）的所有者，除此之外，这个命令也可以修改文件（或目录）的所属组。当只需要修改所有者时，可使用...
- chmod修改文件夹及子目录权限的方法
-
chmod修改文件夹及子目录权限的方法打开终端进入你需要修改的目录然后执行下面这条命令chmod777*-R全部子目录及文件权限改为777查看linux文件的权限：ls-l文件名称查看li...
- Android 修改隐藏设置项权限
-
在Android系统中，修改某些隐藏设置项或权限通常涉及到系统级别的操作，尤其是针对非标准的、未在常规用户界面显示的高级选项。这些隐藏设置往往与隐私保护、安全相关的特殊功能有关，或者涉及开发者选项、权...
- 完蛋了!我不小心把Linux所有的文件权限修改了!在线等修复!
-
最近一个客户在群里说他一不小心把某台业务服务器的根目录权限给改了，本来想修改当前目录，结果执行成了根目录。...
- linux改变安全性设置-改变所属关系
-
CentOS7.3学习笔记总结（五十八）-改变安全性设置-改变所属关系在以前的文章里，我介绍过linux文件权限，感兴趣的朋友可以关注我，阅读一下这篇文章。这里我们不在做过的介绍，注重介绍改变文件或者...
- Python基础到实战一飞冲天(一)--linux基础(七)修改权限chmod
-
#07_Python基础到实战一飞冲天（一）--linux基础（七）--修改权限chmod-root-groupadd-groupdel-chgrp-username-passwd...
- linux更改用户权限为root权限方法大全
-
背景在使用linux系统时，经常会遇到需要修改用户权限为root权限。通过修改用户所属群组groupid为root，此操作只能使普通用户实现享有部分root权限，普通用户仍不能像root用户一样享有超...
- 怎么用ip命令在linux中添加路由表项?
-
在Linux中添加路由表项，可以使用ip命令的route子命令。添加路由表项的基本语法如下：sudoiprouteadd<network>via<gateway>这...
- Linux配置网络
-
1、网卡名配置相关文件回到顶部网卡名命名规则文件：/etc/udev/rules.d/70-persistent-net.rules#PCIdevice0x8086:0x100f(e1000)...
- Linux系列---网络配置文件
-
1.网卡配置文件在/etc/sysconfig/network-scripts/下:[root@oldboynetwork-scripts]#ls/etc/sysconfig/network-s...
欢迎 你 发表评论:
- 一周热门
- 最近发表
- 标签列表
-
- oracle忘记用户名密码 (59)
- oracle11gr2安装教程 (55)
- mybatis调用oracle存储过程 (67)
- oracle spool的用法 (57)
- oracle asm 磁盘管理 (67)
- 前端 设计模式 (64)
- 前端面试vue (56)
- linux格式化 (55)
- linux图形界面 (62)
- linux文件压缩 (75)
- Linux设置权限 (53)
- linux服务器配置 (62)
- mysql安装linux (71)
- linux启动命令 (59)
- 查看linux磁盘 (72)
- linux用户组 (74)
- linux多线程 (70)
- linux设备驱动 (53)
- linux自启动 (59)
- linux网络命令 (55)
- linux传文件 (60)
- linux打包文件 (58)
- linux查看数据库 (61)
- linux获取ip (64)
- linux进程通信 (63)