存储过程学习三

--创建带参数的存储过程
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;