Create a string of all legal characters, and compare it to the field value

lcLegal=[abcedefghijklmnopqrstuvwxyz0123456789.,'" ] + upper([abcedefghijklmnopqrstuvwxyz]) 
*You must modify the previous line to fit your need
if !empty(chrtran(fieldx,lcLegal,'')) && the field contains illegal data
  replace field2 with 111
else
  replce field2 with 1
endif

>hi all,
>

>if the field have data as 123456Arabic characters as (568329 ???)
>  replace field2 with 111
>else
>replce field2 with 1
>endif
>

>thank for help