Use of uninitialized value in numeric ne (!=) at ./pure_penny_golf_wextend.forBrodinpl line 36.
etds_extend surplus specialist name: delete from etds_extend where e_risk_symbol = 'WINN' and e_exch_dest = 'XISX'
Use of uninitialized value in numeric ne (!=) at ./pure_penny_golf_wextend.forBrodinpl line 36.
etds_extend surplus specialist name: delete from etds_extend where e_risk_symbol = 'WTR_S5F4' and e_exch_dest = 'XISX'

##</code><code>##

$VAR1 = {'6' => {'IACI' => { 'ARCX' => { 'specialist' => '1', 'penny' => '0 }},
                 'MCHP' => { 'ARCX' => { 'specialist' => '1', 'penny' => '0'}},
                   'BC' => { 'AMXO' => { 'specialist' => '1', 'penny' => '0'}},
                 'WINN' => { 'XISX' => { 'specialist' => '1', 'penny' => '0'}},
             'WTR_S5F4' => { 'XISX' => { 'specialist' => '1', 'penny' => '0'}},
                  'XLY' => { 'CS'   => { 'specialist' => '0', 'penny' => '1'}}
                 }
        };

##</code><code>##

$VAR1 = { 'XISX' => { 'FCEL'=> 1,
                      'GPS' => 1,
                      'MCO' => 1,
                      'DPZ' => 1,
                     'ENTG' => 1,
                      'PDS' => 1
                      }
        };


##</code><code>##

 1 #!/sbcimp/perl/bin/perl
  2 #/sbcimp/etds_extend.pl
  3 use DBI ;
  4 use strict ;
  5 use warnings;
  6
  7 use Data::Dumper;
  8 my %extend_hash = ();
  9 my $dbUser = 'nice';
 10 my $dbPass = 'try';
 11 my $dbSid  = 'THE_world';
 12 my $dbh =  DBI->connect("dbi:Oracle:$dbSid","$dbUser","$dbPass") or die( "Couldn't connect: $!" );
 13 my $query = "select level_id,e_risk_symbol,e_exch_dest,penny,specialist from etds_extend";
 14 if(!$dbh) {
 15         print "Error connecting to DataBase; $DBI::errstr\n";
 16                 }
 17 my $cur_msg = $dbh->prepare($query) or die "\n\nCould not prepare statement: ".$dbh->errstr;
 18 $cur_msg->execute();
 19 while (my @row=$cur_msg->fetchrow_array) {
 20         $extend_hash{$row[0]}{$row[1]}{$row[2]}{'penny'}=$row[3];
 21             $extend_hash{$row[0]}{$row[1]}{$row[2]}{'specialist'}=$row[4];
 22 }
 23 my %spec_hash=();
 24 $query = "select e_risk_symbol from gsd_etds where level_name='EXCH_CS' and e_exch_dest='XISX' and e_symbol_comment in ('Bin_6','Bin_56')";
 25 if(!$dbh) { print "Error connecting to DataBase; $DBI::errstr\n"; }
 26     $cur_msg = $dbh->prepare($query) or die "\n\nCould not prepare statement: ".$dbh->errstr;
 27     $cur_msg->execute();
 28     while (my @row=$cur_msg->fetchrow_array) {
 29         $spec_hash{'XISX'}{$row[0]}=1;
 30     }
 31 #print Dumper(\%spec_hash) ;
 32 #print Dumper(\%extend_hash) ;
 33 foreach my $symbol (sort keys %{$extend_hash{6}}) {
 34     foreach my $exch (sort keys %{$extend_hash{6}{$symbol}}) {
 35         if ($extend_hash{6}{$symbol}{$exch}{'specialist'}) {
 36             if ($spec_hash{$exch}{$symbol} != 1) {
 37                 my $line="etds_extend surplus specialist name: delete from etds_extend where e_risk_symbol = '$symbol' and e_exch_dest = '$    exch'";
 38                 print "$line\n";
 39                 #push(@error_array,$line);
 40             }
 41         }
 42     }
 43 }