>>>>

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

>>
>>Personally, I'm scared to death of WITH...ENDWITH
>>
>>http://fox.wikis.com/wc.dll?Wiki~WithLeaksLocals~VFP
>
>Yep,
>When you use some functions or any other EXTERNAL to WITH...ENDWITH could be dangerous, but with simple REPLACE?

Absolutely!

WITH SOMETHING
REPLACE SOMEFIELD WITH MYUDF()
ENDWITH

MYUDF.PRG
IF M.THIS OR .THAT

".that" should have been "m.that", but oops. Try to debug this (or THAT) :)