大家帮我看一下，为什么，包体不对

[tondayong1981]

create or replace package Information
as
procedure insert_info(no_1 emp.empno%type,name_1 emp.ename%type,job_1 emp.job%type,mgr_1 emp.mgr%type,hire_date emp.hiredate%type,salary emp.sal%type,commu emp.comm%type,deptnum emp.deptno%type);
procedure fire_person(no emp.empno%type);
function getSal(no emp.empno%type)
return number;
end Information;





create or replace package body Information
as
procedure insert_info(no_1 emp.empno%type,name_1 emp.ename%type,job_1 emp.job%type,mgr_1 emp.mgr%type,hire_date emp.hiredate%type,salary emp.sal%type,commu emp.comm%type,deptnum emp.deptno%type)
as
begin
insert into emp values(no_1,name_1,job_1,mgr_1,hire_date,salary,commu,deptnum);
end insert_info;
procedure fire_person(no emp.empno%type)
as
begin
delete from emp where empno=no;
end fire_person;
function getSal(no in emp.empno%type)
return number
as
begin
salary emp.empno%type;
select sal into salary from emp where empno=no;
return (salary);
end getSal;
end Information;

大家帮我看一下，为什么，包体不对,包的定义是正确的

[zzwind5]

create or replace package body Information
as
procedure insert_info(no_1 emp.empno%type,name_1 emp.ename%type,job_1 emp.job%type,mgr_1 emp.mgr%type,hire_date emp.hiredate%type,salary emp.sal%type,commu emp.comm%type,deptnum emp.deptno%type)
as
begin
insert into emp values(no_1,name_1,job_1,mgr_1,hire_date,salary,commu,deptnum);
end insert_info;
procedure fire_person(no emp.empno%type)
as
begin
delete from emp where empno=no;
end fire_person;
function getSal(no in emp.empno%type)
return number
as
begin
salary emp.empno%type; -不能在这里定义变量 放到BEGIN 上面去
select sal into salary from emp where empno=no;
return (salary);
end getSal;
end Information;


create or replace package body Information
as
procedure insert_info(no_1 emp.empno%type,name_1 emp.ename%type,job_1 emp.job%type,mgr_1 emp.mgr%type,hire_date emp.hiredate%type,salary emp.sal%type,commu emp.comm%type,deptnum emp.deptno%type)
as
begin
insert into emp values(no_1,name_1,job_1,mgr_1,hire_date,salary,commu,deptnum);
end insert_info;
procedure fire_person(no emp.empno%type)
as
begin
delete from emp where empno=no;
end fire_person;
function getSal(no in emp.empno%type)
return number
as
salary emp.empno%type;
begin
select sal into salary from emp where empno=no;
return (salary);
end getSal;
end Information;