arq		text_io.file_type;
linha		varchar2(4000);

arq := text_io.fopen('arquivo.txt', 'w');
text_io.put_line(arq, 'Digite o texto aqui');
text_io.put_line(arq, 'Mais texto digitado');

text_io.fclose(arq);