eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.FND_FILE dependencies on UTL_FILE

Line 5: F_LOG utl_file.file_type;

1: package body FND_FILE as
2: /* $Header: AFCPPIOB.pls 120.8 2011/08/01 20:56:25 ckclark ship $ */
3:
4:
5: F_LOG utl_file.file_type;
6: F_OUT utl_file.file_type;
7:
8: LOG_FNAME varchar2(255) := null;
9: OUT_FNAME varchar2(255) := null;

Line 6: F_OUT utl_file.file_type;

2: /* $Header: AFCPPIOB.pls 120.8 2011/08/01 20:56:25 ckclark ship $ */
3:
4:
5: F_LOG utl_file.file_type;
6: F_OUT utl_file.file_type;
7:
8: LOG_FNAME varchar2(255) := null;
9: OUT_FNAME varchar2(255) := null;
10: TEMP_DIR varchar2(255) := null;

Line 16: /* implements utl_file.put_raw into fnd_file */

12: LOG_OPEN boolean := FALSE;
13: OUT_OPEN boolean := FALSE;
14:
15: /* bug8661315 */
16: /* implements utl_file.put_raw into fnd_file */
17: /* in PUT_RAW mode, use of termination characters */
18: /* every 32K is not required */
19:
20: UTL_FILE_MODE varchar2(12) := 'TRADITIONAL';

Line 20: UTL_FILE_MODE varchar2(12) := 'TRADITIONAL';

16: /* implements utl_file.put_raw into fnd_file */
17: /* in PUT_RAW mode, use of termination characters */
18: /* every 32K is not required */
19:
20: UTL_FILE_MODE varchar2(12) := 'TRADITIONAL';
21: RAW_TERM raw(3);
22:
23: UTL_FILE_DELAY number := 0;
24:

Line 23: UTL_FILE_DELAY number := 0;

