Porém o arquivo abre vazio, como se não lesse o conteúdo. Alguém sabe me dizer o que fiz errado?
Obrigada
DECLARE
V_SAIDA TEXT_IO.FILE_TYPE;
V_ARQUIVO VARCHAR2(500);
BEGIN
V_ARQUIVO := GET_FILE_NAME('I:\', :FAT20141.NM_ARQUIVO, NULL , NULL, OPEN_FILE, TRUE);
BEGIN
V_SAIDA := TEXT_IO.FOPEN(V_ARQUIVO, 'W');
TEXT_IO.FCLOSE (V_SAIDA);
EXCEPTION
WHEN OTHERS THEN
NULL;
END;
OPEN_EXT_FILE(V_ARQUIVO);
EXCEPTION
WHEN OTHERS THEN
IF SQLCODE <> -100501 THEN
MESSAGE('Erro ao abrir o arquivo: '||SQLERRM);
MESSAGE(' ');
END IF;
END;