找到基本的例子

一個簡單的 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.