46:
47: /****************************************************************************
48: Name : write_to_magtape_lob
49: Description : This procedure appends passed BLOB parameter to
50: pay_mag_tape.g_blob_value
51: *****************************************************************************/
52:
53: PROCEDURE write_to_magtape_lob(p_blob BLOB) IS
54: BEGIN
60:
61: /****************************************************************************
62: Name : write_to_magtape_lob
63: Description : This procedure appends passed varchar2 parameter to
64: pay_mag_tape.g_blob_value
65: *****************************************************************************/
66:
67: PROCEDURE write_to_magtape_lob(p_data varchar2) IS
68: BEGIN
441: exception WHEN NO_DATA_FOUND THEN
442: null ;
443: end ;
444:
445: dbg('Length of pay_mag_tape.g_blob_value ' ||dbms_lob.getlength(pay_mag_tape.g_blob_value));
446:
447: IF dbms_lob.ISOPEN(lc_emp_clob)=1 THEN
448: dbg('Closing lc_emp_clob' );
449: dbms_lob.close(lc_emp_clob);
481: l_footer_xml_string := ''||fnd_global.local_chr(13)||fnd_global.local_chr(10);
482:
483: write_to_magtape_lob (l_footer_xml_string);
484:
485: dbg('Length of pay_mag_tape.g_blob_value ' ||dbms_lob.getlength(pay_mag_tape.g_blob_value));
486:
487: END get_footers;
488:
489:
507: '
508:
509: write_to_magtape_lob (l_header_xml_string);
510:
511: dbg('Length of pay_mag_tape.g_blob_value ' ||dbms_lob.getlength(pay_mag_tape.g_blob_value));
512:
513:
514: END get_headers ;
515: