#!/usr/bin/perl
use DBI;
use DBD::Sybase;
use strict;
#use Config::IniFiles;
require Read_INI_files;
require IniFiles;

#my %Section1;

#Connect to the PP_DB
my $dbh = DBI->connect( "dbi:Sybase:server=ctp-1-zone157; database=PP_DB; port=5000","sa", "password" ) or die "can not connect to the DB";

Read_INI_files_get_initialData_PP_DB();
print "$Section1{SQL1}\n";