[Perl]Return values of COLUMN_SIZE and DECIMAL_DIGITS are not correct

Details

  • Type: Bug Bug
  • Status: Closed Closed
  • Priority: Minor Minor
  • Resolution: Fixed
  • Affects Version/s: None
  • Fix Version/s: Perl-8.4.1
  • Component/s: Perl
  • Labels:
    None

Description

Test Build:CUBRID 2008 R4.0 (8.4.0.2019) (64bit release build for linux_gnu)
OS: Linux 64
Description: Return values of COLUMN_SIZE and DECIMAL_DIGITS are not correct

Repro Steps
perl column_02.pl

statements in column_02.pl:
$dbh -> do("create table tb (dt date, tm time, dtt datetime, dc decimal(15,3),vc varchar(15));")
my $sth=$dbh->column_info(undef,undef,'tb','%')

while(my $hash_ref=$sth->fetchrow_hashref()){
print "COLUMN_NAME: $hash_ref->{COLUMN_NAME}\n";
print "COLUMN_SIZE: $hash_ref->{COLUMN_SIZE}\n";
print "SQL_DATA_TYPE: $hash_ref->{SQL_DATA_TYPE}\n";
print "DECIMAL_DIGITS: $hash_ref->{DECIMAL_DIGITS}\n";
print "\n\n";

}

Actual result:

COLUMN_NAME: vc
COLUMN_SIZE: 
SQL_DATA_TYPE: STRING(15)
DECIMAL_DIGITS: 


COLUMN_NAME: dc
COLUMN_SIZE: 
SQL_DATA_TYPE: NUMERIC(15,3)
DECIMAL_DIGITS: 


COLUMN_NAME: dt
COLUMN_SIZE: 
SQL_DATA_TYPE: DATE
DECIMAL_DIGITS: 


COLUMN_NAME: dtt
COLUMN_SIZE: 
SQL_DATA_TYPE: DATETIME
DECIMAL_DIGITS: 


COLUMN_NAME: tm
COLUMN_SIZE: 
SQL_DATA_TYPE: TIME
DECIMAL_DIGITS:

Expect result:

COLUMN_NAME: vc
COLUMN_SIZE: 15
SQL_DATA_TYPE: 12
DECIMAL_DIGITS: 


COLUMN_NAME: dc
COLUMN_SIZE: 15
SQL_DATA_TYPE: 3
DECIMAL_DIGITS: 3


COLUMN_NAME: dt
COLUMN_SIZE: 10
SQL_DATA_TYPE: 91
DECIMAL_DIGITS: 0


COLUMN_NAME: dtt
COLUMN_SIZE: 19
SQL_DATA_TYPE: 9
DECIMAL_DIGITS: 0


COLUMN_NAME: tm
COLUMN_SIZE: 8
SQL_DATA_TYPE: 92
DECIMAL_DIGITS: 0
  1. File
    APIS-67_FIX01.creview
    17/Jan/12 2:00 AM
    26 kB
    张慧
  2. File
    APIS-67_FIX02.creview
    18/Jan/12 11:29 PM
    25 kB
    张慧
  3. File
    APIS-67_FIX03.creview
    19/Jan/12 2:11 AM
    25 kB
    张慧
  4. File
    column_02.pl
    30/Dec/11 1:00 AM
    1.0 kB
    ZouJing

Activity

Ascending order - Click to sort in descending order
Hide
Permalink
张慧 added a comment -

The solution of this problem is same with APIS-64

Commit rev: 333

Show
张慧 added a comment - The solution of this problem is same with APIS-64 Commit rev: 333
Hide
Permalink
ZouJing added a comment -

Comments:
1.COLUMN_SIZE is null for the int, monetary and smallint type.
2.DECIMAL_DIGITS value is not corret.

Statements :

$dbh -> do("create table atype2(nm NUMERIC(9,4), it int, sit smallint, mn monetary,db double );") or die $dbh->errstr . "  :create error\n"
;

