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