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