19:
20: UTL_FILE_MODE varchar2(12) := 'TRADITIONAL';
21: RAW_TERM raw(3);
22:
23: UTL_FILE_DELAY number := 0;
24:
25: /* -------------------------------------------------------------------------
26: PRIVATE PROCEDURES
27: -------------------------------------------------------------------------

Line 38: when UTL_FILE.INVALID_PATH_ERRCODE then

34:
35: begin
36:
37: case errcode
38: when UTL_FILE.INVALID_PATH_ERRCODE then
39: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_PATH');
40: fnd_message.set_module('fnd.plsql.fnd_file.' || func || '.invalid_path');
41:
42: when UTL_FILE.INVALID_MODE_ERRCODE then

Line 42: when UTL_FILE.INVALID_MODE_ERRCODE then

38: when UTL_FILE.INVALID_PATH_ERRCODE then
39: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_PATH');
40: fnd_message.set_module('fnd.plsql.fnd_file.' || func || '.invalid_path');
41:
42: when UTL_FILE.INVALID_MODE_ERRCODE then
43: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_MODE');
44: fnd_message.set_token('FILE_MODE', 'w', FALSE);
45: fnd_message.set_module('fnd.plsql.fnd_file.' || func || '.invalid_mode');
46:

Line 47: when UTL_FILE.INVALID_OPERATION_ERRCODE then

43: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_MODE');
44: fnd_message.set_token('FILE_MODE', 'w', FALSE);
45: fnd_message.set_module('fnd.plsql.fnd_file.' || func || '.invalid_mode');
46:
47: when UTL_FILE.INVALID_OPERATION_ERRCODE then
48: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_OPERATN');
49: fnd_message.set_module('fnd.plsql.fnd_file.' || func || '.invalid_operation');
50:
51: when UTL_FILE.INVALID_MAXLINESIZE_ERRCODE then

Line 51: when UTL_FILE.INVALID_MAXLINESIZE_ERRCODE then

47: when UTL_FILE.INVALID_OPERATION_ERRCODE then
48: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_OPERATN');
49: fnd_message.set_module('fnd.plsql.fnd_file.' || func || '.invalid_operation');
50:
51: when UTL_FILE.INVALID_MAXLINESIZE_ERRCODE then
52: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_MAXLINE');
53: fnd_message.set_module('fnd.plsql.fnd_file.' || func || '.invalid_maxline');
54:
55: when UTL_FILE.INVALID_FILEHANDLE_ERRCODE then

Line 55: when UTL_FILE.INVALID_FILEHANDLE_ERRCODE then

51: when UTL_FILE.INVALID_MAXLINESIZE_ERRCODE then
52: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_MAXLINE');
53: fnd_message.set_module('fnd.plsql.fnd_file.' || func || '.invalid_maxline');
54:
55: when UTL_FILE.INVALID_FILEHANDLE_ERRCODE then
56: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_HANDLE');
57: fnd_message.set_module('fnd.plsql.fnd_file.' || func || '.invalid_handle');
58:
59: when UTL_FILE.WRITE_ERROR_ERRCODE then

Line 59: when UTL_FILE.WRITE_ERROR_ERRCODE then

55: when UTL_FILE.INVALID_FILEHANDLE_ERRCODE then
56: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_HANDLE');
57: fnd_message.set_module('fnd.plsql.fnd_file.' || func || '.invalid_handle');
58:
59: when UTL_FILE.WRITE_ERROR_ERRCODE then
60: fnd_message.set_name('FND', 'CONC-TEMPFILE_WRITE_ERROR');
61: fnd_message.set_module('fnd.plsql.fnd_file.' || func || '.write_error');
62:
63: when UTL_FILE.READ_ERROR_ERRCODE then

Line 63: when UTL_FILE.READ_ERROR_ERRCODE then

59: when UTL_FILE.WRITE_ERROR_ERRCODE then
60: fnd_message.set_name('FND', 'CONC-TEMPFILE_WRITE_ERROR');
61: fnd_message.set_module('fnd.plsql.fnd_file.' || func || '.write_error');
62:
63: when UTL_FILE.READ_ERROR_ERRCODE then
64: fnd_message.set_name('FND', 'CONC-TEMPFILE_READ_ERROR');
65: fnd_message.set_module('fnd.plsql.fnd_file.' || func || '.read_error');
66:
67: when UTL_FILE.ACCESS_DENIED_ERRCODE then

Line 67: when UTL_FILE.ACCESS_DENIED_ERRCODE then

63: when UTL_FILE.READ_ERROR_ERRCODE then
64: fnd_message.set_name('FND', 'CONC-TEMPFILE_READ_ERROR');
65: fnd_message.set_module('fnd.plsql.fnd_file.' || func || '.read_error');
66:
67: when UTL_FILE.ACCESS_DENIED_ERRCODE then
68: fnd_message.set_name('FND', 'CONC-TEMPFILE_ACCESS_DENIED');
69: fnd_message.set_module('fnd.plsql.fnd_file.' || func || '.access_denied');
70:
71: end case;

Line 143: function openit(fname in varchar2) return utl_file.file_type is

139: MAX_LINESIZE binary_integer := 32767;
140: temp_file varchar2(255); -- used for messages
141: user_error varchar2(255); -- to store translated file_error
142:
143: function openit(fname in varchar2) return utl_file.file_type is
144: log_f utl_file.file_type;
145: begin
146: -- Open and close file to use the workaround for bug
147: log_f := utl_file.fopen(TEMP_DIR, fname, 'w');

Line 144: log_f utl_file.file_type;

140: temp_file varchar2(255); -- used for messages
141: user_error varchar2(255); -- to store translated file_error
142:
143: function openit(fname in varchar2) return utl_file.file_type is
144: log_f utl_file.file_type;
145: begin
146: -- Open and close file to use the workaround for bug
147: log_f := utl_file.fopen(TEMP_DIR, fname, 'w');
148:

Line 147: log_f := utl_file.fopen(TEMP_DIR, fname, 'w');

143: function openit(fname in varchar2) return utl_file.file_type is
144: log_f utl_file.file_type;
145: begin
146: -- Open and close file to use the workaround for bug
147: log_f := utl_file.fopen(TEMP_DIR, fname, 'w');
148:
149: BEGIN
150: utl_file.fclose(log_f);
151: EXCEPTION

Line 150: utl_file.fclose(log_f);

146: -- Open and close file to use the workaround for bug
147: log_f := utl_file.fopen(TEMP_DIR, fname, 'w');
148:
149: BEGIN
150: utl_file.fclose(log_f);
151: EXCEPTION
152: when others then
153: NULL;
154: END;

Line 156: if (UTL_FILE_MODE = 'TRADITIONAL') then

152: when others then
153: NULL;
154: END;
155:
156: if (UTL_FILE_MODE = 'TRADITIONAL') then
157: log_f := utl_file.fopen(TEMP_DIR, fname, 'w', MAX_LINESIZE);
158: else
159: log_f := utl_file.fopen(TEMP_DIR, fname, 'wb', MAX_LINESIZE);
160: end if;

Line 157: log_f := utl_file.fopen(TEMP_DIR, fname, 'w', MAX_LINESIZE);

153: NULL;
154: END;
155:
156: if (UTL_FILE_MODE = 'TRADITIONAL') then
157: log_f := utl_file.fopen(TEMP_DIR, fname, 'w', MAX_LINESIZE);
158: else
159: log_f := utl_file.fopen(TEMP_DIR, fname, 'wb', MAX_LINESIZE);
160: end if;
161:

Line 159: log_f := utl_file.fopen(TEMP_DIR, fname, 'wb', MAX_LINESIZE);

155:
156: if (UTL_FILE_MODE = 'TRADITIONAL') then
157: log_f := utl_file.fopen(TEMP_DIR, fname, 'w', MAX_LINESIZE);
158: else
159: log_f := utl_file.fopen(TEMP_DIR, fname, 'wb', MAX_LINESIZE);
160: end if;
161:
162: return log_f;
163: end;

Line 200: -- use first entry of utl_file_dir as the TEMP_DIR

196:
197: if LOG_FNAME is null AND
198: OUT_FNAME is null AND
199: TEMP_DIR is null then
200: -- use first entry of utl_file_dir as the TEMP_DIR
201: -- if there is no entry then do not even construct file names
202: select translate(ltrim(value),',',' ')
203: into TEMP_UTL
204: from v$parameter

Line 205: where name = 'utl_file_dir';

201: -- if there is no entry then do not even construct file names
202: select translate(ltrim(value),',',' ')
203: into TEMP_UTL
204: from v$parameter
205: where name = 'utl_file_dir';
206:
207: if (instr(TEMP_UTL,' ') > 0 and TEMP_UTL is not null) then
208: select substrb(TEMP_UTL, 1, instr(TEMP_UTL,' ') - 1)
209: into TEMP_DIR

Line 236: if UTL_FILE_DELAY > 0 then

232:
233: -- CAUTION: for NT, we can ignore this area for NT
234: -- log the temp file info in fnd_temp_files table
235:
236: if UTL_FILE_DELAY > 0 then
237: if IS_OPEN('LOG') = 0 then
238: TEMP_UTL := TEMP_DIR || '/' || LOG_FNAME;
239: if ( fnd_conc_private_utils.check_temp_file_use(temp_utl,NULL,'F') <> 1) then
240: log_simple_msg (fnd_log.level_statement, 'put_names_os',

Line 269: log_f utl_file.file_type;

265:
266:
267: procedure WRITE_BUFF(WHICH in number, WTYPE in varchar2, BUFF in varchar2) is
268: temp_file varchar2(255); -- used for messages
269: log_f utl_file.file_type;
270: begin
271:
272: -- if PUT_NAMES_OS is successfull then call OPEN_FILES
273: -- and write the buffer into temp file

Line 285: if (UTL_FILE_MODE = 'TRADITIONAL') then

281: temp_file := OUT_FNAME;
282: log_f := F_OUT;
283: end if;
284:
285: if (UTL_FILE_MODE = 'TRADITIONAL') then
286:
287: if ( WTYPE = 'PUT' ) then
288: utl_file.put(log_f, BUFF);
289: elsif (WTYPE = 'PUT_LINE' ) then

Line 288: utl_file.put(log_f, BUFF);

284:
285: if (UTL_FILE_MODE = 'TRADITIONAL') then
286:
287: if ( WTYPE = 'PUT' ) then
288: utl_file.put(log_f, BUFF);
289: elsif (WTYPE = 'PUT_LINE' ) then
290: utl_file.put_line(log_f, BUFF);
291: elsif (WTYPE = 'NEW_LINE') then
292: utl_file.new_line(log_f, to_number(BUFF) );

Line 290: utl_file.put_line(log_f, BUFF);

286:
287: if ( WTYPE = 'PUT' ) then
288: utl_file.put(log_f, BUFF);
289: elsif (WTYPE = 'PUT_LINE' ) then
290: utl_file.put_line(log_f, BUFF);
291: elsif (WTYPE = 'NEW_LINE') then
292: utl_file.new_line(log_f, to_number(BUFF) );
293: end if;
294:

Line 292: utl_file.new_line(log_f, to_number(BUFF) );

288: utl_file.put(log_f, BUFF);
289: elsif (WTYPE = 'PUT_LINE' ) then
290: utl_file.put_line(log_f, BUFF);
291: elsif (WTYPE = 'NEW_LINE') then
292: utl_file.new_line(log_f, to_number(BUFF) );
293: end if;
294:
295: else
296: if ( WTYPE = 'PUT' ) then

Line 297: utl_file.put_raw(log_f, utl_raw.cast_to_raw(BUFF));

293: end if;
294:
295: else
296: if ( WTYPE = 'PUT' ) then
297: utl_file.put_raw(log_f, utl_raw.cast_to_raw(BUFF));
298: elsif (WTYPE = 'PUT_LINE' ) then
299: utl_file.put_raw(log_f, utl_raw.cast_to_raw(BUFF));
300: utl_file.put_raw(log_f, RAW_TERM);
301: elsif (WTYPE = 'NEW_LINE') then

Line 299: utl_file.put_raw(log_f, utl_raw.cast_to_raw(BUFF));

295: else
296: if ( WTYPE = 'PUT' ) then
297: utl_file.put_raw(log_f, utl_raw.cast_to_raw(BUFF));
298: elsif (WTYPE = 'PUT_LINE' ) then
299: utl_file.put_raw(log_f, utl_raw.cast_to_raw(BUFF));
300: utl_file.put_raw(log_f, RAW_TERM);
301: elsif (WTYPE = 'NEW_LINE') then
302: for i in 1 .. to_number(BUFF) loop
303: utl_file.put_raw(log_f, RAW_TERM);

Line 300: utl_file.put_raw(log_f, RAW_TERM);

296: if ( WTYPE = 'PUT' ) then
297: utl_file.put_raw(log_f, utl_raw.cast_to_raw(BUFF));
298: elsif (WTYPE = 'PUT_LINE' ) then
299: utl_file.put_raw(log_f, utl_raw.cast_to_raw(BUFF));
300: utl_file.put_raw(log_f, RAW_TERM);
301: elsif (WTYPE = 'NEW_LINE') then
302: for i in 1 .. to_number(BUFF) loop
303: utl_file.put_raw(log_f, RAW_TERM);
304: end loop;

Line 303: utl_file.put_raw(log_f, RAW_TERM);

299: utl_file.put_raw(log_f, utl_raw.cast_to_raw(BUFF));
300: utl_file.put_raw(log_f, RAW_TERM);
301: elsif (WTYPE = 'NEW_LINE') then
302: for i in 1 .. to_number(BUFF) loop
303: utl_file.put_raw(log_f, RAW_TERM);
304: end loop;
305: end if;
306:
307: end if;

Line 309: utl_file.fflush(log_f);

305: end if;
306:
307: end if;
308:
309: utl_file.fflush(log_f);
310:
311: if WHICH = FND_FILE.LOG then
312: log_simple_msg(fnd_log.level_event, 'write_buff.' || WTYPE, BUFF);
313: end if;

Line 330: log_f utl_file.file_type;

326: BUFF in varchar2,
327: FUNC in varchar2) is
328:
329: temp_file varchar2(255); -- used for messages
330: log_f utl_file.file_type;
331: begin
332:
333: if WHICH = FND_FILE.LOG then
334: temp_file := LOG_FNAME;

Line 341: if (UTL_FILE_MODE = 'TRADITIONAL') then

337: temp_file := OUT_FNAME;
338: log_f := F_OUT;
339: end if;
340:
341: if (UTL_FILE_MODE = 'TRADITIONAL') then
342: if FUNC = 'PUT_LINE' then
343: utl_file.put_line(log_f, BUFF);
344: else
345: utl_file.put(log_f, BUFF);

Line 343: utl_file.put_line(log_f, BUFF);

339: end if;
340:
341: if (UTL_FILE_MODE = 'TRADITIONAL') then
342: if FUNC = 'PUT_LINE' then
343: utl_file.put_line(log_f, BUFF);
344: else
345: utl_file.put(log_f, BUFF);
346: end if;
347: else

Line 345: utl_file.put(log_f, BUFF);

341: if (UTL_FILE_MODE = 'TRADITIONAL') then
342: if FUNC = 'PUT_LINE' then
343: utl_file.put_line(log_f, BUFF);
344: else
345: utl_file.put(log_f, BUFF);
346: end if;
347: else
348: utl_file.put_raw(log_f, utl_raw.cast_to_raw(BUFF));
349: if FUNC = 'PUT_LINE' then

Line 348: utl_file.put_raw(log_f, utl_raw.cast_to_raw(BUFF));

344: else
345: utl_file.put(log_f, BUFF);
346: end if;
347: else
348: utl_file.put_raw(log_f, utl_raw.cast_to_raw(BUFF));
349: if FUNC = 'PUT_LINE' then
350: utl_file.put_raw(log_f, RAW_TERM);
351: end if;
352: end if;

Line 350: utl_file.put_raw(log_f, RAW_TERM);

346: end if;
347: else
348: utl_file.put_raw(log_f, utl_raw.cast_to_raw(BUFF));
349: if FUNC = 'PUT_LINE' then
350: utl_file.put_raw(log_f, RAW_TERM);
351: end if;
352: end if;
353:
354: utl_file.fflush(log_f);

Line 354: utl_file.fflush(log_f);

350: utl_file.put_raw(log_f, RAW_TERM);
351: end if;
352: end if;
353:
354: utl_file.fflush(log_f);
355:
356: if which = FND_FILE.LOG then
357: log_simple_msg(fnd_log.level_event, FUNC, BUFF);
358: end if;

Line 361: when UTL_FILE.INVALID_FILEHANDLE then

357: log_simple_msg(fnd_log.level_event, FUNC, BUFF);
358: end if;
359:
360: exception
361: when UTL_FILE.INVALID_FILEHANDLE then
362: -- first time this could be file not open case
363: -- try opening temp files and write
364: WRITE_BUFF(WHICH, FUNC, BUFF);
365:

Line 387: ** utl_file.invalid_path (*) - file location or name was invalid

383: ** IN
384: ** WHICH - Log or output file? Either FND_FILE.LOG or FND_FILE.OUTPUT
385: ** BUFF - Text to write
386: ** EXCEPTIONS
387: ** utl_file.invalid_path (*) - file location or name was invalid
388: ** utl_file.invalid_mode (*) - the open_mode string was invalid
389: ** utl_file.invalid_filehandle - file handle is invalid
390: ** utl_file.invalid_operation - file is not open for writing/appending
391: ** utl_file.write_error - OS error occured during write operation

Line 388: ** utl_file.invalid_mode (*) - the open_mode string was invalid

384: ** WHICH - Log or output file? Either FND_FILE.LOG or FND_FILE.OUTPUT
385: ** BUFF - Text to write
386: ** EXCEPTIONS
387: ** utl_file.invalid_path (*) - file location or name was invalid
388: ** utl_file.invalid_mode (*) - the open_mode string was invalid
389: ** utl_file.invalid_filehandle - file handle is invalid
390: ** utl_file.invalid_operation - file is not open for writing/appending
391: ** utl_file.write_error - OS error occured during write operation
392: */

