找到基本的例子

一个简单的 sports2000 示例：

FIND FIRST Customer NO-LOCK WHERE CustNum = 1 NO-ERROR.
IF AVAILABLE Customer THEN DO:
    DISPLAY Customer.NAME.
END.
ELSE DO:
    MESSAGE "No record available".
END.

首先 - 找到与查询匹配的第一条记录

NO-LOCK - 不要锁定记录 - 这意味着我们只会读取而不会更改记录。

WHERE - 这是查询

NO-ERROR - 如果没有任何记录，请不要失败。

（IF）可用客户 - 检查我们是否找到了记录

findLoop:
REPEAT :
    FIND NEXT Customer NO-LOCK WHERE NAME BEGINS "N" NO-ERROR.

    IF AVAILABLE customer THEN DO:
        DISPLAY Customer.NAME.
    END.
    ELSE DO:
        LEAVE findLoop.
    END.
END.