CLOSE DATABASES
OPEN DATABASE (HOME( ) + 'samples\data\testdata')
USE Customer && 打开 customer 表
GETEXPR 'Enter condition to locate ' TO gcTemp;
TYPE 'L' DEFAULT 'COMPANY = ""'
LOCATE FOR &gcTemp && 输入 LOCATE 表达式
IF FOUND( ) && 是否找到记录
DISPLAY && 如果找到，则显示这一条记录
ELSE && 如果没找到
? 'Condition ' + gcTemp + ' was not found ' && 显示一条信息
ENDIF
USE