You and Cetin are so good at this type of string manipulations. I wish I could think in those terms more often.

>Somthing like this? (Quick solution, not even declared variables)
>
>

>? Parse("Race.RaceCode, RaceDesc")
>
>function Parse(vNewVal)
>nPoint	= At('.', vNewVal)
>cSelect	= []
>if nPoint > 1
>	cAlias	= Left(vNewVal, nPoint - 1)
>	cSelect	= [SELECT ]
>	for nLine = 1 to Alines(laLines, Substr(vNewVal, nPoint + 1), 1 + 4, ',')
>		cSelect	= cSelect + Iif(nLine = 1, [], [, ]) + laLines[nLine] + [ AS F] + Transform(nLine)
>	next nLine
>	cSelect	= cSelect + [ FROM ] + cAlias
>endif
>return cSelect
>