SET FEEDBACK OFF NUMWIDTH 10 LINESIZE 32767 TRIMSPOOL ON TAB OFF PAGESIZE 0 EMB ON
SET APPINFO ON DEFINE "&" VERIFY OFF SERVEROUTPUT ON SIZE 1000000 FORMAT TRUNCATED
-- ALTER SESSION SET PLSQL_CCFLAGS='XTT_TESTING:TRUE';
-- REM DON'T FORGET ABOUT THIS SPOOL
SPOOL %%tmp%%/xttprepare.cmd
DECLARE
l_detnew CONSTANT BOOLEAN := ('%%type%%' = 'DETNEW');
l_prepare CONSTANT BOOLEAN := ('%%type%%' = 'PREPARE');
l_transfer CONSTANT BOOLEAN := ('%%type%%' = 'TRANSFER');
l_prepnext CONSTANT BOOLEAN := ('%%type%%' = 'PREPNEXT');
l_transport CONSTANT BOOLEAN := ('%%type%%' = 'BACKUP');
lc_batch_size CONSTANT NUMBER := 10000;
DEBUG CONSTANT BOOLEAN := FALSE;
CRLF CONSTANT BOOLEAN := TRUE;
PLAN CONSTANT BOOLEAN := TRUE;
l_tsn dbms_sql.number_table;
l_names dbms_sql.varchar2_table;
l_dnames dbms_sql.varchar2_table;
l_fnames dbms_sql.varchar2_table;
l_prev user_tablespaces.tablespace_name%TYPE;
l_files dbms_sql.number_table;
l_ckpch dbms_sql.number_table;
l_pname v$database.platform_name%TYPE;
l_stageondest CONSTANT VARCHAR2(4000) := '%%stageondest%%';
l_storageondest CONSTANT VARCHAR2(4000) := '%%storageondest%%';
l_dfcopydir CONSTANT VARCHAR2(4000) := '%%dfcopydir%%';
l_tmp CONSTANT VARCHAR2(4000) := '%%tmp%%';
l_parallelism CONSTANT VARCHAR2(200) := '%%parallel%%';
l_backupdir CONSTANT VARCHAR2(4000) := '%%backupformat%%';
-- The hints for the query below are handcrafted
-- and should cover 11g (w/ and w/o the fix for
-- bug#8248459 in place) well as 12c. Ideally a
-- backport of 8248459 has to be applied on both
-- source and target databases.
CURSOR dc
IS
SELECT ts#
, name
, df.dname
, df.fname
, file#
, checkpoint_change#
FROM (
SELECT /*+
LEADING(t.x$kccts)
USE_HASH(d.df)
FULL(t.x$kccts)
FULL(d.df)
USE_HASH(d.fe)
USE_HASH(d.fn)
USE_HASH(d.fh)
LEADING(d.fe d.fn d.fh)
*/
ROW_NUMBER()
OVER (
PARTITION BY d.ts# ORDER BY file#
) rn
, MIN(
CASE
WHEN enabled = 'READ WRITE'
AND status = 'ONLINE'
THEN d.ts#
ELSE -d.ts#
END
) OVER (
PARTITION BY d.ts#
) ts#
, t.name
, REGEXP_REPLACE(d.name, '(.*)/(.*)', '\1') dname
, REGEXP_REPLACE(d.name, '(.*)/(.*)', '\2') fname
, file#
, MIN(checkpoint_change#)
OVER (
PARTITION BY d.ts#
) checkpoint_change#
FROM $IF $$XTT_TESTING
$THEN
(
SELECT USERENV('INSTANCE') inst_id
, ts#
, CASE WHEN ts# = 0
THEN status
WHEN ts# IN (8)
THEN 'OFFLINE'
ELSE 'ONLINE'
END status
, CASE WHEN ts# = 0
THEN enabled
WHEN ts# IN (9)
THEN 'READ ONLY'
ELSE 'READ WRITE'
END enabled
, file#
, checkpoint_change#
FROM gv$datafile
)
$ELSE
gv$datafile
$END d
, v$tablespace t
WHERE d.ts# = t.ts#
AND d.inst_id = USERENV('INSTANCE')
AND t.name IN (
%%TABLESPACES%%
)
) df
WHERE rn = 1
OR ts# > 0
ORDER BY
ts#
, rn
;
PROCEDURE d (
i_msg VARCHAR2 DEFAULT NULL, i_crlf BOOLEAN DEFAULT TRUE
)
IS
BEGIN
IF (DEBUG)
THEN
IF (i_crlf)
THEN
dbms_output.put_line(
'#DEBUG:' || i_msg
);
ELSE
dbms_output.put(
'#DEBUG:' || i_msg
);
END IF;
END IF;END d;
PROCEDURE t (
i_msg VARCHAR2 DEFAULT NULL, i_crlf BOOLEAN DEFAULT TRUE
)
IS
l_prepend VARCHAR2(256) := '#TRANSFER:';BEGIN
IF (l_transfer)
THEN
IF (i_crlf)
THEN
dbms_output.put_line(
l_prepend || 'source_file_name=' || i_msg || ''
);
ELSE
dbms_output.put(
l_prepend || 'source_file_name=' || i_msg || ''
);
END IF;
END IF;END t;
PROCEDURE p (
i_msg VARCHAR2 DEFAULT NULL, i_crlf BOOLEAN DEFAULT TRUE
)
IS
l_prepend VARCHAR2(256) := CASE
WHEN (l_prepare OR l_transfer OR
l_transport)
THEN '#PLAN:'
ELSE ' '
END;BEGIN
IF ((l_prepare OR l_transfer OR l_transport) OR l_detnew)
THEN
IF (i_crlf)
THEN
dbms_output.put_line(
l_prepend || i_msg
);
ELSE
dbms_output.put(
l_prepend || i_msg
);
END IF;
END IF;END p;
PROCEDURE r (
i_msg VARCHAR2 DEFAULT NULL, i_crlf BOOLEAN DEFAULT TRUE
)
IS
BEGIN
IF (l_prepare) THEN
IF (i_crlf)
THEN
dbms_output.put_line(
'#CONVERT:' || i_msg
);
ELSE
dbms_output.put(
'#CONVERT:' || i_msg
);
END IF;
END IF;END r;
PROCEDURE cp (
i_msg VARCHAR2 DEFAULT NULL, i_crlf BOOLEAN DEFAULT TRUE
)
IS
BEGIN
IF (l_prepare OR l_transport)
THEN
IF (i_crlf)
THEN
dbms_output.put_line(i_msg);
ELSE
dbms_output.put(i_msg);
END IF;
END IF;END cp;
PROCEDURE t_listdatfiles (
i_msg VARCHAR2 DEFAULT NULL, i_dfdir BOOLEAN DEFAULT FALSE
)
IS
l_prepend VARCHAR2(256) := '#FNAME:';BEGIN
IF (l_transfer)
THEN
IF (i_dfdir)
THEN
l_prepend := '#DNAME:';
END IF;
dbms_output.put_line(
l_prepend || i_msg
);
END IF;END t_listdatfiles;
PROCEDURE t_newdatafiles (
i_msg VARCHAR2 DEFAULT NULL, i_crlf BOOLEAN DEFAULT TRUE
)
IS
l_prepend VARCHAR2(256) := '#NEWDESTDF:';BEGIN
IF (l_transfer OR l_transport)
THEN
IF (i_crlf)
THEN
dbms_output.put_line(
l_prepend || i_msg
);
ELSE
dbms_output.put(
l_prepend || i_msg
);
END IF;
END IF;END t_newdatafiles;
BEGIN
OPEN dc;
LOOP
FETCH dc
BULK COLLECT
INTO l_tsn
, l_names
, l_dnames
, l_fnames
, l_files
, l_ckpch
LIMIT lc_batch_size;
EXIT WHEN l_tsn.COUNT = 0;
FOR i IN 1..l_tsn.COUNT
LOOP
IF (((l_prepare OR l_transfer OR l_transport) OR l_prepnext) AND
l_tsn(i) < 1)
THEN
d( 'Tablespace ' || l_names(i) || ' [' || -l_tsn(i) || ']'
|| ' is special, read only or has some offline files! Skipping...'
);
RAISE_APPLICATION_ERROR(-20001, 'TABLESPACE(S) IS READONLY OR,
OFFLINE JUST CONVERT, COPY');
ELSE
IF (l_prepare AND l_pname IS NULL)
THEN
SELECT platform_name
INTO l_pname
FROM v$database;
END IF;
t_listdatfiles(l_dnames(i), TRUE);
t_listdatfiles(l_fnames(i));
d( 'Processing file# ' || l_files(i)
|| ' with checkpoint_change# ' || l_ckpch(i) || ' of '
|| l_names(i) || ' [' || l_tsn(i) || ']'
);
-- June 04 2014: Following change was done to allow many datafiles
-- to be copied together instead of be done in a serial manner.
-- It will be like backup as copy datafile x,y,z instead of the
-- current backup as copy datafile x, backup as copy datafile y.
IF (l_prev IS NULL)
THEN
p(l_names(i) || '::::' || TO_CHAR(l_ckpch(i), 'FM999999999999999'));
r('host ''echo ts::' || l_names(i) || ''';');
IF (l_prepare) THEN
r(' convert from platform ''' || l_pname || '''');
r(' datafile ');
cp('backup as copy tag ''' || 'prepare' || ''' datafile');
END IF;
IF (l_transport) THEN
cp('backup for transport allow inconsistent ' ||
'incremental level 0 datafile');
END IF;
END IF;
-- June 04 2014: Following change was done to allow many datafiles
-- to be copied together instead of be done in a serial manner.
-- It will be like backup as copy datafile x,y,z instead of the
-- current backup as copy datafile x, backup as copy datafile y.
IF (l_prev <> l_names(i))
THEN
r(' format ''' || l_storageondest || '/%N_%f.xtf''');
r(' parallelism ' || l_parallelism || ';');
p(l_names(i) || '::::' || TO_CHAR(l_ckpch(i), 'FM999999999999999'));
r('host ''echo ts::' || l_names(i) || ''';');
r(' convert from platform ''' || l_pname || '''');
r(' datafile ');
END IF;
r(' ' ||
CASE
WHEN l_prev = l_names(i)
THEN ','
ELSE ' '
END
|| ''''
|| l_stageondest || '/' || l_names(i)
|| '_' || l_files(i) || '.tf'''
);
-- Feb 2015: Print the directory names also
t(
l_names(i) || ',' || l_dnames(i) || ',' || l_fnames(i)
);
t_newdatafiles(
CASE
WHEN l_transport THEN
l_files(i) || ',' || l_storageondest || '/'
|| l_fnames(i)
ELSE
-- Feb 2015: Print the directory names also
l_files(i) || ',' || 'DESTDIR:' || l_dnames(i) || ',' || '/'
|| l_fnames(i)
END
);
cp(
CASE
-- June 04 2014: Following change was done to allow many datafiles
-- to be copied together instead of be done in a serial manner.
-- It will be like backup as copy datafile x,y,z instead of the
-- current backup as copy datafile x, backup as copy datafile y.
WHEN l_prev IS NULL
THEN ' '
ELSE ','
END
|| l_files(i)
);
p(l_files(i));
l_prev := l_names(i);
END IF;
END LOOP;END LOOP;
IF (l_prepare AND l_prev IS NOT NULL)
THEN
r(' format ''' || l_storageondest || '/%N_%f.xtf''');
r(' parallelism ' || l_parallelism || ';');
cp(' format ''' || l_dfcopydir || '/%N_%f.tf'';');END IF;
IF (l_transport AND l_prev IS NOT NULL)
THEN
cp(' format ''' || l_backupdir || '/%N_%f_%U.bkp'';');END IF;
CLOSE dc;
END;
/
SPOOL OFF
EXIT
