>>lcFields = m.lcFields + IIF(m.ix > 1, ', ','') + FIELD(ix) + ' AS Fld'+TRANSFORM(ix) >>>>
>>Fld1, Fld2 >>>>to this?
>>FieldName1 AS Fld1, FieldName2 AS Fld2 >>>>Code block:
>>PROCEDURE CreateGenericReportCursor( m.AliasToConvert ) >> lcTable = ALLTRIM(UPPER(JUSTSTEM(m.AliasToConvert))) >> lcFields = '' >> m.FieldCount = FCOUNT(m.AliasToConvert ) >> FOR ix =1 TO FCOUNT(m.AliasToConvert ) >> lcFields = m.lcFields + IIF(m.ix > 1, ', ','') + 'Fld'+TRANSFORM(ix) >> ENDFOR >> RunSQL = 'SELECT ' + lcFields + ' FROM ' + m.AliasToConvert >> RETURN >>