USE tty in 0 m.tel=tel m.typ=typ USE sss in 0 scan LOCATE FOR tel=m.tel IF FOUND() replace typ with m.typ ELSE replace typ WITH SPACE(10) endif endscan