存储过程打印日志并保存文件

create or replace procedure p_outputdebug(a varchar2,b varchar2,c varchar2)
is
vFileName varchar2(100);
OutputFile UTL_FILE.FILE_TYPE;
begin
select 'rfid_'||a.rfid||'.log'
into vFileName
from tbl_animal_info a where a.rfid='330100000078176';
OutputFile := utl_file.fopen('background_dump_dest',vFileName,'a');
utl_file.putf(OutputFile,a,b,c);
utl_file.fflush(OutputFile);
utl_file.fclose(OutputFile);
end ;
SQL> create or replace directory "background_dump_dest"as 'D:\database\cares100\bdump';Directory createdSQL> grant read on directory "background_dump_dest" to myuser;Grant succeededSQL> grant write on directory "background_dump_dest" to myuser;Grant succeededSQL> call myuser.p_outputdebug('1','1','1');Method called