Procedure que gera txt Douglas Freire

PROCEDURE Gera_arquivo IS -->> Procedure Gera_arquivo: gera arquivo texto -->> Enquanto o arquivo vai sendo criado, um contador informa quantos registros foram inseridos... ARQ TEXT_IO.FILE_TYPE; LINHA VARCHAR2 (2000); CONTADOR NUMBER := 1; CURSOR C1 IS select coluna_1, ... Coluna_n REGISTRO from tabela1 where parâmetros; BEGIN MESSAGE ('Aguarde... Abrindo o arquivo '||:PARAMETROS.TI_NOME_ARQ||'.TXT para gravacao...', NO_ACKNOWLEDGE); SYNCHRONIZE;  ARQ := TEXT_IO.FOPEN ('c:\\temp\\'||:PARAMETROS.TI_NOME_ARQ||'.TXT', 'w'); -->> abertura do arquivo para escrita... LINHA := 'Coluna_1'||';'||...||Coluna_n'; -- TEXT_IO.PUT_LINE (ARQ, LINHA); -- FOR RC1 IN C1 LOOP TEXT_IO.PUT_LINE (ARQ, RC1.REGISTRO); -->> Gravacao dos registros no arquivo... MESSAGE (TO_CHAR (CONTADOR)||' registros inseridos no arquivo.', NO_ACKNOWLEDGE); SYNCHRONIZE; CONTADOR := CONTADOR + 1; END LOOP; TEXT_IO.FCLOSE (ARQ); -->> Fechamento do arquivo... MESSAGE ('Arquivo '||:PARAMETROS.TI_NOME_ARQ||'.TXT gerado com sucesso', NO_ACKNOWLEDGE); EXCEPTION WHEN OTHERS THEN MESSAGE(SQLERRM);PAUSE; END; Douglas Freire 

Quebra-Linha

Colaborador..: Douglas Freire
Categoria(s).: Banco de Dados; Oracle;
Versão.......: Oracle 9i
Data.........: 14/03/2006 09:40:51
Visualizado..: 2195 vezes
Fonte........: GrupoOracleBR