admin/mars
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compare commits

base: admin:86535048fcd570f64d502f02084b4860cd319e9a
Branches Tags
admin:main admin:develop
...
compare: admin:b96becd8efdd51156c0a04f4d4e0f4c42a506731
Branches Tags
admin:main admin:develop

2 Commits
86535048fc ... b96becd8ef

Author SHA1 Message Date
Grzegorz Michalski
b96becd8ef Add autonomous transaction pragma to ARCHIVE_TABLE_DATA and GATHER_TABLE_STAT procedures for improved transaction handling 2026-02-11 07:36:52 +01:00
Grzegorz Michalski
b1bb24e487 Refactor file retrieval logic in ARCHIVE_TABLE_DATA and GATHER_TABLE_STAT procedures to simplify queries and enhance clarity 2026-02-10 14:03:52 +01:00
1 changed files with 16 additions and 12 deletions
Expand all files Collapse all files

28
MARS_Packages/REL01_ADDITIONS/MARS-828/new_version/FILE_ARCHIVER.pkb
View File

@@ -533,12 +533,13 @@ AS
-- LEVEL 3: Restore single file by A_SOURCE_FILE_RECEIVED_KEY -- LEVEL 3: Restore single file by A_SOURCE_FILE_RECEIVED_KEY
BEGIN BEGIN
SELECT r.*, c.* SELECT *
INTO vSourceFileReceived, vSourceFileConfig INTO vSourceFileReceived
FROM CT_MRDS.A_SOURCE_FILE_RECEIVED r FROM CT_MRDS.A_SOURCE_FILE_RECEIVED
JOIN CT_MRDS.A_SOURCE_FILE_CONFIG c ON r.A_SOURCE_FILE_CONFIG_KEY = c.A_SOURCE_FILE_CONFIG_KEY WHERE A_SOURCE_FILE_RECEIVED_KEY = pSourceFileReceivedKey
WHERE r.A_SOURCE_FILE_RECEIVED_KEY = pSourceFileReceivedKey AND PROCESSING_STATUS = 'ARCHIVED_AND_TRASHED';
AND r.PROCESSING_STATUS = 'ARCHIVED_AND_TRASHED';
vSourceFileConfig := CT_MRDS.FILE_MANAGER.GET_SOURCE_FILE_CONFIG(pSourceFileConfigKey => vSourceFileReceived.A_SOURCE_FILE_CONFIG_KEY);
EXCEPTION EXCEPTION
WHEN NO_DATA_FOUND THEN WHEN NO_DATA_FOUND THEN
RAISE_APPLICATION_ERROR(-20101, 'File not found or status is not ARCHIVED_AND_TRASHED for A_SOURCE_FILE_RECEIVED_KEY: ' || pSourceFileReceivedKey); RAISE_APPLICATION_ERROR(-20101, 'File not found or status is not ARCHIVED_AND_TRASHED for A_SOURCE_FILE_RECEIVED_KEY: ' || pSourceFileReceivedKey);
@@ -702,12 +703,13 @@ AS
-- LEVEL 3: Delete single file by A_SOURCE_FILE_RECEIVED_KEY -- LEVEL 3: Delete single file by A_SOURCE_FILE_RECEIVED_KEY
BEGIN BEGIN
SELECT r.*, c.* SELECT *
INTO vSourceFileReceived, vSourceFileConfig INTO vSourceFileReceived
FROM CT_MRDS.A_SOURCE_FILE_RECEIVED r FROM CT_MRDS.A_SOURCE_FILE_RECEIVED
JOIN CT_MRDS.A_SOURCE_FILE_CONFIG c ON r.A_SOURCE_FILE_CONFIG_KEY = c.A_SOURCE_FILE_CONFIG_KEY WHERE A_SOURCE_FILE_RECEIVED_KEY = pSourceFileReceivedKey
WHERE r.A_SOURCE_FILE_RECEIVED_KEY = pSourceFileReceivedKey AND PROCESSING_STATUS = 'ARCHIVED_AND_TRASHED';
AND r.PROCESSING_STATUS = 'ARCHIVED_AND_TRASHED';
vSourceFileConfig := CT_MRDS.FILE_MANAGER.GET_SOURCE_FILE_CONFIG(pSourceFileConfigKey => vSourceFileReceived.A_SOURCE_FILE_CONFIG_KEY);
EXCEPTION EXCEPTION
WHEN NO_DATA_FOUND THEN WHEN NO_DATA_FOUND THEN
RAISE_APPLICATION_ERROR(-20301, 'File not found or status is not ARCHIVED_AND_TRASHED for A_SOURCE_FILE_RECEIVED_KEY: ' || pSourceFileReceivedKey); RAISE_APPLICATION_ERROR(-20301, 'File not found or status is not ARCHIVED_AND_TRASHED for A_SOURCE_FILE_RECEIVED_KEY: ' || pSourceFileReceivedKey);
@@ -850,6 +852,7 @@ AS
pPurgeAll IN BOOLEAN DEFAULT FALSE pPurgeAll IN BOOLEAN DEFAULT FALSE
) RETURN PLS_INTEGER ) RETURN PLS_INTEGER
IS IS
PRAGMA AUTONOMOUS_TRANSACTION;
vParameters CT_MRDS.A_PROCESS_LOG.PROCEDURE_PARAMETERS%TYPE; vParameters CT_MRDS.A_PROCESS_LOG.PROCEDURE_PARAMETERS%TYPE;
BEGIN BEGIN
vParameters := CT_MRDS.ENV_MANAGER.FORMAT_PARAMETERS(SYS.ODCIVARCHAR2LIST( vParameters := CT_MRDS.ENV_MANAGER.FORMAT_PARAMETERS(SYS.ODCIVARCHAR2LIST(
@@ -881,6 +884,7 @@ AS
pRestoreAll IN BOOLEAN DEFAULT FALSE pRestoreAll IN BOOLEAN DEFAULT FALSE
) RETURN PLS_INTEGER ) RETURN PLS_INTEGER
IS IS
PRAGMA AUTONOMOUS_TRANSACTION;
vParameters CT_MRDS.A_PROCESS_LOG.PROCEDURE_PARAMETERS%TYPE; vParameters CT_MRDS.A_PROCESS_LOG.PROCEDURE_PARAMETERS%TYPE;
BEGIN BEGIN
vParameters := CT_MRDS.ENV_MANAGER.FORMAT_PARAMETERS(SYS.ODCIVARCHAR2LIST( vParameters := CT_MRDS.ENV_MANAGER.FORMAT_PARAMETERS(SYS.ODCIVARCHAR2LIST(