Gary,
Thanks for the fix to DaysToLoad.
There seems to be an undocumented limit to the length of a line for the PrintLn function, or something in the loop function.
The following (partial) scan functions fine;
Input"Issue List.lst";
Output"!Morning Star.lst";
Integer i,j,Start,End,NumDays; //For back test loop
Start:=-60; // Set to Oldest day for loop
End:=-5; // Set to Most recent day for loop
DaysRequired=Start*-1+15;
DaysToLoad=Start*-1+15;
For i=start to end
DO
//Black Body first day
If
Close(i-2)<Open(i-2) //Black body
Then
Print Symbol,",",Date(i),",","Morning Star" ,",","Reversal at Bottom";
//Print Info for spreadsheet
For J=i-3 to i+4
DO
Print j:-4,",",Open(J):8:3,",",High(j):8:3,",",Low(j):8:3,",",Close(j):8:3,",",Vol(j):12;
Next J;
PrintLn;
EndIf;
Next i;
BUT if you change the J loop to 'i-4 to i+4' or 'i-3 to i+5' or 'J-8 to i' (increasing the data for the PrintLn) you get a QP-RPTS illegal operation error.
(I tried deleting the "," commas but ended with the same results.)
With details similar to ;
QP_RPTS caused an invalid page fault in
module KERNEL32.DLL at 0137:bff858cd.
Registers:
EAX=c0015d58 CS=0137 EIP=bff858cd EFLGS=00010206
EBX=007ee900 SS=013f ESP=007e0000 EBP=007e0070
ECX=816408bc DS=013f ESI=007e026c FS=0f87
EDX=bff76648 ES=013f EDI=007e0250 GS=0000
Bytes at CS:EIP:
53 56 89 4d f8 57 8b 41 40 8b 75 08 89 45 ec 83
Stack dump:
00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
I do have a work around for my needs here, but it requires multiple PrintLn statements, then I must mess with the data in my spreadsheet to get it all in one row.
Thank you for you continued support in all our concerns.
Roy |
