>Dear Experts
>
>Field1 of Table1 has character type date, but digits.
>In Field2, I want to replace data as under
>

>801--------801
>803--------802
>807--------803
>809--------804
>
>902--------901
>905--------902
>906--------903
>908--------904
>

>
>In second column data is written by 1 digit addition but the first digit remain same.
>
>Please help

I hope you have order by Field1, if so:

SELECT MyTable
SET ORDER TO OrderByFirstField
GO TOP
lcFirstLeft   = LEFT(Field1,1)
lcNextReplace = 0
SCAN
   IF NOT LEFT(Field1,1) == m.lcFirstLeft
      lcFirstLeft   = LEFT(Field1,1)
      lcNextReplace = 0
   ENDIF
   m.lcNextReplace = m.lcNextReplace + 1
   REPLACE Field2 WITH INT(VAL(lcFirstLeft+PADL(m.lcNextReplace,2,[0])))
ENDSCAN