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 ]