declare
  P_MODE VARCHAR2(5) := 'PRE';
  P_TG NUMBER := 1;
  l_flag varchar2(1);
  TYPE ARRAY IS TABLE OF dba_objects.owner%TYPE;
  TYPE ARRAY1 IS TABLE OF dba_objects.object_type%TYPE;
  TYPE ARRAY2 IS TABLE OF dba_objects.object_name%TYPE;
  c_owner ARRAY;
  c_object_name ARRAY1;
  c_object_type ARRAY2;
  cursor c_invalid_object is
  select owner ,object_name ,object_type from dba_objects where status='INVALID' and owner='APPS';
BEGIN
      l_flag := 'Y';
      OPEN c_invalid_object;
          LOOP
                FETCH c_invalid_object BULK COLLECT INTO c_owner,c_object_name,c_object_type LIMIT 100;
                FORALL i IN 1..c_owner.count
                        INSERT INTO  AD_INVALID_OBJECTS_TEMP(TG_ID,SCHEMA,OBJECT,OBJECT_TYPE,pre_flag,created_date)
                values(p_tg,c_owner(i),c_object_name(i),c_object_type(i),l_flag,sysdate);
                EXIT WHEN c_invalid_object%NOTFOUND;
          END LOOP;
      CLOSE c_invalid_object;
      commit;
EXCEPTION
  WHEN OTHERS THEN
  dbms_output.put_line('errror occur with code : '||sqlcode||' in GEN_INVALID_OBJECTS');
  dbms_output.put_line('error message : '||SQLERRM);
END GEN_INVALID_OBJECTS;
/

declare
TYPE ARRAY IS TABLE OF dba_objects.owner%TYPE;
TYPE ARRAY1 IS TABLE OF dba_objects.object_type%TYPE;
TYPE ARRAY2 IS TABLE OF dba_objects.object_name%TYPE;
c_owner ARRAY;
c_object_name ARRAY1;
c_object_type ARRAY2;
cursor c_invalid_object is
select owner,object_name,object_type from dba_objects where status='INVALID' and owner='APPS';
BEGIN
      l_flag := 'Y';
      OPEN c_invalid_object;
          LOOP
                FETCH c_invalid_object BULK COLLECT INTO c_owner,c_object_name,c_object_type LIMIT 100;
.................

INSERT INTO  AD_INVALID_OBJECTS_TEMP(TG_ID,SCHEMA,OBJECT,OBJECT_TYPE,pre_flag,created_date)

select p_tg,owner ,object_name ,object_type,l_flag,sysdate from dba_objects where status='INVALID' and owner='APPS';