ORA-6502, "PL/SQL numeric or value error"

Question

I am having the [ORA-6502, "PL/SQL numeric or value error"] error when I call this procedure in PRE-INSERT trigger.
CREATE OR REPLACE PROCEDURE L_CHECK_BAL_AMOUNT(P_TXN_CODE IN VARCHAR2,
P_ABAL_MAIN_ACNT_CODE IN VARCHAR2,
P_TD_DOC_DRCR_FLAG IN VARCHAR2,
P_TXN_AMOUNT IN NUMBER) IS
CURSOR C1 IS
SELECT TRAN_CASH_BANK_FLAG
FROM FM_TRANSACTION
WHERE TRAN_CODE = P_TXN_CODE;
CURSOR C2 IS
SELECT nvl(SUM(NVL(ABAL_LC_MTD_DR,0)) - SUM(NVL(ABAL_LC_MTD_CR,0)) + SUM(NVL(ABAL_LC_UNP_DR,0)) - SUM(NVL(ABAL_LC_UNP_CR,0)),0)
FROM FS_CUR_ACNT_BAL
WHERE ABAL_MAIN_ACNT_CODE = P_ABAL_MAIN_ACNT_CODE
AND EXISTS (SELECT 'X' FROM FM_MAIN_ACCOUNT
WHERE MAIN_ACNT_CATG IN ('CA','BA')
AND MAIN_ACNT_CODE = ABAL_MAIN_ACNT_CODE)
GROUP BY ABAL_MAIN_ACNT_CODE;
M_BAL_AMOUNT NUMBER(20);
M_CASH_BANK_FLAG OW_FS.FLAG%TYPE;
BEGIN
IF P_ABAL_MAIN_ACNT_CODE IS NOT NULL THEN
insert into temp values('01',P_TXN_CODE);
insert into temp values('02',P_ABAL_MAIN_ACNT_CODE);
insert into temp values('03',P_TD_DOC_DRCR_FLAG);
insert into temp values('04',P_TXN_AMOUNT);
commit;
IF NVL(P_TD_DOC_DRCR_FLAG,'X') = 'C' THEN
insert into temp values('3',P_TD_DOC_DRCR_FLAG);
commit;
IF C1%ISOPEN THEN
CLOSE C1;
END IF;
OPEN C1;
FETCH C1 INTO M_BAL_AMOUNT; --------ERROR HERE-----------
IF C1%FOUND THEN
insert into temp values('2','c1 found');
commit;
END IF;
CLOSE C1;
END IF;
END IF;
END;
can anybody tell me why the error is coming...?
The value for the CURSOR C2 is (-1335142)
Thanks

Answer 1

yes correct. the procedure would have been written like this.(see cursor C1 and C2)
CREATE OR REPLACE PROCEDURE L_CHECK_BAL_AMOUNT(P_TXN_CODE IN VARCHAR2,
P_ABAL_MAIN_ACNT_CODE IN VARCHAR2,
P_TD_DOC_DRCR_FLAG IN VARCHAR2,
P_TXN_AMOUNT IN NUMBER) IS
CURSOR C2 IS
SELECT TRAN_CASH_BANK_FLAG
FROM FM_TRANSACTION
WHERE TRAN_CODE = P_TXN_CODE;
CURSOR C1 IS
SELECT nvl(SUM(NVL(ABAL_LC_MTD_DR,0)) - SUM(NVL(ABAL_LC_MTD_CR,0)) + SUM(NVL(ABAL_LC_UNP_DR,0)) - SUM(NVL(ABAL_LC_UNP_CR,0)),0)
FROM FS_CUR_ACNT_BAL
WHERE ABAL_MAIN_ACNT_CODE = P_ABAL_MAIN_ACNT_CODE
AND EXISTS (SELECT 'X' FROM FM_MAIN_ACCOUNT
WHERE MAIN_ACNT_CATG IN ('CA','BA')
AND MAIN_ACNT_CODE = ABAL_MAIN_ACNT_CODE)
GROUP BY ABAL_MAIN_ACNT_CODE;
M_BAL_AMOUNT NUMBER(20);
M_CASH_BANK_FLAG OW_FS.FLAG%TYPE;
BEGIN
IF P_ABAL_MAIN_ACNT_CODE IS NOT NULL THEN
insert into temp values('01',P_TXN_CODE);
insert into temp values('02',P_ABAL_MAIN_ACNT_CODE);
insert into temp values('03',P_TD_DOC_DRCR_FLAG);
insert into temp values('04',P_TXN_AMOUNT);
commit;
IF NVL(P_TD_DOC_DRCR_FLAG,'X') = 'C' THEN
insert into temp values('3',P_TD_DOC_DRCR_FLAG);
commit;
IF C1%ISOPEN THEN
CLOSE C1;
END IF;
OPEN C1;
FETCH C1 INTO M_BAL_AMOUNT; --------ERROR HERE-----------
IF C1%FOUND THEN
insert into temp values('2','c1 found');
commit;
END IF;
CLOSE C1;
END IF;
END IF;
END;
/