1--TEST-- 2oci_bind_array_by_name(), SQLT_CHR and default max_length 3--SKIPIF-- 4<?php 5$target_dbs = array('oracledb' => true, 'timesten' => false); // test runs on these DBs 6require(dirname(__FILE__).'/skipif.inc'); 7?> 8--FILE-- 9<?php 10 11require dirname(__FILE__).'/connect.inc'; 12 13$drop = "DROP table bind_test"; 14$statement = oci_parse($c, $drop); 15@oci_execute($statement); 16 17$create = "CREATE table bind_test(name VARCHAR(20))"; 18$statement = oci_parse($c, $create); 19oci_execute($statement); 20 21$create_pkg = " 22CREATE OR REPLACE PACKAGE ARRAY_BIND_006_PKG AS 23 TYPE ARRTYPE IS TABLE OF VARCHAR(20) INDEX BY BINARY_INTEGER; 24 PROCEDURE iobind(c1 IN OUT ARRTYPE); 25END ARRAY_BIND_006_PKG;"; 26$statement = oci_parse($c, $create_pkg); 27oci_execute($statement); 28 29$create_pkg_body = " 30CREATE OR REPLACE PACKAGE BODY ARRAY_BIND_006_PKG AS 31 CURSOR CUR IS SELECT name FROM bind_test; 32 PROCEDURE iobind(c1 IN OUT ARRTYPE) IS 33 BEGIN 34 FOR i IN 1..5 LOOP 35 INSERT INTO bind_test VALUES (c1(i)); 36 END LOOP; 37 IF NOT CUR%ISOPEN THEN 38 OPEN CUR; 39 END IF; 40 FOR i IN REVERSE 1..5 LOOP 41 FETCH CUR INTO c1(i); 42 IF CUR%NOTFOUND THEN 43 CLOSE CUR; 44 EXIT; 45 END IF; 46 END LOOP; 47 END iobind; 48END ARRAY_BIND_006_PKG;"; 49$statement = oci_parse($c, $create_pkg_body); 50oci_execute($statement); 51 52$statement = oci_parse($c, "BEGIN array_bind_006_pkg.iobind(:c1); END;"); 53 54$array = array("one", "two", "three", "four", "five"); 55 56oci_bind_array_by_name($statement, ":c1", $array, 5, -1, SQLT_CHR); 57 58oci_execute($statement); 59 60var_dump($array); 61 62echo "Done\n"; 63?> 64--EXPECT-- 65array(5) { 66 [0]=> 67 string(4) "five" 68 [1]=> 69 string(4) "four" 70 [2]=> 71 string(5) "three" 72 [3]=> 73 string(3) "two" 74 [4]=> 75 string(3) "one" 76} 77Done 78
