Additon in character type data

Dear Experts

Field1 of Table1 has character type data, 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

Please help

Visual FoxPro2

Dear Experts

Field1 of Table1 has character type data, 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
Please help

sele Table1

go top

i = 1

do while !eof()

if i = 4

i = 1

endi

mfield2 = substr(alltrim(field1),1,2)

LcField2 = RIGHT("mField2"+ALLTRIM(STR(i)),3)

i = i + 1

skip

repl field2 with Lcfield2

enddo

HTH

Dear Sir,

Following line needs to edit

if i = 4

i = 1

endi

Becuase codes of every group my vary in quantity.

such as

501------------501

508-----------502

801--------801

803--------802
807--------803
902--------901
905--------902
906--------903
908--------904

Please help again

For us to help you, you have to tell us what the rules are for making the change.

Is the idea that you want to take all the values with the same first digit and renumber them in order

Tamar

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

Dear Experts

Field1 of Table1 has character type data, 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
Please help

changed this to

mfield2 = ""

if substr(field1,1,2)<>mfield2

i = 1

endi
if i = 4

i = 1

endi
sele Table1

go top

i = 1

do while !eof()

    if i = 4

       i = 1

    endi

    mfield2 = substr(alltrim(field1),1,2)

   LcField2 = RIGHT("mField2"+ALLTRIM(STR(i)),3)

     i = i + 1

     skip

     repl field2 with Lcfield2

enddo

HTH

Tariq,

This is one way.