>SET ANSI OFF >SET EXACT ON >CLEAR >* Turn rushmore reporting on >SYS(3054,2) >* Create a test cursor >CREATE CURSOR test (field C(10)) >INDEX on field TAG field >INDEX on PADR(ALLTRIM(field),5) TAG field_t >* Put some data in the cursor >FOR i = 1 TO 10000 > INSERT INTO test VALUES (SYS(2015)) >ENDFOR > >* Determine the last value >cValue = LEFT(test.field,LEN(ALLTRIM(test.field))-1) >* Try the untrimmed index >?"This one works" >?"---------------------------------" >SELECT * FROM test WHERE field = cValue INTO CURSOR index >* Try the trimmed index >? >?"This one does not work" >?"---------------------------------" >SELECT * FROM test WHERE PADR(ALLTRIM(field),5) = cValue INTO CURSOR noindex >