[amibroker] Re: can you put script into a procedure

["Andrew" <ae_perrin@xxxxxxxxxxxxxxx>]

Dingo
This is the error I get running the procedure:

Line 18, Column 1:
Ticker = sTicker; //? is this required
WLNumber = WL; //? this also
EnableScript("jscript");
<
^
Error 23.
Syntax error

Procedure is:

procedure WLTickerAdd(sTicker,WL)
{
Ticker = sTicker; //? is this required
WLNumber = WL; //? this also
EnableScript("jscript");
<%
AB = AFL.CreateObject("Broker.Application");
AB.Stocks( AFL("Ticker" ) ).WatchListBits |= 1 << AFL( "WLNumber" );
%>
}
 
WLTickerAdd("OSH",20);
Buy = 1;

Appreciate any help you can give.
Andrew

--- In amibroker@xxxxxxxxxxxxxxx, "dingo" <dingo@xxxx> wrote:
> It would be helpful if you would post the error that you're 
getting...
>  
> d
> 
> -----Original Message-----
> From: Andrew [mailto:ae_perrin@x...] 
> Sent: Thursday, September 11, 2003 6:04 PM
> To: amibroker@xxxxxxxxxxxxxxx
> Subject: [amibroker] can you put script into a procedure
> 
> 
> Can someone point out whether you can put the following 
> Script (adds ticker to watchlist) into a procedure. My effort 
> follows but I continually get an error.
> 
> Ticker = "OSH";
> WLNumber = 20;
> EnableScript("jscript");
> <%
> AB = AFL.CreateObject("Broker.Application");
> AB.Stocks( AFL("Ticker" ) ).WatchListBits |= 1 << AFL
( "WLNumber" );
> %>
> 
> My Procedure effort:
> 
> procedure WLTickerAdd(sTicker,WL)
> {
> Ticker = sTicker; //? is this required
> WLNumber = WL; //? this also
> EnableScript("jscript");
> <%
> AB = AFL.CreateObject("Broker.Application");
> AB.Stocks( AFL("Ticker" ) ).WatchListBits |= 1 << AFL
( "WLNumber" );
> %>
> }
> 
> WLTickerAdd("OSH",20);
> Buy = 1;
> 
> And while we're on the subject, has anyone got a script that will 
> clear a watchlist. I found this by TJ -"You can erase watch lists 
> by assigning zero to both WatchListBits and WatchListBits2 in ALL 
> stocks."- Can anyone elaborate?
> Thanks
> Andrew
> 



------------------------ 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/l.m7sD/LIdGAA/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/