utl_file.sql

----------------------------------
-- SCRIPT  utl_file.sql
-- INICO DO SCRIPT 
-- ALEXANDRE PIRES 14/05/2012
----------------------------------
--    Data       |   Versao  |   Analista  |   Alteracoes
--------------------------------------------------------------------------------------------------------------
--  01/mar/2004  |    1.0    |   LFCerri   | Criacao do bloco anonimo que testa a geracao de um arquivo em
--               |           |             | qualquer diretorio via package utl_file.

define P_DIR = &DIR
define P_ARQ = &ARQ

set verify off
set serveroutput on

declare
   fhandler utl_file.file_type;
   errno varchar2(100);
   errmsg varchar2(4000);
begin
   fhandler :=  UTL_FILE.FOPEN ( '&P_DIR', '&P_ARQ', 'w' );
   UTL_FILE.PUT ( fhandler, to_char(SYSDATE,'dd/mm/yyyy hh24:mi:ss') );
   UTL_FILE.FCLOSE ( fhandler );
   EXCEPTION
       when UTL_FILE.INVALID_PATH then
            dbms_output.put_line('===>   File location and/or filename is invalid.   <===');
       when UTL_FILE.INVALID_MODE then
            dbms_output.put_line('===>   The open_mode parameter in FOPEN is invalid.   <===');
       when UTL_FILE.INVALID_FILEHANDLE then
            dbms_output.put_line('===>   File handle is invalid.   <===');
       when UTL_FILE.INVALID_OPERATION then
            dbms_output.put_line('===>   File could not be opened or operated on as requested.   <===');
       when UTL_FILE.READ_ERROR then
            dbms_output.put_line('===>   Operating system error occurred during the read operation.   <===');
       when UTL_FILE.WRITE_ERROR then
            dbms_output.put_line('===>   Operating system error occurred during the write operation.   <===');
       when UTL_FILE.INTERNAL_ERROR then
            dbms_output.put_line('===>   Unspecified PL/SQL error.   <===');
       when others then 
                errno := sqlcode;
                errmsg := sqlerrm;
                dbms_output.put_line('ERRO: '||errno);
                dbms_output.put_line(errmsg);
end;
/

set verify on
----------------------------------
-- FIM DO SCRIPT  -- 

Sobre Alexandre Pires

ORACLE OCS Goldengate Specialist, OCE RAC 10g R2, OCP 12C, 11g, 10g , 9i e 8i - Mais de 25 anos de experiência na área de TI. Participei de projetos na G&P alocado na TOK STOK, EDINFOR alocado na TV CIDADE "NET", 3CON Alocado no PÃO DE AÇUCAR, DISCOVER alocado na VIVO, BANCO IBI e TIVIT, SPC BRASIL, UOLDIVEO alocado no CARREFOUR e atualmente na ORACLE ACS atendendo os seguintes projetos: VIVO, CLARO, TIM, CIELO, CAIXA SEGUROS, MAPFRE, PORTO SEGURO, SULAMERICA, BRADESCO SEGUROS, BANCO BRADESCO, BASA, SANTANDER, CNJ, TSE, ELETROPAULO, EDP, SKY, NATURA, ODEBRESHT, NISSEI, SICREDI, CELEPAR, TAM, TIVIT, IBM, SMILES, CELEPAR, SERPRO,OKI,BANCO PAN, etc
Esse post foi publicado em ORACLE 11gR2, PLSQL SCRIPTS e marcado , , , . Guardar link permanente.

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s