DBA Data[Home] [Help]

APPS.FND_FILE_PRIVATE dependencies on UTL_FILE

Line 5: LOG utl_file.file_type;

1: package body FND_FILE_PRIVATE as
2: /* $Header: AFCPPPRB.pls 120.2.12020000.2 2012/07/13 20:37:39 pferguso ship $ */
3:
4:
5: LOG utl_file.file_type;
6: OUT utl_file.file_type;
7:
8: BUFFER_SIZE constant number := 32500;
9:

Line 6: OUT utl_file.file_type;

2: /* $Header: AFCPPPRB.pls 120.2.12020000.2 2012/07/13 20:37:39 pferguso ship $ */
3:
4:
5: LOG utl_file.file_type;
6: OUT utl_file.file_type;
7:
8: BUFFER_SIZE constant number := 32500;
9:
10: LOG_FNAME varchar2(255);

Line 36: UTL_FILE_REOPEN_DELAY number := 0;

32:
33:
34: function OPEN_FILE(TYPE in varchar2) return boolean is
35: MAX_LINESIZE binary_integer := 32767;
36: UTL_FILE_REOPEN_DELAY number := 0;
37: begin
38:
39: /* bug12954046 */
40: /* implement a delay before open operation takes place */

Line 42: if FND_PROFILE.defined('CONC_UTL_FILE_REOPEN_DELAY') then

38:
39: /* bug12954046 */
40: /* implement a delay before open operation takes place */
41: /* */
42: if FND_PROFILE.defined('CONC_UTL_FILE_REOPEN_DELAY') then
43: fnd_profile.get('CONC_UTL_FILE_REOPEN_DELAY', UTL_FILE_REOPEN_DELAY);
44: log_simple_msg(fnd_log.level_statement, 'init', 'UTL_FILE_REOPEN_DELAY ='|| UTL_FILE_REOPEN_DELAY);
45: end if;
46:

Line 43: fnd_profile.get('CONC_UTL_FILE_REOPEN_DELAY', UTL_FILE_REOPEN_DELAY);

39: /* bug12954046 */
40: /* implement a delay before open operation takes place */
41: /* */
42: if FND_PROFILE.defined('CONC_UTL_FILE_REOPEN_DELAY') then
43: fnd_profile.get('CONC_UTL_FILE_REOPEN_DELAY', UTL_FILE_REOPEN_DELAY);
44: log_simple_msg(fnd_log.level_statement, 'init', 'UTL_FILE_REOPEN_DELAY ='|| UTL_FILE_REOPEN_DELAY);
45: end if;
46:
47: if ((UTL_FILE_REOPEN_DELAY IS NOT NULL) and (UTL_FILE_REOPEN_DELAY > 0)) then

Line 44: log_simple_msg(fnd_log.level_statement, 'init', 'UTL_FILE_REOPEN_DELAY ='|| UTL_FILE_REOPEN_DELAY);

40: /* implement a delay before open operation takes place */
41: /* */
42: if FND_PROFILE.defined('CONC_UTL_FILE_REOPEN_DELAY') then
43: fnd_profile.get('CONC_UTL_FILE_REOPEN_DELAY', UTL_FILE_REOPEN_DELAY);
44: log_simple_msg(fnd_log.level_statement, 'init', 'UTL_FILE_REOPEN_DELAY ='|| UTL_FILE_REOPEN_DELAY);
45: end if;
46:
47: if ((UTL_FILE_REOPEN_DELAY IS NOT NULL) and (UTL_FILE_REOPEN_DELAY > 0)) then
48: dbms_lock.sleep(UTL_FILE_REOPEN_DELAY);

Line 47: if ((UTL_FILE_REOPEN_DELAY IS NOT NULL) and (UTL_FILE_REOPEN_DELAY > 0)) then

43: fnd_profile.get('CONC_UTL_FILE_REOPEN_DELAY', UTL_FILE_REOPEN_DELAY);
44: log_simple_msg(fnd_log.level_statement, 'init', 'UTL_FILE_REOPEN_DELAY ='|| UTL_FILE_REOPEN_DELAY);
45: end if;
46:
47: if ((UTL_FILE_REOPEN_DELAY IS NOT NULL) and (UTL_FILE_REOPEN_DELAY > 0)) then
48: dbms_lock.sleep(UTL_FILE_REOPEN_DELAY);
49: end if;
50:
51: if TYPE = 'OUT' and

Line 48: dbms_lock.sleep(UTL_FILE_REOPEN_DELAY);