Line 389: ** utl_file.invalid_filehandle - file handle is invalid

385: ** BUFF - Text to write
386: ** EXCEPTIONS
387: ** utl_file.invalid_path (*) - file location or name was invalid
388: ** utl_file.invalid_mode (*) - the open_mode string was invalid
389: ** utl_file.invalid_filehandle - file handle is invalid
390: ** utl_file.invalid_operation - file is not open for writing/appending
391: ** utl_file.write_error - OS error occured during write operation
392: */
393: procedure PUT(WHICH in number, BUFF in varchar2) is

Line 390: ** utl_file.invalid_operation - file is not open for writing/appending

386: ** EXCEPTIONS
387: ** utl_file.invalid_path (*) - file location or name was invalid
388: ** utl_file.invalid_mode (*) - the open_mode string was invalid
389: ** utl_file.invalid_filehandle - file handle is invalid
390: ** utl_file.invalid_operation - file is not open for writing/appending
391: ** utl_file.write_error - OS error occured during write operation
392: */
393: procedure PUT(WHICH in number, BUFF in varchar2) is
394: temp_file varchar2(255); -- used for messages

Line 391: ** utl_file.write_error - OS error occured during write operation

387: ** utl_file.invalid_path (*) - file location or name was invalid
388: ** utl_file.invalid_mode (*) - the open_mode string was invalid
389: ** utl_file.invalid_filehandle - file handle is invalid
390: ** utl_file.invalid_operation - file is not open for writing/appending
391: ** utl_file.write_error - OS error occured during write operation
392: */
393: procedure PUT(WHICH in number, BUFF in varchar2) is
394: temp_file varchar2(255); -- used for messages
395: log_f utl_file.file_type;

Line 395: log_f utl_file.file_type;

391: ** utl_file.write_error - OS error occured during write operation
392: */
393: procedure PUT(WHICH in number, BUFF in varchar2) is
394: temp_file varchar2(255); -- used for messages
395: log_f utl_file.file_type;
396: begin
397:
398: PUT_INTERNAL(WHICH, BUFF, 'PUT');
399:

Line 410: ** utl_file.invalid_path - file location or name was invalid

406: ** IN
407: ** WHICH - Log or output file? Either FND_FILE.LOG or FND_FILE.OUTPUT
408: ** BUFF - Text to write
409: ** EXCEPTIONS
410: ** utl_file.invalid_path - file location or name was invalid
411: ** utl_file.invalid_mode - the open_mode string was invalid
412: ** utl_file.invalid_filehandle - file handle is invalid
413: ** utl_file.invalid_operation - file is not open for writing/appending
414: ** utl_file.write_error - OS error occured during write operation

Line 411: ** utl_file.invalid_mode - the open_mode string was invalid

407: ** WHICH - Log or output file? Either FND_FILE.LOG or FND_FILE.OUTPUT
408: ** BUFF - Text to write
409: ** EXCEPTIONS
410: ** utl_file.invalid_path - file location or name was invalid
411: ** utl_file.invalid_mode - the open_mode string was invalid
412: ** utl_file.invalid_filehandle - file handle is invalid
413: ** utl_file.invalid_operation - file is not open for writing/appending
414: ** utl_file.write_error - OS error occured during write operation
415: */

