Your code won't work!

scan 
  if LEN(ALLTRIM(id_no))==10 AND CHRTRAN(ALLTRIM(id_no),"1234567890","")==""
    replace no WITH 111
  else &&error
    replace no WITH 1
  endif
endscan

>thank you it works
>
>i need to use it as below
>

>scan FOR LEN(ALLTRIM(id_no))==10 AND CHRTRAN(ALLTRIM(id_no),"1234567890","")==""
>    replace no WITH 111
> else &&error
>    replace no WITH 1
>endscan
>
>

>thanks
>>Hi,
>>
>>>if the data (exactly 10 numbers) as 1562907543
>>
>>IF LEN(ALLTRIM(data))==10 AND CHRTRAN(ALLTRIM(data),"1234567890","")==""