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*/
