Quotes Plus Data Integrity scan.....

["Sean W. Smith" <sean_smith@xxxxxxxxxxxxxx>]

All,

I had previously written a data integrity scan for QP2.  This one has none
of the problems that Alain sees with his program.   Its as slow as dog but
it will check the database.  Most of the errors are in the index data.   The
0 Vol data is normal and the anomolies alain sees with his records with 0
data don't appear here.

I would love to look at the VB Alain is usin. Maybe he could post it.

I would love for him to try this scan and tell us about the speed difference
between using VB vs. the internal scan program....

here ya go....

daystoload = 2200;
daysrequired =1;

integer numdays;
integer i,j;

numdays:=((DaysLoaded-1)*-1);

output="out_of_range.lst";

//exchange=nyse,nasdaq,amex;

for i=numdays to 0 step 1 do
  if close(i) < low(i) then
     println "Close < Low  : Symbol ",Symbol:7," Date ",Date(i):12," Open
",open(i):7:2," Close ",close(i):7:2," High ",high(i):7:2," Low
",low(i):7:2;
  endif;
  if close(i) > high(i) then
     println "Close > High : Symbol ",Symbol:7," Date ",Date(i):12," Open
",open(i):7:2," Close ",close(i):7:2," High ",high(i):7:2," Low
",low(i):7:2;
  endif;
  if low(i) > high(i) then
     println "Low > High   : Symbol ",Symbol:7," Date ",Date(i):12," Open
",open(i):7:2," Close ",close(i):7:2," High ",high(i):7:2," Low
",low(i):7:2;
  endif;
  if open(i) < low(i) then
     println "Open < Low   : Symbol ",Symbol:7," Date ",Date(i):12," Open
",open(i):7:2," Close ",close(i):7:2," High ",high(i):7:2," Low
",low(i):7:2;
  endif;
  if open(i) > high(i) then
     println "Open > High : Symbol ",Symbol:7," Date ",Date(i):12," Open
",open(i):7:2," Close ",close(i):7:2," High ",high(i):7:2," Low
",low(i):7:2;
  endif;

next i;