my $sth=$dbh->column_info(undef,undef,'atype2','%') or die "column_info error: $dbh->errstr";
while(my $hash_ref=$sth->fetchrow_hashref()){
   print "COLUMN_NAME: $hash_ref->{COLUMN_NAME}\n";
   print "COLUMN_SIZE: $hash_ref->{COLUMN_SIZE}\n";
   print "SQL_DATA_TYPE: $hash_ref->{SQL_DATA_TYPE}\n";
   print "DECIMAL_DIGITS: $hash_ref->{DECIMAL_DIGITS}\n";
   print "\n\n";

}

Actual result:

COLUMN_NAME: mn
COLUMN_SIZE: 
SQL_DATA_TYPE: 12
DECIMAL_DIGITS: 


COLUMN_NAME: sit
COLUMN_SIZE: 
SQL_DATA_TYPE: 12
DECIMAL_DIGITS: 


COLUMN_NAME: db
COLUMN_SIZE: 28
SQL_DATA_TYPE: 8
DECIMAL_DIGITS: 


COLUMN_NAME: it
COLUMN_SIZE: 
SQL_DATA_TYPE: 12
DECIMAL_DIGITS: 


COLUMN_NAME: nm
COLUMN_SIZE: 38
SQL_DATA_TYPE: 2
DECIMAL_DIGITS: 9
Show
ZouJing added a comment - Comments: 1.COLUMN_SIZE is null for the int, monetary and smallint type. 2.DECIMAL_DIGITS value is not corret. Statements : $dbh -> do("create table atype2(nm NUMERIC(9,4), it int, sit smallint, mn monetary,db double );") or die $dbh->errstr . " :create error\n" ; my $sth=$dbh->column_info(undef,undef,'atype2','%') or die "column_info error: $dbh->errstr"; while(my $hash_ref=$sth->fetchrow_hashref()){ print "COLUMN_NAME: $hash_ref->{COLUMN_NAME}\n"; print "COLUMN_SIZE: $hash_ref->{COLUMN_SIZE}\n"; print "SQL_DATA_TYPE: $hash_ref->{SQL_DATA_TYPE}\n"; print "DECIMAL_DIGITS: $hash_ref->{DECIMAL_DIGITS}\n"; print "\n\n"; } Actual result: COLUMN_NAME: mn COLUMN_SIZE: SQL_DATA_TYPE: 12 DECIMAL_DIGITS: COLUMN_NAME: sit COLUMN_SIZE: SQL_DATA_TYPE: 12 DECIMAL_DIGITS: COLUMN_NAME: db COLUMN_SIZE: 28 SQL_DATA_TYPE: 8 DECIMAL_DIGITS: COLUMN_NAME: it COLUMN_SIZE: SQL_DATA_TYPE: 12 DECIMAL_DIGITS: COLUMN_NAME: nm COLUMN_SIZE: 38 SQL_DATA_TYPE: 2 DECIMAL_DIGITS: 9
Hide
Permalink
张慧 added a comment -

Commit rev: 360

Show
张慧 added a comment - Commit rev: 360
Hide
Permalink
张慧 added a comment -

Commit rev: 365

Show
张慧 added a comment - Commit rev: 365
Hide
Permalink
张慧 added a comment -

Commit rev: 368

Show
张慧 added a comment - Commit rev: 368
Hide
Permalink
ZouJing added a comment -

Test build : CUBRID 2008 R4.0 (8.4.0.2019)
OS: Linux 64bit
Test Result: PASS
so i close it

Show
ZouJing added a comment - Test build : CUBRID 2008 R4.0 (8.4.0.2019) OS: Linux 64bit Test Result: PASS so i close it

People

  • Assignee:
    ZouJing
    Reporter:
    ZouJing
Vote (0)
Watch (0)

Dates

  • Created:
    Updated:
    Resolved: