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>