V
Example heading with h2 size
Example heading with h3 size
Following is sample java code.
int i = 10;
if(i>0){
System.out.println('positive');
}
CREATE OR REPLACE PROCEDURE GET_RP_DATA_REPHASEbackup13524(
P_ACCNO IN VARCHAR2,
P_OUT OUT SYS_REFCURSOR
)
AS
-- Declare variables for calculation
v_out_bal NUMBER;
v_rate NUMBER;
v_emi_amt NUMBER;
v_remaining_ten NUMBER;
BEGIN
-- Calculate v_out_bal
SELECT ABS(idbi.idbib_avg_vbal_acid@fin_cdp_live(acid, SYSDATE, SYSDATE, '01'))
INTO v_out_bal
FROM tbaadm.gam@fin_cdp_live
WHERE foracid = TRIM(P_ACCNO);
-- Calculate v_rate
SELECT idbi.retasst_getintrate@fin_cdp_live(acid, SYSDATE, '01')
INTO v_rate
FROM tbaadm.gam@fin_cdp_live
WHERE foracid = TRIM(P_ACCNO);
-- Calculate v_emi_amt
SELECT flow_amt
INTO v_emi_amt
FROM tbaadm.lrs@fin_cdp_live
WHERE acid = (SELECT acid FROM tbaadm.gam@fin_cdp_live WHERE foracid = TRIM(P_ACCNO))
AND current_int_rec_flg = 'Y'
AND LRS.FLOW_ID IN ('PRDEM', 'EIDEM')
AND lrs.del_flg != 'Y';
-- Calculate v_remaining_ten
SELECT ROUND(LN(v_emi_amt / (v_emi_amt - (v_rate / 12 / 100) * v_out_bal)) / LN(1 + (v_rate / 12 / 100)))
INTO v_remaining_ten
FROM dual;
-- Open cursor
OPEN P_OUT FOR
SELECT G.ACID,
IDBI.IBANK_INTT_RATE@FIN_CDP_LIVE(SYSDATE, G.ACID, G.SANCT_LIM, 'D', 'N', '01') RATE,
FORACID,
ACCT_NAME,
G.SOL_ID,
G.SANCT_LIM,
(CASE
WHEN entry_by IN ('AL', 'PL', 'EL') THEN
g.sol_id
ELSE
(SELECT SUBSTR(set_id, 4)
FROM tbaadm.sst@fin_cdp_live
WHERE bank_id = '01'
AND set_id LIKE 'RAC%'
AND sst.sol_id = g.sol_id
AND sst.del_flg != 'Y')
END) RAC_SOLID,
S.ENTRY_BY LOANTYPE,
G.SCHM_CODE,
S.REF_DESC SCHM_DESC,
(SELECT SOL_ID || ' - ' || SOL_DESC TEXT
FROM TBAADM.SOL@FIN_CDP_LIVE
WHERE DEL_FLG = 'N'
AND SOL_ID = G.SOL_ID) SOLDESC,
IDBI.IDBIB_OVERDUE_AMT@FIN_CDP_LIVE(G.ACID, SYSDATE, '01') OVERDUEAMT,
ABS(CLR_BAL_AMT) OUTSTANDINGAMT,
(SELECT LOAN_PAPER_DATE
FROM TBAADM.LHT@FIN_CDP_LIVE
WHERE ACID = G.ACID
AND SERIAL_NUM = (SELECT MAX(SERIAL_NUM)
FROM TBAADM.LHT@FIN_CDP_LIVE A
WHERE A.ACID = LHT.ACID
AND STATUS = 'A'
AND A.BANK_ID = '01')
AND STATUS = 'A'
AND BANK_ID = '01') HLAGDT,
CASE
WHEN FREE_TEXT IS NULL THEN
'3'
WHEN ROI_GET_ACCOUNTDETAILS(FREE_TEXT, 'LAP_BORW_TYPE') = 1 THEN
'1'
WHEN ROI_GET_ACCOUNTDETAILS(FREE_TEXT, 'LAP_BORW_TYPE') = 2 THEN
'2'
ELSE
'3'
END BORR_TYPE,
CASE
WHEN G.SCHM_CODE IN (SELECT SCHEMECODE
FROM ROI_SCHEME_LOAN_MASTER
WHERE LOAN_APPLIED = 3
AND ACTIVE = 1) THEN
'TOPUP'
ELSE
'NONE'
END TOPUPCASE,
CASE
WHEN DMD_SATISFY_MTHD = 'E' THEN
'SI/DM'
WHEN DMD_SATISFY_MTHD = 'N' THEN
'PDC'
WHEN DMD_SATISFY_MTHD = 'P' THEN
'PDC'
WHEN DMD_SATISFY_MTHD = 'D' THEN
'ECS'
END AS REPAYMENTMODE,
(SELECT REF_DESC
FROM tbaadm.rct@FIN_CDP_LIVE
WHERE ref_rec_type = '00'
AND rct.bank_id = '01'
AND ref_code = (SELECT borrower_category_code
FROM tbaadm.gac@FIN_CDP_LIVE
WHERE gac.acid = (SELECT gam.acid
FROM tbaadm.gam@FIN_CDP_LIVE
WHERE foracid = TRIM(P_ACCNO))
AND bank_id = '01')) AS BOR_DESC,
(SELECT idbi.ibank_intt_rate@FIN_CDP_LIVE(SYSDATE, gam.acid, gam.sanct_lim, 'D', 'N', '01')
FROM tbaadm.gam@FIN_CDP_LIVE
WHERE foracid = TRIM(P_ACCNO)) AS EXSISTING_ROI,
GET_RES_TENURE(TRIM(P_ACCNO)) AS restenure,
GET_RP_BENCH(TRIM(P_ACCNO)) AS int_regim,
NULL AS LOANEXPDATE,
SANCT_LIM AS loan_amount,
ABS(GET_SUSAGGRAMT(G.ACID, G.DRWNG_POWER, G.SANCT_LIM)) AGRILIM,
GET_HLAMOD2(TRIM(P_ACCNO)) AS HLAMOD2,
(SELECT main_classification_user
FROM tbaadm.acd@FIN_CDP_LIVE
WHERE b2k_id = (SELECT acid
FROM tbaadm.gam@FIN_CDP_LIVE
WHERE foracid = TRIM(P_ACCNO))
AND b2k_type = 'ACCNT') AS ACT_STATUS,
(SELECT OFLOW_AMT
FROM tbaadm.lam@FIN_CDP_LIVE, tbaadm.gam@FIN_CDP_LIVE
WHERE gam.acid = lam.acid
AND gam.del_flg = 'N'
AND gam.entity_cre_flg = 'Y'