If you wish to index on a different field, simply change the reference to "first" to your desired field name. As with all commands, click on Edit>Fields and then use the syntax below in the Syntax box.
Code: Select all
SET SAFETY OFF
ON ERROR com_message=message()
index on ALLT(first) tag mytag
copy to "C:\temp.dbf"
ZAP
APPEND FROM C:\temp.dbf
ALTER TABLE ALIAS() ADD COLUMN record C(4)
REPLACE ALL RECORD WITH PADL(ALLT(STR(RECNO())),4,"0")
index on ALLT(zip) tag myzip
copy to C:\temp.dbf
ZAP
APPEND FROM C:\temp.dbf
DELETE C:\temp.dbf