$SQL = "INSERT INTO iCDRSbw (rec_num,src_file,src_host,init_status,cdr_day,last_modified,city,state,cname,vname,
npa,nxx,ocn,lata,lata_name,pdd,zone_id,cdrs_seq,file_seq,gc_id
) VALUES (?,?,?,?,?,?,?,?,?,?,
?,?,?,?,?,?,?,?,?,?)";
my $database_username = "USER";
my $database_password = "PASS";
my $msdsn = q/dbi:ODBC:DRIVER={SQL Server};Server=10.0.0.5;attr=value/;
my $dbh = DBI->connect( $msdsn, $database_username, $database_password )
or die "ERROR";
$dbh->do("use db_name") or log_die("$DBI::errstr");
####
unless (
$sth->execute($rec_num, '$src_cdr_file', '$host','$init_status',
'$f[20]', '$f[04]', '$city', '$state',
'$cname', '$vname', $npa, $nxx,
'$ocn', $lata, $lata_name, $pdd,
$f[0], $f[1], $f[2], '$f[3]'
)
)
{
$now = localtime(time);
print "Error inserting: $DBI::errstr\n"
if ($LOGERR);
}
####
Error inserting: [Microsoft][ODBC SQL Server Driver]Invalid character value for cast specification (SQL-22018)(DBD: st_execute/SQLExecute err=-1)
####
INSERT INTO iCDRSbw (rec_num,src_file,src_host,init_status,cdr_day,last_modified,city,state,cname,vname,
npa,nxx,ocn,lata,lata_name,pdd,zone_id,cdrs_seq,file_seq,gc_id
) VALUES (1,'icdr.5_5_5B.0.1.200712170000.052964.0','127.0.0.1','Unprocessed','2007-12-17 00:00:47',
'2007-12-17 00:00:47','NA','NA',' ',' ',
999,999,' ',1,1,
1,1,1,1,'AAAAC0dlvAgiIAABC7Przw.7591990');