xref: /PHP-8.1/ext/oci8/tests/array_bind_007.phpt (revision 74859783)
1--TEST--
2oci_bind_array_by_name() and invalid values 7
3--EXTENSIONS--
4oci8
5--FILE--
6<?php
7
8require __DIR__.'/connect.inc';
9
10$drop = "DROP table bind_test";
11$statement = oci_parse($c, $drop);
12@oci_execute($statement);
13
14$create = "CREATE table bind_test(name NUMBER)";
15$statement = oci_parse($c, $create);
16oci_execute($statement);
17
18$create_pkg = "
19CREATE OR REPLACE PACKAGE ARRAY_BIND_007_PKG AS
20  TYPE ARRTYPE IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
21  PROCEDURE iobind(c1 IN OUT ARRTYPE);
22END ARRAY_BIND_007_PKG;";
23$statement = oci_parse($c, $create_pkg);
24oci_execute($statement);
25
26$create_pkg_body = "
27CREATE OR REPLACE PACKAGE BODY ARRAY_BIND_007_PKG AS
28  CURSOR CUR IS SELECT name FROM bind_test;
29  PROCEDURE iobind(c1 IN OUT ARRTYPE) IS
30    BEGIN
31    FOR i IN 1..5 LOOP
32      INSERT INTO bind_test VALUES (c1(i));
33    END LOOP;
34    IF NOT CUR%ISOPEN THEN
35      OPEN CUR;
36    END IF;
37    FOR i IN REVERSE 1..5 LOOP
38      FETCH CUR INTO c1(i);
39      IF CUR%NOTFOUND THEN
40        CLOSE CUR;
41        EXIT;
42      END IF;
43    END LOOP;
44  END iobind;
45END ARRAY_BIND_007_PKG;";
46$statement = oci_parse($c, $create_pkg_body);
47oci_execute($statement);
48
49$statement = oci_parse($c, "BEGIN array_bind_007_pkg.iobind(:c1); END;");
50
51$array = Array(1,2,3,4,5);
52
53oci_bind_array_by_name($statement, ":c1", $array, 5, 5, -1);
54
55oci_execute($statement);
56
57var_dump($array);
58
59echo "Done\n";
60?>
61--EXPECTF--
62Warning: oci_bind_array_by_name(): Unknown or unsupported datatype given: -1 in %s on line %d
63
64Warning: oci_execute(): ORA-%r(01008|57000)%r: %s in %s on line %d
65array(5) {
66  [0]=>
67  int(1)
68  [1]=>
69  int(2)
70  [2]=>
71  int(3)
72  [3]=>
73  int(4)
74  [4]=>
75  int(5)
76}
77Done
78