My dear Professor

SELECT Trial
index on  code to a
GO TOP
lcFirstLeft   = LEFT(code,1)
lcNextReplace = 0
SCAN
   IF NOT LEFT(code,1) == m.lcFirstLeft
      lcFirstLeft   = LEFT(code,1)
      lcNextReplace = 0
   ENDIF
   m.lcNextReplace = m.lcNextReplace+1 
   REPLACE code2 WITH INT(VAL(lcFirstLeft+PADL(m.lcNextReplace,2,[0])))
ENDSCAN

Your above codes display following results

801--------1
803--------2
807--------3
809--------4
902--------5
905--------6
906--------7
908--------8

But I need following results
column2=alltrim(substr(column1,1,2))+auto increment number starts from 1 as below

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

Please help again