305:
306: vXMLTable.DELETE;
307: vCtr := 1;
308:
309: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
310: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
311: DBMS_LOB.CREATETEMPORARY(l_xfdf_blob,TRUE);
312: clob_to_blob(l_xfdf_string,l_xfdf_blob);
313: dbms_lob.writeAppend( l_xfdf_string, length('
306: vXMLTable.DELETE;
307: vCtr := 1;
308:
309: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
310: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
311: DBMS_LOB.CREATETEMPORARY(l_xfdf_blob,TRUE);
312: clob_to_blob(l_xfdf_string,l_xfdf_blob);
313: dbms_lob.writeAppend( l_xfdf_string, length('
314:
307: vCtr := 1;
308:
309: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
310: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
311: DBMS_LOB.CREATETEMPORARY(l_xfdf_blob,TRUE);
312: clob_to_blob(l_xfdf_string,l_xfdf_blob);
313: dbms_lob.writeAppend( l_xfdf_string, length('
314:
315:
309: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
310: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
311: DBMS_LOB.CREATETEMPORARY(l_xfdf_blob,TRUE);
312: clob_to_blob(l_xfdf_string,l_xfdf_blob);
313: dbms_lob.writeAppend( l_xfdf_string, length('
315:
316: l_str_rep_label := '
317: dbms_lob.writeAppend( l_xfdf_string, length(l_str_rep_label),l_str_rep_label);
313: dbms_lob.writeAppend( l_xfdf_string, length('
314:
315:
316: l_str_rep_label := '
317: dbms_lob.writeAppend( l_xfdf_string, length(l_str_rep_label),l_str_rep_label);
318:
319: l_str_py_label := '
320: dbms_lob.writeAppend( l_xfdf_string, length(l_str_py_label),l_str_py_label);
321:
316: l_str_rep_label := '
317: dbms_lob.writeAppend( l_xfdf_string, length(l_str_rep_label),l_str_rep_label);
318:
319: l_str_py_label := '
320: dbms_lob.writeAppend( l_xfdf_string, length(l_str_py_label),l_str_py_label);
321:
322: l_str_py_name := '
323: dbms_lob.writeAppend( l_xfdf_string, length(l_str_py_name),l_str_py_name);
324:
319: l_str_py_label := '
320: dbms_lob.writeAppend( l_xfdf_string, length(l_str_py_label),l_str_py_label);
321:
322: l_str_py_name := '
323: dbms_lob.writeAppend( l_xfdf_string, length(l_str_py_name),l_str_py_name);
324:
325: l_str_n := '
326: dbms_lob.writeAppend( l_xfdf_string, length(l_str_n),l_str_n);
327:
322: l_str_py_name := '
323: dbms_lob.writeAppend( l_xfdf_string, length(l_str_py_name),l_str_py_name);
324:
325: l_str_n := '
326: dbms_lob.writeAppend( l_xfdf_string, length(l_str_n),l_str_n);
327:
328: l_str_name_l := '
329: dbms_lob.writeAppend( l_xfdf_string, length(l_str_name_l),l_str_name_l);
330:
325: l_str_n := '
326: dbms_lob.writeAppend( l_xfdf_string, length(l_str_n),l_str_n);
327:
328: l_str_name_l := '
329: dbms_lob.writeAppend( l_xfdf_string, length(l_str_name_l),l_str_name_l);
330:
331: l_str_eno_l := '
332: dbms_lob.writeAppend( l_xfdf_string, length(l_str_eno_l),l_str_eno_l);
333:
328: l_str_name_l := '
329: dbms_lob.writeAppend( l_xfdf_string, length(l_str_name_l),l_str_name_l);
330:
331: l_str_eno_l := '
332: dbms_lob.writeAppend( l_xfdf_string, length(l_str_eno_l),l_str_eno_l);
333:
334: l_str_org_l := '
335: dbms_lob.writeAppend( l_xfdf_string, length(l_str_org_l),l_str_org_l);
336:
331: l_str_eno_l := '
332: dbms_lob.writeAppend( l_xfdf_string, length(l_str_eno_l),l_str_eno_l);
333:
334: l_str_org_l := '
335: dbms_lob.writeAppend( l_xfdf_string, length(l_str_org_l),l_str_org_l);
336:
337: l_str_job_l := '
338: dbms_lob.writeAppend( l_xfdf_string, length(l_str_job_l),l_str_job_l);
339:
334: l_str_org_l := '
335: dbms_lob.writeAppend( l_xfdf_string, length(l_str_org_l),l_str_org_l);
336:
337: l_str_job_l := '
338: dbms_lob.writeAppend( l_xfdf_string, length(l_str_job_l),l_str_job_l);
339:
340: l_str_amt_l := '
341: dbms_lob.writeAppend( l_xfdf_string, length(l_str_amt_l),l_str_amt_l);
342:
337: l_str_job_l := '
338: dbms_lob.writeAppend( l_xfdf_string, length(l_str_job_l),l_str_job_l);
339:
340: l_str_amt_l := '
341: dbms_lob.writeAppend( l_xfdf_string, length(l_str_amt_l),l_str_amt_l);
342:
343: l_str_chq_l := '
344: dbms_lob.writeAppend( l_xfdf_string, length(l_str_chq_l),l_str_chq_l);
345:
340: l_str_amt_l := '
341: dbms_lob.writeAppend( l_xfdf_string, length(l_str_amt_l),l_str_amt_l);
342:
343: l_str_chq_l := '
344: dbms_lob.writeAppend( l_xfdf_string, length(l_str_chq_l),l_str_chq_l);
345:
346: l_str_pd_l := '
347: dbms_lob.writeAppend( l_xfdf_string, length(l_str_pd_l),l_str_pd_l);
348:
343: l_str_chq_l := '
344: dbms_lob.writeAppend( l_xfdf_string, length(l_str_chq_l),l_str_chq_l);
345:
346: l_str_pd_l := '
347: dbms_lob.writeAppend( l_xfdf_string, length(l_str_pd_l),l_str_pd_l);
348:
349:
350:
351: hr_utility.set_location('Entering CHQR ',10);
445: Exit when csr_chq_det%NOTFOUND;
446:
447: l_amount_fm := to_char(l_amount,lg_format_mask);
448:
449: dbms_lob.writeAppend( l_xfdf_string, length('
451: l_str_seq := '
452: l_str_er_name1 := '
453: l_str_er_name2 := '
456: l_str_er_name5 := '
457: l_str_er_name6 := '
458: l_str_er_name7 := '
459:
460: dbms_lob.writeAppend( l_xfdf_string, length(l_str_seq), l_str_seq);
461: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name1), l_str_er_name1);
462: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name2), l_str_er_name2);
463: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name3), l_str_er_name3);
464: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name4), l_str_er_name4);
457: l_str_er_name6 := '
458: l_str_er_name7 := '
459:
460: dbms_lob.writeAppend( l_xfdf_string, length(l_str_seq), l_str_seq);
461: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name1), l_str_er_name1);
462: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name2), l_str_er_name2);
463: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name3), l_str_er_name3);
464: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name4), l_str_er_name4);
465: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name5), l_str_er_name5);
458: l_str_er_name7 := '
459:
460: dbms_lob.writeAppend( l_xfdf_string, length(l_str_seq), l_str_seq);
461: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name1), l_str_er_name1);
462: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name2), l_str_er_name2);
463: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name3), l_str_er_name3);
464: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name4), l_str_er_name4);
465: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name5), l_str_er_name5);
466: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name6), l_str_er_name6);
459:
460: dbms_lob.writeAppend( l_xfdf_string, length(l_str_seq), l_str_seq);
461: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name1), l_str_er_name1);
462: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name2), l_str_er_name2);
463: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name3), l_str_er_name3);
464: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name4), l_str_er_name4);
465: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name5), l_str_er_name5);
466: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name6), l_str_er_name6);
467: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name7), l_str_er_name7);
460: dbms_lob.writeAppend( l_xfdf_string, length(l_str_seq), l_str_seq);
461: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name1), l_str_er_name1);
462: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name2), l_str_er_name2);
463: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name3), l_str_er_name3);
464: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name4), l_str_er_name4);
465: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name5), l_str_er_name5);
466: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name6), l_str_er_name6);
467: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name7), l_str_er_name7);
468:
461: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name1), l_str_er_name1);
462: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name2), l_str_er_name2);
463: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name3), l_str_er_name3);
464: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name4), l_str_er_name4);
465: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name5), l_str_er_name5);
466: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name6), l_str_er_name6);
467: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name7), l_str_er_name7);
468:
469: dbms_lob.writeAppend( l_xfdf_string, length(''),'');
462: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name2), l_str_er_name2);
463: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name3), l_str_er_name3);
464: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name4), l_str_er_name4);
465: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name5), l_str_er_name5);
466: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name6), l_str_er_name6);
467: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name7), l_str_er_name7);
468:
469: dbms_lob.writeAppend( l_xfdf_string, length(''),'');
470: seq := seq + 1;
463: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name3), l_str_er_name3);
464: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name4), l_str_er_name4);
465: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name5), l_str_er_name5);
466: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name6), l_str_er_name6);
467: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name7), l_str_er_name7);
468:
469: dbms_lob.writeAppend( l_xfdf_string, length(''),'');
470: seq := seq + 1;
471: END LOOP;
465: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name5), l_str_er_name5);
466: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name6), l_str_er_name6);
467: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name7), l_str_er_name7);
468:
469: dbms_lob.writeAppend( l_xfdf_string, length(''),'');
470: seq := seq + 1;
471: END LOOP;
472: CLOSE csr_chq_det;
473: j := j + 1;
474:
475: END LOOP;
476: End If;
477:
478: dbms_lob.writeAppend( l_xfdf_string, length(''),'');
479:
480: hr_utility.set_location('Finished creating xml data for Procedure CHQR ',20);
481:
482: DBMS_LOB.CREATETEMPORARY(l_xfdf_blob,TRUE);
478: dbms_lob.writeAppend( l_xfdf_string, length(''),'');
479:
480: hr_utility.set_location('Finished creating xml data for Procedure CHQR ',20);
481:
482: DBMS_LOB.CREATETEMPORARY(l_xfdf_blob,TRUE);
483: clob_to_blob(l_xfdf_string,l_xfdf_blob);
484:
485:
486: /*EXCEPTION
543: l_str7 := '
544:
545:
546:
547: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
548: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
549: if vXMLTable.COUNT > 0 then
550: dbms_lob.writeAppend( l_xfdf_string, length(l_str1), l_str1 );
551: FOR ctr_table IN vXMLTable.FIRST .. vXMLTable.LAST LOOP
544:
545:
546:
547: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
548: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
549: if vXMLTable.COUNT > 0 then
550: dbms_lob.writeAppend( l_xfdf_string, length(l_str1), l_str1 );
551: FOR ctr_table IN vXMLTable.FIRST .. vXMLTable.LAST LOOP
552: l_str8 := vXMLTable(ctr_table).TagName;
546: ';
547: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
548: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
549: if vXMLTable.COUNT > 0 then
550: dbms_lob.writeAppend( l_xfdf_string, length(l_str1), l_str1 );
551: FOR ctr_table IN vXMLTable.FIRST .. vXMLTable.LAST LOOP
552: l_str8 := vXMLTable(ctr_table).TagName;
553: l_str9 := vXMLTable(ctr_table).TagValue;
554: if (l_str9 is not null) then
553: l_str9 := vXMLTable(ctr_table).TagValue;
554: if (l_str9 is not null) then
555: /* Added CDATA to handle special characters Bug No:9454120 */
556: l_str9 := '';
557: dbms_lob.writeAppend( l_xfdf_string, length(l_str2), l_str2 );
558: dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
559: dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
560: dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
561: dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
554: if (l_str9 is not null) then
555: /* Added CDATA to handle special characters Bug No:9454120 */
556: l_str9 := '';
557: dbms_lob.writeAppend( l_xfdf_string, length(l_str2), l_str2 );
558: dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
559: dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
560: dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
561: dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
562: dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
555: /* Added CDATA to handle special characters Bug No:9454120 */
556: l_str9 := '';
557: dbms_lob.writeAppend( l_xfdf_string, length(l_str2), l_str2 );
558: dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
559: dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
560: dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
561: dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
562: dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
563: elsif (l_str9 is null and l_str8 is not null) then
556: l_str9 := '';
557: dbms_lob.writeAppend( l_xfdf_string, length(l_str2), l_str2 );
558: dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
559: dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
560: dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
561: dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
562: dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
563: elsif (l_str9 is null and l_str8 is not null) then
564: dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
557: dbms_lob.writeAppend( l_xfdf_string, length(l_str2), l_str2 );
558: dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
559: dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
560: dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
561: dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
562: dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
563: elsif (l_str9 is null and l_str8 is not null) then
564: dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
565: dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
558: dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
559: dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
560: dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
561: dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
562: dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
563: elsif (l_str9 is null and l_str8 is not null) then
564: dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
565: dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
566: dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
560: dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
561: dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
562: dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
563: elsif (l_str9 is null and l_str8 is not null) then
564: dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
565: dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
566: dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
567: dbms_lob.writeAppend(l_xfdf_string,length(l_str4),l_str4);
568: dbms_lob.writeAppend(l_xfdf_string,length(l_str5),l_str5);
561: dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
562: dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
563: elsif (l_str9 is null and l_str8 is not null) then
564: dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
565: dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
566: dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
567: dbms_lob.writeAppend(l_xfdf_string,length(l_str4),l_str4);
568: dbms_lob.writeAppend(l_xfdf_string,length(l_str5),l_str5);
569: else
562: dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
563: elsif (l_str9 is null and l_str8 is not null) then
564: dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
565: dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
566: dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
567: dbms_lob.writeAppend(l_xfdf_string,length(l_str4),l_str4);
568: dbms_lob.writeAppend(l_xfdf_string,length(l_str5),l_str5);
569: else
570: null;
563: elsif (l_str9 is null and l_str8 is not null) then
564: dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
565: dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
566: dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
567: dbms_lob.writeAppend(l_xfdf_string,length(l_str4),l_str4);
568: dbms_lob.writeAppend(l_xfdf_string,length(l_str5),l_str5);
569: else
570: null;
571: end if;
564: dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
565: dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
566: dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
567: dbms_lob.writeAppend(l_xfdf_string,length(l_str4),l_str4);
568: dbms_lob.writeAppend(l_xfdf_string,length(l_str5),l_str5);
569: else
570: null;
571: end if;
572: END LOOP;
569: else
570: null;
571: end if;
572: END LOOP;
573: dbms_lob.writeAppend( l_xfdf_string, length(l_str6), l_str6 );
574: else
575: dbms_lob.writeAppend( l_xfdf_string, length(l_str7), l_str7 );
576: end if;
577: DBMS_LOB.CREATETEMPORARY(p_xfdf_blob,TRUE);
571: end if;
572: END LOOP;
573: dbms_lob.writeAppend( l_xfdf_string, length(l_str6), l_str6 );
574: else
575: dbms_lob.writeAppend( l_xfdf_string, length(l_str7), l_str7 );
576: end if;
577: DBMS_LOB.CREATETEMPORARY(p_xfdf_blob,TRUE);
578: clob_to_blob(l_xfdf_string,p_xfdf_blob);
579: hr_utility.set_location('Finished Procedure Write to CLOB ,Before clob to blob ',110);
573: dbms_lob.writeAppend( l_xfdf_string, length(l_str6), l_str6 );
574: else
575: dbms_lob.writeAppend( l_xfdf_string, length(l_str7), l_str7 );
576: end if;
577: DBMS_LOB.CREATETEMPORARY(p_xfdf_blob,TRUE);
578: clob_to_blob(l_xfdf_string,p_xfdf_blob);
579: hr_utility.set_location('Finished Procedure Write to CLOB ,Before clob to blob ',110);
580: --return p_xfdf_blob;
581: EXCEPTION
601: begin
602: l_buffer_len := 20000;
603: hr_utility.set_location('Entered Procedure clob to blob',120);
604: select userenv('LANGUAGE') into g_nls_db_char from dual;
605: l_length_clob := dbms_lob.getlength(p_clob);
606: l_offset := 1;
607: while l_length_clob > 0 loop
608: hr_utility.trace('l_length_clob '|| l_length_clob);
609: if l_length_clob < l_buffer_len then
610: l_chunk_len := l_length_clob;
611: else
612: l_chunk_len := l_buffer_len;
613: end if;
614: DBMS_LOB.READ(p_clob,l_chunk_len,l_offset,l_varchar_buffer);
615: fnd_file.put_line(fnd_file.log,l_varchar_buffer);
616: --l_raw_buffer := utl_raw.cast_to_raw(l_varchar_buffer);
617: l_raw_buffer := utl_raw.convert(utl_raw.cast_to_raw(l_varchar_buffer),'American_America.UTF8',g_nls_db_char);
618: l_raw_buffer_len := utl_raw.length(utl_raw.convert(utl_raw.cast_to_raw(l_varchar_buffer),'American_America.UTF8',g_nls_db_char));
616: --l_raw_buffer := utl_raw.cast_to_raw(l_varchar_buffer);
617: l_raw_buffer := utl_raw.convert(utl_raw.cast_to_raw(l_varchar_buffer),'American_America.UTF8',g_nls_db_char);
618: l_raw_buffer_len := utl_raw.length(utl_raw.convert(utl_raw.cast_to_raw(l_varchar_buffer),'American_America.UTF8',g_nls_db_char));
619: hr_utility.trace('l_varchar_buffer '|| l_varchar_buffer);
620: --dbms_lob.write(p_blob,l_chunk_len, l_offset, l_raw_buffer);
621: dbms_lob.write(p_blob,l_raw_buffer_len, l_blob_offset, l_raw_buffer);
622: l_blob_offset := l_blob_offset + l_raw_buffer_len;
623: l_offset := l_offset + l_chunk_len;
624: l_length_clob := l_length_clob - l_chunk_len;
617: l_raw_buffer := utl_raw.convert(utl_raw.cast_to_raw(l_varchar_buffer),'American_America.UTF8',g_nls_db_char);
618: l_raw_buffer_len := utl_raw.length(utl_raw.convert(utl_raw.cast_to_raw(l_varchar_buffer),'American_America.UTF8',g_nls_db_char));
619: hr_utility.trace('l_varchar_buffer '|| l_varchar_buffer);
620: --dbms_lob.write(p_blob,l_chunk_len, l_offset, l_raw_buffer);
621: dbms_lob.write(p_blob,l_raw_buffer_len, l_blob_offset, l_raw_buffer);
622: l_blob_offset := l_blob_offset + l_raw_buffer_len;
623: l_offset := l_offset + l_chunk_len;
624: l_length_clob := l_length_clob - l_chunk_len;
625: hr_utility.trace('l_length_blob '|| dbms_lob.getlength(p_blob));
621: dbms_lob.write(p_blob,l_raw_buffer_len, l_blob_offset, l_raw_buffer);
622: l_blob_offset := l_blob_offset + l_raw_buffer_len;
623: l_offset := l_offset + l_chunk_len;
624: l_length_clob := l_length_clob - l_chunk_len;
625: hr_utility.trace('l_length_blob '|| dbms_lob.getlength(p_blob));
626: end loop;
627: hr_utility.set_location('Finished Procedure clob to blob ',130);
628: end clob_to_blob;
629: ------------------------------------------------------------------