包的定义“valid”,但是包体老是"invalid"。包体如下:
CREATE OR REPLACE PACKAGE BODY "FKSF"."PACK_RETURN_RECORDSET"
as
PROCEDURE CheckOtherSystemUpdateExists(P_ID "tothersystem".ID%TYPE,P_links "tothersystem".links%TYPE,
P_CURSOR OUT FKSF_TYPES.FKSF_CURSOR) is
begin
open P_CURSOR for
select id from "tOtherSystem" where(id!=P_ID and links=P_links);
end CheckOtherSystemUpdateExists;
end PACK_RETURN_RECORDSET;
CREATE OR REPLACE PACKAGE BODY "FKSF"."PACK_RETURN_RECORDSET"
as
PROCEDURE CheckOtherSystemUpdateExists(P_ID "tothersystem".ID%TYPE,P_links "tothersystem".links%TYPE,
P_CURSOR OUT FKSF_TYPES.FKSF_CURSOR) is
begin
open P_CURSOR for
select id from "tOtherSystem" where(id!=P_ID and links=P_links);
end CheckOtherSystemUpdateExists;
end PACK_RETURN_RECORDSET;
as
PROCEDURE CheckOtherSystemUpdateExists(P_ID "tothersystem".ID%TYPE,P_links "tothersystem".links%TYPE,
P_CURSOR OUT FKSF_TYPES.FKSF_CURSOR) is
begin
open P_CURSOR for
select id from "tOtherSystem" where(id!=P_ID and links=P_links);
end CheckOtherSystemUpdateExists;
end PACK_RETURN_RECORDSET;
/
show error
看看错误信息是什么