xref: /PHP-8.3/ext/oci8/tests/array_bind_008.phpt (revision a53e5617)
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