Olá,
Tente assim:
create or replace package TESTE as
procedure INSERT_CLIENTE(
sp_nome ClIente.Nome%type,
sp_endereco Cliente.Endereco%type,
sp_dtcadastro Cliente.DtCadastro%type,
qte_linhas OUT INTEGER);
function BUSCA_CLIENTE(varbusca in number)
RETURN varchar2 IS
var_CLIENTE varchar2;
end TESTE;
Para o corpo:
create or replace package body "TESTE" is
procedure INSERT_CLIENTE
is
begin
INSERT INTO CLIENTE(Nome,Endereco,DtCadastro)
VALUES(sp_nome,sp_endereco,sp_dtcadastro);
qte_linhas := sql%ROWCOUNT;
end INSERT_CLIENTE;
function BUSCA_CLIENTE(varbusca in number)is
var_Cliente varchar2;
BEGIN
SELECT Codigo||'.'|| Nome||'.'|| Endereco||'.'|| DtCadastro
INTO var_CLIENTE
from Cliente where Cliente.Codigo=varbusca;
RETURN var_CLIENTE;
end BUSCA_CLIENTE;
end TESTE;
Acho que tentar retornar o cursor como vc queria não deve funcionar desta forma. Coloquei o ponto para separar mas veja como vc precisa ou tente mais functions…
[]s Ishii