Jun 18, 2026, 10:38 AM

2026-06-18 08:38:15 +00:00
parent 4a8f4b10b8
commit 80b0d53c40
1 changed files with 75 additions and 0 deletions
@@ -0,0 +1,75 @@
+CREATE OR REPLACE PROCEDURE "BACKUP_SEQUENCE" (p#batch_id IN NUMBER DEFAULT NULL) ----spu 19.03.2014 central log
+IS
+  /*
+    popis: zalohuje sequence nekolikrat denne s productu i z publicu, pokud nastane
+    chyba posila se mail 
+  */
+  l#batch_id NUMBER;
+  l#cnt NUMBER;
+BEGIN
+
+  IF p#batch_id IS NULL THEN  --spu 19.03.2014 central log
+    -- nikdo ten process neridi, nema rodice, takze ho loguji jako novy
+    l#batch_id := neomag.log.begin_batch('neomag.backup_sequence');
+  ELSE
+    -- uz se vi, ze mam bezet, takze dam vedet, ze zacinam
+    l#batch_id := p#batch_id;
+    neomag.log.begin_childbatch(p#batch_id);
+  END IF;
+
+  DELETE FROM neomag.a_backup_sequence WHERE data_dt < SYSDATE - 30;
+
+  BEGIN
+    INSERT INTO neomag.a_backup_sequence (
+      data_dt, server, sequence_owner, sequence_name, min_value, max_value, 
+      increment_by, cycle_flag, order_flag, cache_size, last_number, stmt
+    )
+    SELECT 
+      SYSDATE AS data_dt, 'PRODUCT' AS server, sequence_owner, sequence_name, min_value, max_value, 
+      increment_by, cycle_flag, order_flag, cache_size, last_number,
+      ' create sequence neomag.' || sequence_name ||
+      ' minvalue ' || min_value ||
+      ' maxvalue ' || max_value ||
+      ' start with ' || to_char(last_number + increment_by) ||
+      ' increment by ' || increment_by ||
+      ' cache ' || cache_size || DECODE(cycle_flag, 'Y', ' cycle') || ';' AS stmt
+    FROM all_sequences a 
+    WHERE sequence_owner = 'NEOMAG';
+    
+    l#cnt := SQL%ROWCOUNT;
+  EXCEPTION
+    WHEN OTHERS THEN
+      neomag.mail.sendMessage('neomag@product.cekia.cz', 'pukl@cekia.cz;danda@cekia.cz', '!!! nesly stahnout sequence neomagu z PRODUCTU', SQLERRM);
+  END;
+
+  BEGIN
+    INSERT INTO neomag.a_backup_sequence (
+      data_dt, server, sequence_owner, sequence_name, min_value, max_value, 
+      increment_by, cycle_flag, order_flag, cache_size, last_number, stmt
+    )
+    SELECT 
+      SYSDATE AS data_dt, 'PRODUCT' AS server, sequence_owner, sequence_name, min_value, max_value, 
+      increment_by, cycle_flag, order_flag, cache_size, last_number,
+      ' create sequence neomag.' || sequence_name ||
+      ' minvalue ' || min_value ||
+      ' maxvalue ' || max_value ||
+      ' start with ' || to_char(last_number + increment_by) ||
+      ' increment by ' || increment_by ||
+      ' cache ' || cache_size || DECODE(cycle_flag, 'Y', ' cycle') || ';' AS stmt
+    FROM all_sequences@NEOMAG.PUBLIC_LINK.BISNODE.CZ a 
+    WHERE sequence_owner = 'NEOMAG';
+
+    l#cnt := l#cnt + SQL%ROWCOUNT;
+  EXCEPTION
+    WHEN OTHERS THEN
+      neomag.mail.sendMessage('neomag@product.cekia.cz', 'pukl@cekia.cz;danda@cekia.cz', '!!! nesly stahnout sequence neomagu z PUBLICU', SQLERRM);
+  END;
+
+  COMMIT;
+  neomag.log.end_batch(l#batch_id, neomag.log.c#ok, l#cnt);
+
+EXCEPTION 
+  WHEN OTHERS THEN
+    neomag.log.end_batch(l#batch_id, neomag.log.c#error, NULL, 'EXCEPTION:' || DBMS_UTILITY.FORMAT_ERROR_STACK);
+
+END backup_sequence;