1--TEST-- 2oci_bind_array_by_name() and SQLT_INT 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 NUMBER)"; 18$statement = oci_parse($c, $create); 19oci_execute($statement); 20 21$create_pkg = " 22CREATE OR REPLACE PACKAGE ARRAYBINDPKG1 AS 23 TYPE ARRTYPE IS TABLE OF NUMBER INDEX BY BINARY_INTEGER; 24 PROCEDURE iobind(c1 IN OUT ARRTYPE); 25END ARRAYBINDPKG1;"; 26$statement = oci_parse($c, $create_pkg); 27oci_execute($statement); 28 29$create_pkg_body = " 30CREATE OR REPLACE PACKAGE BODY ARRAYBINDPKG1 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 ARRAYBINDPKG1;"; 49$statement = oci_parse($c, $create_pkg_body); 50oci_execute($statement); 51 52$statement = oci_parse($c, "BEGIN ARRAYBINDPKG1.iobind(:c1); END;"); 53 54$array = Array(1,2,3,4,5); 55 56oci_bind_array_by_name($statement, ":c1", $array, 5, 5, SQLT_NUM); 57 58oci_execute($statement); 59 60var_dump($array); 61 62echo "Done\n"; 63?> 64--EXPECT-- 65array(5) { 66 [0]=> 67 int(5) 68 [1]=> 69 int(4) 70 [2]=> 71 int(3) 72 [3]=> 73 int(2) 74 [4]=> 75 int(1) 76} 77Done 78
