sub client_error { my ($errno, $func, $text) = @_; print qq|<font size="5">Error</font><p>\n|; print qq|<pre>ODBC Error Code: $errno</pre><p>\n|; print qq|<pre>[$func]$text</pre>\n|; } $r = $c -> sql_free_handle ($SQL_HANDLE_ENV, $evh); if ($r != 0) { ($rerror, $sqlstate, $native, $text, $textlen) = $c -> sql_get_diag_rec ($SQL_HANDLE_ENV, $evh, 1, 255); &client_error ($r, 'free_connect cnh', $text); }
Example 9: Printing errors generated by ODBC peer client calls.