I am using the below code to delete data using bulk collect

create or replace procedure DEL_BULK_ABC AS
declare CURSOR C_GetDelRec IS
SELECT rowid row_id
FROM ABC.XYZ a
WHERE EXISTS (SELECT 'X'
FROM ABC.CH_TEMP b
WHERE b.PACKAGEID = a.packageid);
TYPE tbl_rec_rowid IS TABLE OF ROWID INDEX BY PLS_INTEGER;
LP_rec_rowid tbl_rec_rowid;
Lv_no_recs NUMBER := 100000;
BEGIN
--get records
OPEN C_GetDelRec;
LOOP
FETCH C_GetDelRec bulk collect into LP_rec_rowid limit Lv_no_recs;
IF LP_rec_rowid.COUNT = 0 THEN
exit;
END IF;
--EXIT WHEN C_GetDelRec%NOTFOUND;
--Delete Records
FORALL rec in LP_rec_rowid.FIRST .. LP_rec_rowid.LAST
DELETE FROM ABC.XYZ where rowid = LP_rec_rowid(rec);
COMMIT;
END LOOP;
IF C_GetDelRec%ISOPEN THEN
CLOSE C_GetDelRec;
END IF;
COMMIT;
DBMS_OUTPUT.PUT_LINE('Completed Successfully');
EXCEPTION
WHEN OTHERS THEN
IF C_GetDelRec%ISOPEN THEN
CLOSE C_GetDelRec;
END IF;
ROLLBACK;
DBMS_OUTPUT.PUT_LINE(SQLERRM);
END DEL_BULK_ABC;
/

Please tell what is wrong with the code.
Many Thanks