Line 412: ** utl_file.invalid_filehandle - file handle is invalid

408: ** BUFF - Text to write
409: ** EXCEPTIONS
410: ** utl_file.invalid_path - file location or name was invalid
411: ** utl_file.invalid_mode - the open_mode string was invalid
412: ** utl_file.invalid_filehandle - file handle is invalid
413: ** utl_file.invalid_operation - file is not open for writing/appending
414: ** utl_file.write_error - OS error occured during write operation
415: */
416: procedure PUT_LINE(WHICH in number, BUFF in varchar2) is

Line 413: ** utl_file.invalid_operation - file is not open for writing/appending

409: ** EXCEPTIONS
410: ** utl_file.invalid_path - file location or name was invalid
411: ** utl_file.invalid_mode - the open_mode string was invalid
412: ** utl_file.invalid_filehandle - file handle is invalid
413: ** utl_file.invalid_operation - file is not open for writing/appending
414: ** utl_file.write_error - OS error occured during write operation
415: */
416: procedure PUT_LINE(WHICH in number, BUFF in varchar2) is
417: temp_file varchar2(255); -- used for messages

Line 414: ** utl_file.write_error - OS error occured during write operation

410: ** utl_file.invalid_path - file location or name was invalid
411: ** utl_file.invalid_mode - the open_mode string was invalid
412: ** utl_file.invalid_filehandle - file handle is invalid
413: ** utl_file.invalid_operation - file is not open for writing/appending
414: ** utl_file.write_error - OS error occured during write operation
415: */
416: procedure PUT_LINE(WHICH in number, BUFF in varchar2) is
417: temp_file varchar2(255); -- used for messages
418: log_f utl_file.file_type;

