hi all,
i write this small code,it works,
but i search for somthing more logic.

USE NEWAMAR66
SET FILTER TO  CHAR8="ÌäæÈ ÚãÇä                                         "                                   
REPLACE ALL  CHAR18 WITH "3"

SET FILTER TO  CHAR8="ãÍÇÝÙÉ ÇÑÈÏ                                       "                                   
REPLACE ALL  CHAR18 WITH "8"

SET FILTER TO  CHAR8="ÛÑÈ ÚãÇä                                          "                                   
REPLACE ALL  CHAR18 WITH "2"
.
.
.

thanks
m.qasem