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