479: l_limit NUMBER;
480: BEGIN
481: l_file := p_xml_clob;
482: l_limit := 1;
483: l_len := DBMS_LOB.getlength (l_file);
484:
485: LOOP
486: IF l_len > l_limit THEN
487: file_varchar2 := DBMS_LOB.SUBSTR (l_file, 4000, l_limit);
483: l_len := DBMS_LOB.getlength (l_file);
484:
485: LOOP
486: IF l_len > l_limit THEN
487: file_varchar2 := DBMS_LOB.SUBSTR (l_file, 4000, l_limit);
488: fnd_file.put (fnd_file.output, file_varchar2);
489: --fnd_file.put (fnd_file.LOG, file_varchar2);
490: file_varchar2 := NULL;
491: l_limit := l_limit + 4000;
489: --fnd_file.put (fnd_file.LOG, file_varchar2);
490: file_varchar2 := NULL;
491: l_limit := l_limit + 4000;
492: ELSE
493: file_varchar2 := DBMS_LOB.SUBSTR (l_file, 4000, l_limit);
494: fnd_file.put (fnd_file.output, file_varchar2);
495: --fnd_file.put (fnd_file.LOG, file_varchar2);
496: file_varchar2 := NULL;
497: EXIT;