dumpcode.sql

来自「Oracle PL/SQL procedure generator (secon」· SQL 代码 · 共 42 行

/* Formatted by PL/Formatter v.1.1.8 on 1998/11/30 12:09  (12:09 AM) */
SET VERIFY OFF
SET FEEDBACK OFF
SET TERMOUT OFF
SET ECHO OFF
SET SERVEROUTPUT ON SIZE 1000000 FORMAT WRAPPED
SPOOL crefiles.cmd

BEGIN
   DBMS_OUTPUT.put_line ('REM SPOOLED TO crefiles.cmd');
   DBMS_OUTPUT.put_line ('SET TERMOUT OFF');
   DBMS_OUTPUT.put_line ('SET FEEDBACK OFF');
   DBMS_OUTPUT.put_line ('SET LINESIZE 120');
   DBMS_OUTPUT.put_line ('SET PAGESIZE 0');

   FOR rec IN  (SELECT DISTINCT name target, driver driver
                FROM PLG_source
               WHERE driver = UPPER (PLGte.driver)
                 AND LOWER (name) LIKE '%' || LOWER ('&1') || '%')
   LOOP
      DBMS_OUTPUT.put_line ('SPOOL ' || rec.target);
      DBMS_OUTPUT.put_line ('SELECT text FROM plg_source');
      DBMS_OUTPUT.put_line (' WHERE driver = ''' ||
                            rec.driver ||
                            ''' AND name = ''' ||
                            rec.target || '''');
      DBMS_OUTPUT.put_line (' ORDER BY line;');
      DBMS_OUTPUT.put_line ('SPOOL OFF');
   END LOOP;

   DBMS_OUTPUT.put_line ('SET TERMOUT ON');
   DBMS_OUTPUT.put_line ('SET FEEDBACK ON');
   DBMS_OUTPUT.put_line ('SET LINESIZE 120');
   DBMS_OUTPUT.put_line ('SET PAGESIZE 60');
END;
/
SPOOL OFF
SET FEEDBACK ON
SET TERMOUT ON
SET VERIFY ON