perldoc DBD::Oracle will show you how to do this.
On Wed, 2004-10-20 at 15:27, Denesa K Shaw wrote:
>
>
> 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