Line 418: log_f utl_file.file_type;

414: ** utl_file.write_error - OS error occured during write operation
415: */
416: procedure PUT_LINE(WHICH in number, BUFF in varchar2) is
417: temp_file varchar2(255); -- used for messages
418: log_f utl_file.file_type;
419: begin
420:
421: PUT_INTERNAL(WHICH, BUFF, 'PUT_LINE');
422:

Line 433: ** utl_file.invalid_path - file location or name was invalid

429: ** IN
430: ** WHICH - Log or output file? Either FND_FILE.LOG or FND_FILE.OUTPUT
431: ** LINES - Number of line terminators to write
432: ** EXCEPTIONS
433: ** utl_file.invalid_path - file location or name was invalid
434: ** utl_file.invalid_mode - the open_mode string was invalid
435: ** utl_file.invalid_filehandle - file handle is invalid
436: ** utl_file.invalid_operation - file is not open for writing/appending
437: ** utl_file.write_error - OS error occured during write operation

Line 434: ** utl_file.invalid_mode - the open_mode string was invalid

430: ** WHICH - Log or output file? Either FND_FILE.LOG or FND_FILE.OUTPUT
431: ** LINES - Number of line terminators to write
432: ** EXCEPTIONS
433: ** utl_file.invalid_path - file location or name was invalid
434: ** utl_file.invalid_mode - the open_mode string was invalid
435: ** utl_file.invalid_filehandle - file handle is invalid
436: ** utl_file.invalid_operation - file is not open for writing/appending
437: ** utl_file.write_error - OS error occured during write operation
438: */

Line 435: ** utl_file.invalid_filehandle - file handle is invalid

431: ** LINES - Number of line terminators to write
432: ** EXCEPTIONS
433: ** utl_file.invalid_path - file location or name was invalid
434: ** utl_file.invalid_mode - the open_mode string was invalid
435: ** utl_file.invalid_filehandle - file handle is invalid
436: ** utl_file.invalid_operation - file is not open for writing/appending
437: ** utl_file.write_error - OS error occured during write operation
438: */
439: procedure NEW_LINE(WHICH in number, LINES in natural := 1) is

Line 436: ** utl_file.invalid_operation - file is not open for writing/appending

432: ** EXCEPTIONS
433: ** utl_file.invalid_path - file location or name was invalid
434: ** utl_file.invalid_mode - the open_mode string was invalid
435: ** utl_file.invalid_filehandle - file handle is invalid
436: ** utl_file.invalid_operation - file is not open for writing/appending
437: ** utl_file.write_error - OS error occured during write operation
438: */
439: procedure NEW_LINE(WHICH in number, LINES in natural := 1) is
440: temp_file varchar2(255); -- used for messages

Line 437: ** utl_file.write_error - OS error occured during write operation

433: ** utl_file.invalid_path - file location or name was invalid
434: ** utl_file.invalid_mode - the open_mode string was invalid
435: ** utl_file.invalid_filehandle - file handle is invalid
436: ** utl_file.invalid_operation - file is not open for writing/appending
437: ** utl_file.write_error - OS error occured during write operation
438: */
439: procedure NEW_LINE(WHICH in number, LINES in natural := 1) is
440: temp_file varchar2(255); -- used for messages
441: log_f utl_file.file_type;

Line 441: log_f utl_file.file_type;

437: ** utl_file.write_error - OS error occured during write operation
438: */
439: procedure NEW_LINE(WHICH in number, LINES in natural := 1) is
440: temp_file varchar2(255); -- used for messages
441: log_f utl_file.file_type;
442: begin
443:
444: if WHICH = FND_FILE.LOG then
445: temp_file := LOG_FNAME;

Line 453: if (UTL_FILE_MODE = 'TRADITIONAL') then

449: log_f := F_OUT;
450: end if;
451:
452:
453: if (UTL_FILE_MODE = 'TRADITIONAL') then
454: utl_file.new_line(log_f, LINES);
455: else
456:
457: for i in 1 .. LINES loop

