CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Perl Programming Help: Beginner:
How in Perl check ORA_ERROR and ORA_STAT

 



digioleg54
User

May 2, 2017, 12:46 PM

Post #1 of 1 (430 views)
How in Perl check ORA_ERROR and ORA_STAT Can't Post

In UNIX we can check ORA_STAT after certain command
I have a script, which call sub from another script

Code
sub set_default_vales  
{
require 'GetDate.pl';
my ($prog , $proc_dt, $ths_conn) = @_;

my $Reset_All="";#check real value in dte.env

if (! defined $proc_dt)
{
my $conn = 1;
my $result = &get_processing_date($ths_conn);
if ($result == "oracle error")
{
do{
sleep(300);
$result = &get_processing_date($ths_conn);
$conn ++;
}while ($result == "oracle error" && $conn lt 3)
}
}
}

and in that sub we have

Code
sub set_default_vales  
{
require 'GetDate.pl';
my ($prog , $proc_dt, $ths_conn) = @_;

my $Reset_All="";#check real value in dte.env

if (! defined $proc_dt)
{
my $conn = 1;
my $result = &get_processing_date($ths_conn);
if ($result == "oracle error")
{
do{
sleep(300);
$result = &get_processing_date($ths_conn);
$conn ++;
}while ($result == "oracle error" && $conn lt 3)
}
}
}


My questions is how can I check ORA_ERROR and ORA_STAT, when return to first sub?

Thanks

 
 


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives