#!/ms/dist/perl5/bin/perl5.8


$p=do("$ENV{PWD_FILE_PL}") or die "Failed to run the PWD_FILE_PL !\n";

        foreach my $key (keys %$p)
                {
                $ENV{$key}=$p->{$key};
                }

require "${LIB_PROGDIR}/k_db2_connect.pm";
require "${LIB_PROGDIR}/k_syb_connect.pm";


use MSDW::Version
  'DBI'                => '1.602',
  'DBD-DB2'            => '1.0-8.2.7',
  'DBD-MSDB2'          => '1.3',
  'MSDW-DB2-DBInfo' => '1.7',
  'Spreadsheet-WriteExcel' => '2.37',
  'Parse-RecDescent' => '1.94',
  'MIME-Lite' => '2.117',
  'Env-Modulecmd'      => '1.2',
  'Getopt-Long' => '2.37',
  'Date-Calc'          => '5.3',
  'Tie-IxHash'         => '1.21',
  ;

use Env;
use DBI;
use Spreadsheet::WriteExcel;
use Parse::RecDescent;
use MIME::Lite;
use Env::Modulecmd;
use Getopt::Long;
use Tie::IxHash;
use DBD::MSDB2;
use strict;
use Date::Calc qw(:all);

my $my_PID=$$;
my $my_env=$ENV{runningEnv};
use Env::Modulecmd { load => "$DB2_CLIENT" };

my @ary = DBI->available_drivers (1);

my (@data_exclude,@data_exclude1);
my $cnt;

my $dbh  = _dbinit( 'Sybase',$ENV{DB_SERVER},$ENV{DB_NAME});
my $sth1 = $dbh->prepare("SELECT dbo.cts_registry.value FROM AIS_job_control.dbo.cts_registry where dbo.cts_registry.AppName='SSI_MODEL_EXCLUSION'");

$sth1->execute()or die "ERROR: Can not EXECUTE the SQL statement";

        while(@data_exclude=$sth1->fetchrow_array)
        {
                $data_exclude1[$cnt]=$data_exclude[0];
                $cnt=$cnt+1;
        }
_dbdisconnect($dbh);
print "$data_exclude1[1]";