Hello,
I am trying to run a ORacle anonymous block using perl DBI, but I am receiving error as mentioned below. Please help..
sub runThis($procT) {
my $dbh1=DBI->connect("dbi:ODBC:$db","$usr","$pass",
{RaiseError => 1 ,
PrintError => 0}
);
$sqlstmt1 = "BEGIN $procT END;";
$sth1 = $dbh1->do($sqlstmt1) or die $dbh1->errstr;
$dbh1 -> disconnect;
}
runThis("BEGIN NULL; END;");
---------------------------------------
Error message:
DBD::ODBC::db do failed: [Oracle][ODBC][Ora]ORA-06550: line 1, column
+7:
PLS-00103: Encountered the symbol "END" when expecting one of the foll
+owing:
----------------------------
Thanks