几个关于正确及错误PL/SQL对照使用的示例

/**
这是几个关于正确及错误PL/SQL对照使用的示例
*/
create table test(tid int primary key not null,tname varchar2(50));
create sequence test_seq start with 1 increment by 1;
insert into test values(test_seq.nextval,'FLB');
insert into test values(test_seq.nextval,'FLB1');
---------------------------------
--错误函数1
create or replace function f
return int
begin
return 5*5;
end;
--错误函数2
create or replace function f()
return number
is
begin
return 5*5;
end;
--错误函数3
create or replace function f
return number
begin
return 5*5;
end;
--该函数的正确函数1
create or replace function f
return number
is
begin
return 5*5;
end;
--该函数的正确函数2
create or replace function f
return int
is
begin
return 5*5;
end;
------------------------------------
--这是个正确函数，不过调试这个函数花了好几十分钟的时间，不熟悉了
create or replace function f5
(pid number)
return varchar2
is
rname varchar2(50);
cursor cname
is
select tname from test where tid=pid;
begin
open cname;
fetch cname into rname;

return rname;
end;
--调用函数用call出错
call f5(2);
--调用出错，函数必须有值的接收者
begin
f5(2);
end;
--这种方法调用不正确
declare
r varchar2;
begin
r:=f5(2);
dbms_output.put_line(r);
end;
--这种方法调用正确
begin
dbms_output.put_line(f5(2));
end;
--这种方法调用正确
declare
r varchar2(50);
begin
r:=f5(2);
dbms_output.put_line(r);
end;
--正确函数
create or replace function f4
(ttid in integer)
return varchar2
is
rname varchar(50);
cursor cname
is
select tname from test where tid=ttid;
begin
open cname;
fetch cname into rname;
return rname;
end;
--正确函数
create or replace function f7
(n in number)
return number
is
begin
return n*n;
end f7;
------------------------------------------
--过程
create or replace procedure p1
is
begin
dbms_output.put_line('First Procuder');
end p1;
--调用过程用call不会出错
call p1();
--这种方法调用过程不正确
begin
dbms_output.put_line(p1());
end;
----------注意函数与过程的调用的不同处----------
------------------------------------------------
--错误过程
create or replace procedure p3
(ttid in Integer)
is
rname varchar;
cursor cname
is
select tname from test where tid=ttid;
begin
open cname;
fetch cname into rname;
dbms_output.put_line(rname);
end;
--正确过程
create or replace procedure p3
(ttid in Integer)
is
rname varchar(50);
cursor cname
is
select tname from test where tid=ttid;
begin
open cname;
fetch cname into rname;
dbms_output.put_line(rname);
end;