Hi,
Could you suggest on below, I need to update the record after inserting to table xxbic_aop_inv_ext.
PROCEDURE main(errbuf OUT VARCHAR2,
retcode OUT NUMBER)
IS
CURSOR cur_bo_file_ext
IS
SELECT *
FROM xxaop_div_op;
TYPE p_get_records IS TABLE OF cur_bo_file_ext%ROWTYPE
INDEX BY BINARY_INTEGER;
l_get_records p_get_records;
l_acct_number VARCHAR2(30);
l_attr_15 VARCHAR2(150);
l_next_check VARCHAR2(1);
BEGIN
l_get_records.DELETE;
OPEN cur_bo_file_ext;
LOOP
FETCH cur_bo_file_ext
BULK COLLECT INTO l_get_records LIMIT 25000;
EXIT WHEN l_get_records.COUNT = 0;
FOR i IN 1..l_get_records.COUNT
LOOP
IF l_get_records(i).legacy_item_number IS NULL
THEN
INSERT INTO xxbic_aop_inv_ext
VALUES l_get_records(i);
UPDATE xxaop_div_op
SET processed_flag = 'E'
WHERE CURRENT OF l_get_records(i); -- wrong statement
COMMIT;
ELSE
--rest of the logic
END IF;
END LOOP;
END LOOP;
CLOSE cur_bo_file_ext;
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line('Main Exception :'||sqlerrm);
END;
Thanks.