Mega Code Archive

 

Categories / Oracle PLSQL / System Packages

 

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;