0

Tenho esse código plsql e devo executar ao mesmo tempo:

/*Testar se o codigo é valido*/
CREATE OR REPLACE FUNCTION TESTE1(cod number)
RETURN BOOLEAN IS
begin
  if(cod>0)then
    return true; 
  end if;

 return false;  

end;


/*varrer o banco de acordo com o codigo*/
CREATE OR REPLACE PROCEDURE BUSCA1(cod number) is
 nomeT VARCHAR2(20);
begin

/* testa1*/
if(TESTE1(cod)=true)then
  select * 
   into nomeT
  from turma
   where CD_TURMA = cod;

   dbms_output.put_line(nomeT);
else
     dbms_output.put_line('Codigo invalido');
end if;

EXCEPTION
    WHEN OTHERS THEN
        dbms_output.put_line('Não foi possível verificar');
end

TESTAR O CODIGO

EXECUTE BUSCA1(3);

Erro a partir da linha : 38 no comando -
EXECUTE BUSCA1(3)
Relatório de erros -
ORA-06550: line 1, column 7:
PLS-00905: object DBAMV.BUSCA1 is invalid
ORA-06550: line 1, column 7:
PL/SQL: Statement ignored
06550. 00000 -  "line %s, column %s:\n%s"
*Cause:    Usually a PL/SQL compilation error.
*Action:
1
  • Quanto uso simultâneo de functions e procedures no codigo ? Commented 23/01/2018 às 16:21

1 Resposta 1

0

Vou usar o código anonimo para responder a minha pergunta:

DECLARE

    /*Testar se o codigo é valido*/
    FUNCTION TESTE(cod number)
    RETURN BOOLEAN IS
    begin
      if(cod>0)then
        return true; 
      end if;      
    return false;  
    end;/*FUNCTION*/

    /*varrer o banco de acordo com o codigo*/   

    PROCEDURE BUSCA(cod number) is
     nomeT VARCHAR2(20);
    begin

    /* testa*/
    if(TESTE(cod)=true)then
      select ds_turma 
       into nomeT
      from turma
       where CD_TURMA = cod;

       dbms_output.put_line(nomeT);
    else
         dbms_output.put_line('Codigo invalido');
    end if;

    EXCEPTION
        WHEN OTHERS THEN
            dbms_output.put_line('Não foi possível verificar');
    end;/*PROCE*/
 BEGIN
    -- Inicio do programa
    BUSCA(3);
 END; /

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .