FreeTDS Development Group

["Gaurav Nangia" <gnangia AT mspintl.com>]

James,

Thank-you very much.  Also, will this work with MS-SQL server 2000?

Thanks,
Gaurav

-----Original Message-----
From: freetds-bounces AT lists.ibiblio.org
[mailto:freetds-bounces AT lists.ibiblio.org]On Behalf Of Lowden, James K
Sent: Friday, July 18, 2003 3:47 PM
To: 'FreeTDS Development Group'
Subject: RE: [freetds] Need help with SQL server stored procedure
output?


> From: Gaurav Nangia [mailto:gnangia AT mspintl.com]
> Sent: July 18, 2003 12:04 PM
>
> I am using freetds 0.61 with DBD::Sybase on Redhat linux to
> connect to SQL Server 7.0.
...
> I am having an issue with
> running a stored procedure that RETURNS A VALUE.  How do I
> retrieve that value.
...
> #!/usr/bin/perl
>
> use DBI;
> $dbh = DBI->connect('DBI:Sybase:server=DEV;', $user, $passwd)
> or die "Cannot
> connect:$@\n";
> $sql = ("declare \@test numeric(9,4) exec TEST
> \@results=\@test OUTPUT");
> $sth=$dbh->prepare($sql);
> $sth->execute;
> while(@d = $sth->fetchrow_array)
> {
>    foreach $xyz(@d)
>    {
>         print "REsult=>$xyz<=\n";
>    }
> }

DBD::Sybase returns the procedure's return code as a row, setting a
statement handle attribute to denote the row's type.  Your loop isn't enough
afaik; cf. "perldoc DBD::Sybase" for more.  I think you need loop more like:

        do {
           while($d = $sth->fetch) {
                        print @{$d}, $/;
           }
        } while($sth->{syb_more_results});

However, FreeTDS 0.61 appears broken wrt this feature in our ct-lib.  I just
finished testing the above, and got these errors:

1.  I got syb_result_type=4043, but no data.
2.  $sth->{syb_more_results} always returns 1.
3.  $sth->{syb_result_type} returns -1077946652 past the "end of the data".

The good news is that current CVS (and recent snapshots) work correctly.

I had to rebuild DBD::Sybase to make it link to /usr/local/lib/libct.so.1.
If you're already using libct.so.1, then you need to update just FreeTDS.
If you do have to rebuild DBD::Sybase, it might complain about lacking
tdsiconv.h, which we don't install even though we should.  I'm going to look
at the issue more closely this weekend, to see what we really should do, and
if tdsiconv.h is serving a real purpose.

--jkl
-----------------------------------------
The information contained in this transmission may contain privileged and
confidential information and is intended only for the use of the person(s)
named above. If you are not the intended recipient, or an employee or agent
responsible for delivering this message to the intended recipient, any
review, dissemination, distribution or duplication of this communication is
strictly prohibited. If you are not the intended recipient, please contact
the sender immediately by reply e-mail and destroy all copies of the
original message. Please note that we do not accept account orders and/or
instructions by e-mail, and therefore will not be responsible for carrying
out such orders and/or instructions.


_______________________________________________
FreeTDS mailing list
FreeTDS AT lists.ibiblio.org
http://lists.ibiblio.org/mailman/listinfo/freetds