497:
498: l_xml CLOB;
499: cntr_flex_col NUMBER;
500: l_flex_col_num NUMBER;
501: sqlstr DBMS_SQL.VARCHAR2S;
502: csr NUMBER;
503: ret NUMBER;
504: l_cntr_sql NUMBER;
505: l_total_pay NUMBER;
506: l_total_earnings NUMBER;
507: l_total_deductions NUMBER;
508:
509:
510: PROCEDURE build_sql(p_sqlstr_tab IN OUT NOCOPY DBMS_SQL.VARCHAR2S,
511: p_cntr IN OUT NOCOPY NUMBER,
512: p_string VARCHAR2) AS
513: --
514: l_proc_name varchar2(100);
617: END LOOP;
618: build_sql(sqlstr, l_cntr_sql, ' pay_SE_rules.load_xml(''CE'', NULL, ''BALANCE DETAILS'', NULL); ');
619: build_sql(sqlstr, l_cntr_sql, ' END LOOP; End; ');
620: --
621: csr := DBMS_SQL.OPEN_CURSOR;
622: DBMS_SQL.PARSE(csr
623: ,sqlstr
624: ,sqlstr.first()
625: ,sqlstr.last()
618: build_sql(sqlstr, l_cntr_sql, ' pay_SE_rules.load_xml(''CE'', NULL, ''BALANCE DETAILS'', NULL); ');
619: build_sql(sqlstr, l_cntr_sql, ' END LOOP; End; ');
620: --
621: csr := DBMS_SQL.OPEN_CURSOR;
622: DBMS_SQL.PARSE(csr
623: ,sqlstr
624: ,sqlstr.first()
625: ,sqlstr.last()
626: ,FALSE
623: ,sqlstr
624: ,sqlstr.first()
625: ,sqlstr.last()
626: ,FALSE
627: ,DBMS_SQL.V7);
628: ret := DBMS_SQL.EXECUTE(csr);
629: DBMS_SQL.CLOSE_CURSOR(csr);
630:
631: --insert into clobtable(a,ID) values (l_xml,'PPS');
624: ,sqlstr.first()
625: ,sqlstr.last()
626: ,FALSE
627: ,DBMS_SQL.V7);
628: ret := DBMS_SQL.EXECUTE(csr);
629: DBMS_SQL.CLOSE_CURSOR(csr);
630:
631: --insert into clobtable(a,ID) values (l_xml,'PPS');
632: --commit;
625: ,sqlstr.last()
626: ,FALSE
627: ,DBMS_SQL.V7);
628: ret := DBMS_SQL.EXECUTE(csr);
629: DBMS_SQL.CLOSE_CURSOR(csr);
630:
631: --insert into clobtable(a,ID) values (l_xml,'PPS');
632: --commit;
633: