2020-08-13 11:34:00 +07:00
|
|
|
-- IDEMPIERE-3862 ORACLE - Update datatype NVARCHAR2 to VARCHAR2
|
|
|
|
|
|
|
|
|
|
-- Script to change non-core tables and columns
|
|
|
|
|
-- NOTE: if you prefer to do it manually:
|
|
|
|
|
--- * change the dryrun variable to Y
|
|
|
|
|
-- * capture the output of running this script in a file and edit it
|
|
|
|
|
-- * verify and execute
|
|
|
|
|
|
|
|
|
|
SET ECHO OFF
|
|
|
|
|
SET SERVEROUTPUT ON SIZE 1000000
|
|
|
|
|
SET PAGESIZE 999
|
|
|
|
|
SET LINESIZE 32000
|
|
|
|
|
|
|
|
|
|
/* replace all NVARCHAR2 and VARCHAR2...BYTE columns to VARCHAR2...CHAR */
|
|
|
|
|
DECLARE
|
|
|
|
|
old_table varchar2(128) := '^';
|
|
|
|
|
old_idx varchar2(128) := '^';
|
|
|
|
|
sql_drp_idxs varchar2(32767) := ''; -- drop indexes
|
|
|
|
|
sql_cre_idxs varchar2(32767) := ''; -- create indexes
|
|
|
|
|
sql_cre_comma varchar2(1) := ''; -- create indexes
|
|
|
|
|
sql_cre_close varchar2(14) := ');';
|
2020-09-28 17:31:54 +07:00
|
|
|
sql_add_cols varchar2(32767) := ''; -- add tmp columns
|
|
|
|
|
sql_nul_cols varchar2(32767) := ''; -- make columns nullable
|
|
|
|
|
sql_upd_cols varchar2(32767) := ''; -- update tmp=old, old=null
|
|
|
|
|
sql_mod_cols varchar2(32767) := ''; -- make all columns varchar2
|
|
|
|
|
sql_upb_cols varchar2(32767) := ''; -- update back old=tmp (restore)
|
|
|
|
|
sql_nnl_cols varchar2(32767) := ''; -- make back columns not null
|
|
|
|
|
sql_drp_cols varchar2(32767) := ''; -- drop tmp columns
|
|
|
|
|
sql_add_comma varchar2(32767) := '';
|
|
|
|
|
sql_nul_comma varchar2(32767) := '';
|
|
|
|
|
sql_upd_comma varchar2(32767) := '';
|
|
|
|
|
sql_mod_comma varchar2(32767) := '';
|
|
|
|
|
sql_upb_comma varchar2(32767) := '';
|
|
|
|
|
sql_nnl_comma varchar2(32767) := '';
|
|
|
|
|
sql_drp_comma varchar2(32767) := '';
|
|
|
|
|
sql_com_view varchar2(32767) := '';
|
2020-08-13 11:34:00 +07:00
|
|
|
idx integer;
|
|
|
|
|
tmpcolname varchar2(128);
|
|
|
|
|
dryrun varchar2(1) := 'N'; -- change this to 'Y' to generate the script to execute, 'N' to execute immediate
|
|
|
|
|
BEGIN
|
|
|
|
|
|
|
|
|
|
DBMS_OUTPUT.put_line(chr(10)||'-- Dropping functional based indexes and indexes unique where one of the columns to be modified is part');
|
|
|
|
|
FOR i IN (
|
|
|
|
|
SELECT ui.table_name, ui.index_name, ui.uniqueness, ui.index_type, uic.column_position, uic.column_name, uie.column_expression, uic.descend, uc.constraint_type
|
|
|
|
|
FROM user_indexes ui
|
|
|
|
|
JOIN user_ind_columns uic ON (ui.index_name= uic.index_name)
|
|
|
|
|
LEFT JOIN user_ind_expressions uie ON (ui.index_name=uie.index_name AND uic.column_position=uie.column_position)
|
|
|
|
|
LEFT JOIN user_constraints uc ON (ui.index_name=uc.index_name)
|
|
|
|
|
WHERE ui.index_name IN (
|
|
|
|
|
SELECT ui.index_name
|
|
|
|
|
FROM user_indexes ui
|
|
|
|
|
JOIN user_ind_columns uic ON (ui.index_name= uic.index_name)
|
|
|
|
|
WHERE EXISTS (
|
|
|
|
|
SELECT 1
|
|
|
|
|
FROM user_tab_columns utc
|
|
|
|
|
WHERE data_type = 'NVARCHAR2'
|
|
|
|
|
AND table_name IN (SELECT table_name FROM user_tables)
|
|
|
|
|
AND utc.table_name=ui.table_name
|
|
|
|
|
AND utc.column_name=uic.column_name
|
|
|
|
|
)
|
|
|
|
|
AND ui.uniqueness='UNIQUE'
|
|
|
|
|
AND ui.index_name IN (SELECT index_name FROM user_ind_columns GROUP BY index_name HAVING count(*)>1)
|
|
|
|
|
UNION
|
|
|
|
|
SELECT ui.index_name
|
|
|
|
|
FROM user_indexes ui
|
|
|
|
|
JOIN user_ind_columns uic ON (ui.index_name= uic.index_name)
|
|
|
|
|
WHERE EXISTS (
|
|
|
|
|
SELECT 1
|
|
|
|
|
FROM user_tab_columns utc
|
|
|
|
|
WHERE (data_type = 'NVARCHAR2' OR (data_type='VARCHAR2' AND char_used='B'))
|
|
|
|
|
AND table_name IN (SELECT table_name FROM user_tables)
|
|
|
|
|
AND utc.table_name=ui.table_name
|
|
|
|
|
)
|
|
|
|
|
AND ui.index_type!='NORMAL'
|
|
|
|
|
)
|
|
|
|
|
ORDER BY ui.table_name, ui.index_name, uic.column_position
|
|
|
|
|
) LOOP
|
|
|
|
|
IF (old_idx = i.index_name)
|
|
|
|
|
THEN
|
|
|
|
|
/* new column in same index */
|
|
|
|
|
sql_cre_comma := ',';
|
|
|
|
|
ELSE
|
|
|
|
|
/* This block is repeated exactly the same below, changes here must be done also there */
|
|
|
|
|
IF (old_idx != '^')
|
|
|
|
|
THEN
|
|
|
|
|
/* close command */
|
|
|
|
|
sql_cre_idxs := sql_cre_idxs || sql_cre_close;
|
|
|
|
|
END IF;
|
|
|
|
|
/* new index */
|
|
|
|
|
old_idx := i.index_name;
|
|
|
|
|
IF (i.constraint_type IN ('U','P'))
|
|
|
|
|
THEN
|
|
|
|
|
sql_drp_idxs := sql_drp_idxs || 'ALTER TABLE '||i.table_name||' DROP CONSTRAINT '||i.index_name||';';
|
|
|
|
|
sql_cre_idxs := sql_cre_idxs || 'ALTER TABLE '||i.table_name||' ADD CONSTRAINT '||i.index_name||CASE WHEN i.constraint_type='U' THEN ' UNIQUE (' ELSE ' PRIMARY KEY (' END;
|
|
|
|
|
sql_cre_close := ') USING INDEX;';
|
|
|
|
|
ELSE
|
|
|
|
|
sql_drp_idxs := sql_drp_idxs || 'DROP INDEX '||i.index_name||';';
|
|
|
|
|
sql_cre_idxs := sql_cre_idxs || 'CREATE'||CASE WHEN i.uniqueness='UNIQUE' THEN ' UNIQUE' ELSE '' END||' INDEX '||i.index_name||' ON '||i.table_name||'(';
|
|
|
|
|
sql_cre_close := ');';
|
|
|
|
|
END IF;
|
|
|
|
|
sql_cre_comma := '';
|
|
|
|
|
END IF;
|
|
|
|
|
sql_cre_idxs := sql_cre_idxs || sql_cre_comma || CASE WHEN i.column_expression IS NOT NULL THEN i.column_expression ELSE i.column_name END;
|
|
|
|
|
END LOOP;
|
|
|
|
|
/* This block is repeated exactly the same above, changes here must be done also there */
|
|
|
|
|
IF (old_idx != '^')
|
|
|
|
|
THEN
|
|
|
|
|
/* close command */
|
|
|
|
|
sql_cre_idxs := sql_cre_idxs || sql_cre_close;
|
|
|
|
|
END IF;
|
|
|
|
|
IF (sql_drp_idxs != ';')
|
|
|
|
|
THEN
|
|
|
|
|
FOR s IN (SELECT regexp_substr(sql_drp_idxs,'[^;]+', 1, level) AS cmd FROM DUAL
|
|
|
|
|
CONNECT BY regexp_substr(sql_drp_idxs, '[^;]+', 1, level) is not null
|
|
|
|
|
) LOOP
|
|
|
|
|
DBMS_OUTPUT.put_line(s.cmd || ';');
|
|
|
|
|
IF (dryrun != 'Y')
|
|
|
|
|
THEN
|
|
|
|
|
EXECUTE IMMEDIATE s.cmd;
|
|
|
|
|
END IF;
|
|
|
|
|
END LOOP;
|
|
|
|
|
END IF;
|
|
|
|
|
|
|
|
|
|
DBMS_OUTPUT.put_line(chr(10)||'-- Converting all VARCHAR2...BYTE to VARCHAR2..CHAR');
|
|
|
|
|
old_table := '^';
|
|
|
|
|
FOR c IN (
|
|
|
|
|
SELECT table_name, column_name, data_type, char_length, char_used, nullable, data_default
|
|
|
|
|
FROM user_tab_columns
|
|
|
|
|
WHERE data_type = 'VARCHAR2' AND char_used='B'
|
|
|
|
|
AND table_name IN (SELECT table_name FROM user_tables)
|
|
|
|
|
-- AND table_name LIKE 'AD_CHART%' -- uncomment if you want to test with a smaller set of tables
|
|
|
|
|
ORDER BY table_name, column_name
|
|
|
|
|
) LOOP
|
|
|
|
|
IF (old_table = c.table_name)
|
|
|
|
|
THEN
|
|
|
|
|
/* new column in same table */
|
|
|
|
|
idx := idx + 1;
|
|
|
|
|
sql_mod_comma := ',';
|
|
|
|
|
ELSE
|
|
|
|
|
/* This block is repeated exactly the same below, changes here must be done also there */
|
|
|
|
|
IF (old_table != '^')
|
|
|
|
|
THEN
|
|
|
|
|
/* close and execute commands */
|
|
|
|
|
sql_mod_cols := sql_mod_cols || ')';
|
|
|
|
|
DBMS_OUTPUT.put_line(sql_mod_cols || ';');
|
|
|
|
|
IF (dryrun != 'Y')
|
|
|
|
|
THEN
|
|
|
|
|
EXECUTE IMMEDIATE sql_mod_cols;
|
|
|
|
|
END IF;
|
|
|
|
|
END IF;
|
|
|
|
|
/* new table */
|
|
|
|
|
DBMS_OUTPUT.put_line(chr(10)||'-- Processing table ' || c.table_name);
|
|
|
|
|
old_table := c.table_name;
|
|
|
|
|
idx := 1;
|
|
|
|
|
sql_mod_cols := 'ALTER TABLE '||c.table_name||' MODIFY (';
|
|
|
|
|
sql_mod_comma := '';
|
|
|
|
|
END IF;
|
|
|
|
|
sql_mod_cols := sql_mod_cols || sql_mod_comma || c.column_name || ' VARCHAR2(' || c.char_length || ' CHAR)';
|
|
|
|
|
END LOOP;
|
|
|
|
|
/* This block is repeated exactly the same above, changes here must be done also there */
|
|
|
|
|
IF (old_table != '^')
|
|
|
|
|
THEN
|
|
|
|
|
/* close and execute commands */
|
|
|
|
|
sql_mod_cols := sql_mod_cols || ')';
|
|
|
|
|
DBMS_OUTPUT.put_line(sql_mod_cols || ';');
|
|
|
|
|
IF (dryrun != 'Y')
|
|
|
|
|
THEN
|
|
|
|
|
EXECUTE IMMEDIATE sql_mod_cols;
|
|
|
|
|
END IF;
|
|
|
|
|
END IF;
|
|
|
|
|
|
|
|
|
|
DBMS_OUTPUT.put_line(chr(10)||'-- Converting all NVARCHAR2 to VARCHAR2..CHAR');
|
|
|
|
|
old_table := '^';
|
|
|
|
|
FOR c IN (
|
|
|
|
|
SELECT table_name, column_name, data_type, char_length, char_used, nullable, data_default
|
|
|
|
|
FROM user_tab_columns
|
|
|
|
|
WHERE data_type = 'NVARCHAR2'
|
|
|
|
|
AND table_name IN (SELECT table_name FROM user_tables)
|
|
|
|
|
-- AND table_name LIKE 'A_ASSET_GR%' -- uncomment if you want to test with a smaller set of tables
|
|
|
|
|
ORDER BY table_name, column_name
|
|
|
|
|
) LOOP
|
|
|
|
|
IF (old_table = c.table_name)
|
|
|
|
|
THEN
|
|
|
|
|
/* new column in same table */
|
|
|
|
|
idx := idx + 1;
|
|
|
|
|
sql_add_comma := ',';
|
|
|
|
|
IF (sql_nul_cols NOT LIKE '%(' AND sql_nul_cols NOT LIKE '%,')
|
|
|
|
|
THEN
|
|
|
|
|
sql_nul_comma := ',';
|
|
|
|
|
END IF;
|
|
|
|
|
sql_upd_comma := ',';
|
|
|
|
|
sql_mod_comma := ',';
|
|
|
|
|
sql_upb_comma := ',';
|
|
|
|
|
IF (sql_nnl_cols NOT LIKE '%(' AND sql_nnl_cols NOT LIKE '%,')
|
|
|
|
|
THEN
|
|
|
|
|
sql_nnl_comma := ',';
|
|
|
|
|
END IF;
|
|
|
|
|
sql_drp_comma := ',';
|
|
|
|
|
ELSE
|
|
|
|
|
/* This block is repeated exactly the same below, changes here must be done also there */
|
|
|
|
|
IF (old_table != '^')
|
|
|
|
|
THEN
|
|
|
|
|
/* close and execute commands */
|
|
|
|
|
sql_add_cols := sql_add_cols || ')';
|
|
|
|
|
DBMS_OUTPUT.put_line(sql_add_cols || ';');
|
|
|
|
|
IF (dryrun != 'Y')
|
|
|
|
|
THEN
|
|
|
|
|
EXECUTE IMMEDIATE sql_add_cols;
|
|
|
|
|
END IF;
|
|
|
|
|
IF (sql_nul_cols NOT LIKE '%(')
|
|
|
|
|
THEN
|
|
|
|
|
sql_nul_cols := sql_nul_cols || ')';
|
|
|
|
|
DBMS_OUTPUT.put_line(sql_nul_cols || ';');
|
|
|
|
|
IF (dryrun != 'Y')
|
|
|
|
|
THEN
|
|
|
|
|
EXECUTE IMMEDIATE sql_nul_cols;
|
|
|
|
|
END IF;
|
|
|
|
|
END IF;
|
|
|
|
|
-- sql_upd_cols := sql_upd_cols;
|
|
|
|
|
DBMS_OUTPUT.put_line(sql_upd_cols || ';');
|
|
|
|
|
IF (dryrun != 'Y')
|
|
|
|
|
THEN
|
|
|
|
|
EXECUTE IMMEDIATE sql_upd_cols;
|
|
|
|
|
END IF;
|
|
|
|
|
sql_mod_cols := sql_mod_cols || ')';
|
|
|
|
|
DBMS_OUTPUT.put_line(sql_mod_cols || ';');
|
|
|
|
|
IF (dryrun != 'Y')
|
|
|
|
|
THEN
|
|
|
|
|
EXECUTE IMMEDIATE sql_mod_cols;
|
|
|
|
|
END IF;
|
|
|
|
|
-- sql_upb_cols := sql_upb_cols;
|
|
|
|
|
DBMS_OUTPUT.put_line(sql_upb_cols || ';');
|
|
|
|
|
IF (dryrun != 'Y')
|
|
|
|
|
THEN
|
|
|
|
|
EXECUTE IMMEDIATE sql_upb_cols;
|
|
|
|
|
END IF;
|
|
|
|
|
IF (sql_nnl_cols NOT LIKE '%(')
|
|
|
|
|
THEN
|
|
|
|
|
sql_nnl_cols := sql_nnl_cols || ')';
|
|
|
|
|
DBMS_OUTPUT.put_line(sql_nnl_cols || ';');
|
|
|
|
|
IF (dryrun != 'Y')
|
|
|
|
|
THEN
|
|
|
|
|
EXECUTE IMMEDIATE sql_nnl_cols;
|
|
|
|
|
END IF;
|
|
|
|
|
END IF;
|
|
|
|
|
sql_drp_cols := sql_drp_cols || ')';
|
|
|
|
|
DBMS_OUTPUT.put_line(sql_drp_cols || ';');
|
|
|
|
|
IF (dryrun != 'Y')
|
|
|
|
|
THEN
|
|
|
|
|
EXECUTE IMMEDIATE sql_drp_cols;
|
|
|
|
|
END IF;
|
|
|
|
|
END IF;
|
|
|
|
|
/* new table */
|
|
|
|
|
DBMS_OUTPUT.put_line(chr(10)||'-- Processing table ' || c.table_name);
|
|
|
|
|
old_table := c.table_name;
|
|
|
|
|
idx := 1;
|
|
|
|
|
sql_add_cols := 'ALTER TABLE '||c.table_name||' ADD (';
|
|
|
|
|
sql_nul_cols := 'ALTER TABLE '||c.table_name||' MODIFY (';
|
|
|
|
|
sql_upd_cols := 'UPDATE '||c.table_name||' SET ';
|
|
|
|
|
sql_mod_cols := 'ALTER TABLE '||c.table_name||' MODIFY (';
|
|
|
|
|
sql_upb_cols := 'UPDATE '||c.table_name||' SET ';
|
|
|
|
|
sql_nnl_cols := 'ALTER TABLE '||c.table_name||' MODIFY (';
|
|
|
|
|
sql_drp_cols := 'ALTER TABLE '||c.table_name||' DROP (';
|
|
|
|
|
sql_add_comma := '';
|
|
|
|
|
sql_nul_comma := '';
|
|
|
|
|
sql_upd_comma := '';
|
|
|
|
|
sql_mod_comma := '';
|
|
|
|
|
sql_upb_comma := '';
|
|
|
|
|
sql_nnl_comma := '';
|
|
|
|
|
sql_drp_comma := '';
|
|
|
|
|
END IF;
|
|
|
|
|
tmpcolname := 'tmp_col_'||idx||'_tmp';
|
|
|
|
|
sql_add_cols := sql_add_cols || sql_add_comma || tmpcolname || ' VARCHAR2(' || c.char_length || ' CHAR)';
|
|
|
|
|
IF (c.nullable = 'N')
|
|
|
|
|
THEN
|
|
|
|
|
sql_nul_cols := sql_nul_cols || sql_nul_comma || c.column_name || ' ' || c.data_type || '(' || c.char_length || ') NULL';
|
|
|
|
|
END IF;
|
|
|
|
|
sql_upd_cols := sql_upd_cols || sql_upd_comma || tmpcolname || '=' || c.column_name || ',' || c.column_name || '=NULL';
|
|
|
|
|
sql_mod_cols := sql_mod_cols || sql_mod_comma || c.column_name || ' VARCHAR2(' || c.char_length || ' CHAR)';
|
|
|
|
|
IF (c.data_default IS NOT NULL AND c.data_default != 'NULL')
|
|
|
|
|
THEN
|
|
|
|
|
sql_mod_cols := sql_mod_cols || ' DEFAULT ' || c.data_default;
|
|
|
|
|
END IF;
|
|
|
|
|
sql_upb_cols := sql_upb_cols || sql_upb_comma || c.column_name || '=' || tmpcolname;
|
|
|
|
|
IF (c.nullable = 'N')
|
|
|
|
|
THEN
|
|
|
|
|
sql_nnl_cols := sql_nnl_cols || sql_nnl_comma || c.column_name || ' VARCHAR2(' || c.char_length || ' CHAR)';
|
|
|
|
|
IF (c.data_default IS NOT NULL AND c.data_default != 'NULL')
|
|
|
|
|
THEN
|
|
|
|
|
sql_nnl_cols := sql_nnl_cols || ' DEFAULT ' || c.data_default;
|
|
|
|
|
END IF;
|
|
|
|
|
sql_nnl_cols := sql_nnl_cols || ' NOT NULL';
|
|
|
|
|
END IF;
|
|
|
|
|
sql_drp_cols := sql_drp_cols || sql_drp_comma || tmpcolname;
|
|
|
|
|
END LOOP;
|
|
|
|
|
/* This block is repeated exactly the same above, changes here must be done also there */
|
|
|
|
|
IF (old_table != '^')
|
|
|
|
|
THEN
|
|
|
|
|
/* close and execute commands */
|
|
|
|
|
sql_add_cols := sql_add_cols || ')';
|
|
|
|
|
DBMS_OUTPUT.put_line(sql_add_cols || ';');
|
|
|
|
|
IF (dryrun != 'Y')
|
|
|
|
|
THEN
|
|
|
|
|
EXECUTE IMMEDIATE sql_add_cols;
|
|
|
|
|
END IF;
|
|
|
|
|
IF (sql_nul_cols NOT LIKE '%(')
|
|
|
|
|
THEN
|
|
|
|
|
sql_nul_cols := sql_nul_cols || ')';
|
|
|
|
|
DBMS_OUTPUT.put_line(sql_nul_cols || ';');
|
|
|
|
|
IF (dryrun != 'Y')
|
|
|
|
|
THEN
|
|
|
|
|
EXECUTE IMMEDIATE sql_nul_cols;
|
|
|
|
|
END IF;
|
|
|
|
|
END IF;
|
|
|
|
|
-- sql_upd_cols := sql_upd_cols;
|
|
|
|
|
DBMS_OUTPUT.put_line(sql_upd_cols || ';');
|
|
|
|
|
IF (dryrun != 'Y')
|
|
|
|
|
THEN
|
|
|
|
|
EXECUTE IMMEDIATE sql_upd_cols;
|
|
|
|
|
END IF;
|
|
|
|
|
sql_mod_cols := sql_mod_cols || ')';
|
|
|
|
|
DBMS_OUTPUT.put_line(sql_mod_cols || ';');
|
|
|
|
|
IF (dryrun != 'Y')
|
|
|
|
|
THEN
|
|
|
|
|
EXECUTE IMMEDIATE sql_mod_cols;
|
|
|
|
|
END IF;
|
|
|
|
|
-- sql_upb_cols := sql_upb_cols;
|
|
|
|
|
DBMS_OUTPUT.put_line(sql_upb_cols || ';');
|
|
|
|
|
IF (dryrun != 'Y')
|
|
|
|
|
THEN
|
|
|
|
|
EXECUTE IMMEDIATE sql_upb_cols;
|
|
|
|
|
END IF;
|
|
|
|
|
IF (sql_nnl_cols NOT LIKE '%(')
|
|
|
|
|
THEN
|
|
|
|
|
sql_nnl_cols := sql_nnl_cols || ')';
|
|
|
|
|
DBMS_OUTPUT.put_line(sql_nnl_cols || ';');
|
|
|
|
|
IF (dryrun != 'Y')
|
|
|
|
|
THEN
|
|
|
|
|
EXECUTE IMMEDIATE sql_nnl_cols;
|
|
|
|
|
END IF;
|
|
|
|
|
END IF;
|
|
|
|
|
sql_drp_cols := sql_drp_cols || ')';
|
|
|
|
|
DBMS_OUTPUT.put_line(sql_drp_cols || ';');
|
|
|
|
|
IF (dryrun != 'Y')
|
|
|
|
|
THEN
|
|
|
|
|
EXECUTE IMMEDIATE sql_drp_cols;
|
|
|
|
|
END IF;
|
|
|
|
|
END IF;
|
|
|
|
|
|
|
|
|
|
DBMS_OUTPUT.put_line(chr(10)||'-- Recreating the dropped indexes');
|
|
|
|
|
IF (sql_cre_idxs != ';')
|
|
|
|
|
THEN
|
|
|
|
|
FOR s IN (SELECT regexp_substr(sql_cre_idxs,'[^;]+', 1, level) AS cmd FROM DUAL
|
|
|
|
|
CONNECT BY regexp_substr(sql_cre_idxs, '[^;]+', 1, level) is not null
|
|
|
|
|
) LOOP
|
|
|
|
|
DBMS_OUTPUT.put_line(s.cmd || ';');
|
|
|
|
|
IF (dryrun != 'Y')
|
|
|
|
|
THEN
|
|
|
|
|
EXECUTE IMMEDIATE s.cmd;
|
|
|
|
|
END IF;
|
|
|
|
|
END LOOP;
|
|
|
|
|
END IF;
|
|
|
|
|
|
|
|
|
|
DBMS_OUTPUT.put_line(chr(10)||'-- Recompiling views affected');
|
|
|
|
|
FOR c IN (
|
|
|
|
|
SELECT DISTINCT table_name
|
|
|
|
|
FROM user_tab_columns
|
|
|
|
|
WHERE (data_type = 'NVARCHAR2' OR (data_type = 'VARCHAR2' AND char_used='B'))
|
|
|
|
|
AND table_name IN (SELECT view_name FROM user_views)
|
|
|
|
|
ORDER BY table_name
|
|
|
|
|
) LOOP
|
|
|
|
|
sql_com_view := 'ALTER VIEW '||c.table_name||' COMPILE';
|
|
|
|
|
DBMS_OUTPUT.put_line(sql_com_view || ';');
|
|
|
|
|
IF (dryrun != 'Y')
|
|
|
|
|
THEN
|
|
|
|
|
EXECUTE IMMEDIATE sql_com_view;
|
|
|
|
|
END IF;
|
|
|
|
|
END LOOP;
|
|
|
|
|
|
|
|
|
|
END;
|
|
|
|
|
/
|
|
|
|
|
|
|
|
|
|
SELECT register_migration_script('202008040114_IDEMPIERE-3862.sql') FROM dual
|
|
|
|
|
;
|
