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
REPLACE no WITH 1
ENDSCAN
LOCATE
?no
(^.^)
Words are given to man to enable him to conceal his true feelings.
Charles Maurice de Talleyrand-Périgord
Weeks of programming can save you hours of planning.
OffThere is no place like [::1]
