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 2005/08/22 06:55:48 aweisber 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 2005/08/22 06:55:48 aweisber 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 33: OUT := utl_file.fopen(TEMP_DIR, OUT_FNAME, 'r', MAX_LINESIZE);

29:
30: if TYPE = 'OUT' and
31: OUT_FNAME is not null and
32: TEMP_DIR is not null then
33: OUT := utl_file.fopen(TEMP_DIR, OUT_FNAME, 'r', MAX_LINESIZE);
34: return TRUE;
35: elsif TYPE = 'LOG' and
36: LOG_FNAME is not null and
37: TEMP_DIR is not null then

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

34: return TRUE;
35: elsif TYPE = 'LOG' and
36: LOG_FNAME is not null and
37: TEMP_DIR is not null then
38: LOG := utl_file.fopen(TEMP_DIR, LOG_FNAME, 'r', MAX_LINESIZE);
39: return TRUE;
40: else
41: return FALSE;
42: end if;

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

78: TEXT := '';
79: while nvl(lengthb(TEXT), 0) + nvl(lengthb(NEXT_LOG_LINE), 0) < BUFFER_SIZE loop
80: TEXT := concat(TEXT, NEXT_LOG_LINE);
81: NEXT_LOG_LINE := '';
82: utl_file.get_line(LOG, NEXT_LOG_LINE);
83: NEXT_LOG_LINE := concat(NEXT_LOG_LINE, CR);
84: end loop;
85:
86: STATUS := 'OK';

Line 98: when UTL_FILE.INVALID_FILEHANDLE then

94: STATUS := 'EOF';
95: return;
96: end if;
97:
98: when UTL_FILE.INVALID_FILEHANDLE then
99: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_HANDLE');
100: fnd_message.set_token('TEMP_FILE', LOG_FNAME, FALSE);
101: raise_application_error(-20104, fnd_message.get);
102:

Line 103: when UTL_FILE.INVALID_OPERATION then

99: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_HANDLE');
100: fnd_message.set_token('TEMP_FILE', LOG_FNAME, FALSE);
101: raise_application_error(-20104, fnd_message.get);
102:
103: when UTL_FILE.INVALID_OPERATION then
104: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_OPERATN');
105: fnd_message.set_token('TEMP_FILE', LOG_FNAME, FALSE);
106: raise_application_error(-20105, fnd_message.get);
107:

Line 108: when UTL_FILE.READ_ERROR then

104: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_OPERATN');
105: fnd_message.set_token('TEMP_FILE', LOG_FNAME, FALSE);
106: raise_application_error(-20105, fnd_message.get);
107:
108: when UTL_FILE.READ_ERROR then
109: fnd_message.set_name('FND', 'CONC-TEMPFILE_READ_ERROR');
110: fnd_message.set_token('TEMP_FILE', LOG_FNAME, FALSE);
111: raise_application_error(-20106, fnd_message.get);
112:

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

125: TEXT := '';
126: while nvl(lengthb(TEXT), 0) + nvl(lengthb(NEXT_OUT_LINE), 0) < BUFFER_SIZE loop
127: TEXT := concat(TEXT, NEXT_OUT_LINE);
128: NEXT_OUT_LINE := '';
129: utl_file.get_line(OUT, NEXT_OUT_LINE);
130: NEXT_OUT_LINE := concat(NEXT_OUT_LINE, CR);
131: end loop;
132:
133: STATUS := 'OK';

Line 144: when UTL_FILE.INVALID_FILEHANDLE then

140: STATUS := 'EOF';
141: return;
142: end if;
143:
144: when UTL_FILE.INVALID_FILEHANDLE then
145: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_HANDLE');
146: fnd_message.set_token('TEMP_FILE', OUT_FNAME, FALSE);
147: raise_application_error(-20104, fnd_message.get);
148:

Line 149: when UTL_FILE.INVALID_OPERATION then

