Return to array_bind_str1.phpt CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / php / ext / oci8 / tests

Annotation of embedaddon/php/ext/oci8/tests/array_bind_str1.phpt, revision 1.1.1.1

1.1       misho       1: --TEST--
                      2: oci_bind_array_by_name() and SQLT_CHR
                      3: --SKIPIF--
                      4: <?php
                      5: $target_dbs = array('oracledb' => true, 'timesten' => false);  // test runs on these DBs
                      6: require(dirname(__FILE__).'/skipif.inc');
                      7: ?> 
                      8: --FILE--
                      9: <?php
                     10: 
                     11: require 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 VARCHAR(20))";
                     18: $statement = oci_parse($c, $create);
                     19: oci_execute($statement);
                     20: 
                     21: $create_pkg = "
                     22: CREATE OR REPLACE PACKAGE ARRAYBINDPKG1 AS 
                     23:   TYPE ARRTYPE IS TABLE OF VARCHAR(20) INDEX BY BINARY_INTEGER; 
                     24:   PROCEDURE iobind(c1 IN OUT ARRTYPE); 
                     25: END ARRAYBINDPKG1;";
                     26: $statement = oci_parse($c, $create_pkg);
                     27: oci_execute($statement);
                     28: 
                     29: $create_pkg_body = "
                     30: CREATE 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;
                     48: END ARRAYBINDPKG1;";
                     49: $statement = oci_parse($c, $create_pkg_body);
                     50: oci_execute($statement);
                     51: 
                     52: $statement = oci_parse($c, "BEGIN ARRAYBINDPKG1.iobind(:c1); END;");
                     53: 
                     54: $array = Array("one", "two", "three", "four", "five");
                     55: 
                     56: oci_bind_array_by_name($statement, ":c1", $array, 10, 20, SQLT_CHR);
                     57: 
                     58: oci_execute($statement);
                     59: 
                     60: var_dump($array);
                     61: 
                     62: echo "Done\n";
                     63: ?>
                     64: --EXPECT--     
                     65: array(5) {
                     66:   [0]=>
                     67:   string(4) "five"
                     68:   [1]=>
                     69:   string(4) "four"
                     70:   [2]=>
                     71:   string(5) "three"
                     72:   [3]=>
                     73:   string(3) "two"
                     74:   [4]=>
                     75:   string(3) "one"
                     76: }
                     77: Done