The FIND statement locates a specific record in the database and
  establishes it as the current record of the run unit.

  Format 1 -

   FIND database-record [ FOR UPDATE ]

      [          [{| REALM                    |}]         ]
      [RETAINING [{| RECORD                   |}] CURRENCY]
      [          [{| { SET [ set-name ] ... } |}]         ]
      [          [{| { { set-name } ...     } |}]         ]

      [{ [ AT END stment ]  [ NOT AT END stment ]      } ]
      [{ [ ON ERROR stment ]  [ NOT ON ERROR stment ]  } ]

      [ END-FIND ]

1 - database-record

  represents a record selection expression.  References are made to a
  record in the database according to the rules for Record Selection
  Expressions.

2 - set-name

  names a subschema set type.

3 - stment

  is an imperative statement.