DECLARE
   CURSOR c6
   IS
      SELECT                                               /*+parallel(a,32)*/
            a.rowid,a.*
        FROM EB_O.CCO_DIR_CONTRS_ES_GG a
       WHERE a.GG_CREATE_DATE < SYSDATE-30
       AND ROWNUM <=200001;

   TYPE contact_point_id_tab IS TABLE OF c6%ROWTYPE
                                   INDEX BY PLS_INTEGER;

   l_contact_point_id_tab   contact_point_id_tab;
BEGIN
   OPEN c6;

   LOOP
      FETCH c6
      BULK COLLECT INTO l_contact_point_id_tab
      LIMIT 10000;

      EXIT WHEN l_contact_point_id_tab.COUNT = 0;

      IF l_contact_point_id_tab.COUNT > 0
      THEN
         FORALL i
             IN l_contact_point_id_tab.FIRST .. l_contact_point_id_tab.LAST
            DELETE FROM  EB_O.CCO_DIR_CONTRS_ES_GG
                            WHERE rowid =l_contact_point_id_tab (i).rowid;

         COMMIT;
      END IF;

      l_contact_point_id_tab.delete;
   END LOOP;
END;