The FETCH statement is a combined FIND and GET that establishes a
  specific record in the database as the current record of the run unit and
  makes the record available to the run unit in the User Work Area.

  Format -

   FETCH 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-FETCH ]