The DISCONNECT statement logically removes the current record of the run
  unit from one or more sets.

  Format -

   DISCONNECT [record-name] FROM { { set-name } ... }
                                 { ALL              }

      [ ON ERROR stment ] [ NOT ON ERROR stment ]

      [ END-DISCONNECT ]