my $sth = $dbh2->prepare(<<SQL);
SELECT branch_cd + account_cd As AccountNo,
       security_adp_nbr as pNumber,
       share_trans_qty as Shares,
       processing_dt
  FROM dbo.tbookkeeping_trans
 WHERE client_nbr='0030'
   AND entry_cd IN ('JNL', 'JRL', 'REC')
   AND branch_cd >'248'
 ORDER BY  1
SQL

$sth->execute;

my $cnth=$dbh->prepare(<<SQL);
Select Count(*)
  From ClearTransferData
 Where AccountNo = ?
   and TransferFlag = 'TRI'
   and TransferType = 'NCT'
   and RejectType = 'C'
   and AdpNumber = ?
   and Shares = ?
   and ProcessingDate = ?
SQL

my $insh=$dbh->prepare(<<SQL);
INSERT INTO ClearTransferData(AccountNo, TransferFlag, TransferType,
   RejectType, AdpNumber, Shares, ProcessingDate,KeyId)
 VALUES ( ?, 'TRI', 'NCT', 'C', ?, ?, ? ,?)
SQL

eval {
    while((@data) = $sth->fetchrow_array)
    {
        $lineno++;

        my $keyId = ("$data[0]".$lineno.$datestamp);
        print "$keyId\n";

        $cnth->execute(@data);
        my ($ncount) = $cnth->fetchrow_array($sql);

        my $KeyID = $data[0] . $datestamp . $lineno;
        
        print "$ncount\n";
        if ($ncount > 0)
        {              
            $errcounter++;         
            print OUTFILE "@data\n";
        }    
        else
        {
            $insh->execute(@data,$KeyID);
            $succounter++;
        }
    }
};