Help for this page

Select Code to Download

Select or download this

DBI->trace(3); # Added call to trace method
my $dbh = DBI->connect("DBI:Oracle:host=$host;port=$port;sid=$sid",$us
+er, $password, {PrintError=>1,RaiseError=>1}) 
...
  }
  $sth_subj->finish(); close SWRT;
}