title: determining what ora_type values are supported
body: <pre><code>#!/usr/bin/perl
  use diagnostics;
  use DBI;
  use DBI qw(:sql_types);
  
  my $AIM_PSWD= $ENV{'AIM_PSWD'};
  my $len=length($AIM_PSWD);
  my $pwindex1=rindex($AIM_PSWD,'/');
  my $pwindex2=rindex($AIM_PSWD,'@');
  
  my $usr = substr($AIM_PSWD,0,$pwindex1);
  my $pwd = substr($AIM_PSWD,$pwindex1+1,$pwindex2-($pwindex1+1));
  my $db  = substr($AIM_PSWD,$pwindex2+1,$len-($pwindex2+1));
  my $attr = {AutoCommit =&gt; 0};
  
  my $dbh;
  my $qryHandle;
  my $row;
  my $query = "SELECT /*+ index(T_CAPITATION_HIST I_CAPITATION_HIST) */ SAK_CAPITATION FROM AIM.T_CAPITATION_HIST WHERE SAK_CAPITATION = ?";
  
  $dbh = DBI-&gt;connect("dbi:Oracle:$db", $usr, $pwd, $attr)
     or die "Unable to connect to $db\n";
  $qryHandle = $dbh-&gt;prepare($query) or die "Unable to prepare query\n";
  $qryHandle-&gt;bind_param(1, "765756556", {ora_type =&gt; SQL_VARCHAR});
  $qryHandle-&gt;execute() or die "Unable to execute query\n";
  if ($row = $qryHandle-&gt;fetchrow_hashref())
  {
      print "query succeeded\n";
  }
  else
  {
      print "query failed\n";
  }
  $qryHandle-&gt;finish();
  $dbh-&gt;disconnect();
  exit(0);
  </code></pre>
  
  <p>Running this produces the error message from the bind_param statement:
  Uncaught exception from user code:
      Can't bind :p1, ora_type 12 not supported by DBD::Oracle at ./test.pl line 26.</p>
  
  <p>How do I determine what ora_type values are supported? </p>