Supposons que vous ayez créé une procédure pour effectuer une seule tâche avec une logique différente et que vous souhaitiez vérifier exactement quelle procédure fonctionne bien. Voir l'exemple ci-dessous :
declare
i PLS_INTEGER;
BEGIN
--test 1
Ora_Prof.Create_Timer('test1');
Ora_Prof.Start_Timer('test1');
votre unité de programme avec une certaine logique ;
Ora_Prof.Stop_Timer('test1');
message('Test 1 Temps pris '||Ora_Prof.Elapsed_Time('test1'), acquitter);
Ora_Prof.Destroy_Timer('test1');
-- test 2
Ora_Prof.Create_Timer('test2');
Ora_Prof.Start_Timer('test2');
votre unité de programme avec une autre logique ;
Ora_Prof.Stop_Timer('test2');
message('Test 2 Temps pris '||Ora_Prof.Elapsed_Time('test2'),acknowledge);
message('Test 2 Temps pris '||Ora_Prof .Elapsed_Time('test2'),acknowledge);
Ora_Prof.Destroy_Timer('test2');
END;
Il donnera le résultat en millisecondes et vous pouvez maintenant analyser quel programme fonctionne bien.
Voir aussi :
Créer, arrêter, redémarrer le minuteur dans Oracle Forms
Ajustez le code PLSQL d'Oracle Form à l'aide d'une minuterie