Problems with a Procedure

Question

People,
I'm having a problem with a procedure in the moment I'm trying to execute it, could someone help.
CREATE OR REPLACE PROCEDURE CARREGA IS
begin
     declare
          strSQL VARCHAR2(250);
          NCham     number(9);
          cursor n_chamados is
          SELECT NumeroChamado, Planta, Instalacao, Defeito,
          DescricaoDefeito, Servico, DataChamado,Horas, Minutos
          FROM DEFEITOS_AUX;
begin
     For reg_chamado in n_chamados
     Loop
          begin
               NCham := reg_chamado.numerochamado;
               strSQL := 'SELECT numerochamado FROM Defeitos';
               strSQL := strSQL || ' WHERE numerochamado =';
               strSQL := strSQL || NCham || ' GROUP BY numerochamado';
               EXECUTE IMMEDIATE strSQL;
          exception
               when no_data_found then
               strSQL := 'INSERT INTO Defeitos (';
               strSQL := strSQL || 'NumeroChamado, ';
strSQL := strSQL || 'Planta, ';
               strSQL := strSQL || 'Instalacao, ';
               strSQL := strSQL || 'Defeito, ';
               strSQL := strSQL || 'DescricaoDefeito, ';
               strSQL := strSQL || 'Servico, ';
               strSQL := strSQL || 'DataChamado, ';
               strSQL := strSQL || 'Horas, ';
               strSQL := strSQL || 'Minutos) ';
          strSQL := strSQL || 'VALUES ( ';
          strSQL := strSQL || reg_chamado.NumeroChamado || ', ';
          strSQL := strSQL || reg_chamado.Planta || ', ';
          strSQL := strSQL || reg_chamado.Instalacao || ', ';
          strSQL := strSQL || reg_chamado.Defeito || ', ';
          strSQL := strSQL || reg_chamado.DescricaoDefeito || ', ';
          strSQL := strSQL || reg_chamado.Servico || ', ';
          strSQL := strSQL || reg_chamado.DataChamado || ', ';
          strSQL := strSQL || reg_chamado.Horas || ', ';
          strSQL := strSQL || reg_chamado.Minutos || ')';
               EXECUTE Immediate strSQL;
          end;
          strSQL := 'UPDATE Defeitos SET ';
          strSQL := strSQL || 'Planta = ' || reg_chamado.Planta;
          strSQL := strSQL || ', Instalacao = ' || reg_chamado.Instalacao;
          strSQL := strSQL || ', Defeito = ' || reg_chamado.Defeito;
          strSQL := strSQL || ', DescricaoDefeito = ' || reg_chamado.DescricaoDefeito;
          strSQL := strSQL || ', Servico = ' || reg_chamado.Servico;
          strSQL := strSQL || ', DataChamado = ' || reg_chamado.DataChamado;
          strSQL := strSQL || ', Horas = ' || reg_chamado.Horas;
          strSQL := strSQL || ', Minutos = ' || reg_chamado.Minutos;
          strSQL := strSQL || ' WHERE NumeroChamado = ' || NCham;
          EXECUTE Immediate strSQL;
     end loop;
end;
end;

Answer 1

Hi Erika,
there is no need for dynamic SQL.
I suppose the NumeroChamado is your primary key and has an unique index on it.
Just insert the rows and if there is already an existing row, catch the exception and update the row.
CREATE OR REPLACE PROCEDURE CARREGA IS
  CURSOR n_chamados IS
    SELECT NumeroChamado,
           Planta,
           Instalacao,
           Defeito,
           DescricaoDefeito,
           Servico,
           DataChamado,
           Horas,
           Minutos
    FROM   DEFEITOS_AUX;
BEGIN
  FOR reg_chamado IN n_chamados LOOP
  BEGIN
    INSERT INTO Defeitos (;
      NumeroChamado, ';
      Planta,
      Instalacao,
      Defeito,
      DescricaoDefeito,
      Servico,
      DataChamado,
      Horas,
      Minutos
    ) VALUES (
      reg_chamado.NumeroChamado,
      reg_chamado.Planta,
      reg_chamado.Instalacao,
      reg_chamado.Defeito,
      reg_chamado.DescricaoDefeito, 
      reg_chamado.Servico,
      reg_chamado.DataChamado,
      reg_chamado.Horas,
      reg_chamado.Minutos
  EXCEPTIONS
  WHEN DUP_VAL_ON_INDEX THEN
    UPDATE Defeitos SET
      Planta = reg_chamado.Planta,
      Instalacao = reg_chamado.Instalacao,
      Defeito = reg_chamado.Defeito,
      DescricaoDefeito = reg_chamado.DescricaoDefeito,
      Servico = reg_chamado.Servico,
      DataChamado = reg_chamado.DataChamado,
      Horas = reg_chamado.Horas,
      Minutos = reg_chamado.Minutos
    WHERE NumeroChamado = reg_chamado.NumeroChamado;
  END;
  END LOOP;
END;