简单存储过程实例
//创建
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;