Y2K compatible ELA code for GET 7 ?

["hpm" <anatop@xxxxxxxxxxx>]

Hi

Where can I get a Y2000 compatible ela code
to transfer date from TS 4.0 to GET 7 EOD version ?

The code I am having does not work correctly with EOD daily data,
for intra day data there is no problem.

I don't know where and how to modify the code,  if somebody on the list
could help I would be very thankful.

See code below.

Thanks in advance.


hpm
anatop@xxxxxxxxxx

----------------------------------------------------------------------------
----------------------

{================================HEADER==============================


Advanced GET Intraday Data Transfer with security name in the file name

This system transfers data from a Tradestation intraday chart to a file
readable by the Trading Techniques' Advanced GET program.  
The system can be used with any kind of data compression.

The files to which the system saves the data are styled using the commodity
symbol or stock name along the lines as follows:
S&P:  C:\GET6\DATA\SP7Z30.AHD



 
=================================DECLARATIONS==============================}
 
INPUTS:
DATAPATH("C:\GET7\DATA\"),
DECIMALS(2),
SYNTHDAT(TRUE);

VARS:
XFILE(" "),
JD(DATETOJULIAN(210104));

{================================MAIN PROGRAM ============================}

IF SYNTHDAT THEN
BEGIN
	JD = JD + 1;
	IF DAYOFWEEK(JULIANTODATE (JD)) = 0 THEN JD  = JD + 1;
	IF DAYOFWEEK(JULIANTODATE (JD)) = 6 THEN JD = JD + 2;
END;

IF CURRENTBAR = 1 THEN 
BEGIN
	IF DATACOMPRESSION =0 THEN XFILE = 
			DATAPATH
+NUMTOSTR(BARINTERVAL,0)+LEFTSTR(GETSYMBOLNAME,5)+".AHD";
	IF DATACOMPRESSION =1 THEN XFILE = 
	
DATAPATH+LEFTSTR(GETSYMBOLNAME,5)+NUMTOSTR(BARINTERVAL,0)+".AHD";
	IF DATACOMPRESSION =2 THEN XFILE = 
			DATAPATH+ "D"+LEFTSTR(GETSYMBOLNAME,5)+".AHD";
	IF DATACOMPRESSION =3 THEN XFILE = 
			DATAPATH + "W"+LEFTSTR(GETSYMBOLNAME,5)+".AHD";
	IF DATACOMPRESSION =4 THEN XFILE = 
			DATAPATH +"M"+LEFTSTR(GETSYMBOLNAME,5)+".AHD";
	FILEDELETE(XFILE);
	IF DATACOMPRESSION <2 AND SYNTHDAT = FALSE THEN 
		FILEAPPEND(XFILE, "DATE    TIME    OPEN    HIGH    LOW
CLOSE" + NEWLINE) ELSE
		FILEAPPEND(XFILE, "DATE    OPEN    HIGH    LOW    CLOSE" +
NEWLINE);
END;


IF SYNTHDAT AND DATACOMPRESSION < 2 THEN
FILEAPPEND(XFILE,NUMTOSTR(JULIANTODATE(JD),0))
ELSE FILEAPPEND(XFILE,NUMTOSTR(DATE,0));

FILEAPPEND(XFILE," ");
IF DATACOMPRESSION < 2 AND SYNTHDAT = FALSE THEN
BEGIN
	FILEAPPEND(XFILE,NUMTOSTR(TIME,0));
	FILEAPPEND(XFILE," ");
END;

FILEAPPEND(XFILE, NUMTOSTR(OPEN,DECIMALS));
FILEAPPEND(XFILE,"  ");
FILEAPPEND(XFILE,NUMTOSTR(HIGH,DECIMALS));
FILEAPPEND(XFILE,"  ");
FILEAPPEND(XFILE,NUMTOSTR(LOW,DECIMALS));
FILEAPPEND(XFILE,"  ");
FILEAPPEND(XFILE,NUMTOSTR(CLOSE,DECIMALS) + NEWLINE);	

PLOT1(C,"");