# OTL 4.0, Example 64
(otl_stream::describe_select() with a referenced cursor for Oracle8i)

# Example 64 (otl_stream::describe_select() with a referenced cursor for Oracle 8i)

This example demonstrates the otl_stream::describe_select() with a referenced cursor for Oracle 8i. The implementations of both describe_select() and referenced cursors for Oracle 8i require a slightly different use of OCI8 as compared to the use of OCI8 for Oracle 8. Therefore, a new #define was introduced: OTL_ORA8I

## Source Code

    #include <iostream>
    using namespace std;

    #include <stdio.h>

    #define OTL_ORA8I // Compile OTL 4.0/OCI8 in the Oracle 8i environment
    #include <otlv4.h> // include the OTL 4.0 header file

    otl_connect db; // connect object

    void insert()
    // insert rows into table
    {
     otl_stream o(50, // buffer size
                  "insert into test_tab values(:f1<float>,:f2<char[31]>)",
                     // SQL statement
                  db // connect object
                 );
     char tmp[32];

     for(int i=1;i<=100;++i){
      sprintf(tmp,"Name%d",i);
      o<<(float)i<<tmp;
     }
    }

    void select()
    {
     otl_stream i(50, // buffer size
                  "begin "
                  "  open :cur1 for "
                  "   select * from test_tab "
                  "   where f1>=:f<int> and f1<=:f*2; "
                  "end;", // SELECT statement via referenced cursor
                  db, // connect object
                  ":cur1" // referenced cursor placeholder name
                 );
       // create select stream

     otl_column_desc* desc;
     int desc_len;

     i<<4; // Before the child SELECT statement can be described,
           // the PL/SQL master block needs to be executed.
           // Forcing the execution of the blcok by entering its input
           // patameter.

     desc=i.describe_select(desc_len);

     for(int n=0;n<desc_len;++n){
      cout<<"========== COLUMN #"<<n+1<<" ==========="<<endl;
      cout<<"name="<<desc[n].name<<endl;
      cout<<"dbtype="<<desc[n].dbtype<<endl;
      cout<<"otl_var_dbtype="<<desc[n].otl_var_dbtype<<endl;
      cout<<"dbsize="<<desc[n].dbsize<<endl;
      cout<<"scale="<<desc[n].scale<<endl;
      cout<<"prec="<<desc[n].prec<<endl;
      cout<<"nullok="<<desc[n].nullok<<endl;
     }

    }

    int main()
    {
     otl_connect::otl_initialize(); // initialize OCI environment
     try{

      db.rlogon("scott/tiger"); // connect to Oracle

      otl_cursor::direct_exec
       (
        db,
        "drop table test_tab",
        otl_exception::disabled // disable OTL exceptions
       ); // drop table

      otl_cursor::direct_exec
       (
        db,
        "create table test_tab(f1 number, f2 varchar2(30))"
        );  // create table

      insert(); // insert record into table
      select(); // select records from table

     }

     catch(otl_exception& p){ // intercept OTL exceptions
      cerr<<p.msg<<endl; // print out error message
      cerr<<p.stm_text<<endl; // print out SQL that caused the error
      cerr<<p.var_info<<endl; // print out the variable that caused the error
     }

     db.logoff(); // disconnect from Oracle

     return 0;

    }

## Output

    ========== COLUMN #1 ===========
    name=F1
    dbtype=2
    otl_var_dbtype=2
    dbsize=22
    scale=0
    prec=0
    nullok=1
    ========== COLUMN #2 ===========
    name=F2
    dbtype=1
    otl_var_dbtype=1
    dbsize=30
    scale=0
    prec=0
    nullok=1

Examples Contents Go Home

Copyright © 1996, 2007, Sergei Kuchin, email: skuchin@ispwest.com, skuchin@gmail.com
.

Permission to use, copy, modify and redistribute this document for any purpose is hereby granted without fee, provided that the above copyright notice appear in all copies.