Mega Code Archive

 

Categories / Oracle PLSQL Tutorial / System Packages

 

File open flags

SQL> SQL> CREATE OR REPLACE PROCEDURE play_with_files   2     (loc_in IN VARCHAR2,   3      file_in IN VARCHAR2,   4      mode_in IN VARCHAR2,   5      mixed_up IN BOOLEAN := FALSE)   6  IS   7     fID UTL_FILE.FILE_TYPE;   8     line VARCHAR2(32767) := 'fun stuff!';   9  BEGIN  10     IF mixed_up AND mode_in = 'R'  11     THEN  12        fID := UTL_FILE.FOPEN (loc_in, file_in, 'W');  13     ELSIF mixed_up  14     THEN  15        fID := NULL;  16     ELSE  17        fID := UTL_FILE.FOPEN (loc_in, file_in, mode_in);  18     END IF;  19  20     IF mode_in = 'R'  21     THEN  22        UTL_FILE.GET_LINE (fid, line);  23        DBMS_OUTPUT.PUT_LINE ('Read from ' || file_in || ' in ' || loc_in);  24     ELSE  25        UTL_FILE.PUT_LINE (fid, line);  26        DBMS_OUTPUT.PUT_LINE ('Wrote to ' || file_in || ' in ' || loc_in);  27     END IF;  28  29     UTL_FILE.FCLOSE (fid);  30  END;  31  / SQL>