ruby-oci8 2.0.2 → 2.0.3

data/ext/oci8/object.c

@@ -37,6 +37,7 @@ enum {
     ATTR_OCINUMBER,
     ATTR_FLOAT,
     ATTR_INTEGER,
+    ATTR_OCIDATE,
     ATTR_BINARY_DOUBLE,
     ATTR_BINARY_FLOAT,
     ATTR_NAMED_TYPE,
@@ -167,6 +168,8 @@ static VALUE get_attribute(VALUE self, VALUE datatype, VALUE typeinfo, void *dat
         return oci8_make_float((OCINumber *)data, oci8_errhp);
     case ATTR_INTEGER:
         return oci8_make_integer((OCINumber *)data, oci8_errhp);
+    case ATTR_OCIDATE:
+        return oci8_make_ocidate((OCIDate *)data);
     case ATTR_BINARY_DOUBLE:
         return rb_float_new(*(double*)data);
     case ATTR_BINARY_FLOAT:
@@ -309,6 +312,9 @@ static VALUE oci8_named_coll_set_coll_element(VALUE self, VALUE datatype, VALUE
         OCINumberSetZero(oci8_errhp, &cb_data.data.num);
         cb_data.indp = &cb_data.ind;
         break;
+    case ATTR_OCIDATE:
+        cb_data.indp = &cb_data.ind;
+        break;
     case ATTR_BINARY_DOUBLE:
         cb_data.data.dbl = 0.0;
         cb_data.indp = &cb_data.ind;
@@ -370,6 +376,7 @@ static VALUE set_coll_element_func(set_coll_element_cb_data_t *cb_data)
         case ATTR_OCINUMBER:
         case ATTR_FLOAT:
         case ATTR_INTEGER:
+        case ATTR_OCIDATE:
         case ATTR_BINARY_DOUBLE:
         case ATTR_BINARY_FLOAT:
             elem_ptr = &cb_data->data;
@@ -403,6 +410,7 @@ static VALUE set_coll_element_ensure(set_coll_element_cb_data_t *cb_data)
     case ATTR_OCINUMBER:
     case ATTR_FLOAT:
     case ATTR_INTEGER:
+    case ATTR_OCIDATE:
     case ATTR_BINARY_DOUBLE:
     case ATTR_BINARY_FLOAT:
         break;
@@ -441,6 +449,9 @@ static void set_attribute(VALUE self, VALUE datatype, VALUE typeinfo, void *data
     case ATTR_INTEGER:
         oci8_set_integer((OCINumber*)data, val, oci8_errhp);
         break;
+    case ATTR_OCIDATE:
+        oci8_set_ocidate((OCIDate*)data, val);
+        break;
     case ATTR_BINARY_DOUBLE:
         *(double*)data = NUM2DBL(val);
         break;
@@ -592,6 +603,7 @@ void Init_oci_object(VALUE cOCI8)
     rb_define_const(cOCI8TDO, "ATTR_OCINUMBER", INT2FIX(ATTR_OCINUMBER));
     rb_define_const(cOCI8TDO, "ATTR_FLOAT", INT2FIX(ATTR_FLOAT));
     rb_define_const(cOCI8TDO, "ATTR_INTEGER", INT2FIX(ATTR_INTEGER));
+    rb_define_const(cOCI8TDO, "ATTR_OCIDATE", INT2FIX(ATTR_OCIDATE));
     rb_define_const(cOCI8TDO, "ATTR_BINARY_DOUBLE", INT2FIX(ATTR_BINARY_DOUBLE));
     rb_define_const(cOCI8TDO, "ATTR_BINARY_FLOAT", INT2FIX(ATTR_BINARY_FLOAT));
     rb_define_const(cOCI8TDO, "ATTR_NAMED_TYPE", INT2FIX(ATTR_NAMED_TYPE));

data/ext/oci8/oci8.c

@@ -20,25 +20,16 @@ extern rb_pid_t rb_w32_getpid(void);
 #ifndef OCI_ATTR_CLIENT_IDENTIFIER
 #define OCI_ATTR_CLIENT_IDENTIFIER 278
 #endif
+#ifndef OCI_ATTR_MODULE
+#define OCI_ATTR_MODULE 366
+#endif
+#ifndef OCI_ATTR_ACTION
+#define OCI_ATTR_ACTION 367
+#endif
+#ifndef OCI_ATTR_CLIENT_INFO
+#define OCI_ATTR_CLIENT_INFO 368
+#endif
 
-/*
- * Document-class: OCI8
- *
- * The class to access Oracle database server.
- *
- * example:
- *   # output the emp table's content as CSV format.
- *   conn = OCI8.new(username, password)
- *   conn.exec('select * from emp') do |row|
- *     puts row.join(',')
- *   end
- *
- *   # execute PL/SQL block with bind variables.
- *   conn = OCI8.new(username, password)
- *   conn.exec('BEGIN procedure_name(:1, :2); END;',
- *              value_for_the_first_parameter,
- *              value_for_the_second_parameter)
- */
 static VALUE cOCI8;
 
 static void oci8_svcctx_free(oci8_base_t *base)
@@ -108,7 +99,16 @@ static void oci8_do_parse_connect_string(VALUE conn_str, VALUE *user, VALUE *pas
 }
 
 /*
- * Add a private method to test oci8_do_parse_connect_string().
+ * call-seq:
+ *   parse_connect_string(string) -> [username, password, dbname, privilege]
+ *
+ * Extracts +username+, +password+, +dbname+ and +privilege+ from the specified +string+.
+ *
+ * example:
+ *   "scott/tiger" -> ["scott", "tiger", nil, nil],
+ *   "scott/tiger@oradb.example.com" -> ["scott", "tiger", "oradb.example.com", nil]
+ *   "sys/change_on_install as sysdba" -> ["sys", "change_on_install", nil, :SYSDBA]
+ *
  */
 static VALUE oci8_parse_connect_string(VALUE self, VALUE conn_str)
 {
@@ -125,30 +125,68 @@ static VALUE oci8_parse_connect_string(VALUE self, VALUE conn_str)
  * call-seq:
  *   new(username, password, dbname = nil, privilege = nil)
  *
- * connect to Oracle by _username_ and _password_.
- * set _dbname_ nil to connect the local database or TNS name to connect
- * via network. You can use the following syntax for _dbname_ if the client
- * library is Oracle 10g or upper.
+ * Connects to an Oracle database server by +username+ and +password+
+ * at +dbname+ as +privilege+.
+ *
+ * === connecting to the local server
+ *
+ * Set +username+ and +password+ or pass "username/password" as a
+ * single argument.
+ *
+ *   OCI8.new('scott', 'tiger')
+ * or
+ *   OCI8.new('scott/tiger')
+ *
+ * === connecting to a remote server
+ *
+ * Set +username+, +password+ and +dbname+ or pass
+ * "username/password@dbname" as a single argument.
+ *
+ *   OCI8.new('scott', 'tiger', 'orcl.world')
+ * or
+ *   OCI8.new('scott/tiger@orcl.world')
+ *
+ * The +dbname+ is a net service name or an easy connectection
+ * identifier. The former is a name listed in the file tnsnames.ora.
+ * Ask to your DBA if you don't know what it is. The latter has the
+ * syntax as "//host:port/service_name".
+ *
+ *   OCI8.new('scott', 'tiger', '//remote-host:1521/XE')
+ * or
+ *   OCI8.new('scott/tiger@//remote-host:1521/XE')
  *
- *   //HOST_NAME_OR_IP:TNS_LISTENER_PORT/ORACLE_SID
+ * === connecting as a privileged user
  *
- * If you need DBA privilege, use :SYSDBA or :SYSOPER to _privilege_.
+ * Set :SYSDBA or :SYSOPER to +privilege+, otherwise
+ * "username/password as sysdba" or "username/password as sysoper"
+ * as a single argument.
  *
- *   # connect to the local database.
- *   #   sqlplus scott/tiger
- *   conn = OCI8.new("scott", "tiger")
+ *   OCI8.new('sys', 'change_on_install', nil, :SYSDBA)
+ * or
+ *   OCI8.new('sys/change_on_install as sysdba')
  *
- *   # connect via network with TNS name.
- *   # sqlplus scott/tiger@orcl.world
- *   conn = OCI8.new("scott", "tiger", "orcl.world")
+ * === external OS authentication
  *
- *   # connect via network with database's host, port and SID.
- *   #   sqlplus scott/tiger@//localhost:1521/XE
- *   conn = OCI8.new("scott", "tiger", "//localhost:1521/XE")
+ * Set nil to +username+ and +password+, or "/" as a single argument.
  *
- *   # connect as SYSDBA
- *   #   sqlplus 'sys/change_on_install as sysdba'
- *   conn = OCI8.new("sys", "change_on_install", nil, :SYSDBA)
+ *   OCI8.new(nil, nil)
+ * or
+ *   OCI8.new('/')
+ *
+ * To connect to a remote host:
+ *
+ *   OCI8.new(nil, nil, 'dbname')
+ * or
+ *   OCI8.new('/@dbname')
+ *
+ * === proxy authentication
+ *
+ * Enclose end user's username with square brackets and add it at the
+ * end of proxy user's username.
+ *
+ *   OCI8.new('proxy_user_name[end_user_name]', 'proxy_password')
+ * or
+ *   OCI8.new('proxy_user_name[end_user_name]/proxy_password')
  *
  */
 static VALUE oci8_svcctx_initialize(int argc, VALUE *argv, VALUE self)
@@ -254,7 +292,7 @@ static VALUE oci8_svcctx_initialize(int argc, VALUE *argv, VALUE self)
     svcctx->pid = getpid();
     svcctx->is_autocommit = 0;
 #ifdef RUBY_VM
-    svcctx->non_blocking = 0;
+    svcctx->non_blocking = 1;
 #endif
     svcctx->long_read_len = INT2FIX(65535);
     return Qnil;
@@ -265,13 +303,8 @@ static VALUE oci8_svcctx_initialize(int argc, VALUE *argv, VALUE self)
  * call-seq:
  *   logoff
  *
- * disconnect from Oracle. Uncommitted transaction will be
+ * Disconnects from the Oracle server. The uncommitted transaction is
  * rollbacked.
- *
- * example:
- *   conn = OCI8.new("scott", "tiger")
- *   ... do something ...
- *   conn.logoff
  */
 static VALUE oci8_svcctx_logoff(VALUE self)
 {
@@ -312,7 +345,7 @@ static VALUE oci8_svcctx_logoff(VALUE self)
  * call-seq:
  *   parse(sql_text) -> an instance of OCI8::Cursor
  *
- * prepare the SQL statement and return an instance of OCI8::Cursor.
+ * Prepares the SQL statement and returns a new OCI8::Cursor.
  */
 static VALUE oci8_svcctx_parse(VALUE self, VALUE sql)
 {
@@ -328,13 +361,7 @@ static VALUE oci8_svcctx_parse(VALUE self, VALUE sql)
  * call-seq:
  *   commit
  *
- * commit the transaction.
- *
- * example:
- *   conn = OCI8.new("scott", "tiger")
- *   conn.exec("UPDATE emp SET sal = sal * 1.1") # yahoo
- *   conn.commit
- *   conn.logoff
+ * Commits the transaction.
  */
 static VALUE oci8_commit(VALUE self)
 {
@@ -347,13 +374,7 @@ static VALUE oci8_commit(VALUE self)
  * call-seq:
  *   rollback
  *
- * rollback the transaction.
- *
- * example:
- *   conn = OCI8.new("scott", "tiger")
- *   conn.exec("UPDATE emp SET sal = sal * 0.9") # boos
- *   conn.rollback
- *   conn.logoff
+ * Rollbacks the transaction.
  */
 static VALUE oci8_rollback(VALUE self)
 {
@@ -366,8 +387,10 @@ static VALUE oci8_rollback(VALUE self)
  * call-seq:
  *   non_blocking? -> true or false
  *
- * return the status of blocking/non-blocking mode.
- * See non_blocking= also.
+ * Returns +true+ if the connection is in non-blocking mode, +false+
+ * otherwise.
+ *
+ * See also #non_blocking=.
  */
 static VALUE oci8_non_blocking_p(VALUE self)
 {
@@ -389,20 +412,38 @@ static VALUE oci8_non_blocking_p(VALUE self)
  * call-seq:
  *   non_blocking = true or false
  *
- * change the status of blocking/non-blocking mode. true for non-blocking
- * mode. false for blocking mode. The default is blocking.
+ * Sets +true+ to enable non-blocking mode, +false+ otherwise.
+ * The default setting depends on the ruby version and ruby-oci8
+ * version.
+ *
+ * When the connection is in blocking mode (non_blocking = false),
+ * SQL executions block not only the thread, but also the ruby
+ * process. It makes the whole application stop while a SQL execution
+ * needs long time.
+ *
+ * When in non-blocking mode (non_blocking = true), SQL executions
+ * block only the thread. It does't prevent other threads.
+ * A SQL execution which blocks a thread can be canceled by
+ * OCI8#break.
+ *
+ * === ruby 1.9
+ * The default setting is +true+ if the ruby-oci8 version is 2.0.3 or
+ * upper, +false+ otherwise.
+ *
+ * Ruby-oci8 makes the connection non-blocking by releasing ruby
+ * interpreter's GVL (Global VM Lock or Giant VM Lock) while OCI
+ * functions which may need more than one network round trips are in
+ * execution.
  *
- * When blocking mode, long-time SQL execution blocks the ruby process
- * itself even though multithread application because ruby's thread is
- * not native one.
+ * === ruby 1.8
+ * The default setting is +false+.
  *
- * when non-blocking mode, long-time SQL execution doesn't block the ruby
- * process. It only blocks the thread which executing the SQL statement.
- * But each SQL will need a bit more time because it checks the status by
- * polling.
+ * Ruby-oci8 makes the connection non-blocking by polling the return
+ * values of OCI functions. When an OCI function returns
+ * OCI_STILL_EXECUTING, the thread sleeps for 10 milli seconds to make
+ * a time for other threads to run. The sleep time is doubled up to
+ * 640 milli seconds as the function returns the same value.
  *
- * You can cancel an executing SQL by using OCI8#break from another thread.
- * The canceled thread raises OCIBreak exception.
  */
 static VALUE oci8_set_non_blocking(VALUE self, VALUE val)
 {
@@ -428,8 +469,8 @@ static VALUE oci8_set_non_blocking(VALUE self, VALUE val)
  * call-seq:
  *   autocommit? -> true or false
  *
- * return the state of the autocommit mode. The default value is
- * false. If true, the transaction is committed on every SQL executions.
+ * Returns +true+ if the connection is in autocommit mode, +false+
+ * otherwise. The default value is +false+.
  */
 static VALUE oci8_autocommit_p(VALUE self)
 {
@@ -441,13 +482,7 @@ static VALUE oci8_autocommit_p(VALUE self)
  * call-seq:
  *   autocommit = true or false
  *
- * change the status of the autocommit mode.
- *
- * example:
- *   conn = OCI8.new("scott", "tiger")
- *   conn.autocommit = true
- *   ... do something ...
- *   conn.logoff
+ * Sets the autocommit mode. The default value is +false+.
  */
 static VALUE oci8_set_autocommit(VALUE self, VALUE val)
 {
@@ -458,9 +493,15 @@ static VALUE oci8_set_autocommit(VALUE self, VALUE val)
 
 /*
  * call-seq:
- *   long_read_len -> aFixnum   (new in 0.1.16)
+ *   long_read_len -> fixnum
+ *
+ * Gets the maximum length in bytes to fetch a LONG or LONG RAW
+ * column. The default value is 65535.
  *
- * get the maximum fetch size for a LONG and LONG RAW column.
+ * If the actual data length is longer than long_read_len,
+ * "ORA-01406: fetched column value was truncated" is raised.
+ *
+ * Note: long_read_len is also used for XMLTYPE data type in 2.0.
  */
 static VALUE oci8_long_read_len(VALUE self)
 {
@@ -470,16 +511,13 @@ static VALUE oci8_long_read_len(VALUE self)
 
 /*
  * call-seq:
- *   long_read_len = aFixnum   (new in 0.1.16)
+ *   long_read_len = fixnum
  *
- * change the maximum fetch size for a LONG and LONG RAW column.
- * The default value is 65535.
+ * Sets the maximum length in bytes to fetch a LONG or LONG RAW
+ * column.
+ *
+ * See also #long_read_len
  *
- * example:
- *   conn = OCI8.new('scott', 'tiger'
- *   conn.long_read_len = 1000000
- *   cursor = con.exec('select content from articles where id = :1', 23478)
- *   row = cursor.fetch
  */
 static VALUE oci8_set_long_read_len(VALUE self, VALUE val)
 {
@@ -493,8 +531,9 @@ static VALUE oci8_set_long_read_len(VALUE self, VALUE val)
  * call-seq:
  *   break
  *
- * cancel an executing SQL in an other thread.
- * See non_blocking= also.
+ * Cancels the executing SQL.
+ *
+ * See also #non_blocking=.
  */
 static VALUE oci8_break(VALUE self)
 {
@@ -517,10 +556,14 @@ static VALUE oci8_break(VALUE self)
 
 /*
  * call-seq:
- *   prefetch_rows = aFixnum   (new in 0.1.14)
+ *   prefetch_rows = number
+ *
+ * Sets the prefetch rows size. The default value is one.
+ * When a select statement is executed, the OCI library allocate
+ * prefetch buffer to reduce the number of network round trips by
+ * retrieving specified number of rows in one round trip.
  *
- * change the prefetch rows size. This reduces network round trips
- * when fetching multiple rows.
+ * Note: Active record adaptors set 100 by default.
  */
 static VALUE oci8_set_prefetch_rows(VALUE self, VALUE val)
 {
@@ -530,8 +573,13 @@ static VALUE oci8_set_prefetch_rows(VALUE self, VALUE val)
 
 /*
  * call-seq:
- *   oracle_server_vernum -> Oracle server version number
+ *   oracle_server_vernum -> an integer
  *
+ * <b>(new in 2.0.1)</b>
+ *
+ * Returns a numerical format of the Oracle server version.
+ *
+ * See also: #oracle_server_version
  */
 static VALUE oci8_oracle_server_vernum(VALUE self)
 {
@@ -564,16 +612,20 @@ static VALUE oci8_oracle_server_vernum(VALUE self)
  * call-seq:
  *   ping -> true or false
  *
- * Verifies that the Oracle connection is alive.
+ * <b>(new in 2.0.2)</b>
+ *
+ * Makes a round trip call to the server to confirm that the connection and
+ * the server are active.
  *
  * OCI8#ping also can be used to flush all the pending OCI client-side calls
- * to the server if any exist. See: OCI8#client_identifier=.
+ * to the server if any exist.
  *
- * For Oracle 10.2 client or upper, a dummy round trip call is made by a newly
- * added OCI function in Oracle 10.2.
+ * === Oracle 10.2 client or upper
+ * A dummy round trip call is made by a newly added OCI function
+ * OCIPing[http://download.oracle.com/docs/cd/B19306_01/appdev.102/b14250/oci16msc007.htm#sthref3540] in Oracle 10.2.
  *
- * For Oracle 10.1 client or lower, a simple PL/SQL block "BEGIN NULL; END;"
- * is executed to make a round trip call.
+ * === Oracle 10.1 client or lower
+ * A simple PL/SQL block "BEGIN NULL; END;" is executed to make a round trip call.
  */
 static VALUE oci8_ping(VALUE self)
 {
@@ -592,23 +644,36 @@ static VALUE oci8_ping(VALUE self)
 
 /*
  * call-seq:
- *   client_identifier = string
+ *   client_identifier = string or nil
+ *
+ * <b>(new in 2.0.3)</b>
+ *
+ * Sets the client ID. This information is stored in the V$SESSION
+ * view.
+ *
+ * === Oracle 9i client or upper
+ *
+ * This doesn't perform network round trips. The change is reflected
+ * to the server by the next round trip such as OCI8#exec, OCI8#ping,
+ * etc.
+ *
+ * === Oracle 8i client or lower
  *
- * Sets the CLIENT_IDENTIFIER column in the V$SESSION dictionary view.
- * This can be up to 64 bytes long. The first character should not be ':'.
+ * This executes the following PL/SQL block internally.
+ * The change is reflected immediately by a network round trip.
  *
- * If the Oracle client is 9i or upper, the change is not reflected to the
- * server immediately. It is postponed until the next round trip call for
- * example OCI8#exec, OCI8#ping, etc.
+ *   BEGIN
+ *     DBMS_SESSION.SET_IDENTIFIER(:client_id);
+ *   END;
+ *
+ * See {Oracle Manual: Oracle Database PL/SQL Packages and Types Reference}[http://download.oracle.com/docs/cd/B19306_01/appdev.102/b14258/d_sessio.htm#i996935]
  *
- * This call is equivalent to "DBMS_SESSION.SET_IDENTIFIER(client_id VARCHAR2);"
- * and available when the server is Oracle 9i or upper.
  */
 static VALUE oci8_set_client_identifier(VALUE self, VALUE val)
 {
-    OCISession *sess = oci8_get_oci_session(self);
     char *ptr;
     ub4 size;
+    int use_attr_set = 1;
 
     if (!NIL_P(val)) {
         OCI8SafeStringValue(val);
@@ -618,11 +683,19 @@ static VALUE oci8_set_client_identifier(VALUE self, VALUE val)
         ptr = "";
         size = 0;
     }
-    if (oracle_client_version >= 900) {
+
+    if (oracle_client_version < ORAVER_9_0) {
+        use_attr_set = 0;
+    } else if (oracle_client_version < ORAVERNUM(9, 2, 0, 3, 0) && size == 0) {
+        /* Workaround for Bug 2449486 */
+        use_attr_set = 0;
+    }
+
+    if (use_attr_set) {
         if (size > 0 && ptr[0] == ':') {
             rb_raise(rb_eArgError, "client identifier should not start with ':'.");
         }
-        oci_lc(OCIAttrSet(sess, OCI_HTYPE_SESSION, ptr,
+        oci_lc(OCIAttrSet(oci8_get_oci_session(self), OCI_HTYPE_SESSION, ptr,
                           size, OCI_ATTR_CLIENT_IDENTIFIER, oci8_errhp));
     } else {
         oci8_exec_sql_var_t bind_vars[1];
@@ -634,13 +707,225 @@ static VALUE oci8_set_client_identifier(VALUE self, VALUE val)
         bind_vars[0].indp = NULL;
         bind_vars[0].alenp = NULL;
 
-        oci8_exec_sql(oci8_get_svcctx(self), "BEGIN DBMS_SESSION.SET_IDENTIFIER(:client_id); END;", 0, NULL, 1, bind_vars, 1);
+        oci8_exec_sql(oci8_get_svcctx(self),
+                      "BEGIN\n"
+                      "  DBMS_SESSION.SET_IDENTIFIER(:client_id);\n"
+                      "END;\n", 0, NULL, 1, bind_vars, 1);
+    }
+    return val;
+}
+
+/*
+ * call-seq:
+ *   module = string or nil
+ *
+ * <b>(new in 2.0.3)</b>
+ *
+ * Sets the name of the current module. This information is
+ * stored in the V$SESSION view and is also stored in the V$SQL view
+ * and the V$SQLAREA view when a SQL statement is executed and the SQL
+ * statement is first parsed in the Oracle server.
+ *
+ * === Oracle 10g client or upper
+ *
+ * This doesn't perform network round trips. The change is reflected
+ * to the server by the next round trip such as OCI8#exec, OCI8#ping,
+ * etc.
+ *
+ * === Oracle 9i client or lower
+ *
+ * This executes the following PL/SQL block internally.
+ * The change is reflected immediately by a network round trip.
+ *
+ *   DECLARE
+ *     action VARCHAR2(32);
+ *   BEGIN
+ *     -- retrieve action name.
+ *     SELECT SYS_CONTEXT('USERENV','ACTION') INTO action FROM DUAL;
+ *     -- change module name without modifying the action name.
+ *     DBMS_APPLICATION_INFO.SET_MODULE(:module, action);
+ *   END;
+ *
+ * See {Oracle Manual: Oracle Database PL/SQL Packages and Types Reference}[http://download.oracle.com/docs/cd/B19306_01/appdev.102/b14258/d_appinf.htm#i999254]
+ *
+ */
+static VALUE oci8_set_module(VALUE self, VALUE val)
+{
+    char *ptr;
+    ub4 size;
+
+    if (!NIL_P(val)) {
+        OCI8SafeStringValue(val);
+        ptr = RSTRING_PTR(val);
+        size = RSTRING_LEN(val);
+    } else {
+        ptr = "";
+        size = 0;
+    }
+    if (oracle_client_version >= ORAVER_10_1) {
+        /* Oracle 10g or upper */
+        oci_lc(OCIAttrSet(oci8_get_oci_session(self), OCI_HTYPE_SESSION, ptr,
+                          size, OCI_ATTR_MODULE, oci8_errhp));
+    } else {
+        /* Oracle 9i or lower */
+        oci8_exec_sql_var_t bind_vars[1];
+
+        /* :module */
+        bind_vars[0].valuep = ptr;
+        bind_vars[0].value_sz = size;
+        bind_vars[0].dty = SQLT_CHR;
+        bind_vars[0].indp = NULL;
+        bind_vars[0].alenp = NULL;
+
+        oci8_exec_sql(oci8_get_svcctx(self),
+                      "DECLARE\n"
+                      "  action VARCHAR2(32);\n"
+                      "BEGIN\n"
+                      "  SELECT SYS_CONTEXT('USERENV','ACTION') INTO action FROM DUAL;\n"
+                      "  DBMS_APPLICATION_INFO.SET_MODULE(:module, action);\n"
+                      "END;\n", 0, NULL, 1, bind_vars, 1);
+    }
+    return self;
+}
+
+/*
+ * call-seq:
+ *   action = string or nil
+ *
+ * <b>(new in 2.0.3)</b>
+ *
+ * Sets the name of the current action within the current module.
+ * This information is stored in the V$SESSION view and is also
+ * stored in the V$SQL view and the V$SQLAREA view when a SQL
+ * statement is executed and the SQL statement is first parsed
+ * in the Oracle server.
+ *
+ * === Oracle 10g client or upper
+ *
+ * This doesn't perform network round trips. The change is reflected
+ * to the server by the next round trip such as OCI8#exec, OCI8#ping,
+ * etc.
+ *
+ * === Oracle 9i client or lower
+ *
+ * This executes the following PL/SQL block internally.
+ * The change is reflected immediately by a network round trip.
+ *
+ *   BEGIN
+ *     DBMS_APPLICATION_INFO.SET_ACTION(:action);
+ *   END;
+ *
+ * See {Oracle Manual: Oracle Database PL/SQL Packages and Types Reference}[http://download.oracle.com/docs/cd/B19306_01/appdev.102/b14258/d_appinf.htm#i999254]
+ *
+ */
+static VALUE oci8_set_action(VALUE self, VALUE val)
+{
+    char *ptr;
+    ub4 size;
+
+    if (!NIL_P(val)) {
+        OCI8SafeStringValue(val);
+        ptr = RSTRING_PTR(val);
+        size = RSTRING_LEN(val);
+    } else {
+        ptr = "";
+        size = 0;
+    }
+    if (oracle_client_version >= ORAVER_10_1) {
+        /* Oracle 10g or upper */
+        oci_lc(OCIAttrSet(oci8_get_oci_session(self), OCI_HTYPE_SESSION, ptr,
+                          size, OCI_ATTR_ACTION, oci8_errhp));
+    } else {
+        /* Oracle 9i or lower */
+        oci8_exec_sql_var_t bind_vars[1];
+
+        /* :action */
+        bind_vars[0].valuep = ptr;
+        bind_vars[0].value_sz = size;
+        bind_vars[0].dty = SQLT_CHR;
+        bind_vars[0].indp = NULL;
+        bind_vars[0].alenp = NULL;
+
+        oci8_exec_sql(oci8_get_svcctx(self),
+                      "BEGIN\n"
+                      "  DBMS_APPLICATION_INFO.SET_ACTION(:action);\n"
+                      "END;\n", 0, NULL, 1, bind_vars, 1);
+    }
+    return val;
+}
+
+/*
+ * call-seq:
+ *   client_info = string or nil
+ *
+ * <b>(new in 2.0.3)</b>
+ *
+ * Sets additional information about the client application.
+ * This information is stored in the V$SESSION view.
+ *
+ * === Oracle 10g client or upper
+ *
+ * This doesn't perform network round trips. The change is reflected
+ * to the server by the next round trip such as OCI8#exec, OCI8#ping,
+ * etc.
+ *
+ * === Oracle 9i client or lower
+ *
+ * This executes the following PL/SQL block internally.
+ * The change is reflected immediately by a network round trip.
+ *
+ *   BEGIN
+ *     DBMS_APPLICATION_INFO.SET_CLIENT_INFO(:client_info);
+ *   END;
+ *
+ * See {Oracle Manual: Oracle Database PL/SQL Packages and Types Reference}[http://download.oracle.com/docs/cd/B19306_01/appdev.102/b14258/d_appinf.htm#CHEJCFGG]
+ */
+static VALUE oci8_set_client_info(VALUE self, VALUE val)
+{
+    char *ptr;
+    ub4 size;
+
+    if (!NIL_P(val)) {
+        OCI8SafeStringValue(val);
+        ptr = RSTRING_PTR(val);
+        size = RSTRING_LEN(val);
+    } else {
+        ptr = "";
+        size = 0;
+    }
+    if (oracle_client_version >= ORAVER_10_1) {
+        /* Oracle 10g or upper */
+        oci_lc(OCIAttrSet(oci8_get_oci_session(self), OCI_HTYPE_SESSION, ptr,
+                          size, OCI_ATTR_CLIENT_INFO, oci8_errhp));
+    } else {
+        /* Oracle 9i or lower */
+        oci8_exec_sql_var_t bind_vars[1];
+
+        /* :client_info */
+        bind_vars[0].valuep = ptr;
+        bind_vars[0].value_sz = size;
+        bind_vars[0].dty = SQLT_CHR;
+        bind_vars[0].indp = NULL;
+        bind_vars[0].alenp = NULL;
+
+        oci8_exec_sql(oci8_get_svcctx(self), 
+                      "BEGIN\n"
+                      "  DBMS_APPLICATION_INFO.SET_CLIENT_INFO(:client_info);\n"
+                      "END;\n", 0, NULL, 1, bind_vars, 1);
     }
     return val;
 }
 
 VALUE Init_oci8(void)
 {
+#if 0
+    /*
+     * OCIHandle is the abstract base class for all OCI handles and
+     * descriptors which are opaque data types of Oracle Call Interface.
+     */
+    oci8_cOCIHandle = rb_define_class("OCIHandle", rb_cObject);
+    cOCI8 = rb_define_class("OCI8", oci8_cOCIHandle);
+#endif
     cOCI8 = oci8_define_class("OCI8", &oci8_svcctx_class);
 
     oracle_client_vernum = INT2FIX(oracle_client_version);
@@ -674,6 +959,9 @@ VALUE Init_oci8(void)
     rb_define_private_method(cOCI8, "oracle_server_vernum", oci8_oracle_server_vernum, 0);
     rb_define_method(cOCI8, "ping", oci8_ping, 0);
     rb_define_method(cOCI8, "client_identifier=", oci8_set_client_identifier, 1);
+    rb_define_method(cOCI8, "module=", oci8_set_module, 1);
+    rb_define_method(cOCI8, "action=", oci8_set_action, 1);
+    rb_define_method(cOCI8, "client_info=", oci8_set_client_info, 1);
     return cOCI8;
 }