>>>>>

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

Hmm, I was talk about simple REPLACE :-)

WITH Something
     REPLACE SOMEFIELD WITH .SomeProperty
ENDWITH