Advertisement
Guest User

Untitled

a guest
Mar 1st, 2017
65
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.65 KB | None | 0 0
  1. -- CREATE TABLE XXX (x INT);
  2. -- DELETE XXX;
  3.  
  4. -- set serveroutput on
  5.  
  6. create or replace procedure checkReplaceableSQL
  7. AS
  8. BEGIN
  9. DECLARE
  10. stm varchar2(25000);
  11. BEGIN
  12. stm:=GET_SQL_TEMPLATE();
  13. stm:=REPLACE(stm,'${SQLPart}','INTO XXX SELECT');
  14. stm:=REPLACE(stm,'${Param1}','1');
  15.  
  16. DBMS_OUTPUT.PUT_LINE(stm);
  17. EXECUTE IMMEDIATE stm;
  18. END;
  19. END;
  20.  
  21.  
  22. set serveroutput on
  23. EXEC checkReplaceableSQL();
  24.  
  25. -- SELECT * FROM XXX;
  26.  
  27. CREATE OR REPLACE FUNCTION GET_SQL_TEMPLATE return varchar
  28. IS
  29. BEGIN
  30. DECLARE
  31. stm VARCHAR2(2000);
  32. BEGIN
  33. stm:='INSERT ${:SQLPart} 1 FROM DUAL WHERE 1 = ${:Param1}';
  34. RETURN stm;
  35. END;
  36. END
  37. ;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement