Předpokládejme, že jste vytvořili proceduru k provedení jedné úlohy s jinou logikou a chcete přesně zkontrolovat, která procedura funguje dobře. Viz níže uvedený příklad:
deklarovat
i PLS_INTEGER;
BEGIN
--test 1
Ora_Prof.Create_Timer('test1');
Ora_Prof.Start_Timer('test1');
yourprogramunitwithsomelogic;
Ora_Prof.Stop_Timer('test1');
message('Test 1 Doba trvání '||Ora_Prof.Elapsed_Time('test1'), potvrdit);
Ora_Prof.Destroy_Timer('test1');
-- test 2
Ora_Prof.Create_Timer('test2');
Ora_Prof.Start_Timer('test2');
vaše programová jednotka s jinou logikou;
Ora_Prof.Stop_Timer('test2');
message('Doba testu 2 '||Ora_Prof.Elapsed_Time('test2'),potvrzení);
message('Doba testu 2 '||Ora_Prof .Elapsed_Time('test2'),acknowledge);
Ora_Prof.Destroy_Timer('test2');
END;
Výsledek poskytne v milisekundách a nyní můžete analyzovat, který program funguje dobře.
Viz také:
Vytvoření, zastavení a opětovné spuštění časovače v Oracle Forms
Vylaďte kód PLSQL Oracle Form pomocí časovače
