Duvida - testar procedure

Dúvidas, dicas e truques de PL/SQL. Aqui também vão assuntos relacionados a pacotes, triggers, funções, Java-Stored Procedures, etc
Responder
izaura
Rank: Estagiário Sênior
Rank: Estagiário Sênior
Mensagens: 10
Registrado em: Ter, 06 Dez 2005 11:53 am
Localização: santos-sp

Tenho a seguinte procedure:

Selecionar tudo

create or replace procedure P_INCLUIRTRANSACAOT1
(p_ip IN  BX_TBL_LOGERROR.IP%TYPE,
 p_currentuser IN  BX_TBL_LOGERROR.USUARIO%TYPE,
 p_Cursor out TYPES.cursorType) 
  
IS  
  v_ErrorCode         varchar2(10);          
  v_ErrorMsg          VARCHAR2(200);   
  v_CurrentUser       VARCHAR2(20);   
  v_Ip                VARCHAR2(15);
 
BEGIN
 
 
declare
cursor c_Valores is

select distinct party_name,account_number,location  
from VIEW_GOL_AR_BAIXA_OPENSKIES;


v_party_name      varchar2(255);
v_account_number  varchar2(255);
v_location        varchar2(255);
v_registro        bx_tbl_agencia%rowtype;

begin
open c_Valores;
loop
fetch c_Valores into v_party_name,v_account_number,v_location;
exit when
c_Valores%NOTFOUND;
 
dbms_output.put_line(v_party_name || ' - ' || v_account_number || ' - ' || v_location);

  
open p_Cursor for 

select *  from bx_tbl_agencia
where party_name     = v_party_name
and   account_number = v_account_number
and   location       = v_location;

if sql%notfound then
    insert into bx_tbl_agencia (party_name,account_number,location) 
    values ('v_party_name','v_account_number','v_location');
end if;

end loop;
close c_Valores;
end;

EXCEPTION
  WHEN OTHERS THEN
    v_ErrorCode   := SQLCODE;
    v_ErrorMsg    := SQLERRM;
   
     ROLLBACK;
 
    INSERT INTO BX_TBL_LOGERROR(id,ip,error,errocode,usuario)
    VALUES (seq_Log.Nextval,p_Ip,v_ErrorMsg,v_ErrorCode,p_CurrentUser);
 
    COMMIT;
 
END p_IncluirTransacaoT1;
Quando ela tinha somente 2 parametros eu testava assim:

Selecionar tudo

begin
p_incluirtransacaot1('1234567890','usuario');
end;
Agora a procedure tem mais um parametro (p_Cursor out TYPES.cursorType)

Como faço para testar com esse parametro out???

Grata
Ricardo_Kaka
Rank: Estagiário Pleno
Rank: Estagiário Pleno
Mensagens: 7
Registrado em: Seg, 20 Fev 2006 10:41 am
Localização: São Vicente - SP

Você terá que passar uma variável, que irá receber um valor passado pela package.
Responder
  • Informação
  • Quem está online

    Usuários navegando neste fórum: Nenhum usuário registrado e 18 visitantes