Line 454: utl_file.new_line(log_f, LINES);

450: end if;
451:
452:
453: if (UTL_FILE_MODE = 'TRADITIONAL') then
454: utl_file.new_line(log_f, LINES);
455: else
456:
457: for i in 1 .. LINES loop
458: utl_file.put_raw(log_f, RAW_TERM);

Line 458: utl_file.put_raw(log_f, RAW_TERM);

454: utl_file.new_line(log_f, LINES);
455: else
456:
457: for i in 1 .. LINES loop
458: utl_file.put_raw(log_f, RAW_TERM);
459: end loop;
460:
461: end if;
462:

Line 463: utl_file.fflush(log_f);

459: end loop;
460:
461: end if;
462:
463: utl_file.fflush(log_f);
464:
465: exception
466: when UTL_FILE.INVALID_FILEHANDLE then
467: -- first time this could be file not open case

Line 466: when UTL_FILE.INVALID_FILEHANDLE then

462:
463: utl_file.fflush(log_f);
464:
465: exception
466: when UTL_FILE.INVALID_FILEHANDLE then
467: -- first time this could be file not open case
468: -- try opening temp files and write
469: WRITE_BUFF(WHICH, 'NEW_LINE', to_char(LINES));
470:

Line 549: utl_file.fclose(F_LOG);

545:
546: BEGIN
547:
548: BEGIN
549: utl_file.fclose(F_LOG);
550: EXCEPTION
551: when others then
552: raise_application_error(-20100,
553: get_exception(SQLCODE, SQLERRM, 'close', LOG_FNAME));

Line 557: utl_file.fclose(F_OUT);

553: get_exception(SQLCODE, SQLERRM, 'close', LOG_FNAME));
554: END;
555:
556: BEGIN
557: utl_file.fclose(F_OUT);
558: EXCEPTION
559: when others then
560: raise_application_error(-20100,
561: get_exception(SQLCODE, SQLERRM, 'close', OUT_FNAME));

Line 564: if UTL_FILE_DELAY > 0 then

560: raise_application_error(-20100,
561: get_exception(SQLCODE, SQLERRM, 'close', OUT_FNAME));
562: END;
563:
564: if UTL_FILE_DELAY > 0 then
565: temp_utl := TEMP_DIR || '/' || LOG_FNAME;
566: if (fnd_conc_private_utils.check_temp_file_use(temp_utl,NULL,'F') = 1) then
567: log_recorded := TRUE;
568: end if;

Line 593: dbms_lock.sleep(UTL_FILE_DELAY);

