Procedure performance

Question

Hi,
Can any one please suggest how to increase performance of the below procedure as it is writing 20 records at a time.
CREATE OR REPLACE PROCEDURE NTFUNDPROC.TLM_AR_ASSET_PROOF_exp_SP (
P_PHONE IN VARCHAR2,
P_CLIENT IN VARCHAR2,
P_MANAGER IN VARCHAR2,
P_ACCOUNTANT IN VARCHAR2,
P_VALUE_DATE_D IN DATE,
P_INVMGR IN VARCHAR2,
PO_STCK_STOL_CUR OUT COMMON_PKG.REF_CUR
AS
PROCEDURE NAME:TLM_AR_STCK_REC_ASSET_PROOF_SP
**********************REVISION HISTORY*************************************
AUTHOR :TCS OFFSHORE TEAM
CREATED ON :2010-MAY-28
DESCRIPTION :PROVIDES OUR & THEIR SIDE ACTUAL AND DERIVED BALANCE INFORMATION
VERSION :1.0
/* DECLARATION OF VARIABLES */
P_PROCESSING_GROUP_C VARCHAR2(20);
P_CLIENT_C VARCHAR2(20);
P_MANAGER_C VARCHAR2(20);
P_ACCOUNTANT_C VARCHAR2(20);
P_ACC_NO_C VARCHAR2(60);
P_CORR_ACC_NO_N NUMBER;
P_COR_ACC_NO_N NUMBER;
P_STOCK_CODE_C VARCHAR2(140);
P_SEC_DESC_C VARCHAR2(200);
P_STOCK_ID_N NUMBER;
P_MATCH_NO_N NUMBER;
P_LS_TYPE_N NUMBER;
P_ENTRY_DATE DATE;
P_RUN_DATE DATE;
P_OUR_ISIN_N VARCHAR2(50);
P_OUR_SEDOL_N VARCHAR2(50);
P_OUR_CUSIP_N VARCHAR2(50);
P_OUR_STOCK_C VARCHAR2(50);
P_THEIR_STOCK_C VARCHAR2(50);
P_OUR_SIDE_ACTUAL_BAL_N NUMBER;
P_THEIR_SIDE_ACTUAL_BAL_N NUMBER;
P_OUR_SIDE_DIFFERENCE NUMBER;
P_OUR_SIDE_DERIVED_BAL_N NUMBER;
P_THEIR_SIDE_DERIVED_BAL_N NUMBER;
P_THEIR_SIDE_DIFFERENCE NUMBER;
P_CNTR_N NUMBER;
P_CNTR1_N NUMBER;
P_COMMS_C VARCHAR2(60);
P_SYS_ENTRY_DATE DATE;
P_LC_ACC_NO_C VARCHAR2(60);
P_VALUE_DATE DATE;
P_PARAM_DATE DATE;
P_OUR_SEC_DESC_C VARCHAR2(100);
P_THEIR_SEC_DESC_C VARCHAR2(100);
p_account_C VARCHAR2(200);
p_search_result_c number;
p_str_c varchar2(600);
p_sr_acc_result_c number;
p_sr_PG_result_c number;
p_sr_mgr_result_c number;
p_sr_clnt_result_c number;
p_str_clnt_c varchar2(500);
p_str_mgr_c varchar2(500);
p_str_PG_c varchar2(500);
p_str_acc_c varchar2(500);
p_our_side_n number;
p_their_side_n number;
p_our_derived_n number;
p_our_actual_n number;
p_their_derived_n number;
p_their_actual_n number;
/* DECLARATION OF CURSORS */
CURSOR FUND_PARAM IS
SELECT ACC_NO,VALUE_DATE FROM NTFUNDDBO.TLM_FUND_RPT_PARAM WHERE TRGNAME IN(SELECT PROCESSING_GROUP FROM TEMP_asset_proof_PG);
--and acc_no='1794371S' ;
CURSOR BANK_ITEM_CURSOR IS
SELECT distinct PHONE,FAX,TELEX,SWIFT_ADDR,BANK.LOCAL_ACC_NO,BANK.CORR_ACC_NO
FROM SSRFUND.BANK BANK
WHERE BANK.LOCAL_ACC_NO=P_LC_ACC_NO_C AND
BANK.PHONE IN(SELECT PROCESSING_GROUP FROM TEMP_asset_proof_PG) AND
BANK.FAX IN(SELECT manager FROM temp_asset_proof_mgr) AND
BANK.SWIFT_ADDR IN(SELECT client FROM temp_asset_proof_clnt) AND
BANK.TELEX IN(SELECT accountant FROM temp_asset_proof_acct) AND
BANK.PHONE >' '
order BY PHONE,FAX,TELEX,SWIFT_ADDR,BANK.LOCAL_ACC_NO,BANK.CORR_ACC_NO;
CURSOR ITEM_CURSOR IS
SELECT distinct Item.stock_id,t.stock_code,
decode(s.stock_desc,' ',t.stock_code||' (UNKNOWN)',null,t.stock_code||' (UNKNOWN)',s.stock_desc),max(value_date)
FROM SSRFUND.ITEM Item,ssrfund.stol t,ssrfund.stck s
where --Item.CORR_ACC_NO=100008390 and
Item.CORR_ACC_NO=p_corr_acc_no_n and
Item.stock_id=t.stock_id and
t.stock_id=s.stock_id(+) and
t.stock_code=s.stock_code(+) and
--t.stock_code='F851411' and
t.stock_code_type='0'
AND item.value_date<=p_sys_entry_Date
group by Item.stock_id,t.stock_code,
decode(s.stock_desc,' ',t.stock_code||' (UNKNOWN)',null,t.stock_code||' (UNKNOWN)',s.stock_desc);
cursor str_match_cursor is
WITH RES_SET AS
(SELECT
item.CORR_ACC_NO,
CASE WHEN ITEM.LS_TYPE IN (90,140,180)
THEN ITEM.string_21
ELSE ' ' END "ISIN",
CASE WHEN ITEM.LS_TYPE IN (90,140,180)
THEN ITEM.string_19
ELSE ' ' END "SEDOL",
CASE WHEN ITEM.LS_TYPE IN (90,140,180)
THEN ITEM.string_23
ELSE ' ' END "CUSIP",
CASE WHEN ITEM.LS_TYPE NOT IN (90,140,180)
THEN ITEM.sFIELD_8
ELSE ' ' END "THEIR_STOCK",
CASE WHEN ITEM.LS_TYPE IN (90,140,180)
THEN ITEM.SFIELD_8
ELSE ' ' END "OUR_STOCK",
CASE WHEN ITEM.LS_TYPE IN (90,140,180)
THEN ITEM.SFIELD_9
ELSE ' ' END "OUR_SECURITY_DESCRIPTION",
CASE WHEN ITEM.LS_TYPE not IN (90,140,180)
THEN ITEM.SFIELD_9
ELSE ' ' END "THEIR_SECURITY_DESCRIPTION",
SUM(CASE WHEN FLAG_2 IN (0,1)
THEN CASE WHEN LS_TYPE IN (90,180)
THEN ITEM.AMOUNT
WHEN LS_TYPE IN (140)
THEN -1*ITEM.AMOUNT
ELSE 0 END
ELSE 0
END) "OUR_SIDE_DERIVED",
SUM(CASE WHEN FLAG_2 = 4
AND trunc(ITEM.VALUE_DATE) = p_value_date--REPLACE INPUT DATE HERE
THEN CASE WHEN LS_TYPE IN (90,180)
THEN ITEM.AMOUNT
WHEN LS_TYPE IN (140)
THEN -1*ITEM.AMOUNT
ELSE 0 END
ELSE 0
END) "OUR_SIDE_ACTUAL",
SUM(CASE WHEN FLAG_2 IN (0,1)
AND LS_TYPE NOT IN (90,140,180,170,171,190)
THEN ITEM.AMOUNT
ELSE 0
END ) "THEIR_SIDE_DERIVED",
SUM(CASE WHEN FLAG_2 = 4
AND LS_TYPE NOT IN (90,140,180)
AND trunc(ITEM.VALUE_DATE) = p_value_date--REPLACE INPUT DATE HERE
THEN CASE WHEN LS_TYPE NOT IN (170,171,190)
THEN -1*ITEM.AMOUNT
ELSE ITEM.AMOUNT
END
ELSE 0
END) "THEIR_SIDE_ACTUAL"
FROM SSRFUND.ITEM item
WHERE item.corr_acc_no=P_CORR_ACC_NO_N AND
ITEM.SFIELD_8=P_STOCK_CODE_C
and (ITEM.FLAG_2 =0 or ITEM.FLAG_2 =1 or ITEM.FLAG_2 =4)
AND trunc(ITEM.VALUE_DATE) <= p_value_date
GROUP BY
item.CORR_ACC_NO,
cASE WHEN ITEM.LS_TYPE IN (90,140,180)
THEN ITEM.string_19
ELSE ' ' END ,
CASE WHEN ITEM.LS_TYPE IN (90,140,180)
THEN ITEM.string_21
ELSE ' ' END ,
CASE WHEN ITEM.LS_TYPE IN (90,140,180)
THEN ITEM.string_23
ELSE ' ' END ,
CASE WHEN ITEM.LS_TYPE NOT IN (90,140,180)
THEN ITEM.sFIELD_8
ELSE ' ' END,
CASE WHEN ITEM.LS_TYPE IN (90,140,180)
THEN ITEM.SFIELD_8
ELSE ' ' END,
CASE WHEN ITEM.LS_TYPE IN (90,140,180)
THEN ITEM.SFIELD_9
ELSE ' ' END ,
CASE WHEN ITEM.LS_TYPE not IN (90,140,180)
THEN ITEM.SFIELD_9
ELSE ' ' END
select NVL(ours.corr_acc_no,THEIRS.CORR_ACC_NO),
ours.ISIN,
ours.SEDOL,
ours.CUSIP,
Theirs.THEIR_STOCK,
OURS.OUR_STOCK,
OURS.OUR_SECURITY_DESCRIPTION,
THEIRS.THEIR_SECURITY_DESCRIPTION,
SUM(OURS.OUR_SIDE_DERIVED),
SUM(OURS.OUR_SIDE_ACTUAL),
SUM(THEIRS.THEIR_SIDE_DERIVED),
SUM(THEIRS.THEIR_SIDE_ACTUAL)
FROM RES_SET theirs left outer join RES_SET ours on
( theirs.CORR_ACC_NO = ours.CORR_ACC_NO)
where ( theirs.their_stock<>' ' or ours.our_stock<>' ')
and (THEIRS.THEIR_STOCK =OURS.OUR_STOCK or theirs.their_STOCK = ours.ISIN OR theirs.their_STOCK = ours.SEDOL OR
theirs.their_STOCK = ours.CUSIP )
GROUP BY NVL(ours.corr_acc_no,THEIRS.CORR_ACC_NO),ours.ISIN,
ours.SEDOL, ours.CUSIP,THEIRS.THEIR_STOCK,OURS.OUR_STOCK, OURS.OUR_SECURITY_DESCRIPTION,
THEIRS.THEIR_SECURITY_DESCRIPTION
union all
select NVL(ours.corr_acc_no,THEIRS.CORR_ACC_NO),
ours.ISIN,
ours.SEDOL,
ours.CUSIP,
Theirs.THEIR_STOCK,
OURS.OUR_STOCK,
OURS.OUR_SECURITY_DESCRIPTION,
THEIRS.THEIR_SECURITY_DESCRIPTION,
SUM(OURS.OUR_SIDE_DERIVED),
SUM(OURS.OUR_SIDE_ACTUAL),
SUM(THEIRS.THEIR_SIDE_DERIVED),
SUM(THEIRS.THEIR_SIDE_ACTUAL)
FROM RES_SET theirs , RES_SET ours where
( theirs.CORR_ACC_NO = ours.CORR_ACC_NO)
and ( theirs.their_stock<>' ' or ours.our_stock<>' ')
and (THEIRS.THEIR_STOCK <>OURS.OUR_STOCK and theirs.their_STOCK <>ours.ISIN and theirs.their_STOCK <> ours.SEDOL and
theirs.their_STOCK <> ours.CUSIP )
GROUP BY NVL(ours.corr_acc_no,THEIRS.CORR_ACC_NO),ours.ISIN,
ours.SEDOL, ours.CUSIP,THEIRS.THEIR_STOCK,OURS.OUR_STOCK, OURS.OUR_SECURITY_DESCRIPTION,
THEIRS.THEIR_SECURITY_DESCRIPTION ;
/* PROCESSING OF THE REPORT BEGINS */
BEGIN
/* DELETING THE ROWS FROM TEMPORARAY TABLE */
EXECUTE IMMEDIATE 'TRUNCATE TABLE TBL_ASSET_PROOF_exp_TEMP';
execute immediate 'truncate table temp_asset_proof_mgr_exp';
execute immediate 'truncate table temp_asset_proof_mgr_str_exp';
execute immediate 'truncate table temp_asset_proof_acct_exp';
execute immediate 'truncate table temp_asset_proof_acct_str_exp';
execute immediate 'truncate table temp_asset_proof_clnt_exp';
execute immediate 'truncate table temp_asset_proof_clnt_str_exp';
execute immediate 'truncate table temp_asset_proof_pg_exp';
execute immediate 'truncate table temp_asset_proof_pg_str_exp';
/* BASED ON VALUES OF INPUT PARAMETERS FOR LOCAL VARIABLES ASSUME VALUES AS FOLLOWS */
IF (P_PHONE IS NULL OR P_PHONE = COMMON_PKG.PG_ALL_CONST_C) THEN
INSERT INTO temp_asset_proof_pg_exp (select distinct PHONE from ssrfund.bank where phone>' ' );
commit;
ELSE
p_sr_PG_result_c:=instr(P_PHONE,',');
if ( p_sr_PG_result_c=0 ) then
P_PROCESSING_GROUP_C:= P_PHONE;
INSERT INTO temp_asset_proof_pg_exp values ( P_PROCESSING_GROUP_C);
commit;
else
p_sr_PG_result_c:=instr(P_PHONE,',');
if ( p_sr_PG_result_c<>0 ) then
p_str_PG_c := P_PHONE||',';
INSERT INTO temp_asset_proof_pg_STR_exp VALUES(p_str_PG_c);
COMMIT;
INSERT INTO temp_asset_proof_pg_exp
select substr( string_cOL
, decode( level, 1, 1, instr(string_cOL,',',1,level-1)+1)
, decode( instr(string_cOL,',',1,level), 0, length(string_cOL),
instr(string_cOL,',',1,level) - decode( level, 1, 0, instr(string_cOL,',',1,level-1))-1)
) the_value
from ( select string_cOL
from temp_asset_proof_pg_str_exp WHERE string_cOL>' ' )
connect by level <= length(string_cOL)-length(replace(string_cOL,','));
commit;
end if;
end if;
END IF;
IF (P_MANAGER IS NULL OR P_MANAGER = COMMON_PKG.PG_ALL_CONST_C) THEN
INSERT INTO temp_asset_proof_mgr_exp (select distinct fax from ssrfund.bank );
commit;
ELSE
p_sr_mgr_result_c:=instr(P_manager,',');
if ( p_sr_mgr_result_c=0 ) then
P_manager_C:= P_manager;
INSERT INTO temp_asset_proof_mgr_STR_exp values ( P_manager_C);
commit;
else
p_sr_mgr_result_c:=instr(P_manager,',');
if ( p_sr_mgr_result_c<>0 ) then
p_str_mgr_c := P_manager||',';
INSERT INTO temp_asset_proof_mgr_str_exp VALUES(p_str_mgr_c);
COMMIT;
INSERT INTO temp_asset_proof_mgr_exp
select substr( string_cOL
, decode( level, 1, 1, instr(string_cOL,',',1,level-1)+1)
, decode( instr(string_cOL,',',1,level), 0, length(string_cOL),
instr(string_cOL,',',1,level) - decode( level, 1, 0, instr(string_cOL,',',1,level-1))-1)
) the_value
from ( select string_cOL
from temp_asset_proof_mgr_str_exp WHERE string_cOL>' ' )
connect by level <= length(string_cOL)-length(replace(string_cOL,','));
commit;
end if;
end if;
END IF;
IF (P_ACCOUNTANT IS NULL OR P_ACCOUNTANT = COMMON_PKG.PG_ALL_CONST_C) THEN
INSERT INTO temp_asset_proof_acct_exp (select distinct telex from ssrfund.bank );
commit;
ELSE
p_sr_acc_result_c:=instr(P_ACCOUNTANT,',');
if ( p_sr_acc_result_c=0 ) then
P_ACCOUNTANT_C:= P_ACCOUNTANT;
INSERT INTO temp_asset_proof_acct_exp values ( P_ACCOUNTANT_C);
commit;
else
p_sr_acc_result_c:=instr(P_ACCOUNTANT,',');
if ( p_sr_acc_result_c<>0 ) then
p_str_acc_c := P_ACCOUNTANT||',';
INSERT INTO temp_asset_proof_acct_str_exp VALUES(p_str_acc_c);
COMMIT;
INSERT INTO temp_asset_proof_acct_exp
select substr( string_cOL
, decode( level, 1, 1, instr(string_cOL,',',1,level-1)+1)
, decode( instr(string_cOL,',',1,level), 0, length(string_cOL),
instr(string_cOL,',',1,level) - decode( level, 1, 0, instr(string_cOL,',',1,level-1))-1)
) the_value
from ( select string_cOL
from temp_asset_proof_acct_str_exp WHERE string_cOL>' ' )
connect by level <= length(string_cOL)-length(replace(string_cOL,','));
commit;
end if;
end if;
END IF;
IF (P_CLIENT IS NULL OR P_CLIENT = COMMON_PKG.PG_ALL_CONST_C) THEN
INSERT INTO temp_asset_proof_clnt_exp ( select distinct swift_addr from ssrfund.bank);
commit;
ELSE
p_sr_clnt_result_c:=instr(P_CLIENT,',');
if ( p_sr_clnt_result_c=0 ) then
P_CLIENT_C:= P_CLIENT;
INSERT INTO temp_asset_proof_clnt_exp values ( P_CLIENT_C);
commit;
else
p_sr_clnt_result_c:=instr(P_CLIENT,',');
if ( p_sr_clnt_result_c<>0 ) then
p_str_clnt_c := P_CLIENT||',';
INSERT INTO temp_asset_proof_clnt_str_exp VALUES(p_str_clnt_c);
COMMIT;
INSERT INTO temp_asset_proof_clnt_exp
select substr( string_cOL
, decode( level, 1, 1, instr(string_cOL,',',1,level-1)+1)
, decode( instr(string_cOL,',',1,level), 0, length(string_cOL),
instr(string_cOL,',',1,level) - decode( level, 1, 0, instr(string_cOL,',',1,level-1))-1)
) the_value
from ( select string_cOL
from temp_asset_proof_clnt_str_exp WHERE string_cOL>' ' )
connect by level <= length(string_cOL)-length(replace(string_cOL,','));
commit;
end if;
end if;
END IF;
IF P_VALUE_DATE_D IS NULL THEN
P_SYS_ENTRY_DATE:=SYSDATE;
ELSE
P_SYS_ENTRY_DATE:=P_VALUE_DATE_D;
END IF;
IF (P_INVMGR IS NULL OR P_INVMGR = COMMON_PKG.PG_ALL_CONST_C) THEN
P_COMMS_C:= COMMON_PKG.PG_LIKE_CONST_C;
ELSE
P_COMMS_C:= P_INVMGR;
END IF;
/* FETCHING ROWS FROM CURSORS */
OPEN FUND_PARAM;
LOOP
FETCH FUND_PARAM INTO P_LC_ACC_NO_C,P_PARAM_DATE;
EXIT WHEN (FUND_PARAM%NOTFOUND);
OPEN BANK_ITEM_CURSOR;
LOOP
FETCH BANK_ITEM_CURSOR INTO P_PROCESSING_GROUP_C,P_MANAGER_C, P_ACCOUNTANT_C,P_CLIENT_C,P_ACC_NO_C,P_CORR_ACC_NO_N;
EXIT WHEN (BANK_ITEM_CURSOR%NOTFOUND);
P_CNTR_N:=0;
OPEN ITEM_CURSOR;
LOOP
FETCH ITEM_CURSOR INTO P_STOCK_ID_N,P_STOCK_CODE_C,P_SEC_DESC_C,p_value_date;
EXIT WHEN (ITEM_CURSOR%NOTFOUND);
P_CNTR1_N:=0;
OPEN str_match_cursor;
loop
fetch str_match_cursor into P_COR_ACC_NO_N,P_OUR_ISIN_N,P_OUR_SEDOL_N,P_OUR_CUSIP_N,P_THEIR_STOCK_C,P_OUR_STOCK_C,
P_OUR_SEC_DESC_C,P_THEIR_SEC_DESC_C,P_OUR_SIDE_DERIVED_BAL_N,P_OUR_SIDE_ACTUAL_BAL_N,P_THEIR_SIDE_DERIVED_BAL_N,
P_THEIR_SIDE_ACTUAL_BAL_N;
EXIT WHEN (STR_MATCH_CURSOR%NOTFOUND);
P_CNTR_N:=P_CNTR_N+1;
P_CNTR1_N:=P_CNTR1_N+1;
INSERT INTO TBL_ASSET_PROOF_EXP_TEMP VALUES(P_PROCESSING_GROUP_C,P_MANAGER_C, P_ACCOUNTANT_C,P_CLIENT_C,P_ACC_NO_C,
P_CORR_ACC_NO_N,p_value_date,P_STOCK_ID_N,P_STOCK_CODE_C,P_STOCK_CODE_C,P_SEC_DESC_C,P_COR_ACC_NO_N,
P_OUR_ISIN_N,P_OUR_SEDOL_N,P_OUR_CUSIP_N,P_THEIR_STOCK_C,P_OUR_STOCK_C,P_OUR_SEC_DESC_C,P_THEIR_SEC_DESC_C,
P_OUR_SIDE_DERIVED_BAL_N,P_OUR_SIDE_ACTUAL_BAL_N,NULL,P_THEIR_SIDE_DERIVED_BAL_N,P_THEIR_SIDE_ACTUAL_BAL_N,
NULL,'ALL',sysdate);
COMMIT;
END LOOP;
CLOSE str_match_cursor;
IF P_CNTR1_N=0 THEN
INSERT INTO TBL_ASSET_PROOF_EXP_TEMP VALUES( P_PROCESSING_GROUP_C,P_MANAGER_C, P_ACCOUNTANT_C,P_CLIENT_C,P_ACC_NO_C,
P_CORR_ACC_NO_N,p_value_date,P_STOCK_ID_N,P_STOCK_CODE_C,P_STOCK_CODE_C,P_SEC_DESC_C,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
NULL,NULL,NULL,NULL,NULL,NULL,'ALL',sysdate);
COMMIT;
END IF;
END LOOP;
CLOSE ITEM_CURSOR;
IF P_CNTR_N=0 THEN
INSERT INTO TBL_ASSET_PROOF_EXP_TEMP VALUES( P_PROCESSING_GROUP_C,P_MANAGER_C, P_ACCOUNTANT_C,P_CLIENT_C,P_ACC_NO_C,
P_CORR_ACC_NO_N,p_value_date,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
NULL,NULL,NULL,NULL,NULL,NULL,null,'ALL',sysdate);
COMMIT;
END IF;
END LOOP;
CLOSE BANK_ITEM_CURSOR;
IF P_CORR_ACC_NO_N is null THEN
INSERT INTO TBL_ASSET_PROOF_EXP_TEMP VALUES( null,null, null,null,null,
null,null,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
NULL,NULL,NULL,NULL,NULL,NULL,null,null,null);
COMMIT;
END IF;
END LOOP;
CLOSE FUND_PARAM;
UPDATE TBL_ASSET_PROOF_EXP_TEMP SET OUR_SIDE_DIFFERENCE=(NVL(OUR_SIDE_DERIVED_BAL,0)-NVL(OUR_SIDE_ACTUAL_BAL,0)),
THEIR_SIDE_DIFFERENCE=(NVL(THEIR_SIDE_DERIVED_BAL,0)-NVL(THEIR_SIDE_ACTUAL_BAL,0))
WHERE OUR_SIDE_DIFFERENCE IS NULL AND THEIR_SIDE_DIFFERENCE IS NULL;
COMMIT;
/* SELECT ALL THE FIELDS OF TBL_ASSET_PROOF_TEMP FINAL OUTPUT REF CURSOR */
select SUM(NVL(OUR_SIDE_DERIVED_BAL,0)),SUM(NVL(OUR_SIDE_ACTUAL_BAL,0)),SUM(NVL(OUR_SIDE_DIFFERENCE,0)),
SUM(NVL(THEIR_SIDE_DERIVED_BAL,0)),SUM(NVL(THEIR_SIDE_ACTUAL_BAL,0)),SUM( NVL(THEIR_SIDE_DIFFERENCE,0))
into p_our_derived_n,p_our_actual_n,p_our_side_n,p_their_derived_n,p_their_actual_n,p_their_side_n
FROM NTFUNDPROC.TBL_ASSET_PROOF_EXP_TEMP;
if(p_our_derived_n<>0 and p_our_actual_n<>0 and p_our_side_n=0 and p_their_derived_n=0 and p_their_actual_n=0 and
p_their_side_n=0) then
OPEN PO_STCK_STOL_CUR FOR
select null PROCESSING_GROUP,null MANAGER,null ACCOUNTANT,null CLIENT,null LOCAL_ACC_NO,null CORR_ACC_NO,null VALUE_DATE,null STOCK_ID,
null STOCK_CODE,null PRIMARY_CODE,'No Exceptions to Report' SECURITY_DESC,null OUR_SIDE_DERIVED_BAL,null OUR_SIDE_ACTUAL_BAL,
null OUR_SIDE_DIFFERENCE,null THEIR_SIDE_DERIVED_BAL,null THEIR_SIDE_ACTUAL_BAL,null THEIR_SIDE_DIFFERENCE,null invmgr,null run_date
from TBL_ASSET_PROOF_EXP_TEMP;
else
OPEN PO_STCK_STOL_CUR FOR
SELECT distinct PROCESSING_GROUP,MANAGER,ACCOUNTANT,CLIENT,LOCAL_ACC_NO,CORR_ACC_NO,VALUE_DATE,NVL(STOCK_ID,0) STOCK_ID,
NVL(STOCK_CODE,0) STOCK_CODE,NVL(PRIMARY_CODE,0) PRIMARY_CODE ,SECURITY_DESC,
SUM(NVL(OUR_SIDE_DERIVED_BAL,0)) OUR_SIDE_DERIVED_BAL,SUM(NVL(OUR_SIDE_ACTUAL_BAL,0)) OUR_SIDE_ACTUAL_BAL,
SUM(NVL(OUR_SIDE_DIFFERENCE,0)) OUR_SIDE_DIFFERENCE,SUM(NVL(THEIR_SIDE_DERIVED_BAL,0)) THEIR_SIDE_DERIVED_BAL,
SUM(NVL(THEIR_SIDE_ACTUAL_BAL,0)) THEIR_SIDE_ACTUAL_BAL,SUM( NVL(THEIR_SIDE_DIFFERENCE,0)) THEIR_SIDE_DIFFERENCE,
invmgr,run_date
FROM NTFUNDPROC.TBL_ASSET_PROOF_EXP_TEMP
where (NVL(OUR_SIDE_DIFFERENCE,0))=0 or ( NVL(THEIR_SIDE_DIFFERENCE,0))=0
GROUP BY PROCESSING_GROUP,MANAGER,ACCOUNTANT,CLIENT,LOCAL_ACC_NO,CORR_ACC_NO,VALUE_DATE,NVL(STOCK_ID,0) ,
NVL(STOCK_CODE,0) ,NVL(PRIMARY_CODE,0) ,SECURITY_DESC,INVMGR,RUN_DATE
ORDER BY PROCESSING_GROUP,MANAGER,ACCOUNTANT,CLIENT,LOCAL_ACC_NO,CORR_ACC_NO,VALUE_DATE,
NVL(STOCK_ID,0),NVL(STOCK_CODE,0),NVL(PRIMARY_CODE,0);
end if;
EXCEPTION
WHEN OTHERS THEN
RAISE_APPLICATION_ERROR (-20001, SQLERRM);
END;
GRANT EXECUTE ON NTFUNDPROC.TLM_AR_ASSET_PROOF_exp_SP TO NTFUND_USER
/

Answer 1

user12852882 wrote:
can u suggest the any one of the logic.With the information given, no.
You need to provide the following information:
1. Oracle version (SELECT * FROM V$VERSION)
2. Sample data in the form of CREATE / INSERT statements.
3. Expected output
4. Explanation of expected output (A.K.A. "business logic")
5. Use \ tags for #2 and #3. See FAQ (Link on top right side) for details.