C'm on,
it might not be everybodys way, but this is
foxpro#DEFINE SCAN IF
#DEFINE FOR
#DEFINE ENDSCAN ENDIF
CREATE CURSOR murks (id_no c(10), no i)
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
#UNDEFINE SCAN
#UNDEFINE FOR
#UNDEFINE ENDSCAN
?no
Agnes
>Have you ever seen the syntax Scan-else-Endscan? It's new to me. The bottom line is that it will give an error, and even if VFP would not catch the error, the Else statement would never execute since the scan already excluded those records.
>
>>Why not?
>>
>>no # id_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]