这是Oracle PL/SQL的一个特点,即存储过程参数和函数返回类型不能被限制。也就是说,我们不能有一个过程,像这样的签名:
SQL> create or replace procedure my_proc (p1 in varchar2(30))
2 is
3 begin
4 null;
5 end;
6/
Warning: Procedure created with compilation errors.
SQL> show error
Errors for PROCEDURE MY_PROC:
LINE/COL ERROR
-------- -----------------------------------------------------------------
1/34 PLS-00103: Encountered the symbol "(" when expecting one of the
following:
:= .) , @ % default character
The symbol ":=" was substituted for "(" to continue.
SQL> create or replace procedure my_proc (p1 in varchar2)
2 is
3 begin
4 null;
5 end;
6/
Procedure created.
SQL>
当然,我们可以用一个亚型定义过程的参数,但甲骨文会忽视它。这同样适用于函数的返回类型...
SQL> create or replace package my_subtypes as
2 subtype ltd_string is varchar2(30);
3 end;
4/
Package created.
SQL> create or replace function my_func return my_subtypes.ltd_string
2 is
3 begin
4 return lpad('a', 4000, 'a');
5 end;
6/
Function created.
SQL> select length(my_func) from dual
2/
LENGTH(MY_FUNC)
---------------
4000
SQL>
限制参数的唯一途径和返回类型是声明使用存储过程中的亚型变量。使用包中的变量,并将它们分配给OUT参数(或者将函数的RETURN变量)。
这是一种冗长的说法,你可以在你的代码中使用DBMS_OBFUSCATION_TOOLKIT.VARCHAR2_CHECKSUM
确信它不会阻止你的函数返回32个字符。
但是,它会混淆查找SUBTYPE声明的开发人员。在最坏的情况下,这些人会用亚型具有以下悲惨结果宣布自己的工作变量:
SQL> declare
2 v my_subtypes.ltd_string;
3 begin
4 v := my_func;
5 end;
6/
declare
*
ERROR at line 1:
ORA-06502: PL/SQL: numeric or value error: character string buffer too small
ORA-06512: at line 4
SQL>
因此,最好不要使用不恰当的亚型。相反,申报你自己的。
来源
2011-05-05 12:58:12
APC
这是在那里我希望能够接受两个答案的情况之一...... – 2011-06-09 11:39:37