Great I will look into it.
Thanks!
Denesa Shaw
713-207-5928
[EMAIL PROTECTED]
"Reidy, Ron"
<[EMAIL PROTECTED] To: "Denesa K Shaw" <[EMAIL
PROTECTED]>,
pharma.com> <[EMAIL PROTECTED]>
cc:
10/21/2004 09:13 AM Subject: RE: Stored Procedures
Parameters
There are examples in the DBD::Oracle docs.
-----------------
Ron Reidy
Lead DBA
Array BioPharma, Inc.
-----Original Message-----
From: Denesa K Shaw [mailto:[EMAIL PROTECTED]
Sent: Wednesday, October 20, 2004 2:28 PM
To: [EMAIL PROTECTED]
Subject: Stored Procedures Parameters
Hi,
I'm calling a stored procedure called Pg_Move_Files.Pr_Return_Cycle_File.
After the stored procedure executes, it returns an out parameter called
out_v_RECV_FILE_NM.
I have a perl script which uses the DBI:: Module.
My Question is:
Is the correct way retrieve the value of my out
parameter(out_v_RECV_FILE_NM) from the stored procedure in my Perl script?
Thanks!
This is the code I used:
####Declarations####
use DBI;
$dbname = 'xxxx';
$user = 'xxxx';
$password = 'xxxxxx';
$dbd = 'Oracle';
$RECV_FILE_NM = $out_v_RECV_FILE_NM;
####Connect To Oracle####
$dbh = DBI->connect ($dbname, $user, $password, $dbd);
if (!$dbh)
{
print "Error connecting to database; $DBI::errstr\n";
}
else
{
print "Connecting to database; $DBI::errstr\n";
}
####Calling Pg_Move_Files.Pr_Return_Cycle_File stored procedure####
print "Calling Pg_Move_Files.Pr_Return_Cycle_File\n";
$dbh->do( "BEGIN Pg_Move_Files.Pr_Return_Cycle_File($RECV_FILE_NM); END;");
Denesa Shaw
This electronic message transmission is a PRIVATE communication which
contains
information which may be confidential or privileged. The information is
intended
to be for the use of the individual or entity named above. If you are not
the
intended recipient, please be aware that any disclosure, copying,
distribution
or use of the contents of this information is prohibited. Please notify the
sender of the delivery error by replying to this message, or notify us by
telephone (877-633-2436, ext. 0), and then delete it from your system.
