124: l_limit NUMBER;
125: BEGIN
126: l_file := p_xml_clob;
127: l_limit := 1;
128: l_len := DBMS_LOB.getlength (l_file);
129:
130: LOOP
131: IF l_len > l_limit THEN
132: file_varchar2 := DBMS_LOB.SUBSTR (l_file, 4000, l_limit);
128: l_len := DBMS_LOB.getlength (l_file);
129:
130: LOOP
131: IF l_len > l_limit THEN
132: file_varchar2 := DBMS_LOB.SUBSTR (l_file, 4000, l_limit);
133: fnd_file.put (fnd_file.output, file_varchar2);
134: file_varchar2 := NULL;
135: l_limit := l_limit + 4000;
136: ELSE
133: fnd_file.put (fnd_file.output, file_varchar2);
134: file_varchar2 := NULL;
135: l_limit := l_limit + 4000;
136: ELSE
137: file_varchar2 := DBMS_LOB.SUBSTR (l_file, 4000, l_limit);
138: fnd_file.put (fnd_file.output, file_varchar2);
139: file_varchar2 := NULL;
140: EXIT;
141: END IF;