Este es un ejemplo sencillo de cómo crear un archivo de texto (.txt) desde Oracle Forms 6i.

declare
archivo     TEXT_IO.FILE_TYPE;  --Archivo Libreria TEXT_IO
cursor registros is
select campo1,campo2,campo3 from mi_tabla;
begin
archivo := TEXT_IO.FOPEN('C:\prueba.txt','w');--Nombre Archivo
TEXT_IO.PUT_LINE(archivo,'COL1'||CHR(9)||'COL2'||chr(9)||'COL3');
FOR R IN registros LOOP
TEXT_IO.PUT_LINE(archivo_d,R.campo1||CHR(9)||
                                               R.campo2||CHR(9)||
                                                       R.campo3);
END LOOP;
Text_IO.Fclose(archivo);
end;
/*EL ARCHIVO SE GENERA EN LA RUTA ESPECIFICADA EN ESTE CASO EN LA UNIDAD C
SI NO DEJA ESCRIBIR EN ESTA UNIDAD CREAR UNA CARPETA INTERNA*/