home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl502b.zip / lib / auto / DB2CLI / Prepare.al < prev    next >
Text File  |  1996-02-24  |  724b  |  28 lines
  1. # NOTE: Derived from lib/DB2CLI.pm.  Changes made here will be lost.
  2. package DB2CLI;
  3.  
  4. sub Prepare
  5. {
  6.     my ($connRef, $stmt, $refStmt) = @_;
  7.     my ($hstmt, $rc);
  8.     if ($rc = SQLAllocStmt($connRef->{HDBC}, $hstmt)) {
  9.     $connRef->Message("SQLAllocStmt", $rc);
  10.     return undef;
  11.     }
  12.     if ($refStmt) {
  13.     my $cursor = "-Unknown-";
  14.     SQLGetCursorName($refStmt->{HSTMT}, $cursor);
  15.     $stmt .= " $cursor";
  16.     }
  17.     my $i = index($stmt, "\n", 1);
  18.     my $s = ($i >= 0) ? substr($stmt, 0, $i) : $stmt;
  19.     my $stmtRef = bless { %$connRef, HSTMT => $hstmt, TEXT => $s };
  20.     if ($rc = SQLPrepare($hstmt, $stmt)) {
  21.     $stmtRef->Message("SQLPrepare \"$s\"", $rc);
  22.     return undef;
  23.     }
  24.     return $stmtRef;
  25. }
  26.  
  27. 1;
  28.