>>>How to simplify this to remove the EVALUATE() and make it more readable?
>>>
>>>
>>>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
>>>
>I forget that I can use WITH in PRG code! Thanks!
Oh, is this a v9 thing?
- Whoever said that women are the weaker sex never tried to wrest the bedclothes off one in the middle of the night
- Worry is the interest you pay, in advance, for a loan that you may never need to take out.
