--创建存储过程( in 输入 out 输出)

create or replace procedure say_hi(to_whom in varchar2 default '张三', who out varchar2)

as

who_name varchar(20);

begin

who_name := '李四';

who := who_name;

dbms_output.put_line('Say Hi to '||to_whom);

end;


create or replace procedure invoke_say_hi

as

who varchar2(20);

whom varchar2(20);

begin

whom := '小明';

say_hi(whom, who);--Say Hi to 小明

say_hi(who => who);--Say Hi to 张三

dbms_output.put_line(who||'say hi to '||whom);--李四say hi to 小明

end;

--调用存储过程
begin
-- Call the procedure
invoke_say_hi;
end;