>How to simplify this to remove the EVALUATE() and make it more readable?
>
>

>FOR ix = 1 to Whatever
>     REPLACE JMJ_IN.Diag1 WITH LEFT(ALLTRIM(UPPER(EVALUATE('loObj'+LTRIM(STR(m.ix))+".Field019"))),AT('^',EVALUATE('loObj'+LTRIM(STR(m.ix))+".Field019"))-1)
>ENDFOR
>

Another alternative would be to use GetPem instead.

E.g.

lcField = getpem('loObj'+LTRIM(STR(m.ix)),'Field019') && will return the property content.