>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 >return >>