513:
514: CURSOR get_log_file_location IS
515: SELECT NVL( SUBSTR( value, 1, instr( value, ',')-1), value)
516: FROM v$parameter
517: WHERE name = 'utl_file_dir';
518:
519: l_log UTL_FILE.file_type;
520: l_file_name VARCHAR2(80);
521:
515: SELECT NVL( SUBSTR( value, 1, instr( value, ',')-1), value)
516: FROM v$parameter
517: WHERE name = 'utl_file_dir';
518:
519: l_log UTL_FILE.file_type;
520: l_file_name VARCHAR2(80);
521:
522: BEGIN
523:
535: FETCH get_log_file_location into G_DEBUG_FILE_LOCATION;
536: CLOSE get_log_file_location;
537: END IF;
538:
539: l_log := UTL_FILE.fopen(G_DEBUG_FILE_LOCATION, l_file_name, 'a');
540:
541: IF UTL_FILE.IS_OPEN(l_log) THEN
542: UTL_FILE.put_line(l_log, p_msg);
543: UTL_FILE.fflush(l_log);
537: END IF;
538:
539: l_log := UTL_FILE.fopen(G_DEBUG_FILE_LOCATION, l_file_name, 'a');
540:
541: IF UTL_FILE.IS_OPEN(l_log) THEN
542: UTL_FILE.put_line(l_log, p_msg);
543: UTL_FILE.fflush(l_log);
544: UTL_FILE.fclose(l_log);
545: END IF;
538:
539: l_log := UTL_FILE.fopen(G_DEBUG_FILE_LOCATION, l_file_name, 'a');
540:
541: IF UTL_FILE.IS_OPEN(l_log) THEN
542: UTL_FILE.put_line(l_log, p_msg);
543: UTL_FILE.fflush(l_log);
544: UTL_FILE.fclose(l_log);
545: END IF;
546:
539: l_log := UTL_FILE.fopen(G_DEBUG_FILE_LOCATION, l_file_name, 'a');
540:
541: IF UTL_FILE.IS_OPEN(l_log) THEN
542: UTL_FILE.put_line(l_log, p_msg);
543: UTL_FILE.fflush(l_log);
544: UTL_FILE.fclose(l_log);
545: END IF;
546:
547:
540:
541: IF UTL_FILE.IS_OPEN(l_log) THEN
542: UTL_FILE.put_line(l_log, p_msg);
543: UTL_FILE.fflush(l_log);
544: UTL_FILE.fclose(l_log);
545: END IF;
546:
547:
548: EXCEPTION