oracle ´æ´¢¹ý³ÌʵÀý

/*²»´øÈκβÎÊý´æ´¢¹ý³Ì(Êä³öϵͳÈÕÆÚ)*/
create or replace procedure output_date is
begin
dbms_output.put_line(sysdate);
end output_date;
/*´ø²ÎÊýinºÍoutµÄ´æ´¢¹ý³Ì*/
create or replace procedure get_username(v_id in number,v_username out varchar2)
as
begin
  select username into v_username from tab_user where id = v_id; --±äÁ¿¸³Öµ
exception
when no_data_found then
raise_application_error(-20001,'ID²»´æÔÚ!');
end get_username;