General Ledger Interface i got a an answer ...

Question

Hi friends,
this program is working fine now check it ...
CREATE OR REPLACE PACKAGE BODY APPS.gl_interface_pkg
AS
PROCEDURE gl_interface_proc (errbuf OUT VARCHAR2, retcode OUT VARCHAR2)
IS
-- cursor declaration
CURSOR gl_cur
IS
SELECT *
FROM xtg_gl_interface_stg;
TYPE gl_data_tbl IS TABLE OF xtg_gl_interface_stg%ROWTYPE
INDEX BY BINARY_INTEGER;
rec_cur gl_data_tbl;
l_currencycode VARCHAR2 (25);
l_set_of_books_id NUMBER (5);
l_flag VARCHAR2 (2);
l_error_msg VARCHAR2 (100);
l_err_flag VARCHAR2 (10);
l_category VARCHAR2 (100);
l_userid NUMBER (10);
l_count NUMBER (9) DEFAULT 0;
BEGIN
DELETE FROM gl_interface;
COMMIT;
OPEN gl_cur;
FETCH gl_cur
BULK COLLECT INTO rec_cur;
CLOSE gl_cur;
FOR rec_cur IN gl_cur
LOOP
l_count := l_count + 1;
l_flag := 'A';
--Category Column Validation
BEGIN
SELECT user_je_category_name
INTO l_category
FROM gl_je_categories
WHERE user_je_category_name = rec_cur.user_je_category_name;
EXCEPTION
WHEN OTHERS
THEN
l_flag := 'E';
l_error_msg := 'Category does not exist ';
fnd_file.put_line
(fnd_file.LOG,
'Inserting data into the Interface TABLE'
|| '-'
|| l_count
|| ' '
|| l_error_msg
END;
--End Category Column Validation
--User ID column validation
BEGIN
SELECT user_id
INTO l_userid
FROM fnd_user
WHERE user_id = rec_cur.created_by;
EXCEPTION
WHEN OTHERS
THEN
l_flag := 'E';
l_error_msg := 'User ID does not exist ';
fnd_file.put_line
(fnd_file.LOG,
'Inserting data into the Interface TABLE'
|| '-'
|| l_count
|| ' '
|| l_error_msg
END;
--End of Created_by OR UserID column Validation
--Set of  books Validation
BEGIN
SELECT set_of_books_id
INTO l_set_of_books_id
FROM gl_sets_of_books
WHERE set_of_books_id = rec_cur.set_of_books_id;
EXCEPTION
WHEN OTHERS
THEN
l_flag := 'E';
l_error_msg := 'set of Books ID does not exist ';
fnd_file.put_line
(fnd_file.LOG,
'Inserting data into the Interface TABLE'
|| '-'
|| l_count
|| ' '
|| l_error_msg
END;
--Cuurency Code Validation
BEGIN
SELECT currency_code
INTO l_currencycode
FROM fnd_currencies
WHERE currency_code = rec_cur.currency_code
AND currency_code = 'USD';
EXCEPTION
WHEN OTHERS
THEN
l_flag := 'E';
l_error_msg := 'currency code does not exists';
fnd_file.put_line
(fnd_file.LOG,
'Inserting data into the Interface TABLE'
|| '-'
|| l_count
|| ' '
|| l_error_msg
END;
IF l_flag != 'E'
THEN
fnd_file.put_line (fnd_file.LOG,
'Inserting data into the Interface TABLE'
INSERT INTO gl_interface
(status, set_of_books_id,
accounting_date, currency_code,
date_created, created_by,
actual_flag, user_je_category_name,
user_je_source_name,
user_currency_conversion_type,
segment1, segment2,
segment3, segment4,
segment5, entered_dr,
entered_cr, accounted_dr,
accounted_cr, GROUP_ID,
reference1, reference2,
reference4, reference5
VALUES (rec_cur.status, rec_cur.set_of_books_id,
rec_cur.accounting_date, rec_cur.currency_code,
rec_cur.date_created, rec_cur.created_by,
rec_cur.actual_flag, rec_cur.user_je_category_name,
rec_cur.user_je_source_name,
rec_cur.user_currency_conversion_type,
rec_cur.segment1, rec_cur.segment2,
rec_cur.segment3, rec_cur.segment4,
rec_cur.segment5, rec_cur.entered_dr,
rec_cur.entered_cr, rec_cur.accounted_dr,
rec_cur.accounted_cr, rec_cur.GROUP_ID,
rec_cur.reference1, rec_cur.reference2,
rec_cur.reference4, rec_cur.reference5
END IF;
l_flag := NULL;
l_error_msg := NULL;
END LOOP;
COMMIT;
END;
END;
Edited by: sandeep on Jul 14, 2011 9:54 AM
Edited by: sandeep on Jul 14, 2011 6:15 PM
Edited by: sandeep on Jul 14, 2011 6:17 PM

Answer 1

Hello,
I think the way you define your variables are not correct..
Try doing this for all your variables:
TYPE status_TBL IS TABLE OF gl_interface.status%TYPE INDEX BY PLS_INTEGER;
TYPE set_of_books_id_TBL IS TABLE OF gl_interface.set_of_books_id%TYPE INDEX BY PLS_INTEGER;
+...+
+...+
TYPE reference5_TBL IS TABLE OF gl_interface.reference5%TYPE INDEX BY PLS_INTEGER;
v_status status_TBL;
v_set_of_books_id set_of_books_id_TBL;
+...+
+...+
v_reference5  reference5_TBL;
Hope this help,
Vikram