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 &&error
 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