44: log_simple_msg(fnd_log.level_statement, 'init', 'UTL_FILE_REOPEN_DELAY ='|| UTL_FILE_REOPEN_DELAY);
45: end if;
46:
47: if ((UTL_FILE_REOPEN_DELAY IS NOT NULL) and (UTL_FILE_REOPEN_DELAY > 0)) then
48: dbms_lock.sleep(UTL_FILE_REOPEN_DELAY);
49: end if;
50:
51: if TYPE = 'OUT' and
52: OUT_FNAME is not null and

Line 54: OUT := utl_file.fopen(TEMP_DIR, OUT_FNAME, 'r', MAX_LINESIZE);

50:
51: if TYPE = 'OUT' and
52: OUT_FNAME is not null and
53: TEMP_DIR is not null then
54: OUT := utl_file.fopen(TEMP_DIR, OUT_FNAME, 'r', MAX_LINESIZE);
55: return TRUE;
56: elsif TYPE = 'LOG' and
57: LOG_FNAME is not null and
58: TEMP_DIR is not null then

Line 59: LOG := utl_file.fopen(TEMP_DIR, LOG_FNAME, 'r', MAX_LINESIZE);

55: return TRUE;
56: elsif TYPE = 'LOG' and
57: LOG_FNAME is not null and
58: TEMP_DIR is not null then
59: LOG := utl_file.fopen(TEMP_DIR, LOG_FNAME, 'r', MAX_LINESIZE);
60: return TRUE;
61: else
62: return FALSE;
63: end if;

Line 103: utl_file.get_line(LOG, NEXT_LOG_LINE);

99: TEXT := '';
100: while nvl(lengthb(TEXT), 0) + nvl(lengthb(NEXT_LOG_LINE), 0) < BUFFER_SIZE loop
101: TEXT := concat(TEXT, NEXT_LOG_LINE);
102: NEXT_LOG_LINE := '';
103: utl_file.get_line(LOG, NEXT_LOG_LINE);
104: NEXT_LOG_LINE := concat(NEXT_LOG_LINE, CR);
105: end loop;
106:
107: STATUS := 'OK';

Line 119: when UTL_FILE.INVALID_FILEHANDLE then

115: STATUS := 'EOF';
116: return;
117: end if;
118:
119: when UTL_FILE.INVALID_FILEHANDLE then
120: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_HANDLE');
121: fnd_message.set_token('TEMP_FILE', LOG_FNAME, FALSE);
122: raise_application_error(-20104, fnd_message.get);
123:

Line 124: when UTL_FILE.INVALID_OPERATION then

120: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_HANDLE');
121: fnd_message.set_token('TEMP_FILE', LOG_FNAME, FALSE);
122: raise_application_error(-20104, fnd_message.get);
123:
124: when UTL_FILE.INVALID_OPERATION then
125: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_OPERATN');
126: fnd_message.set_token('TEMP_FILE', LOG_FNAME, FALSE);
127: raise_application_error(-20105, fnd_message.get);
128:

Line 129: when UTL_FILE.READ_ERROR then

125: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_OPERATN');
126: fnd_message.set_token('TEMP_FILE', LOG_FNAME, FALSE);
127: raise_application_error(-20105, fnd_message.get);
128:
129: when UTL_FILE.READ_ERROR then
130: fnd_message.set_name('FND', 'CONC-TEMPFILE_READ_ERROR');
131: fnd_message.set_token('TEMP_FILE', LOG_FNAME, FALSE);
132: raise_application_error(-20106, fnd_message.get);
133:

Line 150: utl_file.get_line(OUT, NEXT_OUT_LINE);

146: TEXT := '';
147: while nvl(lengthb(TEXT), 0) + nvl(lengthb(NEXT_OUT_LINE), 0) < BUFFER_SIZE loop
148: TEXT := concat(TEXT, NEXT_OUT_LINE);
149: NEXT_OUT_LINE := '';
150: utl_file.get_line(OUT, NEXT_OUT_LINE);
151: NEXT_OUT_LINE := concat(NEXT_OUT_LINE, CR);
152: end loop;
153:
154: STATUS := 'OK';

Line 165: when UTL_FILE.INVALID_FILEHANDLE then

161: STATUS := 'EOF';
162: return;
163: end if;
164:
165: when UTL_FILE.INVALID_FILEHANDLE then
166: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_HANDLE');
167: fnd_message.set_token('TEMP_FILE', OUT_FNAME, FALSE);
168: raise_application_error(-20104, fnd_message.get);
169:

