DYNAMIC PL/SQL BLOCK

Question

Hello,
My requirement is to create procedures on the fly and call the created procedures. The pl/sql code for the procedures are stored in the tables. I was able to create the procedure on the fly. But it ended being an invalid object. I got this error
ORA-24344: success with compilation error
Following is my code snippet
DECLARE
proc_str VARCHAR2(20000) := NULL;
v_err_code VARCHAR2 (256) := NULL;
v_err_msg VARCHAR2 (256) := NULL;
BEGIN
FOR cur_pi_proc IN (SELECT sql_query, procedure_name
FROM mas_pi_rules
WHERE ID = 7)
LOOP
proc_str := cur_pi_proc.sql_query ;
EXECUTE IMMEDIATE ''|| proc_str || '';
EXECUTE IMMEDIATE 'ALTER PROCEDURE '|| cur_pi_proc.procedure_name ||' COMPILE';
EXECUTE IMMEDIATE 'CALL "'
|| cur_pi_proc.procedure_name
|| '" ( :p_mode)'
USING 'BATCH';
COMMIT;
END LOOP;
EXCEPTION
WHEN OTHERS
THEN
v_err_msg := SUBSTR (SQLCODE || ':-' || SQLERRM, 1, 200);
INSERT INTO stored_proc_err
(error_origin, error_msg, error_date
VALUES ('test_dynproc', v_err_msg, SYSDATE
COMMIT;
END;
Any help in creating procedures dynamically is greatly appreciated.
regards,
Ravi
Message was edited by:
user611440

Answer 1

-- EXECUTE IMMEDIATE '' || proc_str || ''; -- Comment ThisUmm, you've missed the whole and entire point of this thread, which is that the procedure to be run is created dynamically from the source in the table.
The OP's problem (well, their specific problem rather than the more philosophical one) is the way they were running the create statement. Fix that and everything else falls into place...
SQL> create table MAS_PI_RULES ( SQL_QUERY varchar2(4000), PROCEDURE_NAME varchar2(30), ID number)
  2  /
Table created.
SQL>
SQL> insert into MAS_PI_RULES
  2  values ('CREATE OR REPLACE PROCEDURE REVERSE_STRING (I_STRING IN OUT VARCHAR2) IS L_STRING VARC
HAR2 (400); BEGIN SELECT REVERSE (I_STRING) INTO I_STRING FROM DUAL; END;', 'REVERSE_STRING', 7)
  3  /
1 row created.
SQL>
SQL> DECLARE
  2   proc_str VARCHAR2 (20000) := NULL;
  3   v_err_code VARCHAR2 (256) := NULL;
  4   v_err_msg VARCHAR2 (256) := NULL;
  5   v_ouput VARCHAR2 (256) := 'ZLLIKS DAM SAH CPA';
  6  BEGIN
  7   FOR cur_pi_proc IN (SELECT sql_query
  8     ,procedure_name
  9    FROM mas_pi_rules
10   WHERE ID = 7) LOOP
11  proc_str := cur_pi_proc.sql_query;
12 
13  EXECUTE IMMEDIATE  proc_str ;
14  EXECUTE IMMEDIATE 'ALTER PROCEDURE ' || cur_pi_proc.procedure_name || ' COMPILE';
15 
16  EXECUTE IMMEDIATE 'begin ' || cur_pi_proc.procedure_name || '(:p_mode); end;'
17  USING IN OUT v_ouput;
18 
19  COMMIT;
20  END LOOP;
21 
22  DBMS_OUTPUT.put_line ('The output is ' || v_ouput);
23  EXCEPTION
24  WHEN OTHERS THEN
25  v_err_msg := SUBSTR (SQLCODE || ':-' || SQLERRM, 1, 200);
26  DBMS_OUTPUT.put_line (v_err_msg);
27  END;
28  /
The output is APC HAS MAD SKILLZ
PL/SQL procedure successfully completed.
SQL> Cheers, APC
Blog : http://radiofreetooting.blogspot.com/