简单存储过程实例

//创建
create or replace procedure p_subwork(put number,s out varchar2) is
r subwork%rowtype;
BEGIN
dbms_output.put_line('subunit username');
select * into r from subwork where subworkoid=put;
dbms_output.put_line(r.subunit||' '||r.username);
s:=r.username||' '||r.subunit;// 输出单位和用户名
END;

//执行
declare
put_ number;
out_ varchar2(255);
begin
put_:=&请输入编号;
p_subwork(put_,out_);
dbms_output.put_line('单位和用户名的值为 '||out_);
end;