54: line_num_out:=line_num;
55: xmlstr := dbms_lob.SUBSTR(result,32767);
56: loop
57: exit when xmlstr is null;
58: line := substr(xmlstr,1,instr(xmlstr,fnd_global.newline)-1);
59: if instr(line,'ROW') = 0 || instr(line,'?xml version') then
60: --dbms_output.put_line(line);
61: if length(line) > 500 then
62: i:=1;
72: else
73: line_num_out:=writeStrToDb(line_num_out,line);
74: end if;
75: end if;
76: xmlstr := substr(xmlstr,instr(xmlstr,fnd_global.newline)+1);
77: end loop;
78: return line_num_out;
79: end printClobOut;
80: --