Transforme as linhas de uma coluna - SQL

<
-- Se for vários Registros basta Colocar
-- a abertura do arquivo antes do loop
-- e a gravação dentro do loop
declare
s VARCHAR2(500);
NomeArq VARCHAR2(100) :=NULL;
v_file UTL_FILE.FILE_TYPE;
v_Reg VARCHAR2(500);
begin
-- Ler Registros e Transforma em Colunas
for r in (select t.col1
from tabela t)
loop
s:=trim(s)||r.Col1||',';
end loop;

-- Abre o Arquivo para Gravar
v_file:=UTL_FILE.FOPEN('C:\\Local', 'Tabela.sql', 'w');

-- Grava o Registro
UTL_FILE.PUT_LINE(v_file, s);

-- Fecha o Arquivo
UTL_FILE.FFLUSH(v_file);
UTL_FILE.FCLOSE(v_file);
end;
/
/>