/*--------------------------------------------------------------*/
/* Datensicht ist lt. In-Parametern geaendert                   */
/*--------------------------------------------------------------*/

self-->Update();

if $RC = #self.#RC_OK
then do;
  .quit with #self.#RC_OK;
end;

/*--------------------------------------------------------------*/
/* Aenderung fehlgeschlagen, jetzt Fehlerbehandlung             */
/*--------------------------------------------------------------*/

.reset-ds;

/*--------------------------------------------------------------*/
/* Datensicht ist unveraendert                                  */
/*--------------------------------------------------------------*/

select ($RC);
  when (#self.#RC_NOTEXIST)
  do;
    .set-rc (#self.#RC_KTOBUCH_NOTEXIST);
  end;
  when (#self.#RC_CHANGED)
  do;
    .set-rc (#self.#RC_KTOBUCH_CHANGED);
  end;
  otherwise
  do;
    .set-sf("Returncode nicht spezifiziert");
  end;
end;