Suponha que você criou um procedimento para executar uma única tarefa com lógica diferente e deseja verificar exatamente qual procedimento está funcionando bem. Veja o exemplo abaixo:
declare
i PLS_INTEGER;
BEGIN
--test 1
Ora_Prof.Create_Timer('test1');
Ora_Prof.Start_Timer('test1');
sua unidade de programa com alguma lógica;
Ora_Prof.Stop_Timer('test1');
message('Teste 1 Tempo gasto '||Ora_Prof.Elapsed_Time('test1'), reconhecer);
Ora_Prof.Destroy_Timer('test1');
-- teste 2
Ora_Prof.Create_Timer('test2');
Ora_Prof.Start_Timer('test2');
sua unidade de programa com outra lógica;
Ora_Prof.Stop_Timer('test2');
message('Teste 2 Tempo gasto '||Ora_Prof.Elapsed_Time('teste2'),acknowledge);
message('Teste 2 Tempo gasto '||Ora_Prof .Elapsed_Time('test2'),acknowledge);
Ora_Prof.Destroy_Timer('test2');
END;
Ele vai dar o resultado em milissegundos e agora você pode analisar qual programa está funcionando bem.
Veja também:
Criando, Parando, Reiniciando o temporizador no Oracle Forms
Ajuste o código PLSQL do Oracle Form com a ajuda do temporizador
