840:
841: BEGIN
842: FOR i IN c1
843: LOOP
844: DBMS_LOB.WRITE(i.notes_detail,LENGTH(x_buffer),position,x_buffer);
845: END LOOP;
846: END WriteDataToLob;
847:
848:
866: INTO lob_loc
867: FROM jtf_notes_vl
868: WHERE jtf_note_id = x_jtf_note_id;
869:
870: Chunksize := DBMS_LOB.GETCHUNKSIZE(lob_loc);
871:
872: IF Chunksize IS NOT NULL
873: THEN
874: IF chunksize < 32767
875: THEN
876: amount := (32767/chunksize) * chunksize;
877: END IF;
878:
879: DBMS_LOB.READ(lob_loc,amount,position,buffer);
880:
881: END IF;
882:
883: x_buffer := buffer;