I like code obfuscation.
Even better (since we did'nt know he has field no)

#DEFINE SCAN IF
#DEFINE FOR
#DEFINE ENDSCAN ENDIF
#DEFINE REPLACE 
#DEFINE WITH =

CREATE CURSOR murks (id_no c(10))

APPEND BLANK


SCAN FOR LEN(ALLTRIM(id_no))==10 AND CHRTRAN(ALLTRIM(id_no),"1234567890","")==""
 REPLACE no WITH 111
ELSE &&error
 REPLACE no WITH 1
ENDSCAN
LOCATE

?no

(^.^)