374: l_strlustart := '
375: l_strluend := '
376:
377:
378: DBMS_LOB.createtemporary (l_xfdf_string, FALSE, DBMS_LOB.CALL);
379: DBMS_LOB.OPEN (l_xfdf_string, DBMS_LOB.lob_readwrite);
380: current_index := 0;
381:
382: IF gplsqltable.COUNT > 0
375: l_strluend := '';
376:
377:
378: DBMS_LOB.createtemporary (l_xfdf_string, FALSE, DBMS_LOB.CALL);
379: DBMS_LOB.OPEN (l_xfdf_string, DBMS_LOB.lob_readwrite);
380: current_index := 0;
381:
382: IF gplsqltable.COUNT > 0
383: THEN
381:
382: IF gplsqltable.COUNT > 0
383: THEN
384:
385: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str1), l_str1);
386: /* l_str8 := gplsqltable (1).tagname;
387: l_str9 := gplsqltable (1).tagvalue;
388:
389: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
385: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str1), l_str1);
386: /* l_str8 := gplsqltable (1).tagname;
387: l_str9 := gplsqltable (1).tagvalue;
388:
389: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
390: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
391: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
392: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
393: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
386: /* l_str8 := gplsqltable (1).tagname;
387: l_str9 := gplsqltable (1).tagvalue;
388:
389: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
390: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
391: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
392: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
393: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
394: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
387: l_str9 := gplsqltable (1).tagvalue;
388:
389: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
390: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
391: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
392: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
393: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
394: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
395: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
388:
389: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
390: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
391: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
392: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
393: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
394: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
395: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
396: l_str8 := gplsqltable (2).tagname;
389: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
390: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
391: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
392: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
393: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
394: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
395: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
396: l_str8 := gplsqltable (2).tagname;
397: l_str9 := gplsqltable (2).tagvalue;
390: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
391: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
392: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
393: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
394: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
395: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
396: l_str8 := gplsqltable (2).tagname;
397: l_str9 := gplsqltable (2).tagvalue;
398:
391: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
392: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
393: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
394: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
395: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
396: l_str8 := gplsqltable (2).tagname;
397: l_str9 := gplsqltable (2).tagvalue;
398:
399:
396: l_str8 := gplsqltable (2).tagname;
397: l_str9 := gplsqltable (2).tagvalue;
398:
399:
400: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
401: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
402: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
403: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
404: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
397: l_str9 := gplsqltable (2).tagvalue;
398:
399:
400: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
401: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
402: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
403: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
404: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
405: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
398:
399:
400: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
401: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
402: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
403: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
404: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
405: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
406: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
399:
400: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
401: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
402: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
403: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
404: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
405: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
406: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
407: */
400: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
401: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
402: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
403: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
404: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
405: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
406: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
407: */
408:
401: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
402: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
403: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
404: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
405: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
406: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
407: */
408:
409: fnd_file.put_line ( fnd_file.LOG, gplsqltable.COUNT );
402: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
403: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
404: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
405: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
406: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
407: */
408:
409: fnd_file.put_line ( fnd_file.LOG, gplsqltable.COUNT );
410:
415: l_str8 := gplsqltable (table_counter).tagname;
416: l_str9 := gplsqltable (table_counter).tagvalue;
417: IF l_str8 = 'END' THEN
418: fnd_file.put_line ( fnd_file.LOG, l_xfdf_string );
419: DBMS_LOB.writeappend (
420: l_xfdf_string,
421: LENGTH (l_str11),
422: l_str11
423: );
424: fnd_file.put_line ( fnd_file.LOG, l_xfdf_string );
425: ELSIF l_str8 = 'LU' THEN
426: fnd_file.put_line ( fnd_file.LOG, l_xfdf_string );
427: IF l_str9 ='START' THEN
428: DBMS_LOB.writeappend (
429: l_xfdf_string,
430: LENGTH (l_strlustart), l_strlustart );
431: ELSIF l_str9 ='END' THEN
432: DBMS_LOB.writeappend (
428: DBMS_LOB.writeappend (
429: l_xfdf_string,
430: LENGTH (l_strlustart), l_strlustart );
431: ELSIF l_str9 ='END' THEN
432: DBMS_LOB.writeappend (
433: l_xfdf_string,
434: LENGTH (l_strluend), l_strluend );
435: END IF;
436:
437: ELSIF l_str8 = 'TOTAL' THEN
438:
439:
440: IF gplsqltable.COUNT > 3 then
441: DBMS_LOB.writeappend (
442: l_xfdf_string,
443: LENGTH (l_strluend), l_strluend );
444:
445:
445:
446: end if;
447:
448: fnd_file.put_line ( fnd_file.LOG, l_xfdf_string );
449: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_total_start), l_total_start);
450: DBMS_LOB.writeappend (
451: l_xfdf_string,
452: LENGTH (l_str9),
453: l_str9
446: end if;
447:
448: fnd_file.put_line ( fnd_file.LOG, l_xfdf_string );
449: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_total_start), l_total_start);
450: DBMS_LOB.writeappend (
451: l_xfdf_string,
452: LENGTH (l_str9),
453: l_str9
454: );
452: LENGTH (l_str9),
453: l_str9
454: );
455:
456: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_total_end), l_total_end);
457:
458:
459: ELSIF l_str8 = 'START' THEN
460: DBMS_LOB.writeappend (
456: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_total_end), l_total_end);
457:
458:
459: ELSIF l_str8 = 'START' THEN
460: DBMS_LOB.writeappend (
461: l_xfdf_string,
462: LENGTH (l_str10), l_str10 );
463: ELSIF l_str9 IS NOT NULL THEN
464:
461: l_xfdf_string,
462: LENGTH (l_str10), l_str10 );
463: ELSIF l_str9 IS NOT NULL THEN
464:
465: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
466: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
467: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
468: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
469: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
462: LENGTH (l_str10), l_str10 );
463: ELSIF l_str9 IS NOT NULL THEN
464:
465: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
466: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
467: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
468: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
469: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
470: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
463: ELSIF l_str9 IS NOT NULL THEN
464:
465: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
466: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
467: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
468: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
469: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
470: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
471: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
464:
465: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
466: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
467: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
468: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
469: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
470: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
471: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
472: ELSE
465: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
466: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
467: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
468: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
469: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
470: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
471: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
472: ELSE
473: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
466: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
467: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
468: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
469: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
470: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
471: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
472: ELSE
473: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
474: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
467: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
468: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
469: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
470: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
471: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
472: ELSE
473: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
474: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
475: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
469: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
470: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
471: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
472: ELSE
473: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
474: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
475: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
476: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
477: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
470: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
471: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
472: ELSE
473: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
474: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
475: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
476: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
477: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
478: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
471: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
472: ELSE
473: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
474: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
475: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
476: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
477: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
478: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
479:
472: ELSE
473: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
474: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
475: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
476: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
477: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
478: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
479:
480: END IF;
473: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
474: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
475: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
476: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
477: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
478: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
479:
480: END IF;
481:
474: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
475: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
476: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
477: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
478: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
479:
480: END IF;
481:
482: END LOOP;
482: END LOOP;
483:
484:
485:
486: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str6), l_str6);
487: ELSE
488: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str7), l_str7);
489: END IF;
490: p_xfdf_clob := l_xfdf_string;
484:
485:
486: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str6), l_str6);
487: ELSE
488: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str7), l_str7);
489: END IF;
490: p_xfdf_clob := l_xfdf_string;
491: hr_utility.set_location ('Leaving WritetoCLOB ', 70);
492: