技术标签: Oracle Certification Oracle 11g OCP每日一题专栏
正确答案:AD
这张图描述了包规范和包主体。表明包规规范提当着包主体的接口。包规范和包主体中都可以声明变量、类型和组件。在包规规范中声明的变量、类型和组件会被发布,而仅在包主体内声明的变量、类型和组件则是局部组件。在组件实现内定义的命名块是私有模块,或者是局部函数和过程的黑盒内的部分。
当在包规范中声明了包函数和过程时,外部PL/SQL块可调用它们。仅在包体主体中声明的组件通过它们的包声明调用发布组件。
当在包规范中定义用户自定义数据类型时,它们就对其它所有PL/SQL块公有可用。
当在包体中定义用户自定义数据类型时,它们就对在包体中实现的PL/SQL块私有可用。
无论使用的是包规范还是包主体,变量和类型的实现方法式都是相同的。
这张图是说明黑盒的重载的工作方。在第一个签名中,第二个参数是CLOB,第三个参数是DATE,而它们在第二个签名中的位置调了个儿。示例ADDING函数的图将VARCHAR2参数显示成两个圆漏斗,将NUMBER参数显示成两个方漏斗。
包主体:
包主体包含在包规范中声明实现.一切都必须完全相符,包括形参的默认值。在Oracle9i之前可以在规范中声明形参,但是不完全强制在包主体中实现它们。所以从Oracle8i迁移到更新的版本之前需要检查一下(如果还没有检查的话)代码某些部分。
包主体原型与包规范原型非常相似。包主体几乎可以声明包规范设置的一切,除了一件事外:不能在包主体内定义函数的PRAAGMA。任何这样的企图都会引发PLS-00708错误,该项错误表明必须把它们放在包规范中。
只要不同于包规范中所声明的内空,就可以使用包级异常的EXCEPTION_INIT PRAGMA指令。也可以重写在包规范中声明的一个变量。可以通过在包主体中再次声明这个变量来重写。这样,就使包主体不能访问变量的这两个副本。当试图编制译包主体时,在包主体内对声明了两次变量的任何引用都会引发PLS-00371异常。该异常表明,至多只允许声明变量一次。其意图似乎是表明不应当利用这个行为,而包主体的成功编译很可能是一个潜在的BUG。
在包主体中声明的包级变量不同于在包规中声明的包级变量。不能在包之外访问包级变量。只有包规范发布的函数和过程可以访问包级变量。这使得这些变量非常像实例变量,因为它们在对包函数与过程的调用之间保持了状态。至少,从第一次调用直到会话结束或因为留时间过长被推出SGA,它们保持了它们的状态。
举个实际工作中的例子:
创建包规范:
CREATE OR REPLACE PACKAGE EBS_TRADE IS
-- Éú³É´íÎóÐÅÏ¢
PROCEDURE MakeErrorMessage(Head IN EBSHEADOBJECT, ErrorCode IN VARCHAR2,
ResBuffer OUT VARCHAR2);
PROCEDURE MakeCancelMessage(Head IN EBSHEADOBJECT, ErrorCode IN VARCHAR2,
ResBuffer IN VARCHAR2);
PROCEDURE PrintLogInfo(Head IN EBSHEADOBJECT, Info IN VARCHAR2);
-- ¼ÓÃܺ¯Êý
FUNCTION EncryptPassword(iOldPass IN VARCHAR2) RETURN VARCHAR2;
FUNCTION EncryptPassword6(iOldPass IN VARCHAR2) RETURN VARCHAR2;
-- ¼ÓÃÜÊÚȨÂ뺯Êý
FUNCTION EncryptAuth(iAuthCode IN VARCHAR2,
iHdCode IN VARCHAR2) RETURN VARCHAR2;
-- »ñÈ¡6λËæ»úÊý
FUNCTION GetRandNum RETURN NUMBER;
PROCEDURE WriteElapsed(Head IN EBSHEADOBJECT);
END EBS_TRADE;
创建包主体
CREATE OR REPLACE PACKAGE BODY EBS_TRADE IS
-- »ñÈ¡Êý¾Ý¿âÖеĴíÎóÐÅÏ¢
PROCEDURE MakeErrorMessage(Head IN EbsHeadObject, ErrorCode IN VARCHAR2,
ResBuffer OUT VARCHAR2)
AS
PRAGMA AUTONOMOUS_TRANSACTION;
time_end NUMBER;
BEGIN
time_end:=DBMS_UTILITY.GET_TIME;
UPDATE BASE_STREAM_LOG SET STATE = 1,RETCODE=ErrorCode,ELAPSED=(time_end-Head.time_begin) WHERE STREAMID = Head.StreamId;
-- Õâ¸öÊÇÄÚ²¿ÊÂÎñ£¬½øÐÐÌá½»
COMMIT;
SELECT LPAD(Head.serno,13,'0') || RETCODE || RETMESSAGE INTO ResBuffer FROM BASE_RET_INFO
WHERE RETCODE = ErrorCode;
EXCEPTION
WHEN NO_DATA_FOUND THEN
ResBuffer := LPAD(Head.serno,13,'0') ||ErrorCode || 'δ֪´íÎó´úÂë';
END MakeErrorMessage;
PROCEDURE MakeCancelMessage(Head IN EbsHeadObject, ErrorCode IN VARCHAR2,
ResBuffer IN VARCHAR2)
AS
PRAGMA AUTONOMOUS_TRANSACTION;
time_end NUMBER;
BEGIN
time_end:=DBMS_UTILITY.GET_TIME;
UPDATE BASE_STREAM_LOG SET STATE = 1,RETCODE=ErrorCode,ELAPSED=(time_end-Head.time_begin) WHERE STREAMID = Head.StreamId;
-- Õâ¸öÊÇÄÚ²¿ÊÂÎñ£¬½øÐÐÌá½»
COMMIT;
--SELECT LPAD(Head.serno,13,'0') || RETCODE || RETMESSAGE INTO ResBuffer FROM BASE_RET_INFO
-- WHERE RETCODE = ErrorCode;
EXCEPTION
WHEN NO_DATA_FOUND THEN
--ResBuffer := LPAD(Head.serno,13,'0') ||ErrorCode || 'δ֪´íÎó´úÂë';
ROLLBACK;
RETURN;
END MakeCancelMessage;
PROCEDURE WriteElapsed(Head IN EbsHeadObject)
AS
PRAGMA AUTONOMOUS_TRANSACTION;
time_end NUMBER;
BEGIN
time_end:=DBMS_UTILITY.GET_TIME;
UPDATE BASE_STREAM_LOG SET ELAPSED=(time_end-Head.time_begin)||'ºÁÃë' WHERE STREAMID = Head.StreamId;
-- Õâ¸öÊÇÄÚ²¿ÊÂÎñ£¬½øÐÐÌá½»
COMMIT;
END WriteElapsed;
PROCEDURE PrintLogInfo(Head IN EBSHEADOBJECT, Info IN VARCHAR2)
AS
FileHandle UTL_FILE.file_type;
HeadInfo VARCHAR(2000);
BEGIN
FileHandle := UTL_FILE.fopen('FILESERVERDIR','PrintLogInfo.dbg', 'a', 2000);
HeadInfo := '[½»Ò×' || Head.TradeType || Head.TradeCode
|| '][ȇȡ' || sys_context('USERENV', 'SESSIONID')
|| '][ʱ¼ä'|| to_char(SYSDATE, 'YYYY-MM-DD HH24:MI:SS') || ']';
UTL_FILE.put_line(FileHandle, HeadInfo);
UTL_FILE.put_line(FileHandle, ' ' || Info);
UTL_FILE.fflush(FileHandle);
UTL_FILE.fclose(FileHandle);
END PrintLogInfo;
FUNCTION EncryptPassword6(iOldPass IN VARCHAR2) RETURN VARCHAR2 IS
Result VARCHAR2(6);
Temp VARCHAR2(6);
c CHAR(1);
c1 CHAR(1);
c2 CHAR(1);
c3 CHAR(1);
c4 CHAR(1);
c5 CHAR(1);
c6 CHAR(1);
BEGIN
IF LENGTHB(iOldPass) < 6 THEN
Temp := LPAD(iOldPass, 6, '0');
ELSIF LENGTHB(iOldPass) > 6 THEN
Temp := SUBSTRB(iOldPass, 1, 6);
ELSE
Temp := iOldPass;
END IF;
c := SUBSTRB(Temp, 5, 1);
IF c = '0' THEN
c1 := '0';
ELSE
c1 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 4, 1);
IF c = '0' THEN
c2 := '0';
ELSE
c2 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 1, 1);
IF c = '0' THEN
c3 := '0';
ELSE
c3 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 6, 1);
IF c = '0' THEN
c4 := '0';
ELSE
c4 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 3, 1);
IF c = '0' THEN
c5 := '0';
ELSE
c5 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 2, 1);
IF c = '0' THEN
c6 := '0';
ELSE
c6 := CHR(106 - ASCII(c));
END IF;
Result := c1 || c2 || c3 || c4 || c5 || c6;
RETURN Result;
END EncryptPassword6;
-- ¼ÓÃÜÃÜÂë
FUNCTION EncryptPassword(iOldPass IN VARCHAR2) RETURN VARCHAR2 IS
Result VARCHAR2(8);
Temp VARCHAR2(8);
c CHAR(1);
c1 CHAR(1);
c2 CHAR(1);
c3 CHAR(1);
c4 CHAR(1);
c5 CHAR(1);
c6 CHAR(1);
C7 CHAR(1);
C8 CHAR(1);
BEGIN
IF LENGTHB(iOldPass) < 8 THEN
Temp := LPAD(iOldPass, 8, '0');
ELSIF LENGTHB(iOldPass) > 8 THEN
Temp := SUBSTRB(iOldPass, 1, 8);
ELSE
Temp := iOldPass;
END IF;
c := SUBSTRB(Temp, 5, 1);
IF c = '0' THEN
c1 := '0';
ELSE
c1 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 4, 1);
IF c = '0' THEN
c2 := '0';
ELSE
c2 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 1, 1);
IF c = '0' THEN
c3 := '0';
ELSE
c3 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 6, 1);
IF c = '0' THEN
c4 := '0';
ELSE
c4 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 3, 1);
IF c = '0' THEN
c5 := '0';
ELSE
c5 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 2, 1);
IF c = '0' THEN
c6 := '0';
ELSE
c6 := CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 7, 1);
IF c = '0' THEN
c7 := '0';
ELSE
c7 := CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 8, 1);
IF c = '0' THEN
c8 := '0';
ELSE
c8 := CHR(106 - ASCII(c));
END IF;
Result := c1 || c2 || c3 || c4 || c5 || c6 || c7 || c8 ;
RETURN Result;
END EncryptPassword;
/*Éú³ÉËæ»úÊý*/
FUNCTION GetRandNum RETURN NUMBER
IS
ResultNumber NUMBER(6);
BEGIN
ResultNumber := CEIL(DBMS_RANDOM.VALUE() * 1000000);
IF ResultNumber < 100000 THEN
ResultNumber := ResultNumber + 100000;
END IF;
RETURN ResultNumber;
END GetRandNum;
-- ¼ÓÃÜÊÚȨÂë
FUNCTION EncryptAuth(
iAuthCode IN VARCHAR2, iHdCode IN VARCHAR2) RETURN VARCHAR2
AS
AuthCode2 VARCHAR2(6);
SoundChar VARCHAR2(32);
TransChar VARCHAR2(32);
BEGIN
AuthCode2 := EBS_TRADE.EncryptPassword6(iAuthCode);
SoundChar := SOUNDEX(iHdcode);
TransChar := TRANSLATE(iHdcode, '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ',
'0123456789');
RETURN SoundChar || substr(iHdCode, 1, 3) || AuthCode2|| TransChar;
END EncryptAuth;
END;
文章浏览阅读3.6k次。需求背景EasyDarwin开发团队维护EasyDarwin开源流媒体服务器也已经很多年了,之前也陆陆续续尝试过很多种服务端录像的方案,有:在EasyDarwin中直接解析收到的RTP包,重新组包录像;也有:在EasyDarwin中新增一个RecordModule,再以RTSPClient的方式请求127.0.0.1自己的直播流录像,但这些始终都没有成气候;我们的想法是能够让整套EasyDarwin_开源录播系统
文章浏览阅读1.1w次。今天碰到一个执行语句等了半天没有执行:delete table XXX where ......,但是在select 的时候没问题。后来发现是在执行select * from XXX for update 的时候没有commit,oracle将该记录锁住了。可以通过以下办法解决: 先查询锁定记录 Sql代码 SELECT s.sid, s.seri_oracle delete update 锁表问题
文章浏览阅读3.4k次。报错信息error:Undefined symbol: typeinfo for sdk::IConfigUndefined symbol: vtable for sdk::IConfig具体信息:Undefined symbols for architecture x86_64: "typeinfo for sdk::IConfig", referenced from: typeinfo for sdk::ConfigImpl in sdk.a(config_impl.o) _xcode undefined symbols:
文章浏览阅读249次。背景《承接上文,项目05(Mysql升级06Mysql5.6.51升级到Mysql5.7.32)》,写在前面需要(考虑)检查和测试的层面很多,不限于以下内容。参考文档https://dev.mysql.com/doc/refman/8.0/en/upgrade-prerequisites.htmllink推荐阅读以上链接,因为对应以下问题,有详细的建议。官方文档:不得存在以下问题:0.不得有使用过时数据类型或功能的表。不支持就地升级到MySQL 8.0,如果表包含在预5.6.4格_mysql8.0.26 升级32
文章浏览阅读3.7k次。一.安装基本环境工具:1.安装git工具sudo apt install wget g++ git2.检查并安装java等环境工具2.1、执行下面安装命令#!/bin/bashsudoapt-get-yinstall--upgraderarunrarsudoapt-get-yinstall--upgradepython-pippython3-pip#aliyunsudoapt-get-yinstall--upgradeopenjdk..._高通8155 qnx 源码
文章浏览阅读461次。firebase 与谷歌 大多数开发人员都听说过Google的Firebase产品。 这就是Google所说的“ 移动平台,可帮助您快速开发高质量的应用程序并发展业务。 ”。 它基本上是大多数开发人员在构建应用程序时所需的一组工具。 在本文中,我将介绍这些工具,并指出您选择使用Firebase时需要了解的所有内容。 在开始之前,我需要说的是,我不会详细介绍Firebase提供的所有工具。 我..._firsebase 与 google
文章浏览阅读1.2k次。在容器化应用中,每个环境都要独立的打一个镜像再给镜像一个特有的tag,这很麻烦,这就要用到k8s原生的配置中心configMap就是用解决这个问题的。使用configMap部署应用。这里使用nginx来做示例,简单粗暴。直接用vim常见nginx的配置文件,用命令导入进去kubectl create cm nginx.conf --from-file=/home/nginx.conf然后查看kub..._pod mount目录会自动创建吗
文章浏览阅读169次。随着互联网技术的发发展,计算机技术广泛应用在人们的生活中,逐渐成为日常工作、生活不可或缺的工具,高校各种管理系统层出不穷。高校作为学习知识和技术的高等学府,信息技术更加的成熟,为新生报到管理开发必要的系统,能够有效的提升管理效率。一直以来,新生报到一直没有进行系统化的管理,学生无法准确查询学院信息,高校也无法记录新生报名情况,由此提出开发基于微服务的分布式新生报到系统,管理报名信息,学生可以在线查询报名状态,节省时间,提高效率。_关于spring cloud的参考文献有啥
文章浏览阅读3.2k次。Public MustInherit Class Contact '只能作基类且不能实例化 Private mID As Guid = Guid.NewGuid Private mName As String Public Property ID() As Guid Get Return mID End Get_vb.net 继承多个接口
文章浏览阅读1.7k次。1.美图# 2.概述因为要上传我的所有仓库的包,希望nexus中已有的包,我不覆盖,没有的添加。所以想批量上传jar。3.方案1-脚本批量上传PS:nexus3.x版本只能通过脚本上传3.1 批量放入jar在mac目录下,新建一个文件夹repo,批量放入我们需要的本地库文件夹,并对文件夹授权(base) lcc@lcc nexus-3.22.0-02$ mkdir repo2..._nexus3 批量上传jar包 java代码
文章浏览阅读6.6k次,点赞6次,收藏30次。本文转自http://blog.csdn.net/charleslei/article/details/486519531、什么是场在介绍Deinterlacer去隔行处理的方法之前,我们有必要提一下关于交错场和去隔行处理的基本知识。那么什么是场呢,场存在于隔行扫描记录的视频中,隔行扫描视频的每帧画面均包含两个场,每一个场又分别含有该帧画面的奇数行扫描线或偶数行扫描线信息,_mipi去隔行
文章浏览阅读1.7k次。DATA L_ENDDA TYPE SY-DATUM. IF P_DATE IS INITIAL. CONCATENATE SY-DATUM(4) '1231' INTO L_ENDDA. ELSE. CONCATENATE P_DATE(4) '1231' INTO L_ENDDA. ENDIF. DATA: LV_RESET(1) TY_abap 自定义 search help