谁有oracle存储过程的原代码？谢谢!

我这里刚写了一个包括存储过程和java调用存储过程的程序。
存储过程
create or replace procedure all_users_proc(
      v_userid in number,
      v_username out varchar2) is
      v_i_user all_users%rowtype;

begin
     select * into v_i_user
     from all_users
     where user_id = v_userid;
     v_username := v_i_user.username;

end all_users_proc;