-- Erstellen einer Kopie der konsolidierten Datenbank
-- als Grundlage für das Extrahieren von Replikaten,
-- um dabei nicht den laufenden Betrieb der Original-Datenbank zu beeinträchtigen
--
-- Die Kopie der Datenbank wird mit IsolationLevel 3 (phantom reads) erstellt.
set option ISOLATION_LEVEL = 3;
checkpoint;
backup database directory 'D:\DATA\BACKUP\ZuDbExtract';

-- und dann in der aktuellen DB ein Remote Reset fuer alle neu erstellen/wiederangelegten Replikate
-- durchfuehren mit anschliessendem Commit;
begin
   for forNeueReplikate as crsNeueReplikate cursor
      for select user_name
            from sysremoteusers SRU inner join T_Replikat R on SRU.user_name = R.ReplikatName
            where flagIstFreigegeben = 0 and R.datLetzteAenderung > current date
      for read only
   do
      message 'Remote Reset für Replikat "' || user_name || '" ausführen'
         type info to client;
      execute immediate 'remote reset "' || user_name || '";';
   end for;
   commit;
end;

set option ISOLATION_LEVEL = 0;
commit;
-- Anschliessend darf die aktuelle DB wieder replizieren; die neuen Replikate werden aus der
-- Kopie heraus erstellt.