220:
221: --
222: -- File mode specific global variables
223: --
224: g_file_handler utl_file.file_type;
225: g_file_directory VARCHAR2(2000);
226: g_file_name VARCHAR2(240);
227:
228: --
513:
514: SELECT pa.value
515: INTO l_parameter_value
516: FROM v$parameter pa
517: WHERE pa.name = 'utl_file_dir'
518: ;
519:
520:
521: -- IF xla_utility_event_pkg.is_event_set('RAISE_UTL_FILE_OPEN_FAILURE') THEN
517: WHERE pa.name = 'utl_file_dir'
518: ;
519:
520:
521: -- IF xla_utility_event_pkg.is_event_set('RAISE_UTL_FILE_OPEN_FAILURE') THEN
522: -- l_dir := '/dummy';
523: -- ELSE
524:
525: --
542: ---
543: --- The file mode must be opened in 'w' mode in 7.3, otherwise in 'a' mode
544: ---
545: BEGIN
546: g_file_handler := utl_file.fopen(g_file_directory, g_file_name ,'a');
547:
548: EXCEPTION
549: WHEN utl_file.invalid_mode THEN
550: g_file_handler := utl_file.fopen(g_file_directory, g_file_name ,'w');
545: BEGIN
546: g_file_handler := utl_file.fopen(g_file_directory, g_file_name ,'a');
547:
548: EXCEPTION
549: WHEN utl_file.invalid_mode THEN
550: g_file_handler := utl_file.fopen(g_file_directory, g_file_name ,'w');
551: END;
552:
553: EXCEPTION
546: g_file_handler := utl_file.fopen(g_file_directory, g_file_name ,'a');
547:
548: EXCEPTION
549: WHEN utl_file.invalid_mode THEN
550: g_file_handler := utl_file.fopen(g_file_directory, g_file_name ,'w');
551: END;
552:
553: EXCEPTION
554: WHEN xla_exceptions_pkg.application_exception THEN
553: EXCEPTION
554: WHEN xla_exceptions_pkg.application_exception THEN
555: g_trace := 'N';
556: RAISE;
557: WHEN utl_file.invalid_path THEN
558: xla_exceptions_pkg.raise_message
559: ('XLA' , 'XLA_TRACE_FILE_PATH'
560: ,'FILENAME' , g_file_name
561: ,'DIRECTORY' , g_file_directory);
558: xla_exceptions_pkg.raise_message
559: ('XLA' , 'XLA_TRACE_FILE_PATH'
560: ,'FILENAME' , g_file_name
561: ,'DIRECTORY' , g_file_directory);
562: WHEN utl_file.invalid_mode THEN
563: xla_exceptions_pkg.raise_message
564: ('XLA' , 'XLA_TRACE_FILE_MODE'
565: ,'FILENAME' , g_file_name
566: ,'DIRECTORY' , g_file_directory);
563: xla_exceptions_pkg.raise_message
564: ('XLA' , 'XLA_TRACE_FILE_MODE'
565: ,'FILENAME' , g_file_name
566: ,'DIRECTORY' , g_file_directory);
567: WHEN utl_file.invalid_filehandle THEN
568: xla_exceptions_pkg.raise_message
569: ('XLA' , 'XLA_TRACE_FILE_HANDLE'
570: ,'FILENAME' , g_file_name
571: ,'DIRECTORY' , g_file_directory);
568: xla_exceptions_pkg.raise_message
569: ('XLA' , 'XLA_TRACE_FILE_HANDLE'
570: ,'FILENAME' , g_file_name
571: ,'DIRECTORY' , g_file_directory);
572: WHEN utl_file.invalid_operation THEN
573: xla_exceptions_pkg.raise_message
574: ('XLA' , 'XLA_TRACE_FILE_OPE'
575: ,'FILENAME' , g_file_name
576: ,'DIRECTORY' , g_file_directory);
573: xla_exceptions_pkg.raise_message
574: ('XLA' , 'XLA_TRACE_FILE_OPE'
575: ,'FILENAME' , g_file_name
576: ,'DIRECTORY' , g_file_directory);
577: WHEN utl_file.write_error THEN
578: xla_exceptions_pkg.raise_message
579: ('XLA' , 'XLA_TRACE_FILE_WRITE'
580: ,'FILENAME' , g_file_name
581: ,'DIRECTORY' , g_file_directory);
578: xla_exceptions_pkg.raise_message
579: ('XLA' , 'XLA_TRACE_FILE_WRITE'
580: ,'FILENAME' , g_file_name
581: ,'DIRECTORY' , g_file_directory);
582: WHEN utl_file.internal_error THEN
583: xla_exceptions_pkg.raise_message
584: ('XLA' , 'XLA_TRACE_FILE_ERROR'
585: ,'FILENAME' , g_file_name
586: ,'DIRECTORY' , g_file_directory);
603:
604: IS
605:
606: BEGIN
607: utl_file.fclose(g_file_handler);
608:
609: EXCEPTION
610: WHEN xla_exceptions_pkg.application_exception THEN
611: g_trace := 'N';
609: EXCEPTION
610: WHEN xla_exceptions_pkg.application_exception THEN
611: g_trace := 'N';
612: RAISE;
613: WHEN utl_file.invalid_path THEN
614: xla_exceptions_pkg.raise_message
615: ('XLA' , 'XLA_TRACE_FILE_PATH'
616: ,'FILENAME' , g_file_name
617: ,'DIRECTORY' , g_file_directory);
614: xla_exceptions_pkg.raise_message
615: ('XLA' , 'XLA_TRACE_FILE_PATH'
616: ,'FILENAME' , g_file_name
617: ,'DIRECTORY' , g_file_directory);
618: WHEN utl_file.invalid_mode THEN
619: xla_exceptions_pkg.raise_message
620: ('XLA' , 'XLA_TRACE_FILE_MODE'
621: ,'FILENAME' , g_file_name
622: ,'DIRECTORY' , g_file_directory);
619: xla_exceptions_pkg.raise_message
620: ('XLA' , 'XLA_TRACE_FILE_MODE'
621: ,'FILENAME' , g_file_name
622: ,'DIRECTORY' , g_file_directory);
623: WHEN utl_file.invalid_filehandle THEN
624: xla_exceptions_pkg.raise_message
625: ('XLA' , 'XLA_TRACE_FILE_HANDLE'
626: ,'FILENAME' , g_file_name
627: ,'DIRECTORY' , g_file_directory);
624: xla_exceptions_pkg.raise_message
625: ('XLA' , 'XLA_TRACE_FILE_HANDLE'
626: ,'FILENAME' , g_file_name
627: ,'DIRECTORY' , g_file_directory);
628: WHEN utl_file.invalid_operation THEN
629: xla_exceptions_pkg.raise_message
630: ('XLA' , 'XLA_TRACE_FILE_OPE'
631: ,'FILENAME' , g_file_name
632: ,'DIRECTORY' , g_file_directory);
629: xla_exceptions_pkg.raise_message
630: ('XLA' , 'XLA_TRACE_FILE_OPE'
631: ,'FILENAME' , g_file_name
632: ,'DIRECTORY' , g_file_directory);
633: WHEN utl_file.write_error THEN
634: xla_exceptions_pkg.raise_message
635: ('XLA' , 'XLA_TRACE_FILE_WRITE'
636: ,'FILENAME' , g_file_name
637: ,'DIRECTORY' , g_file_directory);
634: xla_exceptions_pkg.raise_message
635: ('XLA' , 'XLA_TRACE_FILE_WRITE'
636: ,'FILENAME' , g_file_name
637: ,'DIRECTORY' , g_file_directory);
638: WHEN utl_file.internal_error THEN
639: xla_exceptions_pkg.raise_message
640: ('XLA' , 'XLA_TRACE_FILE_ERROR'
641: ,'FILENAME' , g_file_name
642: ,'DIRECTORY' , g_file_directory);
801: BEGIN
802: fnd_file.put_line(fnd_file.log,p_msg);
803:
804: -- IF xla_utility_event_pkg.is_event_set('RAISE_FND_FILE_OPEN_FAILURE') THEN
805: -- RAISE utl_file.invalid_path;
806: -- END IF;
807:
808: EXCEPTION
809: WHEN xla_exceptions_pkg.application_exception THEN
865:
866: IS
867:
868: BEGIN
869: utl_file.put_line(g_file_handler,p_msg);
870:
871: IF g_file_flush_option = 'Y' THEN
872: utl_file.fflush(g_file_handler);
873: END IF;
868: BEGIN
869: utl_file.put_line(g_file_handler,p_msg);
870:
871: IF g_file_flush_option = 'Y' THEN
872: utl_file.fflush(g_file_handler);
873: END IF;
874:
875: EXCEPTION
876: WHEN xla_exceptions_pkg.application_exception THEN
875: EXCEPTION
876: WHEN xla_exceptions_pkg.application_exception THEN
877: g_trace := 'N';
878: RAISE;
879: WHEN utl_file.invalid_path THEN
880: xla_exceptions_pkg.raise_message
881: ('XLA' , 'XLA_TRACE_FILE_PATH'
882: ,'FILENAME' , g_file_name
883: ,'DIRECTORY' , g_file_directory);
880: xla_exceptions_pkg.raise_message
881: ('XLA' , 'XLA_TRACE_FILE_PATH'
882: ,'FILENAME' , g_file_name
883: ,'DIRECTORY' , g_file_directory);
884: WHEN utl_file.invalid_mode THEN
885: xla_exceptions_pkg.raise_message
886: ('XLA' , 'XLA_TRACE_FILE_MODE'
887: ,'FILENAME' , g_file_name
888: ,'DIRECTORY' , g_file_directory);
885: xla_exceptions_pkg.raise_message
886: ('XLA' , 'XLA_TRACE_FILE_MODE'
887: ,'FILENAME' , g_file_name
888: ,'DIRECTORY' , g_file_directory);
889: WHEN utl_file.invalid_filehandle THEN
890: xla_exceptions_pkg.raise_message
891: ('XLA' , 'XLA_TRACE_FILE_HANDLE'
892: ,'FILENAME' , g_file_name
893: ,'DIRECTORY' , g_file_directory);
890: xla_exceptions_pkg.raise_message
891: ('XLA' , 'XLA_TRACE_FILE_HANDLE'
892: ,'FILENAME' , g_file_name
893: ,'DIRECTORY' , g_file_directory);
894: WHEN utl_file.invalid_operation THEN
895: xla_exceptions_pkg.raise_message
896: ('XLA' , 'XLA_TRACE_FILE_OPE'
897: ,'FILENAME' , g_file_name
898: ,'DIRECTORY' , g_file_directory);
895: xla_exceptions_pkg.raise_message
896: ('XLA' , 'XLA_TRACE_FILE_OPE'
897: ,'FILENAME' , g_file_name
898: ,'DIRECTORY' , g_file_directory);
899: WHEN utl_file.write_error THEN
900: xla_exceptions_pkg.raise_message
901: ('XLA' , 'XLA_TRACE_FILE_WRITE'
902: ,'FILENAME' , g_file_name
903: ,'DIRECTORY' , g_file_directory);
900: xla_exceptions_pkg.raise_message
901: ('XLA' , 'XLA_TRACE_FILE_WRITE'
902: ,'FILENAME' , g_file_name
903: ,'DIRECTORY' , g_file_directory);
904: WHEN utl_file.internal_error THEN
905: xla_exceptions_pkg.raise_message
906: ('XLA' , 'XLA_TRACE_FILE_ERROR'
907: ,'FILENAME' , g_file_name
908: ,'DIRECTORY' , g_file_directory);