Perl Script : Fetching CLOB Columns

Connectivity
Enthusiast

Perl Script : Fetching CLOB Columns

Hi All,

I have a perl script that calls a sp in TD. The SP returns rows where each row has 4 clob columns.

I am using the following code scrippet to fetch the row and facing issue.

my $mod_query = $retrow->{mod_query1}." " .$retrow->{mod_query2}." " .$retrow->{mod_query3}." " .$retrow->{mod_query4};

The perl throws the following error :

DBD::ODBC::st fetchrow_hashref failed: st_fetch/SQLFetch (long truncated DBI attribute LongTruncOk not set and/or LongReadLen too small) (SQL-HY000) [state was HY000 now 01004]
[Teradata][ODBC Teradata Driver] Unable to get catalog string. (SQL-01004)
[Teradata][ODBC Teradata Driver] Unable to get catalog string. (SQL-01004)
[Teradata][ODBC Teradata Driver] Unable to get catalog string. (SQL-01004)
[Teradata][ODBC Teradata Driver] Unable to get catalog string. (SQL-01004)

The same code works fine where the variables are varchar ,etc.

Appreciate any help in this regard.

1 REPLY
Teradata Employee

Re: Perl Script : Fetching CLOB Columns

set NLSPATH to see actual error message.

export NLSPATH=/opt/teradata/client/<version>/<odbc_32|odbc_64>/msg/%N.cat