sybperl-l Archive

From: Michael Peppler <michael dot peppler at gmail dot com>
Subject: Fwd: DBlib to CTlib migration question
Date: Apr 12 2005 11:09AM

---------- Forwarded message ----------
From: Debkumar Chakraverty 
Date: Apr 12, 2005 9:57 AM
Subject: DBlib to CTlib migration question
To: mpeppler@peppler.org


 
Hi,
 
I am migrating DBlib calls to CTlib & am facing the following concern... 
There is a call to "dbretstatus()" for which i am not able to get the
corresponding call in CTlib as below...
 
 
*************************************************Sample
Code*************************************************
....... 
sub sql_print 
{ 
    my $arg; 
    my $type; 
    
    while ($arg = shift) { 
        if ($type = ref ($arg)) { 
            if ($type eq 'ARRAY')   { print STDERR "@$arg\n" } 
            else                    { print STDERR "Can't display type
$type\n" }
        } 
        else { 
            chomp $arg; 
            print STDERR "$arg\n"; 
        } 
    } 
} 
....... 
my $query        = "exec $proc $parms"; 
........ 
sql_print ($dbh->doSql ($query)); 
my $ret = $dbh->dbretstatus(); 
 
print   STDOUT  $ret; 
  
if ($ret < 0){ 
        exit 1; 
} 
  
exit 0 
 
*************************************************Sample
Code*************************************************
 
Any help for the corresponding CTlib call would be appreciated...
 Thanks in advance...
 
--------
 Cheers,
 - Debkumar Chakraverty
 
 
 
 ______________________________________________________________________