Is it logging in the same way as the prior version?
Jeff
>
> hello everyone,
>
> i recently downloaded the latest version of perl which came
> with the following that i installed via the ppm.
> new:
> activestate perl 5.6.1
> ppm 2.20
> dbi 1.34
> dbd odbc 1.04
>
> old:
> activestate perl 5.6.1
> ppm 2.1.6
> dbi 1.27
> dbd odbc .28
>
> the below code runs fine on my older version but gets crazy
> errors on the new versions. can anyone help me solve the
> problems. i'd like to run the latest versions, if possible :)
>
> perl code:
>
> my $sql = "
> SELECT distinct substring(filename,1,4) as
> Payor,substring(filename,charindex('-',filename,9)+1,4) as Customer
> ,max(createdtime) as LastFileDate
> FROM masterfile
> WHERE substring(filename,1,4) like
> '[a-z][a-z][a-z][0-9]' AND FILENAME LIKE '%.CLM' anD
> DateDiff(day,createdtime,getDate())<14
> and filename like '%tst%'
> group by
> substring(filename,1,4),substring(filename,charindex('-',filen
> ame,9)+1,4)
> order by substring(filename,1,4)
> ";
>
> $sth = $dbh->prepare($sql);
> $sth->execute();
>
>
> ------------
>
> errors:
> DBD::ODBC::st execute failed: [Microsoft][ODBC SQL Server
> Driver][SQL Server]Inv alid object name 'masterfile'.
> (SQL-42S02) [Microsoft][ODBC SQL Server Driver][SQL
> Server]Statement(s) could not be prepare d. (SQL-42000)(DBD:
> st_execute/SQLExecute err=-1) at C:\perl\scripts\recent_clai
> m_data.pl line 65. DBD::ODBC::st fetchrow_array failed: (DBD:
> no select statement currently executi ng err=-1) at
> C:\perl\scripts\recent_claim_data.pl line 88.
>
>
>
>
> __________________________________________________
> Do you Yahoo!?
> Yahoo! Platinum - Watch CBS' NCAA March Madness, live on your
> desktop! http://platinum.yahoo.com
>
