Select Code to Download

    print "\n[lock_table] entry\n\n";

...
    $dberr = $dbh->errstr;

    print "[lock_table] locking table <$table> with <$lock_str>\nresul
+t <$lock_res>\nerror message <$dberr>\n";

[lock_table] entry

[lock_table] locking table <Stock> with <LOCK TABLES Stock WRITE>
result <>
error message <>