All,
Here's one to try. Data Integrity scan.
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;
This scan takes a long time to run best done overnight. I am getting
some errors in my database which Gary is not seeing. I wonder if
anyone else has different #'s.
Sean |
