为什么在oracle中创建过程出错，我的代码错在哪里？

Microsoft Windows XP [版本 5.1.2600]
(C) 版权所有 1985-2001 Microsoft Corp.

C:\Documents and Settings\Administrator>sqlplus /nolog

SQL*Plus: Release 9.2.0.1.0 - Production on 星期五 11月 30 19:12:37 2007

Copyright (c) 1982, 2002, Oracle Corporation.  All rights reserved.

SQL> connect sys/sys as sysdba
已连接。
SQL> show user
USER 为"SYS"
SQL> create tablespace emp
  2  datafile 'e:\myOracle\empinfo.dbf'
  3  size 20M;

表空间已创建。

SQL> create table salary(empcode varchar(10),workingdays number,empsalary number

  2  );

表已创建。

SQL> insert into salary values('001',23,2000);

已创建 1 行。

SQL> insert into salary values('002',21,2500);

已创建 1 行。

SQL>  insert into salary values('003',18,2500);

已创建 1 行。

SQL> insert into salary values('004',28,3500);

已创建 1 行。

SQL> select * from salary;

EMPCODE    WORKINGDAYS  EMPSALARY
---------- ----------- ----------
001                 23       2000
002                 21       2500
003                 18       2500
004                 28       3500

SQL>
SQL> create or replace procedure
  2   findincome(empno in  varchar2(10))
  3  as
  4  empsal number;
  5   begin
  6  select empsalary into empsal from salary where empcode=empno;
  7   dbms_output.put_line('工资是' || to_char(empsal));
  8  if empsal>1000 then
  9   update salary set empsalary=empsalary-empsalary*0.05 where empcode=empno;
10  end if;
11  end findsal;
12  /

警告: 创建的过程带有编译错误。

SQL>
--------------------编程问答-------------------- Oracle很少用

补充：.NET技术 ,  ASP.NET