编程语言中的4种子例程:
由两种行为定义,即形式值是否返回以及参数列表是值传递还是引用传递。
如果返回输出,子例程就是函数,如果不返回,就是过程。
所以4中子例程为:
1.值传递函数
2.引用传递函数
3.值传递过程
4.引用传递过程
pl/sql值传递过程由下列5条规则定义:
1.所有形参必须使用in模式定义为只写变量。(只能传入,不能传出)
2.所有形参必须是局部作用域的变量,不能再过程执行期间改变。(不能给in模式的参数赋值)
3.所有形参可使用任意有效的sql或pl/sql数据类型
4.所有形参可以有默认的初值
5.任何从sql查询到函数的系统引用游标类型的强制转换都是不可写的,因此必须通过in模式参数进行传递。
这包括哪些作为显示游标变量传递的以及使用cursor函数的强制转换。
--值传递:调用时接受值的副本,不返回输出变量。
--使用值传递过程跨单个事务作用域管理多个DML语句。
create or replace procedure add_user(
username varchar2,
age number,
address varchar2,
street_address varchar2
) is
v_id number;
--声明内部函数(内部pl/sql块) 从指定序列中获得下一个值,使用了本地动态sql
function get_sequence_value(sequence_name varchar2) return number is
pragma autonomous_transaction;
id_value number;
statement varchar2(2000);
begin
statement :='begin' ||chr(10)
||' select '||sequence_name||'.nextval'||chr(10)
||' into :id_value' ||chr(10)
||' from dual;' ||chr(10)
||'end;';
execute immediate statement using out id_value;
return id_value;
end get_sequence_value;
begin
savepoint add_user; --设置保存点
v_id :=get_sequence_value('SQ_USER');
insert into tb_user(userid,name,age) values(v_id,username,age);
if address is not null then
--向地址表中插入值
if street_address is not null then
--向街道表中插入值
end if;
end if;
exception
when others then
rollback to add_user; --回滚到保存点
raise_application_error(-20001,sqlerrm); --抛出异常
end add_user;
--引用传递过程
--被调用时接受值的副本,不返回输出变量,可改变实参的值。返回实参引用给调用程序单元。
pl/sql引用传递过程由下列5条规则定义:
1.必须至少有一个形参通过使用out或in out模式定义。
2.所有形参在过程操作中可更改的局部作用域变量。
3.所有形参可使用任意有效的sql或pl/sql数据类型。
4.所有in模式形参可以有默认的初值。
5.任何从sql查询到过程的系统引用游标类型的强制转换都是不可写的,因此必须通过in模式参数进行传递。
(即作为参数的系统引用游标不能再写入数据,只能是in模式的参数)
--例:引用传递过程
function get_sequence_value(sequence_name varchar2) return number is
pragma autonomous_transaction;
id_value number;
statement varchar2(2000);
begin
statement :='begin' ||chr(10)
||' select '||sequence_name||'.nextval'||chr(10)
||' into :id_value' ||chr(10)
||' from dual;' ||chr(10)
||'end;';
execute immediate statement using out id_value;
return id_value;
end get_sequence_value;
create or replace procedure add_user(
username varchar2,
age number,
userid out number, --输出参数(引用传递)
) is
v_id number;
begin
savepoint add_user; --设置保存点
userid :=get_sequence_value('SQ_USER'); --为输出参数赋值
insert into tb_user(userid,name,age) values(userid,username,age);
exception
when others then
rollback to add_user; --回滚到保存点
raise_application_error(-20001,sqlerrm); --抛出异常
end add_user;