Databases Reference
In-Depth Information
EXECUTE IMMEDIATE l_stmt INTO aRow;
END;
END TEST_NOBIND;
PROCEDURE TEST_BIND(CUSTID IN sh.customers.cust_id%TYPE) IS
BEGIN
DECLARE aRow sh.customers%ROWTYPE;
l_stmt VARCHAR2(2000);
BEGIN
l_stmt := 'SELECT * FROM sh.customers s WHERE s.cust_id =
:p_cust_id';
EXECUTE IMMEDIATE l_stmt INTO aRow USING CUSTID;
END;
END TEST_BIND;
PROCEDURE TEST_BIND_STATIC(CUSTID IN
sh.customers.cust_id%TYPE) IS
BEGIN
DECLARE aRow sh.customers%ROWTYPE;
BEGIN
SELECT * INTO aROW FROM sh.customers s WHERE s.cust_id =
CUSTID;
EXCEPTION
WHEN NO_DATA_FOUND THEN
NULL;
END;
END TEST_BIND_STATIC;
PROCEDURE WORKLOAD_NOBIND IS
BEGIN
FOR i IN 1..50000
LOOP
TEST_NOBIND(i);
END LOOP;
END WORKLOAD_NOBIND;
