Mega Code Archive

 

Categories / Oracle PLSQL Tutorial / System Packages

 

Open a file with mode passed in

SQL> SQL> CREATE OR REPLACE FUNCTION fopen   2     (loc_in IN VARCHAR2,   3      file_in IN VARCHAR2,   4      mode_in IN VARCHAR2 := 'R')   5      RETURN UTL_FILE.FILE_TYPE   6  IS   7     fID UTL_FILE.FILE_TYPE;   8  BEGIN   9     fID := UTL_FILE.FOPEN (loc_in, file_in, mode_in);  10     RETURN fid;  11  EXCEPTION  12     WHEN UTL_FILE.INVALID_OPERATION  13     THEN  14        IF mode_in = 'A'  15        THEN  16           fID := UTL_FILE.FOPEN (loc_in, file_in, 'W');  17           RETURN fid;  18        ELSE  19           RAISE;  20        END IF;  21  END;  22  / SQL>