tst_client_info:
create table tst_client_info (
clientno varchar2(12),
clientno_name varchar2(50),
birth_date date,
sex varchar2(1),
id_type varchar2(1),
idno varchar2(30)
)
procedure plsql_procedure_1 (p_clientno in tst_client_info. clientno%type,
p_idno out tst_client_info .idno%type) is
cursor c_client_info(c_clientno tst_client_info.clientno%type) is
select idno from tst_client_info where clientno = c_clientno;
begin
open c_client_info(p_clientno),
fetch c_client_info
into p_idno;
close c_client_info;
end plssql_procedure_1;
procedure plsql_procedure_2 (p_clientno in tst_client_info,clientno%type,
p_idno out tst_client_info.idno%type) is
begin
select idno
into p_idno
from tst_client_info
where clientno = p_clientno;
end plsql_procedure_2;
如下函数功能是：
procedure plsql_procedure_3(p_clientno in tst_client_info,clientno%type,
p_idno out tst_client_info.idno%type) is
v_clientno tst_client_info.clientno%type;
cursor c_client_info is
select clientno from tst_client_info where idno = p_idno;
begin
open c_client_info;
loop
fetch c_client_info
into v_clientno;
exit when c_clinet_info%not found;
p_clientno(p_clientno.count) := v_clientno;
end loop;
close c_clinet_info;
end plsql_procedure_3;
