52:
53: PROCEDURE write_to_magtape_lob(p_blob BLOB) IS
54: BEGIN
55: IF dbms_lob.getLength (p_blob) IS NOT NULL THEN
56: pay_core_files.write_to_magtape_lob (p_blob);
57: END IF;
58: END write_to_magtape_lob;
59:
60:
65: *****************************************************************************/
66:
67: PROCEDURE write_to_magtape_lob(p_data varchar2) IS
68: BEGIN
69: pay_core_files.write_to_magtape_lob (p_data);
70: END write_to_magtape_lob;
71:
72:
73: /******************************************************************
422: LOOP
423: dbms_lob.read(lc_emp_clob,l_amount,l_position,l_buffer);
424: dbg('inside the loop');
425: dbg(l_buffer);
426: pay_core_files.write_to_magtape_lob(l_buffer);
427: l_position := l_position+l_amount;
428: end loop;
429: exception WHEN NO_DATA_FOUND THEN
430: null ;