372: temp varchar2(100);
373: cntr number;
374: l_uom varchar2(240);
375: l_cntr_sql NUMBER;
376: sqlstr DBMS_SQL.VARCHAR2S;
377: csr NUMBER;
378: ret NUMBER;
379:
380: ---------------
380: ---------------
381:
382: -- Private Procedure to build dynamic sql
383:
384: PROCEDURE build_sql(p_sqlstr_tab IN OUT NOCOPY DBMS_SQL.VARCHAR2S,
385: p_cntr IN OUT NOCOPY NUMBER,
386: p_string VARCHAR2) AS
387:
388: l_proc_name varchar2(100);
616: build_sql(sqlstr, l_cntr_sql, ' END LOOP; ');
617: -- end new
618: build_sql(sqlstr, l_cntr_sql, ' END LOOP; End; ');
619: --
620: csr := DBMS_SQL.OPEN_CURSOR;
621: DBMS_SQL.PARSE(csr
622: ,sqlstr
623: ,sqlstr.first()
624: ,sqlstr.last()
617: -- end new
618: build_sql(sqlstr, l_cntr_sql, ' END LOOP; End; ');
619: --
620: csr := DBMS_SQL.OPEN_CURSOR;
621: DBMS_SQL.PARSE(csr
622: ,sqlstr
623: ,sqlstr.first()
624: ,sqlstr.last()
625: ,FALSE
622: ,sqlstr
623: ,sqlstr.first()
624: ,sqlstr.last()
625: ,FALSE
626: ,DBMS_SQL.V7);
627: ret := DBMS_SQL.EXECUTE(csr);
628: DBMS_SQL.CLOSE_CURSOR(csr);
629:
630: hr_utility.trace('BALANCE DETAILS : end ');
623: ,sqlstr.first()
624: ,sqlstr.last()
625: ,FALSE
626: ,DBMS_SQL.V7);
627: ret := DBMS_SQL.EXECUTE(csr);
628: DBMS_SQL.CLOSE_CURSOR(csr);
629:
630: hr_utility.trace('BALANCE DETAILS : end ');
631: --
624: ,sqlstr.last()
625: ,FALSE
626: ,DBMS_SQL.V7);
627: ret := DBMS_SQL.EXECUTE(csr);
628: DBMS_SQL.CLOSE_CURSOR(csr);
629:
630: hr_utility.trace('BALANCE DETAILS : end ');
631: --
632: end if;