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