Annotation of embedaddon/php/ext/oci8/tests/drcp_functions.inc, revision 1.1

1.1     ! misho       1: <?php
        !             2: 
        !             3: /* This file contains functions required by the DRCP tests */
        !             4: 
        !             5: function drcp_create_table($conn)
        !             6: {
        !             7:        $create_sql = "CREATE TABLE DRCPTEST (id NUMBER, name VARCHAR2(10), dept VARCHAR2(10))";
        !             8:        $statement = oci_parse($conn, $create_sql);
        !             9:        oci_execute($statement);
        !            10:        
        !            11:        $id_values = array(100,101,102,103,104,105,106,107,108);
        !            12:        $name_values = array("WIILIAMS","JOHN","SMITH","JONES","ADAMS","ROBERT",
        !            13:                                                 "BILL","LAWSON","MARY");
        !            14:        $dept_values = array("ACCOUNTS","HR","HR","ADMIN","ACCOUNTS","HR",
        !            15:                                                 "ACCOUNTS","HR","ACCOUNTS");
        !            16:        for($i=0; $i<8; $i++) {
        !            17:                $insert = "INSERT INTO DRCPTEST VALUES(".$id_values[$i].",'". $name_values[$i]."','".$dept_values[$i]."')";
        !            18:                $s = oci_parse($conn, $insert);
        !            19:                oci_execute($s);
        !            20:        }       
        !            21: }
        !            22: 
        !            23: function drcp_drop_table($conn)
        !            24: {
        !            25:        $ora_sql = "DROP TABLE DRCPTEST";
        !            26:        $statement = oci_parse($conn, $ora_sql);
        !            27:        oci_execute($statement);
        !            28: }
        !            29: 
        !            30: function drcp_update_table($conn)
        !            31: {
        !            32:        $update_stmt ="Update drcptest set dept ='NEWDEPT' where id = 105";
        !            33:        $s1 = oci_parse($conn,$update_stmt);
        !            34:        oci_execute($s1,OCI_DEFAULT);
        !            35:        echo "Update done-- DEPT value has been set to NEWDEPT\n";
        !            36: }
        !            37: 
        !            38: function drcp_select_value($conn)
        !            39: {
        !            40:        $sel_stmt="select dept from drcptest where id=105";
        !            41:        $s2 = oci_parse($conn,$sel_stmt);
        !            42:        oci_execute($s2,OCI_DEFAULT);
        !            43:        while(oci_fetch($s2)) {
        !            44:                echo "The value of DEPT for id 105 is ".oci_result($s2,1)."\n";
        !            45:        }
        !            46: }
        !            47: 
        !            48: function drcp_select_packagevar($conn)
        !            49: {
        !            50:        $sel_stmt="select drcp_test_package.f1 as f1 from dual";
        !            51:        $s2 = oci_parse($conn, $sel_stmt);
        !            52:        oci_define_by_name($s2,'f1',$ret_num);
        !            53:        oci_execute($s2);
        !            54:        while(oci_fetch($s2)) {
        !            55:                echo " The value of the package variable is ".oci_result($s2,1)."\n";
        !            56:        }
        !            57: }
        !            58: 
        !            59: 
        !            60: function drcp_set_packagevar($conn,$num)
        !            61: {
        !            62:        $set_stmt = "begin drcp_test_package.p1($num); end;";
        !            63:        $s1 = oci_parse($conn,$set_stmt);
        !            64:        oci_execute($s1);
        !            65:        echo " Package variable value set to " .$num."\n";
        !            66: }
        !            67: 
        !            68: function drcp_create_package($c)
        !            69: {
        !            70:        $create_package_stmt = "create or replace package drcp_test_package as
        !            71:                        var int :=0;
        !            72:                        procedure p1(var1 int);
        !            73:                        function f1 return number;
        !            74:                        end;";
        !            75:        $s1 = oci_parse($c, $create_package_stmt);
        !            76:        oci_execute($s1);
        !            77:        
        !            78:        $package_body = "create or replace package body drcp_test_package as
        !            79:                procedure p1(var1 int) is
        !            80:                begin
        !            81:                var :=var1;
        !            82:                end;    
        !            83:                function f1 return number is
        !            84:                begin
        !            85:                return drcp_test_package.var;
        !            86:                end;
        !            87:                end;";
        !            88: 
        !            89:        $s2 = oci_parse($c, $package_body);
        !            90:        oci_execute($s2);
        !            91: }
        !            92: 
        !            93: ?>

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>