# #Create the sql statement for Sybase and execute it my $sth = $dbh2->prepare("SELECT (dbo.tbookkeeping_trans.branch_cd + dbo.tbookkeeping_trans.account_cd)As AccountNo, 'TRI'as TransferFlag,'NCT' as TransferType, 'C' as RejectType, dbo.tbookkeeping_trans.security_adp_nbr as pNumber, dbo.tbookkeeping_trans.share_trans_qty as Shares,dbo.tbookkeeping_trans.processing_dt, (dbo.tbookkeeping_trans.branch_cd + dbo.tbookkeeping_trans.account_cd +'".$datestamp."'+'".$lineno."')As KeyId FROM dbo.tbookkeeping_trans WHERE (dbo.tbookkeeping_trans.client_nbr='0030' AND dbo.tbookkeeping_trans.entry_cd IN ('JNL', 'JRL', 'REC') AND dbo.tbookkeeping_trans.branch_cd >'248') ORDER BY 1"); $sth->execute; my $insh=$dbh->prepare("INSERT INTO ClearTransferData(AccountNo, TransferFlag, TransferType, RejectType, AdpNumber, Shares, ProcessingDate,KeyId) VALUES ( ?, ?, ?, ?, ?, ?, ? ,?)"); eval { while((@data) = $sth->fetchrow_array) { $lineno++; my $keyId = ("$data[0]".$lineno.$datestamp); print "$keyId\n"; my $sql=("Select Count(*) From ClearTransferData Where AccountNo = '$data[0]' and TransferFlag = '$data[1]' and TransferType = '$data[2]' and RejectType = '$data[3]' and AdpNumber = '$data[4]' and Shares = '$data[5]' and ProcessingDate = '$data[6]' "); my ($ncount) = $dbh->selectrow_array($sql); print "$ncount\n"; if ($ncount > 0) { $errcounter++; print OUTFILE "@data\n"; } else { $insh->execute(@data); $succounter++; } } };