Getting error while compiling this pl/sql code

Question

Hi,
I am trying to execute the below block of pl/sql code and i encountering an error. i tried all possible combination of paranthesis and quotes. still giving error. can someone please help?
IF inserting THEN
pk_imdb_audit.p_ins_characteristic_a_t
(in_'||rpad(column_name,35,' ')||'=> pk_imdb_audit.v_action_inserting,'
WHEN max_col = column_id THEN
in_'||rpad(column_name,35,' ')||'=> '||lower(in_col_value)||');'
ELSE
' in_'||rpad(column_name,35,' ')||'=> '||lower(in_col_value)||','
END text,
table_name,
column_id,
2 disp_ord
error snapshot:-
ORA-06550: line 14, column 14:
PLS-00103: Encountered the symbol "||rpad(column_name,35," when expecting one of the following:
. ( ) , * @ % & | = - + < / > at in is mod remainder not
range rem => .. <an exponent (**)> <> or != or ~= >= <= <>
and or like LIKE2_ LIKE4_ LIKEC_ as between from using ||
multiset member SUBMULTISET_
The symbol "( was inserted before "||rpad(column_name,35," to continue.
ORA-06550: line 15, column 13:
PLS-00103: Encountered the symbol "WHEN" when expecting one of th

Answer 1

Hi,
here is a 'parseable' version of your query, but there is numerous ways to improve what you want to do (not sure even if the query is giving you what you're expecting from it):
SELECT text
FROM   (SELECT (CASE
                   WHEN min_col = max_col THEN    'CREATE OR REPLACE TRIGGER '
                                               || SUBSTR(column_name,
                                                         1,
                                                         4
                                               || 'aud
AFTER INSERT
OR UPDATE
OF '
                                               || column_name
                                               || ',
OR DELETE ON imdb.'
                                               || table_name
                                               || '
FOR EACH ROW'
                   ELSE(CASE
                           WHEN min_col = column_id THEN    'CREATE OR REPLACE TRIGGER '
                                                         || SUBSTR(column_name,
                                                                   1,
                                                                   4
                                                         || 'aud
AFTER INSERT
OR UPDATE
OF '
                                                         || column_name
                                                         || ','
                           ELSE(CASE
                                   WHEN max_col = column_id THEN    ' '
                                                                 || column_name
                                                                 || '
OR DELETE ON imdb.'
                                                                 || table_name
                                                                 || '
FOR EACH ROW'
                                   ELSE(CASE
                                           WHEN column_id IS NULL THEN    'CREATE OR REPLACE TRIGGER '
                                                                       || SUBSTR
                                                                             (column_name,
                                                                              1,
                                                                              4
                                                                       || 'aud
AFTER INSERT
OR UPDATE
OR DELETE ON imdb.'
                                                                       || table_name
                                           ELSE    ' '
                                                || column_name
                                                || ','
                                        END
                                END
                        END
                END
               ) text,
               table_name1 table_name,
               column_id,
               1 disp_ord
        FROM   (SELECT LOWER(REPLACE(column_name,
                                     'O_',
                                    )) column_name,                   /*changing O to O_*/
                       LOWER(REPLACE(t.table_name,
                                     '_A_',
                                    )) table_name,
                       LOWER(t.table_name) table_name1,
                       c.column_id,
                       MIN(column_id) OVER(PARTITION BY c.table_name) min_col,
                       MAX(column_id) OVER(PARTITION BY c.table_name) max_col
                FROM   all_tab_columns c,
                       (SELECT object_name table_name
                        FROM   all_objects
                        WHERE  TRUNC(created) = TRUNC(SYSDATE)
                        AND    object_name = 'CHARACTERISTIC_A_T') t
--AND object_name LIKE 'IMDB/_A/_%' ESCAPE '/') t /*commented this line for testing*/
                WHERE  c.table_name(+) = t.table_name
                AND    SUBSTR(column_name(+),
                              1,
                              2
                             ) = 'O_'))
          /*changed the substring condition to match new changes*/
UNION ALL
SELECT (CASE
           WHEN min_col = column_id THEN    'DECLARE
BEGIN
IF inserting THEN
pk_imdb_audit.p_ins_characteristic_a_t
(in_'
                                         || RPAD(column_name,
                                                 35,
                                         || '=> pk_imdb_audit.v_action_inserting,'
           ELSE(CASE
                   WHEN max_col = column_id THEN    'in_'
                                                 || RPAD(column_name,
                                                         35,
                                                 || '=> '
                                                 || LOWER(in_col_value)
                                                 || ');'
                   ELSE    ' in_'
                        || RPAD(column_name,
                                35,
                        || '=> '
                        || LOWER(in_col_value)
                        || ','
                END
        END
       ) text /*,
       table_name,
       column_id,
       2 disp_ord*/
FROM   (SELECT table_name,
               column_name,
               column_id,
               min_col,
               max_col,
               in_col_value,
               trg_header,
                  'in_'
               || RPAD(column_name,
                       35,
               || '=> '
               || LOWER(in_col_value)
               || ',' in_col
        FROM   (SELECT   LOWER(c.column_name) column_name,
                         LOWER(c.table_name) table_name,
                         c.column_id,
                         (CASE
                             WHEN SUBSTR(column_name,
                                         1,
                                         2
                                        ) = 'N_' THEN
                               /*changed the substring condition to match the new change*/
                                                        ':NEW.'
                                                     || REPLACE
                                                           (column_name,
                                                            'N_',
                                                            'N_'
                                        /*changed the condition to match new requirement*/
                             WHEN SUBSTR(column_name,
                                         1,
                                         2
                                        ) = 'O_' THEN
                               /*changed the substring condition to match the new change*/
                                                     'NULL'
                             ELSE    ':NEW.'
                                  || REPLACE(column_name,
                                             '_A_',
                          END
                         ) in_col_value,
                         LOWER(SUBSTR(column_name,
                                      1,
                                      3
                                     )) trg_header,
                         MIN(column_id) OVER(PARTITION BY c.table_name) min_col,
                         MAX(column_id) OVER(PARTITION BY c.table_name) max_col
                FROM     all_tab_columns c
                WHERE    c.table_name IN(
                            SELECT object_name
                            FROM   all_objects
                            WHERE  TRUNC(created) = TRUNC(SYSDATE)
                            AND    object_name = 'CHARACTERISTIC_A_T')
                ORDER BY c.table_name,
                         c.column_id))