Динамический SQL

(username IN VARCHAR2, p_mode IN VARCHAR2, p_delim IN VARCHAR2)
IS
   fid                    UTL_FILE.file_type;
   c_cursor               INTEGER;
   my_ret                 INTEGER;
   f1                     PLS_INTEGER        := 1;
   f2                     PLS_INTEGER        := 0;
   my_date                DATE;
   my_varchar2            VARCHAR2 (2000);
   my_number              NUMBER;
   my_line                VARCHAR2 (2000)    := ''
BEGIN
   fid := UTL_FILE.fopen ('C:   emp', 'fname.log', p_mode);
   FOR i IN  (SELECT table_name
                FROM sys.all_tables
               WHERE owner = username)
   LOOP
      c_cursor := DBMS_SQL.open_cursor;
      DBMS_SQL.parse (c_cursor,'select *FROM '|| username || '.'|| i.table_name, DBMS_SQL.native);
      FOR vw_cols IN  (SELECT column_name
                         FROM sys.all_tab_columns
                        WHERE table_name = i.table_name
                          AND owner = username)
      LOOP
         DBMS_SQL.define_column (c_cursor, f1, vw_cols.column_name, 25);
         f1 :=   f1 + 1;
      END LOOP;
      my_ret := DBMS_SQL.EXECUTE (c_cursor);
      WHILE DBMS_SQL.fetch_rows (c_cursor) > 0
      LOOP
         f1 := 1;
         FOR vw_types IN  (SELECT data_type
                             FROM sys.all_tab_columns
                            WHERE table_name = i.table_name
                              AND owner = username)
         LOOP
            IF f2 = 0
            THEN
               IF vw_types.data_type = 'DATE'
               THEN
                  DBMS_SQL.column_value (c_cursor, f1, my_date);
                  my_line := TO_CHAR (my_date);
                  f1 :=   f1 + 1;
                  f2 :=   f2 + 1;
               ELSIF vw_types.data_type = 'VARCHAR2'
               THEN
                  DBMS_SQL.column_value (c_cursor, f1, my_varchar2);
                  my_line := my_varchar2;
                  f1 :=   f1 + 1;
                  f2 :=   f2 + 1;
               ELSIF vw_types.data_type = 'NUMBER'
               THEN
                  DBMS_SQL.column_value (c_cursor, f1, my_number);
                  my_line := TO_CHAR (my_number);
                  f1 :=   f1 + 1;
                  f2 :=   f2 + 1;
               ELSE
                  NULL;
               END IF;
            ELSE
               IF vw_types.data_type = 'DATE'
               THEN
                  DBMS_SQL.column_value (c_cursor, f1, my_date);
                  my_line :=    my_line|| p_delim
                             || TO_CHAR (my_date);
                  f1 :=   f1 + 1;
               ELSIF vw_types.data_type = 'VARCHAR2'
               THEN
                  DBMS_SQL.column_value (c_cursor, f1, my_varchar2);
                  my_line :=    my_line|| p_delim
                             || my_varchar2;
                  f1 :=   f1 + 1;
               ELSIF vw_types.data_type = 'NUMBER'
               THEN
                  DBMS_SQL.column_value (c_cursor, f1, my_number);
                  my_line :=    my_line|| p_delim
                             || TO_CHAR (my_number);
                  f1 :=   f1 + 1;
               ELSE
                  NULL;
               END IF;
            END IF;
         END LOOP;
 
         UTL_FILE.put_line (fid, my_line);
         my_line := ''
      END LOOP;
   END LOOP;
 
   UTL_FILE.fclose (fid);
   DBMS_SQL.close_cursor (c_cursor);
END;

CREATE OR REPLACE FUNCTION get_num_of_employees (
                                  table_name VARCHAR2,
                                  job VARCHAR2)
RETURN NUMBER IS
    query_str          VARCHAR2(1000);
    num_of_employees    NUMBER;
BEGIN
    query_str := 'SELECT COUNT(*) FROM ' || table_name 
        || ' WHERE job = :job_title'
    EXECUTE IMMEDIATE query_str
        INTO num_of_employees
        USING job;
    RETURN num_of_employees;
END;
/
 
CREATE OR REPLACE PROCEDURE list_employees(
                 table_name VARCHAR2,
                 job VARCHAR2)
IS
    TYPE cur_typ IS REF CURSOR;
    c           cur_typ;
    query_str   VARCHAR2(1000);
    emp_name    VARCHAR2(20);
    emp_num     NUMBER;
BEGIN
    query_str := 'SELECT ename, empno FROM ' || table_name 
        || ' WHERE job = :job_title'
    -- find employees who perform the specified job
    OPEN c FOR query_str USING job;
    LOOP
        FETCH c INTO emp_name, emp_num;
        EXIT WHEN c%NOTFOUND;
        -- process row here
    END LOOP;
    CLOSE c;
END;
/