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