home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
perl502b.zip
/
lib
/
auto
/
DB2CLI
/
Disconnect.al
< prev
next >
Wrap
Text File
|
1996-02-24
|
479b
|
20 lines
# NOTE: Derived from lib/DB2CLI.pm. Changes made here will be lost.
package DB2CLI;
sub Disconnect
{
my ($connRef) = @_;
my ($rc);
if ($rc = SQLDisconnect($connRef->{HDBC})) {
$connRef->Message("SQLDisconnect from $connRef->{DATABASE}", $rc);
}
SQLFreeConnect($connRef->{HDBC});
SQLFreeEnv($connRef->{HDBC});
return $_[0] = undef;
}
#############################################################################
# Statements
1;