[Home] [Help]
20: base_orig varchar2(12);
21: BASE varchar2(12);
22: PRAGMA AUTONOMOUS_TRANSACTION;
23: begin
24: /* Bug 2446909: Delete corrupted filenames from fnd_temp_files */
25: select filename, lpad(filename, 7, '0')
26: into base_orig, BASE
27: from fnd_temp_files
28: where type = 'P' and rownum = 1
23: begin
24: /* Bug 2446909: Delete corrupted filenames from fnd_temp_files */
25: select filename, lpad(filename, 7, '0')
26: into base_orig, BASE
27: from fnd_temp_files
28: where type = 'P' and rownum = 1
29: for update of filename;
30:
31: delete from fnd_temp_files
27: from fnd_temp_files
28: where type = 'P' and rownum = 1
29: for update of filename;
30:
31: delete from fnd_temp_files
32: where filename = base_orig;
33:
34: delete from fnd_temp_files
35: where filename = BASE;
30:
31: delete from fnd_temp_files
32: where filename = base_orig;
33:
34: delete from fnd_temp_files
35: where filename = BASE;
36:
37: commit;
38:
40:
41: exception
42: when OTHERS then
43: if (Sql%NotFound) then
44: select lpad(to_char(fnd_temp_files_s.nextval), 7, '0')
45: into BASE
46: from sys.dual;
47: end if;
48:
236: procedure RELEASE_NAMES(P_LOG in varchar2, P_OUT in varchar2) is
237: BASE varchar2(12);
238: begin
239: BASE := substr(P_LOG, 2, 7);
240: insert into fnd_temp_files (filename, type)
241: values (BASE, 'P');
242:
243: end RELEASE_NAMES;
244:
301: -- call fnd_file_private.put_names with these values
302: fnd_file_private.put_names(LOG_FNAME, OUT_FNAME, TEMP_DIR );
303:
304: -- CAUTION: for NT, we can ignore this area for NT
305: -- log the temp file info in fnd_temp_files table
306: fnd_conc_private_utils.record_temp_file_use(
307: TEMP_DIR || '/' || LOG_FNAME,
308: NULL);
309: fnd_conc_private_utils.record_temp_file_use(