存储过程学习三

--创建带参数的存储过程
create or replace procedure pl_test_parameter(
p_name in out mytest.name%type
) is
v_name mytest.name%type;
v_password mytest.password%type;
cursor cur_mytest is
select * from mytest;
begin
open cur_mytest;
loop
fetch cur_mytest into v_name,v_password;
exit when cur_mytest%notfound;
if v_name = p_name then
update mytest t set t.password = 'ttt' where t.name = v_name;
dbms_output.put_line('...name = '||v_name||', password = '||v_password);
p_name := v_password;
end if;
end loop;
close cur_mytest;
commit;
end;
/

--调用存储过程
declare
p_test varchar2(100);
begin
p_test := 'zxgllhh';
pl_test_parameter(p_test);
dbms_output.put_line('...p_test = '||p_test);
end;