>>>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 >>>>>
>>FOR ix = 1 to Whatever >> WITH EVALUATE('loObj'+TRANSFORM(m.ix)) >> REPLACE JMJ_IN.Diag1 WITH LEFT(ALLTRIM(UPPER(.Field019)),AT('^',.Field019)-1) >> ENDWITH >>ENDFOR >>>