Regarding Plsql tunning

Question

Hello
Already One function had in database now days it takes more time to execute
Please guide me how i tunning this code
Please check my code
I have check all code and indexces they are exactly pick up
FUNCTION balances (p_set_of_books_id IN NUMBER,
p_period_name IN VARCHAR2,
p_business_id IN VARCHAR2,
p_partition_key IN VARCHAR2)
RETURN NUMBER IS
---Cursor to select the period passed as paramete and last six periods.
CURSOR c_periods(p_period_name VARCHAR2) IS
SELECT period_name
FROM gl.gl_periods
WHERE period_set_name = 'GE_CALENDAR'
AND start_date <=
(SELECT start_date
FROM gl.gl_periods
WHERE period_set_name = 'GE_CALENDAR'
AND period_name = p_period_name)
AND end_date >= (SELECT end_date - 190
FROM gl.gl_periods
WHERE period_set_name = 'GE_CALENDAR'
AND period_name = p_period_name)
AND period_name NOT LIKE 'ADJ%';
-- Local variables --
v_error_code NUMBER := 1;
lv_count NUMBER := 0;
lv_tot_count NUMBER := 0;
lv_sub_pl VARCHAR2(25) := '';
lv_management_str VARCHAR2(25) := '';
tlm_rec_count number :=0 ;
gbal_rec_count number :=0 ;
gbal_any_run number :=0 ;
load_data varchar2(1) := 'Y';
BEGIN
apps.fnd_file.put_line(which => apps.fnd_file.log,
buff => 'starting insert into glc_smart_stream_bal_extract');
DELETE FROM XXCUSTOM.GLC_SMART_STREAM_BAL_EXTRACT
WHERE BUSINESS_CODE = P_BUSINESS_ID
AND PERIOD_NAME NOT IN
(SELECT period_name
FROM gl.gl_periods
WHERE period_set_name = 'GE_CALENDAR'
AND start_date <=
(SELECT start_date
FROM gl.gl_periods
WHERE period_set_name = 'GE_CALENDAR'
AND period_name = p_period_name)
AND end_date >=
(SELECT end_date - 190
FROM gl.gl_periods
WHERE period_set_name = 'GE_CALENDAR'
AND period_name = p_period_name)
AND period_name NOT LIKE 'ADJ%');
COMMIT;
FOR rec_periods IN c_periods(p_period_name)
LOOP
apps.fnd_file.put_line(which => apps.fnd_file.log,
buff => 'inserting records for period - ' ||
rec_periods.period_name);
tlm_rec_count := 0;
gbal_rec_count := 0;
gbal_any_run :=0 ;
load_data := 'N';
apps.fnd_file.put_line(which => apps.fnd_file.log,
buff => 'processing period ' || rec_periods.period_name||
'Started ' || to_char(sysdate,'dd-mon-rr hh24:mi:ss'));
BEGIN
-- Look if any record exist in the table for this Business and this period
SELECT COUNT(1)
INTO TLM_REC_COUNT
FROM XXCUSTOM.GLC_SMART_STREAM_BAL_EXTRACT
WHERE PERIOD_NAME = REC_PERIODS.PERIOD_NAME
AND BUSINESS_CODE = P_BUSINESS_ID;
EXCEPTION
WHEN OTHERS THEN
TLM_REC_COUNT := 0; -- FORCE PROCESSING
END;
apps.fnd_file.put_line(which => apps.fnd_file.log,
buff => 'tlm_rec_count for ' || rec_periods.period_name || ' - ' || tlm_rec_count||
'Started ' || to_char(sysdate,'dd-mon-rr hh24:mi:ss'));
if tlm_rec_count > 0 then -------There are more than 0 records in the table
begin
apps.fnd_file.put_line(which => apps.fnd_file.log,
buff => 'Starting to count gbal ' || to_char(sysdate,'dd-mon-rr hh24:mi:ss'));
select count(1) ----Selecting count of records in gl_balances table for which last update date is after this program was last run.
into gbal_rec_count
from gl.gl_balances
where period_name = rec_periods.period_name and
set_of_books_id = p_set_of_books_id and
last_update_date > (select last_run_time
from XXCUSTOM.glc_smart_stream_bal_ext_run
where business_code = p_business_id
-- and period_name=rec_periods.period_name
apps.fnd_file.put_line(which => apps.fnd_file.log,
buff => 'FOUND gbal_rec_count for ' || rec_periods.period_name || ' - ' || p_business_id || '- ' || gbal_rec_count||
'Started ' || to_char(sysdate,'dd-mon-rr hh24:mi:ss'));
EXCEPTION
WHEN OTHERS THEN
apps.fnd_file.put_line(which => apps.fnd_file.log,
buff => 'NOT FOUND gbal_rec_count for ' || rec_periods.period_name || ' - ' || p_business_id || '- ' || gbal_rec_count||
'Started ' || to_char(sysdate,'dd-mon-rr hh24:mi:ss'));
gbal_rec_count := 1; -- force reload of data
end;
if gbal_rec_count > 0 then --if there has been update in gl_balance table afte last_run_date then load data
load_data := 'Y';
end if;
else ---There are no records in the table , hence load
load_data := 'Y';
end if;
if load_data = 'Y' then ---Loading data as upload status set to Yes
apps.fnd_file.put_line(which => apps.fnd_file.log,
buff => 'loading data for ' || rec_periods.period_name||
'Started ' || to_char(sysdate,'dd-mon-rr hh24:mi:ss'));
Begin
apps.fnd_file.put_line(which => apps.fnd_file.log,
buff => 'deleting data ' || rec_periods.period_name||
'Started ' || to_char(sysdate,'dd-mon-rr hh24:mi:ss'));
delete from xxcustom.glc_smart_stream_bal_extract
where business_code = p_business_id and
period_name = rec_periods.period_name; --Deleting data from Table for this business and this period
commit;
apps.fnd_file.put_line(which => apps.fnd_file.log,
buff => 'deleted data ' || rec_periods.period_name||
'Ended ' || to_char(sysdate,'dd-mon-rr hh24:mi:ss'));
End;
--Inserting Records Into Table
INSERT INTO xxcustom.glc_smart_stream_bal_extract
(business_code,
period_name,
period_num,
period_year,
SET_OF_BOOKS_ID ,
SET_OF_BOOKS_NAME ,
ble,
bsla,
corp_code,
bus_code,
account,
cdr3,
loan_number,
account_flexfield,
currency,
rpt_end_balance,
center,
analysis,
other,
orig_end_balance,
orig_period_net_cr,
orig_period_net_dr,
account_description,
centre_deal_id,
functional_currency,
account_type,
sub_account,
analysis_desc,
cost_center_desc,
gaap_ind,
management_structure,
sub_pl,
cdr6,
cdr9,
code_combination_id,
rpt_open_balance,
orig_open_bal,
rpt_net_dr,
rpt_net_cr)
SELECT /* + INDEX(fvals1 FND_FLEX_VALUES_N1) INDEX(fvals2 FND_FLEX_VALUES_N1)
INDEX(fvals3 FND_FLEX_VALUES_N1) INDEX(fvals4 FND_FLEX_VALUES_N1)
INDEX(fvals5 FND_FLEX_VALUES_N1)*/
p_business_id business_code,
bal.period_name period_name,
bal.period_num period_num,
bal.period_year period_year,
gsob.set_of_books_id,
gsob.name,
gcc.segment1 ble,
fvals4.attribute4 bsla,
fvals4.attribute3 corp_code,
SUBSTR(gcc.segment1, 4, 3) bus_code,
gcc.segment3 ACCOUNT,
SUBSTR(gcc.segment3, 1, 3) cdr3,
fvals1.attribute2 loan_number,
segment1 || '.' || segment2 || '.' || segment3 || '.' ||
segment4 || '.' || segment5 account_flexfield,
bal.currency_code currency,
DECODE(bal.currency_code,
'USR',
0,
(BEGIN_BALANCE_DR_BEQ - BEGIN_BALANCE_CR_BEQ) + (PERIOD_NET_DR_BEQ - PERIOD_NET_CR_BEQ)) rpt_end_balance,
gcc.segment2 center,
gcc.segment4 analysis,
gcc.segment5 other,
DECODE(bal.currency_code,
'USR',
0,
(bal.begin_balance_dr - bal.begin_balance_cr) +
(bal.period_net_dr - period_net_cr)) orig_end_balance,
DECODE(bal.currency_code, 'USR', 0, bal.period_net_cr) orig_period_net_cr,
DECODE(bal.currency_code, 'USR', 0, bal.period_net_dr) orig_period_net_dr,
fvtl2.description account_description,
' ' centre_deal_id,
' ' functional_currency,
gcc.account_type account_type,
SUBSTR(gcc.segment3, 10, 3) sub_account,
fvtl3.description analysis_desc,
fvtl1.description cost_center_desc,
SUBSTR(gcc.segment1, 10, 1) gaap_ind,
' ' management_structure,
' ' sub_pl,
SUBSTR(gcc.segment3, 1, 6) cdr6,
SUBSTR(gcc.segment3, 1, 9) cdr9,
gcc.code_combination_id code_combination_id,
DECODE(BAL.CURRENCY_CODE,
'USR',0,
BAL.BEGIN_BALANCE_DR_BEQ - BAL.BEGIN_BALANCE_CR_BEQ) rpt_open_balance,
DECODE(BAL.CURRENCY_CODE,
'USR',
0,
BAL.BEGIN_BALANCE_DR - BAL.BEGIN_BALANCE_CR) orig_open_bal,
DECODE(BAL.CURRENCY_CODE,
'USR',0,
BAL.PERIOD_NET_DR_BEQ) rpt_net_dr,
DECODE(BAL.CURRENCY_CODE,
'USR',0,
BAL.PERIOD_NET_CR_BEQ) rpt_net_cr
FROM gl.gl_balances bal,
gl.gl_code_combinations gcc,
gl.gl_sets_of_books gsob,
applsys.fnd_flex_value_sets fsets1,
applsys.fnd_flex_values fvals1,
applsys.fnd_flex_values_tl fvtl1,
applsys.fnd_flex_value_sets fsets2,
applsys.fnd_flex_values fvals2,
applsys.fnd_flex_values_tl fvtl2,
applsys.fnd_flex_value_sets fsets3,
applsys.fnd_flex_values fvals3,
applsys.fnd_flex_values_tl fvtl3,
applsys.fnd_flex_value_sets fsets4,
applsys.fnd_flex_values fvals4,
applsys.fnd_flex_values_tl fvtl4,
applsys.fnd_flex_value_sets fsets5,
applsys.fnd_flex_values fvals5,
applsys.fnd_flex_values_tl fvtl5
WHERE bal.set_of_books_id = p_set_of_books_id
AND gsob.set_of_books_id= bal.set_of_books_id
AND bal.period_name = rec_periods.period_name
AND bal.code_combination_id = gcc.code_combination_id
AND bal.actual_flag = 'A'
AND bal.template_id IS NULL
AND (gcc.segment3 BETWEEN '000000000000' AND '499999999ZZZ' OR gcc.segment3 like '988%')
--AND gcc.segment1 like 'R%'
AND gcc.summary_flag = 'N'
AND fsets1.flex_value_set_name = 'GECS_CENTER'
AND fvtl1.LANGUAGE = 'US'
AND fsets2.flex_value_set_name = 'GE_ACCOUNT'
AND fvtl2.LANGUAGE = 'US'
AND fsets3.flex_value_set_name = 'GECS_ANALYSIS'
AND fvtl3.LANGUAGE = 'US'
AND fsets4.flex_value_set_name = 'GE_BLE_PARAMETERS'
AND fvtl4.LANGUAGE = 'US'
AND SUBSTR(gcc.segment1, 1, 9) = fvals4.flex_value
AND fsets5.flex_value_set_name = 'GECS_BSLA_BIZ_MAPPING'
AND fvtl5.LANGUAGE = 'US'
AND fvals5.attribute1 = 'EFS'
AND fsets1.flex_value_set_id = fvals1.flex_value_set_id
AND fvals1.flex_value_id = fvtl1.flex_value_id
--AND fvals1.ENABLED_FLAG = 'Y'
AND gcc.segment2 = fvals1.flex_value
AND fsets2.flex_value_set_id = fvals2.flex_value_set_id
AND fvals2.flex_value_id = fvtl2.flex_value_id
--AND fvals2.enabled_flag = 'Y'
AND gcc.segment3 = fvals2.flex_value
AND fsets3.flex_value_set_id = fvals3.flex_value_set_id
AND fvals3.flex_value_id = fvtl3.flex_value_id
--AND fvals3.enabled_flag = 'Y'
AND gcc.segment4 = fvals3.flex_value
AND fsets4.flex_value_set_id = fvals4.flex_value_set_id
AND fvals4.flex_value_id = fvtl4.flex_value_id
--AND fvals4.enabled_flag = 'Y'
AND fsets5.flex_value_set_id = fvals5.flex_value_set_id
AND fvals5.flex_value_id = fvtl5.flex_value_id
--AND fvals5.enabled_flag = 'Y'
AND fvals4.attribute4 = fvals5.flex_value;
COMMIT;
END IF ;
COMMIT;
END LOOP;
--Insert/Update last_run_time to sysdate for businesses
BEGIN
SELECT COUNT(1)
INTO gbal_any_run
FROM XXCUSTOM.glc_smart_stream_bal_ext_run
WHERE BUSINESS_CODE = p_business_id;
IF (gbal_any_run > 0) THEN
UPDATE XXCUSTOM.glc_smart_stream_bal_ext_run
SET LAST_RUN_TIME = SYSDATE
WHERE BUSINESS_CODE = p_business_id;
COMMIT;
ELSE
INSERT INTO XXCUSTOM.glc_smart_stream_bal_ext_run
(BUSINESS_CODE, LAST_RUN_TIME)
VALUES
(P_BUSINESS_ID, SYSDATE);
COMMIT;
END IF;
END;
apps.fnd_file.put_line(which => apps.fnd_file.log,
buff => 'commited records ' || lv_tot_count ||
' into into glc_smart_stream_bal_extract');
RETURN 0;
EXCEPTION
WHEN OTHERS THEN
apps.fnd_file.put_line(which => apps.fnd_file.log,
buff => 'ERROR IN populate_' || p_business_id ||
'_balances' || '-' || SQLCODE || '-' ||
SQLERRM);
RETURN 2;
END balances ;

Answer 1

Saypank wrote:
Already One function had in database now days it takes more time to execute
Please guide me how i tunning this code Are you sure that you want to put the code in beer casks?
http://www.yourdictionary.com/tunning
Assuming not.
HOW TO: Post a SQL statement tuning request
HOW TO: Post a SQL statement tuning request - template posting
When your query takes too long
When your query takes too long ...
Though looking at it quickly the main thing you want to do is remove all the loops and use set based SQL statements instead.
And remove all the when others exception hiders too.
http://tkyte.blogspot.com/2008/01/why-do-people-do-this.html
http://tkyte.blogspot.com/2008/06/when-others-then-null-redux.html