145: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_HANDLE');
146: fnd_message.set_token('TEMP_FILE', OUT_FNAME, FALSE);
147: raise_application_error(-20104, fnd_message.get);
148:
149: when UTL_FILE.INVALID_OPERATION then
150: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_OPERATN');
151: fnd_message.set_token('TEMP_FILE', OUT_FNAME, FALSE);
152: raise_application_error(-20105, fnd_message.get);
153:

Line 154: when UTL_FILE.READ_ERROR then

150: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_OPERATN');
151: fnd_message.set_token('TEMP_FILE', OUT_FNAME, FALSE);
152: raise_application_error(-20105, fnd_message.get);
153:
154: when UTL_FILE.READ_ERROR then
155: fnd_message.set_name('FND', 'CONC-TEMPFILE_READ_ERROR');
156: fnd_message.set_token('TEMP_FILE', OUT_FNAME, FALSE);
157: raise_application_error(-20106, fnd_message.get);
158:

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

179:
180: begin
181:
182: if (filetype = 'LOG') then
183: if (utl_file.is_open(LOG)) then
184: utl_file.fclose(LOG);
185: LOG := utl_file.fopen(TEMP_DIR, LOG_FNAME, 'w');
186: utl_file.fclose(LOG);
187: end if;

Line 184: utl_file.fclose(LOG);

180: begin
181:
182: if (filetype = 'LOG') then
183: if (utl_file.is_open(LOG)) then
184: utl_file.fclose(LOG);
185: LOG := utl_file.fopen(TEMP_DIR, LOG_FNAME, 'w');
186: utl_file.fclose(LOG);
187: end if;
188: end if;

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

181:
182: if (filetype = 'LOG') then
183: if (utl_file.is_open(LOG)) then
184: utl_file.fclose(LOG);
185: LOG := utl_file.fopen(TEMP_DIR, LOG_FNAME, 'w');
186: utl_file.fclose(LOG);
187: end if;
188: end if;
189:

Line 186: utl_file.fclose(LOG);

182: if (filetype = 'LOG') then
183: if (utl_file.is_open(LOG)) then
184: utl_file.fclose(LOG);
185: LOG := utl_file.fopen(TEMP_DIR, LOG_FNAME, 'w');
186: utl_file.fclose(LOG);
187: end if;
188: end if;
189:
190: if (filetype = 'OUT') then

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

187: end if;
188: end if;
189:
190: if (filetype = 'OUT') then
191: if (utl_file.is_open(OUT)) then
192: utl_file.fclose(OUT);
193: OUT := utl_file.fopen(TEMP_DIR, OUT_FNAME, 'w');
194: utl_file.fclose(OUT);
195: end if;

Line 192: utl_file.fclose(OUT);

188: end if;
189:
190: if (filetype = 'OUT') then
191: if (utl_file.is_open(OUT)) then
192: utl_file.fclose(OUT);
193: OUT := utl_file.fopen(TEMP_DIR, OUT_FNAME, 'w');
194: utl_file.fclose(OUT);
195: end if;
196: end if;

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

189:
190: if (filetype = 'OUT') then
191: if (utl_file.is_open(OUT)) then
192: utl_file.fclose(OUT);
193: OUT := utl_file.fopen(TEMP_DIR, OUT_FNAME, 'w');
194: utl_file.fclose(OUT);
195: end if;
196: end if;
197:

Line 194: utl_file.fclose(OUT);

190: if (filetype = 'OUT') then
191: if (utl_file.is_open(OUT)) then
192: utl_file.fclose(OUT);
193: OUT := utl_file.fopen(TEMP_DIR, OUT_FNAME, 'w');
194: utl_file.fclose(OUT);
195: end if;
196: end if;
197:
198: return TRUE;

Line 201: when UTL_FILE.INVALID_PATH then

197:
198: return TRUE;
199:
200: exception
201: when UTL_FILE.INVALID_PATH then
202: fnd_message.set_name('FND', 'CONC-TEMPFILE_INVALID_PATH');
203: fnd_message.set_token('FILE_DIR', TEMP_DIR, FALSE);
204: raise_application_error(-20101, fnd_message.get);
205: