[amibroker] One Pass refresh of multiple Watchlists - Retry post

["Phsst" <phsst@xxxxxxxxx>]

Awhile back, Dimitris demonstrated Group / Watchlist management via AFL.

I've expanded a little on that by refreshing multiple watchlists with
a single pass against the whole stock database. This example uses some
fields that are specific to QuotesPlus, but it is submitted for
illustration only.

The point is that many (if not all) of your watchlists can be
refreshed with a single pass.

Regards,

Phsst

// One Pass update for multiple Watchlists
// DEFINE FILTER AS GROUP > STOCKS
// Be sure to View -> Refresh All after running this scan
// Look @ Scan Display for expired Issues using Explore Export Ticker Data
// Empty Watchlist 63 when finished... it is a dummy place to shuck
issues that are not of interest elsewhere.

CategoryRemoveSymbol( "", categoryWatchlist, 4 ); // Top 100
CategoryRemoveSymbol( "", categoryWatchlist, 5 ); // Top 300
CategoryRemoveSymbol( "", categoryWatchlist, 6 ); // Top 600
CategoryRemoveSymbol( "", categoryWatchlist, 7 ); // ETF's
CategoryRemoveSymbol( "", categoryWatchlist, 9 ); // Mkt Indexes
CategoryRemoveSymbol( "", categoryWatchlist, 10); // CEF's
CategoryRemoveSymbol( "", categoryWatchlist, 63 ); // Unused Watchlist

DailyDollarVolume = V * ( (O + H + L + C) / 4);
AvgDollarVolume = MA(DailyDollarVolume, 30);
top100 = IIf(LastValue(AvgDollarVolume > 100000000),4,63);
top300 = IIf(LastValue(AvgDollarVolume > 50000000),5,63);
top600 = IIf(LastValue(Avgdollarvolume > 25000000),6,63);
IssueType = GetExtraData("IssueType");
ETF = IIf(IssueType == "%",7,63);
MktIndex = IIf(IssueType == "A",9,63);
CEF = IIf(IssueType == "7", 10,63);

CategoryAddSymbol(Name(),categoryWatchlist,top100);
CategoryAddSymbol(Name(),categoryWatchlist,top300);
CategoryAddSymbol(Name(),categoryWatchlist,top600);
CategoryAddSymbol(Name(),categoryWatchlist,ETF);
CategoryAddSymbol(Name(),categoryWatchlist,MktIndex);
CategoryAddSymbol(Name(),categoryWatchlist,CEF);

// Use Buy Condition to force SCAN to display Top 300 while running
LastBar = Cum(1)==LastValue(Cum(1));   
Buy=0 AND Lastbar;


------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges or Refill Kits for your HP, Epson, Canon or Lexmark
Printer at MyInks.com. Free s/h on orders $50 or more to the US & Canada.
http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/mOAaAA/3exGAA/qnsNAA/GHeqlB/TM
---------------------------------------------------------------------~->

Send BUG REPORTS to bugs@xxxxxxxxxxxxx
Send SUGGESTIONS to suggest@xxxxxxxxxxxxx
-----------------------------------------
Post AmiQuote-related messages ONLY to: amiquote@xxxxxxxxxxxxxxx 
(Web page: http://groups.yahoo.com/group/amiquote/messages/)
--------------------------------------------
Check group FAQ at: http://groups.yahoo.com/group/amibroker/files/groupfaq.html 

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/