USE dnn
SELECT seco
USE dnc
SELECT PRIMARY
LOCATE FOR code= '*' 
SELECT seco
USE dnmc 
INDEX ON cno TO dnxmc
SET INDEX TO dnxmc
SELECT PRIMARY
DO WHILE .not.eof
 STORE # TO newnumber
 STORE str(no,5) TO nnn
 SELECT seco
 FIND &nnn
 IF no=cno
  REPLACE cno WITH newnumber
 ELSE
  LOCA for cno=no
  IF no=cno
   REPLACE cno WITH newnumber
  ENDIF
 ENDIF
 SELECT PRIMARY
 CONTINUE
ENDDO WHILE .not.eof 
REPLACE ALL no WITH #
REPLACE ALL date WITH update
REPLACE ALL name WITH $(name,1,@(',',name)-1)+'*'+;
$(name,@(',',name)+1,len(trim(name))-@(',',name)+1) for ','$name
INDEX ON $(name,1,20) TO dnxn
USE dnc
REPLACE ALL nno WITH #
INDEX ON phone TO dnxc
RETURN