>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 >