[Home] [Help]
389:
390: SELECT rule_text INTO l_clob_loc FROM CZ_RULES
391: WHERE rule_id = p_rule_id;
392:
393: DBMS_LOB.OPEN(l_clob_loc,DBMS_LOB.lob_readwrite);
394:
395: l_amount:=LENGTH(p_buffer);
396:
397: DBMS_LOB.WRITE(l_clob_loc, l_amount, l_position, p_buffer);
393: DBMS_LOB.OPEN(l_clob_loc,DBMS_LOB.lob_readwrite);
394:
395: l_amount:=LENGTH(p_buffer);
396:
397: DBMS_LOB.WRITE(l_clob_loc, l_amount, l_position, p_buffer);
398:
399: DBMS_LOB.CLOSE (l_clob_loc);
400:
401: END put_String_Into_CLOB;
395: l_amount:=LENGTH(p_buffer);
396:
397: DBMS_LOB.WRITE(l_clob_loc, l_amount, l_position, p_buffer);
398:
399: DBMS_LOB.CLOSE (l_clob_loc);
400:
401: END put_String_Into_CLOB;
402:
403: FUNCTION get_String_From_CLOB RETURN VARCHAR2 IS
409: l_buffer VARCHAR2(32000);
410: l_rule_text VARCHAR2(32000);
411: BEGIN
412:
413: --Bug #6936712. Removing calls to opening-closing DBMS_LOB procedures.
414: --The following SELECT creates a temporary LOB, so there is no need in
415: --explicit call to CREATETEMPORARY. Temporary LOBs will get freed
416: --automatically - examples in Oracle Doc do not call FREETEMPORARY.
417: --Also, Oracle Doc says that calls to OPEN-CLOSE are not required. It
419:
420: SELECT rule_text INTO l_clob_loc FROM CZ_RULES
421: WHERE rule_id = p_rule_id;
422:
423: l_chunksize := DBMS_LOB.GETCHUNKSIZE(l_clob_loc);
424: --vsingava 18th Dec '08 bug7316397
425: IF (l_chunksize < MAX_CHUNK_SIZE) THEN
426: l_amount := FLOOR(MAX_CHUNK_SIZE / l_chunksize) * l_chunksize;
427: ELSE
431: BEGIN
432: -- vsingava 26th Sep '10, bug9923754
433: -- Read entire rule text, in chunks into l_buffer and append to l_rule_text
434: LOOP
435: DBMS_LOB.READ (l_clob_loc, l_amount, l_position, l_buffer);
436: l_rule_text := l_rule_text || l_buffer;
437: l_position := l_position + l_amount;
438: END LOOP;
439: EXCEPTION
5821: END LOOP;
5822:
5823:
5824:
5825: SYS.DBMS_LOB.CREATETEMPORARY(l_lob,TRUE,dbms_lob.session);
5826: SYS.DBMS_LOB.OPEN (l_lob,DBMS_LOB.LOB_READWRITE);
5827: firstChunk := jdr_utils.EXPORTDOCUMENT(p_old_document_name,l_exportfinished);
5828:
5829: IF (firstChunk IS NULL) THEN
5822:
5823:
5824:
5825: SYS.DBMS_LOB.CREATETEMPORARY(l_lob,TRUE,dbms_lob.session);
5826: SYS.DBMS_LOB.OPEN (l_lob,DBMS_LOB.LOB_READWRITE);
5827: firstChunk := jdr_utils.EXPORTDOCUMENT(p_old_document_name,l_exportfinished);
5828:
5829: IF (firstChunk IS NULL) THEN
5830: RAISE DOCUMENT_IS_NULL;
5832:
5833: l_buffer := LTRIM(RTRIM(firstChunk));
5834: l_length := LENGTH(l_buffer);
5835: BEGIN
5836: SYS.DBMS_LOB.writeappend(l_lob,l_length,l_buffer);
5837: EXCEPTION WHEN OTHERS THEN
5838: NULL;
5839: END;
5840:
5843: l_buffer := LTRIM(RTRIM(l_buffer));
5844:
5845: EXIT WHEN l_buffer IS NULL;
5846: l_length := LENGTH(l_buffer);
5847: SYS.DBMS_LOB.writeappend(l_lob,l_length,l_buffer);
5848: END LOOP;
5849:
5850: l_length := SYS.DBMS_LOB.getlength(l_lob);
5851: p := xmlparser.newParser;
5846: l_length := LENGTH(l_buffer);
5847: SYS.DBMS_LOB.writeappend(l_lob,l_length,l_buffer);
5848: END LOOP;
5849:
5850: l_length := SYS.DBMS_LOB.getlength(l_lob);
5851: p := xmlparser.newParser;
5852: xmlparser.parseCLOB(p,l_lob);
5853: doc := xmlparser.getDocument(p);
5854:
5851: p := xmlparser.newParser;
5852: xmlparser.parseCLOB(p,l_lob);
5853: doc := xmlparser.getDocument(p);
5854:
5855: SYS.DBMS_LOB.CLOSE (l_lob);
5856: SYS.DBMS_LOB.FREETEMPORARY(l_lob);
5857:
5858: l_doc := jdr_docbuilder.createDocument(p_new_document_name);
5859: top_node := xmldom.makeNode(xmldom.getDocumentElement(doc));
5852: xmlparser.parseCLOB(p,l_lob);
5853: doc := xmlparser.getDocument(p);
5854:
5855: SYS.DBMS_LOB.CLOSE (l_lob);
5856: SYS.DBMS_LOB.FREETEMPORARY(l_lob);
5857:
5858: l_doc := jdr_docbuilder.createDocument(p_new_document_name);
5859: top_node := xmldom.makeNode(xmldom.getDocumentElement(doc));
5860: