--TEST-- oci_bind_array_by_name() and invalid values 8 --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 ARRAYBINDPKG1 AS TYPE ARRTYPE IS TABLE OF NUMBER INDEX BY BINARY_INTEGER; PROCEDURE iobind(c1 IN OUT ARRTYPE); END ARRAYBINDPKG1;"; $statement = oci_parse($c, $create_pkg); oci_execute($statement); $create_pkg_body = " CREATE OR REPLACE PACKAGE BODY ARRAYBINDPKG1 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 ARRAYBINDPKG1;"; $statement = oci_parse($c, $create_pkg_body); oci_execute($statement); $statement = oci_parse($c, "BEGIN ARRAYBINDPKG1.iobind(:c1); END;"); $array = Array(1,2,3,4,5); oci_bind_array_by_name($statement, ":c1", $array, 5, 5, SQLT_CHR); oci_execute($statement); var_dump($array); echo "Done\n"; ?> --EXPECTF-- Warning: oci_execute(): ORA-06550: line %d, column %d: PLS-00418: array bind type must match PL/SQL table row type ORA-06550: line %d, column %d: PL/SQL: Statement ignored in %s on line %d array(5) { [0]=> string(1) "1" [1]=> string(1) "2" [2]=> string(1) "3" [3]=> string(1) "4" [4]=> string(1) "5" } Done