--TEST-- oci_bind_array_by_name() and invalid values 7 --SKIPIF-- <?php if (!extension_loaded('oci8')) die("skip no oci8 extension"); ?> --FILE-- <?php require dirname(__FILE__).'/connect.inc'; $drop = "DROP table bind_test"; $statement = oci_parse($c, $drop); @oci_execute($statement); $create = "CREATE table bind_test(name NUMBER)"; $statement = oci_parse($c, $create); oci_execute($statement); $create_pkg = " CREATE OR REPLACE PACKAGE ARRAY_BIND_007_PKG AS TYPE ARRTYPE IS TABLE OF NUMBER INDEX BY BINARY_INTEGER; PROCEDURE iobind(c1 IN OUT ARRTYPE); END ARRAY_BIND_007_PKG;"; $statement = oci_parse($c, $create_pkg); oci_execute($statement); $create_pkg_body = " CREATE OR REPLACE PACKAGE BODY ARRAY_BIND_007_PKG AS CURSOR CUR IS SELECT name FROM bind_test; PROCEDURE iobind(c1 IN OUT ARRTYPE) IS BEGIN FOR i IN 1..5 LOOP INSERT INTO bind_test VALUES (c1(i)); END LOOP; IF NOT CUR%ISOPEN THEN OPEN CUR; END IF; FOR i IN REVERSE 1..5 LOOP FETCH CUR INTO c1(i); IF CUR%NOTFOUND THEN CLOSE CUR; EXIT; END IF; END LOOP; END iobind; END ARRAY_BIND_007_PKG;"; $statement = oci_parse($c, $create_pkg_body); oci_execute($statement); $statement = oci_parse($c, "BEGIN array_bind_007_pkg.iobind(:c1); END;"); $array = Array(1,2,3,4,5); oci_bind_array_by_name($statement, ":c1", $array, 5, 5, -1); oci_execute($statement); var_dump($array); echo "Done\n"; ?> --EXPECTF-- Warning: oci_bind_array_by_name(): Unknown or unsupported datatype given: -1 in %s on line %d Warning: oci_execute(): ORA-%r(01008|57000)%r: %s in %s on line %d array(5) { [0]=> int(1) [1]=> int(2) [2]=> int(3) [3]=> int(4) [4]=> int(5) } Done