PUBLIC newname close database USE CNV_WORD IN A ORDER 2 USE code99 IN C SELECT C NEW_WORK = SPACE(1) IND_1 = 1 DO WHILE .NOT. EOF() OLD_NAME = cname do cnv_work * REPLACE cname WITH NEWNAME&&works replace (any fields is characters type) WITH NEWNAME&&& IF .NOT. EOF() SKIP ENDIF ENDDO brow procedure cnv_work SELECT A wrk_leng = len(alltrim(old_name))+1 DO WHILE IND_1 < wrk_leng WRK_CHRS = SUBSTR(OLD_NAME,IND_1,1) SEEK WRK_CHRS IF FOUND() NEW_WORK = NEW_WORK + WND_CHRS ELSE NEW_WORK = NEW_WORK + WRK_CHRS ENDIF IND_1 = IND_1 + 1 ENDDO NEWNAME = NEW_WORK NEW_WORK = SPACE(1) IND_1 = 1 select c returnthanks