Using an array or a collection makes mapping a snap. :)

replace jmj_in with left(alltrim(upper(oSeg.elements[19])),at('^',oSeg.elements[19])-1)

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