function a = GetReformatDate(rfid)

endOfObs = 0;
while endOfObs ~= 1
	dataline = fgets(rfid);
	fileError = ferror(rfid);
	if fileError ~= [],
		break;
		end;
		
	linedesc = dataline(1:3);
	
	if strcmp('E03',linedesc)
		date = sscanf(dataline(4:9), '%d'); % 'New Code'
		endOfObs = 1;
		end;	% if strcmp('E03',linedesc)
	
	end;	% while endOfObs ~= 1
	
if fileError ~= [],
	a = [];

else	% if fileError ~= []
	a = date;
	
end	% if fileError ~= [], else...

end;
