Databases Reference
In-Depth Information
4.
Create the same procedure as in the previous step, inlining the
SIMPLE_FUNCTION
by adding a
PRAGMA
INLINE
statement, naming it
STRESS_INLINING
:
CREATE OR REPLACE PROCEDURE STRESS_INLINING(ANUM NUMBER)
IS
AVAL NUMBER;
T1 NUMBER;
BEGIN
T1 := DBMS_UTILITY.get_time;
FOR J IN 1..ANUM LOOP
PRAGMA INLINE (SIMPLE_FUNCTION, 'YES');
AVAL := SIMPLE_FUNCTION (50,ANUM);
END LOOP;
DBMS_OUTPUT.PUT_LINE('TIME (INLINE): ' ||
(DBMS_UTILITY.get_time - T1));
END;
/
5.
Execute the
STRESS
procedure:
SET SERVEROUTPUT ON
BEGIN
STRESS(9999999);
END;
/
6.
Execute the
STRESS_INLINING
procedure:
SET SERVEROUTPUT ON
BEGIN
STRESS_INLINING(9999999);
END;
/
7.
Clean the database:
SET SERVEROUTPUT OFF
DROP PROCEDURE STRESS_INLINING;
DROP PROCEDURE STRESS;
DROP FUNCTION SIMPLE_FUNCTION;
