Save data in a cursor to a file : UTL_FILE « System Packages « Oracle PL / SQL

1. Oracle PL / SQL
2. System Packages
3. UTL_FILE

Save data in a cursor to a file

  


CREATE TABLE EMP (EMPNO NUMBER(4) NOT NULL,
                  ENAME VARCHAR2(10),
                  JOB VARCHAR2(9),
                  MGR NUMBER(4),
                  HIREDATE DATE,
                  SAL NUMBER(7, 2),
                  COMM NUMBER(7, 2),
                  DEPTNO NUMBER(2));

INSERT INTO EMP VALUES (7369, 'SMITH', 'CLERK',    7902, TO_DATE('17-DEC-1980', 'DD-MON-YYYY'), 800, NULL, 20);
INSERT INTO EMP VALUES (7499, 'ALLEN', 'SALESMAN', 7698, TO_DATE('20-FEB-1981', 'DD-MON-YYYY'), 1600, 300, 30);
INSERT INTO EMP VALUES (7521, 'WARD',  'SALESMAN', 7698, TO_DATE('22-FEB-1981', 'DD-MON-YYYY'), 1250, 500, 30);
INSERT INTO EMP VALUES (7566, 'JONES', 'MANAGER',  7839, TO_DATE('2-APR-1981',  'DD-MON-YYYY'), 2975, NULL, 20);
INSERT INTO EMP VALUES (7654, 'MARTIN', 'SALESMAN', 7698,TO_DATE('28-SEP-1981', 'DD-MON-YYYY'), 1250, 1400, 30);
INSERT INTO EMP VALUES (7698, 'BLAKE', 'MANAGER', 7839,TO_DATE('1-MAY-1981', 'DD-MON-YYYY'), 2850, NULL, 30);
INSERT INTO EMP VALUES (7782, 'CLARK', 'MANAGER', 7839,TO_DATE('9-JUN-1981', 'DD-MON-YYYY'), 2450, NULL, 10);
INSERT INTO EMP VALUES (7788, 'SCOTT', 'ANALYST', 7566,TO_DATE('09-DEC-1982', 'DD-MON-YYYY'), 3000, NULL, 20);
INSERT INTO EMP VALUES (7839, 'KING', 'PRESIDENT', NULL,TO_DATE('17-NOV-1981', 'DD-MON-YYYY'), 5000, NULL, 10);
INSERT INTO EMP VALUES (7844, 'TURNER', 'SALESMAN', 7698,TO_DATE('8-SEP-1981', 'DD-MON-YYYY'), 1500, 0, 30);
INSERT INTO EMP VALUES (7876, 'ADAMS', 'CLERK', 7788,TO_DATE('12-JAN-1983', 'DD-MON-YYYY'), 1100, NULL, 20);
INSERT INTO EMP VALUES (7900, 'JAMES', 'CLERK', 7698,TO_DATE('3-DEC-1981', 'DD-MON-YYYY'), 950, NULL, 30);
INSERT INTO EMP VALUES (7902, 'FORD', 'ANALYST', 7566,TO_DATE('3-DEC-1981', 'DD-MON-YYYY'), 3000, NULL, 20);
INSERT INTO EMP VALUES (7934, 'MILLER', 'CLERK', 7782,TO_DATE('23-JAN-1982', 'DD-MON-YYYY'), 1300, NULL, 10);


SET ECHO ON
SET SERVEROUTPUT ON

DECLARE
     emp_data UTL_FILE.FILE_TYPE;
BEGIN
    emp_data := UTL_FILE.FOPEN ('c:\a','empdata.csv','W');

    FOR emp IN (SELECT ename FROM emp) LOOP
        UTL_FILE.PUT_LINE (emp_data, emp.ename;
    END LOOP;

    UTL_FILE.FCLOSE (emp_data);

EXCEPTION
    WHEN UTL_FILE.internal_error THEN
        DBMS_OUTPUT.PUT_LINE ('UTL_FILE: An internal error occurred.');
        UTL_FILE.FCLOSE_ALL;
    WHEN UTL_FILE.invalid_filehandle THEN
        DBMS_OUTPUT.PUT_LINE ('UTL_FILE: The file handle was invalid.');
        UTL_FILE.FCLOSE_ALL;
    WHEN UTL_FILE.invalid_mode THEN
        DBMS_OUTPUT.PUT_LINE ('UTL_FILE: An invalid open mode was given.');
        UTL_FILE.FCLOSE_ALL;
    WHEN UTL_FILE.invalid_operation THEN
        DBMS_OUTPUT.PUT_LINE ('UTL_FILE: An invalid operation was attempted.');
        UTL_FILE.FCLOSE_ALL;
    WHEN UTL_FILE.invalid_path THEN
        DBMS_OUTPUT.PUT_LINE ('UTL_FILE: An invalid path was give for the file.');
        UTL_FILE.FCLOSE_ALL;
    WHEN UTL_FILE.read_error THEN
        DBMS_OUTPUT.PUT_LINE ('UTL_FILE: A read error occurred.');
        UTL_FILE.FCLOSE_ALL;
    WHEN UTL_FILE.write_error THEN
        DBMS_OUTPUT.PUT_LINE ('UTL_FILE: A write error occurred.');
        UTL_FILE.FCLOSE_ALL;
    WHEN others THEN
        DBMS_OUTPUT.PUT_LINE ('Some other error occurred.');
        UTL_FILE.FCLOSE_ALL;
END;
/

drop table emp;

   
  

Related examples in the same category