Optimizing SQL Code - Oracle Database 11gR2 Performance Tuning - page 150

PROCEDURE WORKLOAD_BIND IS
BEGIN
FOR i IN 1..50000
LOOP
TEST_BIND(i);
END LOOP;
END WORKLOAD_BIND;
PROCEDURE WORKLOAD_BIND_STATIC IS
BEGIN
FOR i IN 1..50000
LOOP
TEST_BIND_STATIC(i);
END LOOP;
END WORKLOAD_BIND_STATIC;
PROCEDURE TEST_INJECTION(NAME IN
sh.customers.cust_last_name%TYPE) IS
BEGIN
DECLARE l_stmt VARCHAR2(2000); res NUMBER;
BEGIN
l_stmt := 'SELECT COUNT(*) FROM sh.customers s WHERE
s.cust_last_name = ''' || NAME || '''';
EXECUTE IMMEDIATE l_stmt INTO res;
DBMS_OUTPUT.PUT_LINE('Count: ' || TO_CHAR(res));
END;
END TEST_INJECTION;
PROCEDURE TEST_INJECTION2(NAME IN
sh.customers.cust_last_name%TYPE) IS
BEGIN
DECLARE l_stmt VARCHAR2(2000);
BEGIN
l_stmt := 'BEGIN DBMS_OUTPUT.PUT_LINE (''You passed ' ||
NAME || '''); END;';