Line 170: when UTL_FILE.INVALID_OPERATION then

166: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_HANDLE');
167: fnd_message.set_token('TEMP_FILE', OUT_FNAME, FALSE);
168: raise_application_error(-20104, fnd_message.get);
169:
170: when UTL_FILE.INVALID_OPERATION then
171: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_OPERATN');
172: fnd_message.set_token('TEMP_FILE', OUT_FNAME, FALSE);
173: raise_application_error(-20105, fnd_message.get);
174:

Line 175: when UTL_FILE.READ_ERROR then

171: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_OPERATN');
172: fnd_message.set_token('TEMP_FILE', OUT_FNAME, FALSE);
173: raise_application_error(-20105, fnd_message.get);
174:
175: when UTL_FILE.READ_ERROR then
176: fnd_message.set_name('FND', 'CONC-TEMPFILE_READ_ERROR');
177: fnd_message.set_token('TEMP_FILE', OUT_FNAME, FALSE);
178: raise_application_error(-20106, fnd_message.get);
179:

Line 204: if (utl_file.is_open(LOG)) then

200:
201: begin
202:
203: if (filetype = 'LOG') then
204: if (utl_file.is_open(LOG)) then
205: utl_file.fclose(LOG);
206: LOG := utl_file.fopen(TEMP_DIR, LOG_FNAME, 'w');
207: utl_file.fclose(LOG);
208: end if;

Line 205: utl_file.fclose(LOG);

201: begin
202:
203: if (filetype = 'LOG') then
204: if (utl_file.is_open(LOG)) then
205: utl_file.fclose(LOG);
206: LOG := utl_file.fopen(TEMP_DIR, LOG_FNAME, 'w');
207: utl_file.fclose(LOG);
208: end if;
209: end if;

Line 206: LOG := utl_file.fopen(TEMP_DIR, LOG_FNAME, 'w');

202:
203: if (filetype = 'LOG') then
204: if (utl_file.is_open(LOG)) then
205: utl_file.fclose(LOG);
206: LOG := utl_file.fopen(TEMP_DIR, LOG_FNAME, 'w');
207: utl_file.fclose(LOG);
208: end if;
209: end if;
210:

Line 207: utl_file.fclose(LOG);

203: if (filetype = 'LOG') then
204: if (utl_file.is_open(LOG)) then
205: utl_file.fclose(LOG);
206: LOG := utl_file.fopen(TEMP_DIR, LOG_FNAME, 'w');
207: utl_file.fclose(LOG);
208: end if;
209: end if;
210:
211: if (filetype = 'OUT') then

Line 212: if (utl_file.is_open(OUT)) then

208: end if;
209: end if;
210:
211: if (filetype = 'OUT') then
212: if (utl_file.is_open(OUT)) then
213: utl_file.fclose(OUT);
214: OUT := utl_file.fopen(TEMP_DIR, OUT_FNAME, 'w');
215: utl_file.fclose(OUT);
216: end if;

Line 213: utl_file.fclose(OUT);

209: end if;
210:
211: if (filetype = 'OUT') then
212: if (utl_file.is_open(OUT)) then
213: utl_file.fclose(OUT);
214: OUT := utl_file.fopen(TEMP_DIR, OUT_FNAME, 'w');
215: utl_file.fclose(OUT);
216: end if;
217: end if;

Line 214: OUT := utl_file.fopen(TEMP_DIR, OUT_FNAME, 'w');

210:
211: if (filetype = 'OUT') then
212: if (utl_file.is_open(OUT)) then
213: utl_file.fclose(OUT);
214: OUT := utl_file.fopen(TEMP_DIR, OUT_FNAME, 'w');
215: utl_file.fclose(OUT);
216: end if;
217: end if;
218:

Line 215: utl_file.fclose(OUT);

211: if (filetype = 'OUT') then
212: if (utl_file.is_open(OUT)) then
213: utl_file.fclose(OUT);
214: OUT := utl_file.fopen(TEMP_DIR, OUT_FNAME, 'w');
215: utl_file.fclose(OUT);
216: end if;
217: end if;
218:
219: return TRUE;

Line 222: when UTL_FILE.INVALID_PATH then

218:
219: return TRUE;
220:
221: exception
222: when UTL_FILE.INVALID_PATH then
223: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_PATH');
224: fnd_message.set_token('FILE_DIR', TEMP_DIR, FALSE);
225: raise_application_error(-20101, fnd_message.get);
226: