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