1--TEST-- 2oci_bind_array_by_name() and invalid values 8 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_008_PKG AS 25 TYPE ARRTYPE IS TABLE OF NUMBER INDEX BY BINARY_INTEGER; 26 PROCEDURE iobind(c1 IN OUT ARRTYPE); 27END ARRAY_BIND_008_PKG;"; 28$statement = oci_parse($c, $create_pkg); 29oci_execute($statement); 30 31$create_pkg_body = " 32CREATE OR REPLACE PACKAGE BODY ARRAY_BIND_008_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_008_PKG;"; 51$statement = oci_parse($c, $create_pkg_body); 52oci_execute($statement); 53 54$statement = oci_parse($c, "BEGIN array_bind_008_pkg.iobind(:c1); END;"); 55 56$array = Array(1,2,3,4,5); 57 58oci_bind_array_by_name($statement, ":c1", $array, 5, 5, SQLT_CHR); 59 60oci_execute($statement); 61 62var_dump($array); 63 64echo "Done\n"; 65?> 66--EXPECTF-- 67Warning: oci_execute(): ORA-06550: line %d, column %d: 68PLS-00418: %s 69ORA-06550: %s 70PL/SQL: %s 71array(5) { 72 [0]=> 73 string(1) "1" 74 [1]=> 75 string(1) "2" 76 [2]=> 77 string(1) "3" 78 [3]=> 79 string(1) "4" 80 [4]=> 81 string(1) "5" 82} 83Done 84
