I'm using Perl 5, version 14.The Win32::ODBC is VERSION = '0.034'; and Oracle as database. Im able to reteive information from the database using queries like "emp_id, emp_name from emp" by the following code
use Win32::ODBC;
$db= new Win32::ODBC("DSN=datasourcename;UID=username;PWD=passwrd") ||
+ die "Error: " . Win32::ODBC::Error();
$db->Sql("SELECT emp_Id, emp_name, salary FROM Sample.Emp");
while($db->FetchRow())
{
@values = $db->Data;
print @values;
}
$db->Close();
Instead of using quries in the perl program, I like to use stored procedures. I have created a storedproc called sp_rank.
PROCEDURE sp_rank(p_cursorVar out CursorType)
is
begin
open p_cursorVar for
select emp_id, emp_name from emp;
End sp_rank;
I would like to know how to pass storedproc name in the perl and retrieve the data.