RE: Executing PL/SQL packages in Perl

[Moon, John]

-----Original Message-----
From: logesh kumar [mailto:[EMAIL PROTECTED] 
Sent: Wednesday, November 09, 2005 6:37 AM
To: dbi-users@perl.org
Subject: Executing PL/SQL packages in Perl

Hi all,
          Can anybody tell me how to execute a PL/SQL package from Perl
through a small example?
 
Thanks in advance,
Lokesh
 
Here is a small example of a call to a function...

<snip>
my $results;
my $sth_func = $dbh->prepare(
    q{BEGIN
        :results := ACTUAL_DATA.IMC_DAILY_JOBS;
     END;})
        or &MyDieBatch('Prepare failed', 89, __LINE__);
$sth_func->bind_param_inout(':results',\$results, 256);
$sth_func->execute or &MyDieBatch('Execute failed', 89, __LINE__);
&MyDieBatch("IMC_DAILY_JOBS failed: $results" , 89, __LINE__) if
$results ne 'OK';
</snip>

Hope this helps...
jwm