291:
292: vXMLTable.DELETE;
293: vCtr := 1;
294:
295: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
296: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
297: DBMS_LOB.CREATETEMPORARY(l_xfdf_blob,TRUE);
298: clob_to_blob(l_xfdf_string,l_xfdf_blob);
299: dbms_lob.writeAppend( l_xfdf_string, length('
292: vXMLTable.DELETE;
293: vCtr := 1;
294:
295: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
296: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
297: DBMS_LOB.CREATETEMPORARY(l_xfdf_blob,TRUE);
298: clob_to_blob(l_xfdf_string,l_xfdf_blob);
299: dbms_lob.writeAppend( l_xfdf_string, length('
300:
293: vCtr := 1;
294:
295: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
296: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
297: DBMS_LOB.CREATETEMPORARY(l_xfdf_blob,TRUE);
298: clob_to_blob(l_xfdf_string,l_xfdf_blob);
299: dbms_lob.writeAppend( l_xfdf_string, length('
300:
301:
295: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
296: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
297: DBMS_LOB.CREATETEMPORARY(l_xfdf_blob,TRUE);
298: clob_to_blob(l_xfdf_string,l_xfdf_blob);
299: dbms_lob.writeAppend( l_xfdf_string, length('
301:
302: l_str_rep_label := '
303: dbms_lob.writeAppend( l_xfdf_string, length(l_str_rep_label),l_str_rep_label);
299: dbms_lob.writeAppend( l_xfdf_string, length('
300:
301:
302: l_str_rep_label := '
303: dbms_lob.writeAppend( l_xfdf_string, length(l_str_rep_label),l_str_rep_label);
304:
305: l_str_py_label := '
306: dbms_lob.writeAppend( l_xfdf_string, length(l_str_py_label),l_str_py_label);
307:
302: l_str_rep_label := '
303: dbms_lob.writeAppend( l_xfdf_string, length(l_str_rep_label),l_str_rep_label);
304:
305: l_str_py_label := '
306: dbms_lob.writeAppend( l_xfdf_string, length(l_str_py_label),l_str_py_label);
307:
308: l_str_py_name := '
309: dbms_lob.writeAppend( l_xfdf_string, length(l_str_py_name),l_str_py_name);
310:
305: l_str_py_label := '
306: dbms_lob.writeAppend( l_xfdf_string, length(l_str_py_label),l_str_py_label);
307:
308: l_str_py_name := '
309: dbms_lob.writeAppend( l_xfdf_string, length(l_str_py_name),l_str_py_name);
310:
311: l_str_n := '
312: dbms_lob.writeAppend( l_xfdf_string, length(l_str_n),l_str_n);
313:
308: l_str_py_name := '
309: dbms_lob.writeAppend( l_xfdf_string, length(l_str_py_name),l_str_py_name);
310:
311: l_str_n := '
312: dbms_lob.writeAppend( l_xfdf_string, length(l_str_n),l_str_n);
313:
314: l_str_name_l := '
315: dbms_lob.writeAppend( l_xfdf_string, length(l_str_name_l),l_str_name_l);
316:
311: l_str_n := '
312: dbms_lob.writeAppend( l_xfdf_string, length(l_str_n),l_str_n);
313:
314: l_str_name_l := '
315: dbms_lob.writeAppend( l_xfdf_string, length(l_str_name_l),l_str_name_l);
316:
317: l_str_eno_l := '
318: dbms_lob.writeAppend( l_xfdf_string, length(l_str_eno_l),l_str_eno_l);
319:
314: l_str_name_l := '
315: dbms_lob.writeAppend( l_xfdf_string, length(l_str_name_l),l_str_name_l);
316:
317: l_str_eno_l := '
318: dbms_lob.writeAppend( l_xfdf_string, length(l_str_eno_l),l_str_eno_l);
319:
320: l_str_org_l := '
321: dbms_lob.writeAppend( l_xfdf_string, length(l_str_org_l),l_str_org_l);
322:
317: l_str_eno_l := '
318: dbms_lob.writeAppend( l_xfdf_string, length(l_str_eno_l),l_str_eno_l);
319:
320: l_str_org_l := '
321: dbms_lob.writeAppend( l_xfdf_string, length(l_str_org_l),l_str_org_l);
322:
323: l_str_job_l := '
324: dbms_lob.writeAppend( l_xfdf_string, length(l_str_job_l),l_str_job_l);
325:
320: l_str_org_l := '
321: dbms_lob.writeAppend( l_xfdf_string, length(l_str_org_l),l_str_org_l);
322:
323: l_str_job_l := '
324: dbms_lob.writeAppend( l_xfdf_string, length(l_str_job_l),l_str_job_l);
325:
326: l_str_amt_l := '
327: dbms_lob.writeAppend( l_xfdf_string, length(l_str_amt_l),l_str_amt_l);
328:
323: l_str_job_l := '
324: dbms_lob.writeAppend( l_xfdf_string, length(l_str_job_l),l_str_job_l);
325:
326: l_str_amt_l := '
327: dbms_lob.writeAppend( l_xfdf_string, length(l_str_amt_l),l_str_amt_l);
328:
329: l_str_chq_l := '
330: dbms_lob.writeAppend( l_xfdf_string, length(l_str_chq_l),l_str_chq_l);
331:
326: l_str_amt_l := '
327: dbms_lob.writeAppend( l_xfdf_string, length(l_str_amt_l),l_str_amt_l);
328:
329: l_str_chq_l := '
330: dbms_lob.writeAppend( l_xfdf_string, length(l_str_chq_l),l_str_chq_l);
331:
332: l_str_pd_l := '
333: dbms_lob.writeAppend( l_xfdf_string, length(l_str_pd_l),l_str_pd_l);
334:
329: l_str_chq_l := '
330: dbms_lob.writeAppend( l_xfdf_string, length(l_str_chq_l),l_str_chq_l);
331:
332: l_str_pd_l := '
333: dbms_lob.writeAppend( l_xfdf_string, length(l_str_pd_l),l_str_pd_l);
334:
335:
336:
337: hr_utility.set_location('Entering CHQR ',10);
431: Exit when csr_chq_det%NOTFOUND;
432:
433: l_amount_fm := to_char(l_amount,lg_format_mask);
434:
435: dbms_lob.writeAppend( l_xfdf_string, length('
437: l_str_seq := '
438: l_str_er_name1 := '
439: l_str_er_name2 := '
442: l_str_er_name5 := '
443: l_str_er_name6 := '
444: l_str_er_name7 := '
445:
446: dbms_lob.writeAppend( l_xfdf_string, length(l_str_seq), l_str_seq);
447: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name1), l_str_er_name1);
448: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name2), l_str_er_name2);
449: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name3), l_str_er_name3);
450: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name4), l_str_er_name4);
443: l_str_er_name6 := '
444: l_str_er_name7 := '
445:
446: dbms_lob.writeAppend( l_xfdf_string, length(l_str_seq), l_str_seq);
447: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name1), l_str_er_name1);
448: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name2), l_str_er_name2);
449: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name3), l_str_er_name3);
450: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name4), l_str_er_name4);
451: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name5), l_str_er_name5);
444: l_str_er_name7 := '
445:
446: dbms_lob.writeAppend( l_xfdf_string, length(l_str_seq), l_str_seq);
447: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name1), l_str_er_name1);
448: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name2), l_str_er_name2);
449: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name3), l_str_er_name3);
450: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name4), l_str_er_name4);
451: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name5), l_str_er_name5);
452: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name6), l_str_er_name6);
445:
446: dbms_lob.writeAppend( l_xfdf_string, length(l_str_seq), l_str_seq);
447: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name1), l_str_er_name1);
448: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name2), l_str_er_name2);
449: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name3), l_str_er_name3);
450: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name4), l_str_er_name4);
451: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name5), l_str_er_name5);
452: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name6), l_str_er_name6);
453: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name7), l_str_er_name7);
446: dbms_lob.writeAppend( l_xfdf_string, length(l_str_seq), l_str_seq);
447: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name1), l_str_er_name1);
448: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name2), l_str_er_name2);
449: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name3), l_str_er_name3);
450: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name4), l_str_er_name4);
451: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name5), l_str_er_name5);
452: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name6), l_str_er_name6);
453: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name7), l_str_er_name7);
454:
447: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name1), l_str_er_name1);
448: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name2), l_str_er_name2);
449: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name3), l_str_er_name3);
450: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name4), l_str_er_name4);
451: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name5), l_str_er_name5);
452: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name6), l_str_er_name6);
453: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name7), l_str_er_name7);
454:
455: dbms_lob.writeAppend( l_xfdf_string, length(''),'');
448: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name2), l_str_er_name2);
449: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name3), l_str_er_name3);
450: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name4), l_str_er_name4);
451: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name5), l_str_er_name5);
452: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name6), l_str_er_name6);
453: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name7), l_str_er_name7);
454:
455: dbms_lob.writeAppend( l_xfdf_string, length(''),'');
456: seq := seq + 1;
449: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name3), l_str_er_name3);
450: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name4), l_str_er_name4);
451: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name5), l_str_er_name5);
452: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name6), l_str_er_name6);
453: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name7), l_str_er_name7);
454:
455: dbms_lob.writeAppend( l_xfdf_string, length(''),'');
456: seq := seq + 1;
457: END LOOP;
451: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name5), l_str_er_name5);
452: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name6), l_str_er_name6);
453: dbms_lob.writeAppend( l_xfdf_string, length(l_str_er_name7), l_str_er_name7);
454:
455: dbms_lob.writeAppend( l_xfdf_string, length(''),'');
456: seq := seq + 1;
457: END LOOP;
458: CLOSE csr_chq_det;
459: j := j + 1;
460:
461: END LOOP;
462: End If;
463:
464: dbms_lob.writeAppend( l_xfdf_string, length(''),'');
465:
466: hr_utility.set_location('Finished creating xml data for Procedure CHQR ',20);
467:
468: DBMS_LOB.CREATETEMPORARY(l_xfdf_blob,TRUE);
464: dbms_lob.writeAppend( l_xfdf_string, length(''),'');
465:
466: hr_utility.set_location('Finished creating xml data for Procedure CHQR ',20);
467:
468: DBMS_LOB.CREATETEMPORARY(l_xfdf_blob,TRUE);
469: clob_to_blob(l_xfdf_string,l_xfdf_blob);
470:
471:
472: /*EXCEPTION
529: l_str7 := '
530:
531:
532:
533: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
534: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
535: if vXMLTable.COUNT > 0 then
536: dbms_lob.writeAppend( l_xfdf_string, length(l_str1), l_str1 );
537: FOR ctr_table IN vXMLTable.FIRST .. vXMLTable.LAST LOOP
530:
531:
532:
533: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
534: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
535: if vXMLTable.COUNT > 0 then
536: dbms_lob.writeAppend( l_xfdf_string, length(l_str1), l_str1 );
537: FOR ctr_table IN vXMLTable.FIRST .. vXMLTable.LAST LOOP
538: l_str8 := vXMLTable(ctr_table).TagName;
532: ';
533: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
534: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
535: if vXMLTable.COUNT > 0 then
536: dbms_lob.writeAppend( l_xfdf_string, length(l_str1), l_str1 );
537: FOR ctr_table IN vXMLTable.FIRST .. vXMLTable.LAST LOOP
538: l_str8 := vXMLTable(ctr_table).TagName;
539: l_str9 := vXMLTable(ctr_table).TagValue;
540: if (l_str9 is not null) then
537: FOR ctr_table IN vXMLTable.FIRST .. vXMLTable.LAST LOOP
538: l_str8 := vXMLTable(ctr_table).TagName;
539: l_str9 := vXMLTable(ctr_table).TagValue;
540: if (l_str9 is not null) then
541: dbms_lob.writeAppend( l_xfdf_string, length(l_str2), l_str2 );
542: dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
543: dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
544: dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
545: dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
538: l_str8 := vXMLTable(ctr_table).TagName;
539: l_str9 := vXMLTable(ctr_table).TagValue;
540: if (l_str9 is not null) then
541: dbms_lob.writeAppend( l_xfdf_string, length(l_str2), l_str2 );
542: dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
543: dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
544: dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
545: dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
546: dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
539: l_str9 := vXMLTable(ctr_table).TagValue;
540: if (l_str9 is not null) then
541: dbms_lob.writeAppend( l_xfdf_string, length(l_str2), l_str2 );
542: dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
543: dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
544: dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
545: dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
546: dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
547: elsif (l_str9 is null and l_str8 is not null) then
540: if (l_str9 is not null) then
541: dbms_lob.writeAppend( l_xfdf_string, length(l_str2), l_str2 );
542: dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
543: dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
544: dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
545: dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
546: dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
547: elsif (l_str9 is null and l_str8 is not null) then
548: dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
541: dbms_lob.writeAppend( l_xfdf_string, length(l_str2), l_str2 );
542: dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
543: dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
544: dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
545: dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
546: dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
547: elsif (l_str9 is null and l_str8 is not null) then
548: dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
549: dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
542: dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
543: dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
544: dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
545: dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
546: dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
547: elsif (l_str9 is null and l_str8 is not null) then
548: dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
549: dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
550: dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
544: dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
545: dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
546: dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
547: elsif (l_str9 is null and l_str8 is not null) then
548: dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
549: dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
550: dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
551: dbms_lob.writeAppend(l_xfdf_string,length(l_str4),l_str4);
552: dbms_lob.writeAppend(l_xfdf_string,length(l_str5),l_str5);
545: dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
546: dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
547: elsif (l_str9 is null and l_str8 is not null) then
548: dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
549: dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
550: dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
551: dbms_lob.writeAppend(l_xfdf_string,length(l_str4),l_str4);
552: dbms_lob.writeAppend(l_xfdf_string,length(l_str5),l_str5);
553: else
546: dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
547: elsif (l_str9 is null and l_str8 is not null) then
548: dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
549: dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
550: dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
551: dbms_lob.writeAppend(l_xfdf_string,length(l_str4),l_str4);
552: dbms_lob.writeAppend(l_xfdf_string,length(l_str5),l_str5);
553: else
554: null;
547: elsif (l_str9 is null and l_str8 is not null) then
548: dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
549: dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
550: dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
551: dbms_lob.writeAppend(l_xfdf_string,length(l_str4),l_str4);
552: dbms_lob.writeAppend(l_xfdf_string,length(l_str5),l_str5);
553: else
554: null;
555: end if;
548: dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
549: dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
550: dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
551: dbms_lob.writeAppend(l_xfdf_string,length(l_str4),l_str4);
552: dbms_lob.writeAppend(l_xfdf_string,length(l_str5),l_str5);
553: else
554: null;
555: end if;
556: END LOOP;
553: else
554: null;
555: end if;
556: END LOOP;
557: dbms_lob.writeAppend( l_xfdf_string, length(l_str6), l_str6 );
558: else
559: dbms_lob.writeAppend( l_xfdf_string, length(l_str7), l_str7 );
560: end if;
561: DBMS_LOB.CREATETEMPORARY(p_xfdf_blob,TRUE);
555: end if;
556: END LOOP;
557: dbms_lob.writeAppend( l_xfdf_string, length(l_str6), l_str6 );
558: else
559: dbms_lob.writeAppend( l_xfdf_string, length(l_str7), l_str7 );
560: end if;
561: DBMS_LOB.CREATETEMPORARY(p_xfdf_blob,TRUE);
562: clob_to_blob(l_xfdf_string,p_xfdf_blob);
563: hr_utility.set_location('Finished Procedure Write to CLOB ,Before clob to blob ',110);
557: dbms_lob.writeAppend( l_xfdf_string, length(l_str6), l_str6 );
558: else
559: dbms_lob.writeAppend( l_xfdf_string, length(l_str7), l_str7 );
560: end if;
561: DBMS_LOB.CREATETEMPORARY(p_xfdf_blob,TRUE);
562: clob_to_blob(l_xfdf_string,p_xfdf_blob);
563: hr_utility.set_location('Finished Procedure Write to CLOB ,Before clob to blob ',110);
564: --return p_xfdf_blob;
565: EXCEPTION
585: begin
586: l_buffer_len := 20000;
587: hr_utility.set_location('Entered Procedure clob to blob',120);
588: select userenv('LANGUAGE') into g_nls_db_char from dual;
589: l_length_clob := dbms_lob.getlength(p_clob);
590: l_offset := 1;
591: while l_length_clob > 0 loop
592: hr_utility.trace('l_length_clob '|| l_length_clob);
593: if l_length_clob < l_buffer_len then
594: l_chunk_len := l_length_clob;
595: else
596: l_chunk_len := l_buffer_len;
597: end if;
598: DBMS_LOB.READ(p_clob,l_chunk_len,l_offset,l_varchar_buffer);
599: fnd_file.put_line(fnd_file.log,l_varchar_buffer);
600: --l_raw_buffer := utl_raw.cast_to_raw(l_varchar_buffer);
601: l_raw_buffer := utl_raw.convert(utl_raw.cast_to_raw(l_varchar_buffer),'American_America.UTF8',g_nls_db_char);
602: 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));
600: --l_raw_buffer := utl_raw.cast_to_raw(l_varchar_buffer);
601: l_raw_buffer := utl_raw.convert(utl_raw.cast_to_raw(l_varchar_buffer),'American_America.UTF8',g_nls_db_char);
602: 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));
603: hr_utility.trace('l_varchar_buffer '|| l_varchar_buffer);
604: --dbms_lob.write(p_blob,l_chunk_len, l_offset, l_raw_buffer);
605: dbms_lob.write(p_blob,l_raw_buffer_len, l_blob_offset, l_raw_buffer);
606: l_blob_offset := l_blob_offset + l_raw_buffer_len;
607: l_offset := l_offset + l_chunk_len;
608: l_length_clob := l_length_clob - l_chunk_len;
601: l_raw_buffer := utl_raw.convert(utl_raw.cast_to_raw(l_varchar_buffer),'American_America.UTF8',g_nls_db_char);
602: 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));
603: hr_utility.trace('l_varchar_buffer '|| l_varchar_buffer);
604: --dbms_lob.write(p_blob,l_chunk_len, l_offset, l_raw_buffer);
605: dbms_lob.write(p_blob,l_raw_buffer_len, l_blob_offset, l_raw_buffer);
606: l_blob_offset := l_blob_offset + l_raw_buffer_len;
607: l_offset := l_offset + l_chunk_len;
608: l_length_clob := l_length_clob - l_chunk_len;
609: hr_utility.trace('l_length_blob '|| dbms_lob.getlength(p_blob));
605: dbms_lob.write(p_blob,l_raw_buffer_len, l_blob_offset, l_raw_buffer);
606: l_blob_offset := l_blob_offset + l_raw_buffer_len;
607: l_offset := l_offset + l_chunk_len;
608: l_length_clob := l_length_clob - l_chunk_len;
609: hr_utility.trace('l_length_blob '|| dbms_lob.getlength(p_blob));
610: end loop;
611: hr_utility.set_location('Finished Procedure clob to blob ',130);
612: end clob_to_blob;
613: ------------------------------------------------------------------