oracle中建程序包

[huangyali]

CREATE OR REPLACE PACKAGE "INTEHEL"."PARAM_PACKAGE" is
procedure set_param(startdate varchar2,enddate varchar2);
function get_startdate return varchar2;
function get_enddate return varchar2;
end ; 程序包创建成功

CREATE OR REPLACE PACKAGE BODY "INTEHEL"."PARAM_PACKAGE" is
sdate varchar2,edate varchar2;
as
begin
procedure set_param(startdate varchar2,enddate varchar2) as
begin
sdate:=startdate;
edate:=enddate;
end set_param;
function get_startdate return varchar2 as return sdate; end get_startdate;
function get_enddate return varchar2 as return edate; end get_enddate;
end param_package ; 包体无效
大家帮忙看下哪儿错了

[BlueskyWide]

--参考一下：

CREATE OR REPLACE PACKAGE BODY "INTEHEL"."PARAM_PACKAGE" as

  procedure set_param(startdate varchar2, enddate varchar2) is
    sdate varchar2(20);
    edate varchar2(20);
  begin
    sdate := startdate;
    edate := enddate;
  end set_param; --以下注释掉了，以便调试。

--function get_startdate return varchar2 as
--return sdate;
--end get_startdate; function get_enddate return varchar2 as
--return edate;
--end get_enddate;
end param_package;

[Quote=引用楼主 huangyali 的帖子:]
CREATE OR REPLACE PACKAGE "INTEHEL"."PARAM_PACKAGE" is
procedure set_param(startdate varchar2,enddate varchar2);
function get_startdate return varchar2;
function get_enddate return varchar2;
end ; 程序包创建成功

CREATE OR REPLACE PACKAGE BODY "INTEHEL"."PARAM_PACKAGE" is
sdate varchar2,edate varchar2;
as
begin
procedure set_param(startdate varchar2,enddate varchar2) as
…
[/Quote]

[codearts]

CREATE OR REPLACE  PACKAGE pkg_a  is 
	procedure set_param(startdate varchar2,enddate varchar2); 
	function get_startdate return varchar2; 
	function get_enddate return varchar2; 
end ;

CREATE OR REPLACE  PACKAGE BODY pkg_a is 
	sdate varchar2(200);
	edate varchar2(200);
procedure set_param(startdate varchar2,enddate varchar2) as 
begin 
	sdate:=startdate; 
	edate:=enddate; 
end; 
function get_startdate return varchar2 as begin return sdate; end; 
function get_enddate return varchar2 as begin return edate; end; 

begin 
	sdate := '';
	edate := '';
end pkg_a ;

[codearts]

参照我的这个，你的有好几个错误.

[huangyali]

谢谢 codearts 参照你的问题解决了 非常感谢 ！！