1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| Procedure textToNewFile ( pOutputFilePath In Varchar2 ,
pOutputFile In Varchar2 ,
pMessage In Varchar2
)
Is
lFileHnd Utl_File.File_Type;
Begin
Lfilehnd := Utl_File.Fopen(Poutputfilepath,Poutputfile,'w');
Utl_File.Put_Line(Lfilehnd, Pmessage);
Utl_File.Fclose(Lfilehnd);
Exception
when UTL_FILE.INVALID_PATH then
raise_application_error(-20101,'Invalid Path'||'; Path='||pOutputFilePath||'; File='||pOutputFile||'; Message='||pMessage);
when UTL_FILE.INVALID_MODE then
raise_application_error(-20101,'Invalid Mode'||'; Path='||pOutputFilePath||'; File='||pOutputFile||'; Message='||pMessage);
when UTL_FILE.INVALID_OPERATION then
raise_application_error(-20101,'Invalid Operation'||'; Path='||pOutputFilePath||'; File='||pOutputFile||'; Message='||pMessage);
when UTL_FILE.INVALID_FILEHANDLE then
raise_application_error(-20101,'Invalid Filehandle'||'; Path='||pOutputFilePath||'; File='||pOutputFile||'; Message='||pMessage);
when UTL_FILE.WRITE_ERROR then
raise_application_error(-20101,'Write Error'||'; Path='||pOutputFilePath||'; File='||pOutputFile||'; Message='||pMessage);
when UTL_FILE.READ_ERROR then
raise_application_error(-20101,'Read Error'||'; Path='||pOutputFilePath||'; File='||pOutputFile||'; Message='||pMessage);
when UTL_FILE.INTERNAL_ERROR then
raise_application_error(-20101,'Internal Error'||'; Path='||pOutputFilePath||'; File='||pOutputFile||'; Message='||pMessage);
when others then
UTL_FILE.FCLOSE(lFileHnd);
raise_application_error(-20101, 'textToNewFile ERROR : ' || sqlerrm);
End textToNewFile; |
Partager