oracle 编撰存储过程

oracle 编写存储过程

create or replace procedure myproc(en? in emp.ename%type,dno out number)
as
i number;
begin
? select count(*) into i from emp where ename=en;
? if i=1 then
???? dno:=i;
???? dbms_output.put_line('存在');
? else
???? dno:=0;
???? dbms_output.put_line('不存在');
? end if;
end;
/
DECLARE
deptno varchar2(20) ;
dno number;
?BEGIN
deptno :='tuping';
myproc(deptno,dno) ;
DBMS_OUTPUT.put_line(deptno) ;
END ;