533: l_close_tag := l_new_line||''||l_new_line;
534: dbms_lob.writeAppend(result, length(l_close_tag), l_close_tag);
535:
536:
537: fnd_file.put_line (
538: which => fnd_file.log,
539: buff => 'DQM Setup Snapshot XML');
540:
541: -- get length of internal lob and open the dest. file.
534: dbms_lob.writeAppend(result, length(l_close_tag), l_close_tag);
535:
536:
537: fnd_file.put_line (
538: which => fnd_file.log,
539: buff => 'DQM Setup Snapshot XML');
540:
541: -- get length of internal lob and open the dest. file.
542: l_clob_size := dbms_lob.getlength(result);
541: -- get length of internal lob and open the dest. file.
542: l_clob_size := dbms_lob.getlength(result);
543:
544: IF (l_clob_size = 0) THEN
545: fnd_file.put_line (
546: which => fnd_file.log,
547: buff => 'CLOB is empty');
548: RETURN;
549: END IF;
542: l_clob_size := dbms_lob.getlength(result);
543:
544: IF (l_clob_size = 0) THEN
545: fnd_file.put_line (
546: which => fnd_file.log,
547: buff => 'CLOB is empty');
548: RETURN;
549: END IF;
550:
550:
551: l_offset := 1;
552: l_chunk_size := 3000;
553:
554: fnd_file.put_line (
555: which => fnd_file.log,
556: buff => 'Unloading... ' || l_clob_size);
557:
558: WHILE (l_clob_size > 0) LOOP
551: l_offset := 1;
552: l_chunk_size := 3000;
553:
554: fnd_file.put_line (
555: which => fnd_file.log,
556: buff => 'Unloading... ' || l_clob_size);
557:
558: WHILE (l_clob_size > 0) LOOP
559:
556: buff => 'Unloading... ' || l_clob_size);
557:
558: WHILE (l_clob_size > 0) LOOP
559:
560: fnd_file.put_line (
561: which => fnd_file.log,
562: buff => 'Off Set: ' || l_offset);
563:
564: l_chunk := dbms_lob.substr (result, l_chunk_size, l_offset);
557:
558: WHILE (l_clob_size > 0) LOOP
559:
560: fnd_file.put_line (
561: which => fnd_file.log,
562: buff => 'Off Set: ' || l_offset);
563:
564: l_chunk := dbms_lob.substr (result, l_chunk_size, l_offset);
565:
562: buff => 'Off Set: ' || l_offset);
563:
564: l_chunk := dbms_lob.substr (result, l_chunk_size, l_offset);
565:
566: fnd_file.put_line (
567: which => fnd_file.log,
568: buff => l_chunk);
569:
570: fnd_file.put(
563:
564: l_chunk := dbms_lob.substr (result, l_chunk_size, l_offset);
565:
566: fnd_file.put_line (
567: which => fnd_file.log,
568: buff => l_chunk);
569:
570: fnd_file.put(
571: which => fnd_file.output,
566: fnd_file.put_line (
567: which => fnd_file.log,
568: buff => l_chunk);
569:
570: fnd_file.put(
571: which => fnd_file.output,
572: buff => l_chunk);
573:
574: l_bloc_subset := UTL_RAW.CAST_TO_RAW (l_chunk);
567: which => fnd_file.log,
568: buff => l_chunk);
569:
570: fnd_file.put(
571: which => fnd_file.output,
572: buff => l_chunk);
573:
574: l_bloc_subset := UTL_RAW.CAST_TO_RAW (l_chunk);
575: l_new_length := UTL_RAW.LENGTH(l_bloc_subset);