hi all,
is there away to convert any fields at my table have characters type,

without determine the fields that need to convert as.

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

thanks