Director read write file operations

declare

l_file UTL_FILE.file_type;

fileHandler UTL_FILE.FILE_TYPE;

l_location VARCHAR2(100) := '';

l_text VARCHAR2(32767);

mesaj VARCHAR2(32767);

l_filename VARCHAR2(100) := '';

l_filename_output VARCHAR2(100) := '';

asd VARCHAR2(32767);

begin

mesaj:=' ';

l_file := UTL_FILE.fopen(l_location, l_filename, 'r', 32767);

LOOP

UTL_FILE.get_line(l_file, l_text, 32767);

--DBMS_OUTPUT.PUT_LINE(l_text);

--mesaj:=mesaj||l_text||', '', '||chr(13) || chr(10)||' ';

END LOOP;

UTL_FILE.fclose(l_file);

fileHandler := UTL_FILE.FOPEN(l_location,l_filename_output, 'w');

UTL_FILE.PUTF(fileHandler, mesaj);

UTL_FILE.FCLOSE(fileHandler);

EXCEPTION

WHEN OTHERS THEN

NULL;

end;