211: ln_chars := 240;
212: ln_offset := 1;
213: LOOP
214: lv_buf := null;
215: dbms_lob.read(
216: p_clob,
217: ln_chars,
218: ln_offset,
219: lv_buf
1319: l_xfdf_string CLOB;
1320: ctr_table NUMBER;
1321: tempclob clob;
1322: BEGIN
1323: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
1324: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
1325: FOR ctr_table IN vXMLTable.FIRST .. vXMLTable.LAST
1326: LOOP
1327: dbms_lob.writeAppend(l_xfdf_string,
1320: ctr_table NUMBER;
1321: tempclob clob;
1322: BEGIN
1323: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
1324: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
1325: FOR ctr_table IN vXMLTable.FIRST .. vXMLTable.LAST
1326: LOOP
1327: dbms_lob.writeAppend(l_xfdf_string,
1328: length(vXMLTable(ctr_table).xmlstring),
1323: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
1324: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
1325: FOR ctr_table IN vXMLTable.FIRST .. vXMLTable.LAST
1326: LOOP
1327: dbms_lob.writeAppend(l_xfdf_string,
1328: length(vXMLTable(ctr_table).xmlstring),
1329: vXMLTable(ctr_table).xmlstring );
1330: END LOOP;
1331: p_write_xml := l_xfdf_string;
1329: vXMLTable(ctr_table).xmlstring );
1330: END LOOP;
1331: p_write_xml := l_xfdf_string;
1332: hr_utility.set_location('Out of loop ', 99);
1333: dbms_lob.close(l_xfdf_string);
1334: EXCEPTION
1335: WHEN OTHERS THEN
1336: HR_UTILITY.TRACE('sqleerm ' || SQLERRM);
1337: HR_UTILITY.RAISE_ERROR;
1369: l_header := '' || EOL ||'
1370: l_footer := '
1371: assact_xml(p_assignment_action_id);
1372: WritetoCLOB(p_ss_xml);
1373: dbms_lob.createtemporary(l_xml,TRUE) ;
1374: dbms_lob.writeAppend(l_xml,
1375: length(l_header),
1376: l_header);
1377: dbms_lob.append(l_xml, p_ss_xml);
1370: l_footer := '';
1371: assact_xml(p_assignment_action_id);
1372: WritetoCLOB(p_ss_xml);
1373: dbms_lob.createtemporary(l_xml,TRUE) ;
1374: dbms_lob.writeAppend(l_xml,
1375: length(l_header),
1376: l_header);
1377: dbms_lob.append(l_xml, p_ss_xml);
1378: dbms_lob.writeAppend(l_xml,
1373: dbms_lob.createtemporary(l_xml,TRUE) ;
1374: dbms_lob.writeAppend(l_xml,
1375: length(l_header),
1376: l_header);
1377: dbms_lob.append(l_xml, p_ss_xml);
1378: dbms_lob.writeAppend(l_xml,
1379: length(l_footer),
1380: l_footer);
1381: p_xml := l_xml ;
1374: dbms_lob.writeAppend(l_xml,
1375: length(l_header),
1376: l_header);
1377: dbms_lob.append(l_xml, p_ss_xml);
1378: dbms_lob.writeAppend(l_xml,
1379: length(l_footer),
1380: l_footer);
1381: p_xml := l_xml ;
1382: END get_ss_xml;
1430: l_amount := 500;
1431: --
1432: LOOP
1433: xml_string1 := null;
1434: dbms_lob.read(l_final_xml_string,l_amount,l_offset,xml_string1);
1435: pay_core_files.write_to_magtape_lob(xml_string1);
1436: l_offset := l_offset + l_amount ;
1437: END LOOP;
1438: EXCEPTION