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