2026-03-12 20:23:15

csierra/cs_tcb.sql

@@ -0,0 +1,92 @@
+----------------------------------------------------------------------------------------
+--
+-- File name:   cs_tcb.sql
+--
+-- Purpose:     Executes Test Case Builder (TCB) for given SQL_ID
+--
+-- Author:      Carlos Sierra
+--
+-- Version:     2023/04/27
+--
+-- Usage:       Connecting into PDB.
+--
+--              Enter SQL_ID when requested.
+--
+-- Example:     $ sqlplus / as sysdba
+--              SQL> @cs_tcb.sql
+--
+-- Notes:       Developed and tested on 12.1.0.2.
+--
+---------------------------------------------------------------------------------------
+--
+@@cs_internal/cs_primary.sql
+@@cs_internal/cs_cdb_warn.sql
+@@cs_internal/cs_set.sql
+@@cs_internal/cs_def.sql
+@@cs_internal/cs_file_prefix.sql
+--
+DEF cs_script_name = 'cs_tcb';
+--
+PRO 1. SQL_ID: 
+DEF cs_sql_id = '&1.';
+UNDEF 1;
+--
+PRO
+PRO 2. Sampling Percent: [{100}|1-100]
+DEF cs_samplingPercent = '&2.';
+UNDEF 2;
+COL cs_samplingPercent NEW_V cs_samplingPercent NOPRI;
+SELECT CASE WHEN TO_NUMBER('&&cs_samplingPercent.') BETWEEN 1 AND 100 THEN '&&cs_samplingPercent.' ELSE '100' END AS cs_samplingPercent FROM DUAL
+/
+--
+SELECT '&&cs_file_prefix._&&cs_script_name._&&cs_sql_id._TCB' cs_file_name FROM DUAL;
+--
+@@cs_internal/cs_signature.sql
+--
+PRO
+ACCEPT sys_password CHAR PROMPT 'Enter SYS Password (hidden): ' HIDE
+--
+@@cs_internal/cs_spool_head.sql
+PRO SQL> @&&cs_script_name..sql "&&cs_sql_id." "&&cs_samplingPercent."
+@@cs_internal/cs_spool_id.sql
+@@cs_internal/cs_spool_id_list_sql_id.sql
+--
+PRO SAMPLING_PERC: "&&cs_samplingPercent." [{100}|1-100]
+PRO PARSE_SCHEMA : &&cs_parsing_schema_name.
+PRO TEMP_DIR     : "&&cs_temp_dir." 
+--
+@@cs_internal/cs_print_sql_text.sql
+@@cs_internal/cs_temp_dir_create.sql
+--
+ALTER SESSION SET current_schema = &&cs_parsing_schema_name.;
+--
+PRO DBMS_SQLDIAG.export_sql_testcase
+PRO ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VAR testcase CLOB;
+EXEC DBMS_SQLDIAG.export_sql_testcase(directory => 'CS_TEMP_DIR', sql_id => '&&cs_sql_id.', exportData => TRUE, samplingPercent => TO_NUMBER('&&cs_samplingPercent.'), testcase_name => 'TCB_&&cs_sql_id._&&cs_file_timestamp._', testcase => :testcase);
+--
+ALTER SESSION SET current_schema = &&cs_current_schema.;
+--
+HOS cp &&cs_temp_dir./TCB_&&cs_sql_id.* /tmp/
+HOS chmod 644 /tmp/TCB_&&cs_sql_id.*
+--
+@@cs_internal/cs_temp_dir_drop.sql
+--
+PRO SQL> @&&cs_script_name..sql "&&cs_sql_id." "&&cs_samplingPercent."
+--
+@@cs_internal/cs_spool_tail.sql
+@@cs_internal/cs_undef.sql
+@@cs_internal/cs_reset.sql
+--
+PRO
+PRO TCB files
+PRO ~~~~~~~~~
+HOS ls -lt /tmp/TCB_&&cs_sql_id.*
+PRO 
+HOS zip -mj /tmp/TCB_&&cs_sql_id._&&cs_file_timestamp..zip /tmp/TCB_&&cs_sql_id._&&cs_file_timestamp._*
+PRO
+PRO To get TCB:
+PRO ~~~~~~~~~~~
+PRO scp &&cs_host_name.:/tmp/TCB_&&cs_sql_id._&&cs_file_timestamp..zip .
+PRO
+--