OS/2 Shareware BBS: 10 Tools/10-Tools.zip/perl502b.zip/lib/auto/DB2CLI/Execute.al

Text File | 1996-02-24 | 297b | 15 lines

# NOTE: Derived from lib/DB2CLI.pm.  Changes made here will be lost.
package DB2CLI;

sub Execute
{
    my ($stmtRef) = shift @_;
    my ($rc);
    if ($rc = SQLExecute($stmtRef->{HSTMT}, @_)) {
    $stmtRef->Message("SQLExecute \"$stmtRef->{TEXT}\"", $rc);
    }
    return $rc;
}

1;