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