Help: Problem Inserting CLOB-data with ODBC

Question

Hello,
I have searched this forum for my problem and found only one similar message, unfortunately without reply. I hope there are some wizards present here today who can help me.
I use Perl and the ODBC driver for 8i (v8.1.5., WinNT) to insert and query data from a tabel with a CLOB. Queries go fine (although you have to increase the buffer size within Perl, but I have a problem to insert values into CLOBS.
I get the message ORA-1704 shown below. Oracle/ODBC seems to think that i want to insert into a VARCHAR2(4000) instead of
a CLOB.
I have included my Perl test-script as well.
Any suggestions are very welcome,
Bart
Error-message:
ORA-01704 string literal too long
Cause: The string literal is longer than 4000 characters.
Action: Use a string literal of at most 4000 characters. Longer values
may only be entered using bind variables.
PERL test-script:
#!perl
# USAGE
# perl clobtest size [bufsize]
# Creates a string of approximately size*1000 bytes, consisting of a line with 'A',
# followed by lines of at most 100 'o's, followed by a line with 'Z'.
# bufsize is optional, if given, specifies the size of the ODBC buffer.
# Default value is 10240
# The string is loaded into a table field, then read from that field, and saved in
# a file. The entire table is deleted on beforehand! so that there is only one
# record in that table. If there are errors, error number and text are displayed on
# the console.
# See the globals below for username, password, host, table end column.
use strict;
use FileHandle;
use Win32::ODBC;
# GLOBALS
# DATABASE
my $ADMIN ='xpa';
my $PWD ='manager';
my $DBMC ='PO8i';
my $table = 'TEST';
my $column = 'OMSCHRIJVING';
my $amount = $ARGV[0];
my $newbufsize = $ARGV[1];
my $bulk;
sub connect_db {
if (!$newbufsize) {
$newbufsize = 10240;
print "Connecting as... $ADMIN to $DBMC\n";
my $dbh = new Win32::ODBC("dsn=$DBMC;UID=$ADMIN;PWD=$PWD");
if (!$dbh) {
print "Hm\n";
die qq(Cannot open ODBC\n);
$dbh->SetMaxBufSize($newbufsize);
my $bufsize = $dbh->GetMaxBufSize();
print "Bufsize = $bufsize\n";
return $dbh;
sub createbulk {
$bulk = "A";
my $bytes = 1000 * $amount;
my $i;
for ($i=0; $i<$bytes-4; $i++) {
if ($i % 100 == 0) {
$bulk .= "\n";
else {
$bulk .= "o";
$bulk .= "\nZ\n";
my $dbh = connect_db();
createbulk();
print "Deleting $table\n";
$dbh->Sql("delete from $table");
print "Inserting into $table -> $column\n";
my $fail = $dbh->Sql("insert into $table ($column) VALUES (\'$bulk\')");
if ($fail) {
print "$dbh->{ErrNum}: $dbh->{ErrText}\n";
exit;
print "Querying from $table -> $column\n";
$fail = $dbh->Sql("select OMSCHRIJVING from TEST");
if ($fail) {
print "$dbh->{ErrNum}: $dbh->{ErrText}\n";
exit;
my @result = ();
while (defined $dbh->FetchRow()) {
my $result = $dbh->Data();
push @result, $result;
print "Writing query result to file \"cltst$amount\"\n";
open TST, ">cltst$amount";
for my $line (@result) {
print TST $line;
close TST;

Answer 1

Hi,
We can't directly insert into a column
which is a clob datatype.To insert data into
the CLOB datatype column we have to write
some PL/SQL progam using the package DBMS_LOB
in oracle.
Read Oracle documentation for more information on DBMS_LOB package.
Hope this will help u.
NEDU.
null