589: 'temp file: '|| temp_utl ||' not recorded');
590: end if;
591:
592: if (log_recorded or out_recorded) then
593: dbms_lock.sleep(UTL_FILE_DELAY);
594: begin
595: utl_file.fgetattr(TEMP_DIR, LOG_FNAME, file_exists, file_length, block_size);
596: log_simple_msg(fnd_log.level_statement, 'close',
597: 'utl_file.getattr (after '||to_char(UTL_FILE_DELAY)||' secs) log file: '||LOG_FNAME ||

Line 595: utl_file.fgetattr(TEMP_DIR, LOG_FNAME, file_exists, file_length, block_size);

591:
592: if (log_recorded or out_recorded) then
593: dbms_lock.sleep(UTL_FILE_DELAY);
594: begin
595: utl_file.fgetattr(TEMP_DIR, LOG_FNAME, file_exists, file_length, block_size);
596: log_simple_msg(fnd_log.level_statement, 'close',
597: 'utl_file.getattr (after '||to_char(UTL_FILE_DELAY)||' secs) log file: '||LOG_FNAME ||
598: ' is length: '||file_length||' and block_size: '||block_size);
599: exception

Line 597: 'utl_file.getattr (after '||to_char(UTL_FILE_DELAY)||' secs) log file: '||LOG_FNAME ||

593: dbms_lock.sleep(UTL_FILE_DELAY);
594: begin
595: utl_file.fgetattr(TEMP_DIR, LOG_FNAME, file_exists, file_length, block_size);
596: log_simple_msg(fnd_log.level_statement, 'close',
597: 'utl_file.getattr (after '||to_char(UTL_FILE_DELAY)||' secs) log file: '||LOG_FNAME ||
598: ' is length: '||file_length||' and block_size: '||block_size);
599: exception
600: when others then
601: raise_application_error(-20100,

Line 605: utl_file.fgetattr(TEMP_DIR, OUT_FNAME, file_exists, file_length, block_size);

601: raise_application_error(-20100,
602: get_exception(SQLCODE, SQLERRM, 'close', LOG_FNAME));
603: end;
604: begin
605: utl_file.fgetattr(TEMP_DIR, OUT_FNAME, file_exists, file_length, block_size);
606: log_simple_msg(fnd_log.level_statement,'close',
607: 'utl_file.getattr (after '||to_char(UTL_FILE_DELAY)||' secs) out file: '||OUT_FNAME ||
608: ' is length: '||file_length||' and block_size: '||block_size);
609: exception

Line 607: 'utl_file.getattr (after '||to_char(UTL_FILE_DELAY)||' secs) out file: '||OUT_FNAME ||

603: end;
604: begin
605: utl_file.fgetattr(TEMP_DIR, OUT_FNAME, file_exists, file_length, block_size);
606: log_simple_msg(fnd_log.level_statement,'close',
607: 'utl_file.getattr (after '||to_char(UTL_FILE_DELAY)||' secs) out file: '||OUT_FNAME ||
608: ' is length: '||file_length||' and block_size: '||block_size);
609: exception
610: when others then
611: raise_application_error(-20100,

Line 631: if (utl_file.is_open(F_LOG)) then

627: BEGIN
628:
629: if WHICH = 'LOG' then
630: BEGIN
631: if (utl_file.is_open(F_LOG)) then
632: isopen := 1;
633: end if;
634: EXCEPTION
635: when others then

Line 643: if (utl_file.is_open(F_OUT)) then

639: end if;
640:
641: if WHICH = 'OUT' then
642: BEGIN
643: if (utl_file.is_open(F_OUT)) then
644: isopen := 1;
645: end if;
646: EXCEPTION
647: when others then

Line 667: fnd_profile.get('UTL_FILE_MODE', UTL_FILE_MODE);

663: ');
664: -- sets ascii character for the newline. DO NOT edit the lines above!!
665:
666:
667: fnd_profile.get('UTL_FILE_MODE', UTL_FILE_MODE);
668: if (upper(UTL_FILE_MODE) = 'RAW') then
669: UTL_FILE_MODE := 'RAW';
670: else
671: UTL_FILE_MODE := 'TRADITIONAL';

Line 668: if (upper(UTL_FILE_MODE) = 'RAW') then

664: -- sets ascii character for the newline. DO NOT edit the lines above!!
665:
666:
667: fnd_profile.get('UTL_FILE_MODE', UTL_FILE_MODE);
668: if (upper(UTL_FILE_MODE) = 'RAW') then
669: UTL_FILE_MODE := 'RAW';
670: else
671: UTL_FILE_MODE := 'TRADITIONAL';
672: end if;

Line 669: UTL_FILE_MODE := 'RAW';

665:
666:
667: fnd_profile.get('UTL_FILE_MODE', UTL_FILE_MODE);
668: if (upper(UTL_FILE_MODE) = 'RAW') then
669: UTL_FILE_MODE := 'RAW';
670: else
671: UTL_FILE_MODE := 'TRADITIONAL';
672: end if;
673:

Line 671: UTL_FILE_MODE := 'TRADITIONAL';

667: fnd_profile.get('UTL_FILE_MODE', UTL_FILE_MODE);
668: if (upper(UTL_FILE_MODE) = 'RAW') then
669: UTL_FILE_MODE := 'RAW';
670: else
671: UTL_FILE_MODE := 'TRADITIONAL';
672: end if;
673:
674: if FND_PROFILE.defined('CONC_UTL_FILE_DELAY') then
675: fnd_profile.get('CONC_UTL_FILE_DELAY', UTL_FILE_DELAY);

Line 674: if FND_PROFILE.defined('CONC_UTL_FILE_DELAY') then

670: else
671: UTL_FILE_MODE := 'TRADITIONAL';
672: end if;
673:
674: if FND_PROFILE.defined('CONC_UTL_FILE_DELAY') then
675: fnd_profile.get('CONC_UTL_FILE_DELAY', UTL_FILE_DELAY);
676: log_simple_msg(fnd_log.level_statement, 'init', 'UTL_FILE_DELAY ='|| UTL_FILE_DELAY);
677: end if;
678:

Line 675: fnd_profile.get('CONC_UTL_FILE_DELAY', UTL_FILE_DELAY);

671: UTL_FILE_MODE := 'TRADITIONAL';
672: end if;
673:
674: if FND_PROFILE.defined('CONC_UTL_FILE_DELAY') then
675: fnd_profile.get('CONC_UTL_FILE_DELAY', UTL_FILE_DELAY);
676: log_simple_msg(fnd_log.level_statement, 'init', 'UTL_FILE_DELAY ='|| UTL_FILE_DELAY);
677: end if;
678:
679: end fnd_file;

Line 676: log_simple_msg(fnd_log.level_statement, 'init', 'UTL_FILE_DELAY ='|| UTL_FILE_DELAY);

672: end if;
673:
674: if FND_PROFILE.defined('CONC_UTL_FILE_DELAY') then
675: fnd_profile.get('CONC_UTL_FILE_DELAY', UTL_FILE_DELAY);
676: log_simple_msg(fnd_log.level_statement, 'init', 'UTL_FILE_DELAY ='|| UTL_FILE_DELAY);
677: end if;
678:
679: end fnd_file;