253: P_FILENAME in varchar2,
254: P_CLOB in clob
255: ) is
256:
257: l_filehandle UTL_FILE.FILE_TYPE;
258: l_clob clob;
259:
260: l_current_position integer := 1;
261: l_amount_to_read integer := 0;
271: 'wf.plsql.WF_EVENT_SYNCHRONIZE_PKG.CREATECLOBFILE.Begin',
272: 'Entered Create Clob File: '||p_Directory||'-'||p_Filename);
273: end if;
274:
275: l_filehandle := UTL_FILE.FOPEN(p_Directory, p_Filename,'w');
276:
277: if (wf_log_pkg.level_statement >= fnd_log.g_current_runtime_level) then
278: wf_log_pkg.string(wf_log_pkg.level_statement,
279: 'wf.plsql.WF_EVENT_SYNCHRONIZE_PKG.CREATECLOBFILE.file_handle',
282:
283: --
284: -- At in Begin Sync Tag
285: --
286: utl_file.putf(l_filehandle, g_begin_clob);
287: utl_file.new_line(l_filehandle, 1);
288:
289: --
290: LOOP
283: --
284: -- At in Begin Sync Tag
285: --
286: utl_file.putf(l_filehandle, g_begin_clob);
287: utl_file.new_line(l_filehandle, 1);
288:
289: --
290: LOOP
291: --
311:
312: l_messagedata := dbms_lob.substr(p_clob, l_amount_to_read,
313: l_begin_position);
314:
315: utl_file.putf(l_filehandle, l_messagedata);
316:
317: utl_file.new_line(l_filehandle, 1);
318:
319: END LOOP;
313: l_begin_position);
314:
315: utl_file.putf(l_filehandle, l_messagedata);
316:
317: utl_file.new_line(l_filehandle, 1);
318:
319: END LOOP;
320:
321: /**
323:
324: l_messagedata := dbms_lob.substr(p_clob, l_splice_size,
325: l_current_position);
326:
327: utl_file.putf(l_filehandle, l_messagedata);
328:
329: wf_log_pkg.string(6, 'WF_EVENT_SYNCHRONIZE_PKG.CREATEFILE',
330: substr(l_messagedata,1,l_splice_size));
331:
341: **/
342: --
343: -- Add in End Sync Tag
344: --
345: utl_file.putf(l_filehandle, g_end_clob);
346:
347: utl_file.new_line(l_filehandle, 1);
348:
349: utl_file.fclose(l_filehandle);
343: -- Add in End Sync Tag
344: --
345: utl_file.putf(l_filehandle, g_end_clob);
346:
347: utl_file.new_line(l_filehandle, 1);
348:
349: utl_file.fclose(l_filehandle);
350:
351: exception
345: utl_file.putf(l_filehandle, g_end_clob);
346:
347: utl_file.new_line(l_filehandle, 1);
348:
349: utl_file.fclose(l_filehandle);
350:
351: exception
352: when others then
353: wf_core.context('WF_EVENT_SYNCHRONIZE_PKG', 'CREATECLOBFILE', p_Directory||
365: P_DIRECTORY in varchar2,
366: P_FILENAME in varchar2
367: ) is
368:
369: l_filehandle UTL_FILE.FILE_TYPE;
370: l_workingclob clob;
371: l_clob clob;
372: l_buffer varchar2(32000);
373: l_clobsize integer;
374:
375: begin
376:
377: if (p_directory is null or p_filename is null) then
378: raise utl_file.invalid_path;
379: end if;
380:
381: l_filehandle := UTL_FILE.FOPEN(p_Directory, p_Filename,'r');
382:
377: if (p_directory is null or p_filename is null) then
378: raise utl_file.invalid_path;
379: end if;
380:
381: l_filehandle := UTL_FILE.FOPEN(p_Directory, p_Filename,'r');
382:
383: dbms_lob.createtemporary(l_clob, FALSE, DBMS_LOB.CALL);
384:
385: LOOP
385: LOOP
386: begin
387: dbms_lob.createtemporary( l_workingclob, FALSE, DBMS_LOB.CALL);
388:
389: utl_file.get_line(l_filehandle, l_buffer);
390:
391: if length(l_buffer) > 0 then
392: dbms_lob.write(l_workingclob, length(l_buffer), 1, l_buffer);
393: dbms_lob.append(l_clob,l_workingclob);
416:
417: wf_event_synchronize_pkg.uploadsyncclob( l_clob);
418:
419: exception
420: when utl_file.invalid_path then
421: wf_core.context('WF_EVENT_SYNCHRONIZE_PKG', 'UPLOADFILE', p_Directory,
422: p_Filename,null);
423: wf_core.raise('WFE_INVALID_PATH');
424: when utl_file.invalid_mode then
420: when utl_file.invalid_path then
421: wf_core.context('WF_EVENT_SYNCHRONIZE_PKG', 'UPLOADFILE', p_Directory,
422: p_Filename,null);
423: wf_core.raise('WFE_INVALID_PATH');
424: when utl_file.invalid_mode then
425: wf_core.context('WF_EVENT_SYNCHRONIZE_PKG', 'UPLOADFILE', p_Directory,
426: p_Filename,null);
427: wf_core.raise('WFE_INVALID_MODE');
428: when utl_file.invalid_operation then
424: when utl_file.invalid_mode then
425: wf_core.context('WF_EVENT_SYNCHRONIZE_PKG', 'UPLOADFILE', p_Directory,
426: p_Filename,null);
427: wf_core.raise('WFE_INVALID_MODE');
428: when utl_file.invalid_operation then
429: wf_core.context('WF_EVENT_SYNCHRONIZE_PKG', 'UPLOADFILE', p_Directory,
430: p_Filename,null);
431: wf_core.raise('WFE_INVALID_OPERATION');
432: when utl_file.read_error then
428: when utl_file.invalid_operation then
429: wf_core.context('WF_EVENT_SYNCHRONIZE_PKG', 'UPLOADFILE', p_Directory,
430: p_Filename,null);
431: wf_core.raise('WFE_INVALID_OPERATION');
432: when utl_file.read_error then
433: wf_core.context('WF_EVENT_SYNCHRONIZE_PKG', 'UPLOADFILE', p_Directory,
434: p_Filename,null);
435: wf_core.raise('WFE_READ_ERROR');
436: when utl_file.internal_error then
432: when utl_file.read_error then
433: wf_core.context('WF_EVENT_SYNCHRONIZE_PKG', 'UPLOADFILE', p_Directory,
434: p_Filename,null);
435: wf_core.raise('WFE_READ_ERROR');
436: when utl_file.internal_error then
437: wf_core.context('WF_EVENT_SYNCHRONIZE_PKG', 'UPLOADFILE', p_Directory,
438: p_Filename,null);
439: wf_core.raise('WFE_INTERNAL_ERROR');
440: when utl_file.invalid_filehandle then
436: when utl_file.internal_error then
437: wf_core.context('WF_EVENT_SYNCHRONIZE_PKG', 'UPLOADFILE', p_Directory,
438: p_Filename,null);
439: wf_core.raise('WFE_INTERNAL_ERROR');
440: when utl_file.invalid_filehandle then
441: wf_core.context('WF_EVENT_SYNCHRONIZE_PKG', 'UPLOADFILE', p_Directory,
442: p_Filename,null);
443: wf_core.raise('WFE_INVALID_FILEHANDLE');
444: when others then