CONNECT &SOURCE_CONN
DECLARE
F1 UTL_FILE.FILE_TYPE;
CURSOR c IS SELECT OWNER,SEGMENT_NAME,PARTITION_NAME FROM DBA_SEGMENTS WHERE TABLESPACE_NAME IN ('&TBS_EXP1','&TBS_EXP2','&TBS_EXP3') AND OWNER='&SCHEMA_EXP' AND SEGMENT_NAME NOT LI
KE '%$%' AND SEGMENT_TYPE like 'TABLE%' and segment_name like '%CALL%' and segment_name not like '%MSC%';
rec c%rowtype;
dir_path VARCHAR2(50);
v VARCHAR2(32000) DEFAULT '';
BEGIN
SELECT DIRECTORY_NAME INTO dir_path FROM DBA_DIRECTORIES WHERE LOWER(DIRECTORY_PATH) = LOWER('&EXPDIR') AND ROWNUM <2;
IF NOT c%ISOPEN THEN
OPEN c;
END IF;
FETCH c INTO rec;
WHILE c%FOUND
LOOP
if rec.PARTITION_NAME is not null then
v:= v||rec.owner||'.'||rec.SEGMENT_NAME||':'||rec.PARTITION_NAME||',' ;
else
v:= v||rec.owner||'.'||rec.SEGMENT_NAME||',';
end if;
FETCH c INTO rec;
END LOOP;
v:=rtrim(v,',') ;
--DBMS_OUTPUT.put_line(v);
F1:=UTL_FILE.fopen(location =>dir_path ,filename =>'&EXPTBSSCR' ,open_mode => 'w',max_linesize => 32000);
--UTL_FILE.put(F1,'!');
UTL_FILE.put(F1,'expdp userid='||'"''&SOURCE_CONN''"'||' parallel=&PARALLEL '||'EXCLUDE=INDEX,GRANT,CONSTRAINT,TRIGGER ESTIMATE=STATISTICS '||' tables=');
UTL_FILE.put(F1,v);
UTL_FILE.put(F1,' '||'directory='||'&dir_path_exp'||' dumpfile=''&DUMPFILE'''||' NOLOGFILE=Y');
-- UTL_FILE.put(F1,' '||'directory='||'&dir_path_exp'||' dumpfile=''&DUMPFILE'''||' LOGFILE=''&EXPLOG'''||' JOB_NAME=''exp_&TBS_EXP1&TBS_EXP2&TBS_EXP3''');
UTL_FILE.new_line(F1);
UTL_FILE.fclose(F1);
EXCEPTION
WHEN NO_DATA_FOUND then
DBMS_OUTPUT.put_line('EXPORT DIRECTORY DOESN''T EXIST .PLEASE CHECK DATABASE!!!!!!!!');
WHEN OTHERS then
DBMS_OUTPUT.put_line('LOI KHONG XAC DINH !!!!!!!!');
END;
/
/* Generate script Import */
DECLARE
F1 UTL_FILE.FILE_TYPE;
CURSOR c1 IS
SELECT OWNER, SEGMENT_NAME, PARTITION_NAME
FROM DBA_SEGMENTS
WHERE TABLESPACE_NAME IN ('&TBS_EXP1','&TBS_EXP2','&TBS_EXP3')
AND OWNER = '&SCHEMA_EXP'
AND SEGMENT_TYPE like 'TABLE%';
CURSOR c2 IS
SELECT DISTINCT TABLESPACE_NAME
FROM DBA_SEGMENTS d1
WHERE OWNER = '&SCHEMA_EXP'
AND EXISTS (SELECT 1
FROM DBA_SEGMENTS d2
WHERE TABLESPACE_NAME IN ('&TBS_EXP1','&TBS_EXP2','&TBS_EXP3')
AND OWNER = '&SCHEMA_EXP'
AND SEGMENT_TYPE like 'TABLE%'
and d1.segment_name = d2.segment_name);
rec1 c1%rowtype;
rec2 c2%rowtype;
dir_path VARCHAR2(4000);
v1 VARCHAR2(32000) DEFAULT '';
v2 VARCHAR2(32000) DEFAULT '';
BEGIN
SELECT DIRECTORY_NAME INTO dir_path FROM DBA_DIRECTORIES WHERE LOWER(DIRECTORY_PATH) = LOWER('&EXPDIR') AND ROWNUM <2;
IF NOT c1%ISOPEN THEN
OPEN c1;
END IF;
FETCH c1 INTO rec1;
WHILE c1%FOUND
LOOP
if rec1.PARTITION_NAME is not null then
v1:= v1||rec1.owner||'.'||rec1.SEGMENT_NAME||':'||rec1.PARTITION_NAME||',' ;
else
v1:= v1||rec1.owner||'.'||rec1.SEGMENT_NAME||',';
end if;
FETCH c1 INTO rec1;
END LOOP;
v1:=rtrim(v1,',') ;
IF NOT c2%ISOPEN THEN
OPEN c2;
END IF;
---
FETCH c2 INTO rec2;
WHILE c2%FOUND
LOOP
v2:= v2||rec2.TABLESPACE_NAME||':'||'&TBS_REMAP'||',';
FETCH c2 INTO rec2;
END LOOP;
v2:=rtrim(v2,',') ;
--
--DBMS_OUTPUT.put_line(v);
F1:=UTL_FILE.fopen(location =>dir_path ,filename =>'&IMPTBSSCR' ,open_mode => 'w',max_linesize => 32000);
--UTL_FILE.put(F1,'host ');
UTL_FILE.put(F1,'impdp '||'userid="''&TARGET_CONN''" '|| 'parallel=&PARALLEL ');
--UTL_FILE.put(F1,'TABLES='||v1||' ');
UTL_FILE.put(F1,'REMAP_SCHEMA=&SCHEMA_EXP:&SCHEMA_IMP ');
--UTL_FILE.put(F1,'REMAP_TABLESPACE='||v2||' ');
UTL_FILE.put(F1,'directory=&IMPDIRNAME ');
UTL_FILE.put(F1,'dumpfile=''&DUMPFILE'' ');
UTL_FILE.put(F1,'LOGFILE=''&IMPLOG'' ');
UTL_FILE.put(F1,'JOB_NAME=''imp_&TBS_EXP1&TBS_EXP2&TBS_EXP3'' ');
UTL_FILE.put(F1,'TABLE_EXISTS_ACTION=APPEND');
UTL_FILE.new_line(F1);
UTL_FILE.fclose(F1);
EXCEPTION
WHEN NO_DATA_FOUND then
DBMS_OUTPUT.put_line('DIRECTORY DOESN''T EXIST .PLEASE CHECK DATABASE!!!!!!!!');
END;
/
/* Generate script compress */
DECLARE
F1 UTL_FILE.FILE_TYPE;
CURSOR c IS
SELECT * FROM (
SELECT 'ALTER TABLE ' || OWNER || '.' || SEGMENT_NAME ||
' MOVE PARTITION ' || PARTITION_NAME || ' COMPRESS TABLESPACE &TBS_COMPRESS1 '||' PARALLEL &PARALLEL;' ALTERTB
FROM DBA_SEGMENTS
WHERE TABLESPACE_NAME = '&TBS_EXP1'
AND OWNER = '&SCHEMA_EXP'
AND SEGMENT_TYPE like 'TABLE%'
UNION ALL
SELECT 'ALTER TABLE ' || OWNER || '.' || SEGMENT_NAME ||
' MOVE PARTITION ' || PARTITION_NAME || ' COMPRESS TABLESPACE &TBS_COMPRESS2 '||' PARALLEL &PARALLEL;' ALTERTB
FROM DBA_SEGMENTS
WHERE TABLESPACE_NAME = '&TBS_EXP2'
AND OWNER = '&SCHEMA_EXP'
AND SEGMENT_TYPE like 'TABLE%'
UNION ALL
SELECT 'ALTER TABLE ' || OWNER || '.' || SEGMENT_NAME ||
' MOVE PARTITION ' || PARTITION_NAME || ' COMPRESS TABLESPACE &TBS_COMPRESS3 '||' PARALLEL &PARALLEL;' ALTERTB
FROM DBA_SEGMENTS
WHERE TABLESPACE_NAME = '&TBS_EXP3'
AND OWNER = '&SCHEMA_EXP'
AND SEGMENT_TYPE like 'TABLE%'
)
order by 1 ;
rec c%rowtype;
dir_path VARCHAR2(50);
BEGIN
SELECT DIRECTORY_NAME INTO dir_path FROM DBA_DIRECTORIES WHERE LOWER(DIRECTORY_PATH) = LOWER('&EXPDIR') AND ROWNUM <2;
F1:=UTL_FILE.fopen(location =>dir_path ,filename =>'&COMPRESSSCR' ,open_mode => 'w',max_linesize => 32000);
IF NOT c%ISOPEN THEN
OPEN c;
END IF;
FETCH c INTO rec;
WHILE c%FOUND
LOOP
UTL_FILE.put(F1,rec.ALTERTB);
UTL_FILE.new_line(F1);
FETCH c INTO rec;
END LOOP;
UTL_FILE.put(F1,'ALTER TABLESPACE &TBS_COMPRESS1 READ ONLY;');
UTL_FILE.new_line(F1);
UTL_FILE.put(F1,'ALTER TABLESPACE &TBS_COMPRESS2 READ ONLY;');
UTL_FILE.new_line(F1);
UTL_FILE.put(F1,'ALTER TABLESPACE &TBS_COMPRESS3 READ ONLY;');
UTL_FILE.new_line(F1);
UTL_FILE.fclose(F1);
END;
/
Website không chứa bất kỳ quảng cáo nào, mọi đóng góp để duy trì phát triển cho website (donation) xin vui lòng gửi về STK 90.2142.8888 - Ngân hàng Vietcombank Thăng Long - TRAN VAN BINH
=============================
Nếu bạn không muốn bị AI thay thế và tiết kiệm 3-5 NĂM trên con đường trở thành DBA chuyên nghiệp hay làm chủ Database thì hãy đăng ký ngay KHOÁ HỌC ORACLE DATABASE A-Z ENTERPRISE, được Coaching trực tiếp từ tôi với toàn bộ bí kíp thực chiến, thủ tục, quy trình của gần 20 năm kinh nghiệm (mà bạn sẽ KHÔNG THỂ tìm kiếm trên Internet/Google) từ đó giúp bạn dễ dàng quản trị mọi hệ thống Core tại Việt Nam và trên thế giới, đỗ OCP.
- CÁCH ĐĂNG KÝ: Gõ (.) hoặc để lại số điện thoại hoặc inbox https://m.me/tranvanbinh.vn hoặc Hotline/Zalo 090.29.12.888
- Chi tiết tham khảo:
https://bit.ly/oaz_w
=============================
2 khóa học online qua video giúp bạn nhanh chóng có những kiến thức nền tảng về Linux, Oracle, học mọi nơi, chỉ cần có Internet/4G:
- Oracle cơ bản: https://bit.ly/admin_1200
- Linux: https://bit.ly/linux_1200
=============================
KẾT NỐI VỚI CHUYÊN GIA TRẦN VĂN BÌNH:
📧 Mail: binhoracle@gmail.com
☎️ Mobile/Zalo: 0902912888
👨 Facebook: https://www.facebook.com/BinhOracleMaster
👨 Inbox Messenger: https://m.me/101036604657441 (profile)
👨 Fanpage: https://www.facebook.com/tranvanbinh.vn
👨 Inbox Fanpage: https://m.me/tranvanbinh.vn
👨👩 Group FB: https://www.facebook.com/groups/DBAVietNam
👨 Website: https://www.tranvanbinh.vn
👨 Blogger: https://tranvanbinhmaster.blogspot.com
🎬 Youtube: https://www.youtube.com/@binhguru
👨 Tiktok: https://www.tiktok.com/@binhguru
👨 Linkin: https://www.linkedin.com/in/binhoracle
👨 Twitter: https://twitter.com/binhguru
👨 Podcast: https://www.podbean.com/pu/pbblog-eskre-5f82d6
👨 Địa chỉ: Tòa nhà Sun Square - 21 Lê Đức Thọ - Phường Mỹ Đình 1 - Quận Nam Từ Liêm - TP.Hà Nội
=============================
cơ sở dữ liệu, cơ sở dữ liệu quốc gia, database, AI, trí tuệ nhân tạo, artificial intelligence, machine learning, deep learning, LLM, ChatGPT, DeepSeek, Grok, oracle tutorial, học oracle database, Tự học Oracle, Tài liệu Oracle 12c tiếng Việt, Hướng dẫn sử dụng Oracle Database, Oracle SQL cơ bản, Oracle SQL là gì, Khóa học Oracle Hà Nội, Học chứng chỉ Oracle ở đầu, Khóa học Oracle online,sql tutorial, khóa học pl/sql tutorial, học dba, học dba ở việt nam, khóa học dba, khóa học dba sql, tài liệu học dba oracle, Khóa học Oracle online, học oracle sql, học oracle ở đâu tphcm, học oracle bắt đầu từ đâu, học oracle ở hà nội, oracle database tutorial, oracle database 12c, oracle database là gì, oracle database 11g, oracle download, oracle database 19c/21c/23c/23ai, oracle dba tutorial, oracle tunning, sql tunning , oracle 12c, oracle multitenant, Container Databases (CDB), Pluggable Databases (PDB), oracle cloud, oracle security, oracle fga, audit_trail,oracle RAC, ASM, oracle dataguard, oracle goldengate, mview, oracle exadata, oracle oca, oracle ocp, oracle ocm , oracle weblogic, postgresql tutorial, mysql tutorial, mariadb tutorial, ms sql server tutorial, nosql, mongodb tutorial, oci, cloud, middleware tutorial, docker, k8s, micro service, hoc solaris tutorial, hoc linux tutorial, hoc aix tutorial, unix tutorial, securecrt, xshell, mobaxterm, putty
