DECLARE
	 TYPE TYP_NUMBER 	IS TABLE OF NUMBER;  
	 V_COL_IFD_ID  TYP_NUMBER;
	 BULK_ERRORS   EXCEPTION;
	 PRAGMA EXCEPTION_INIT (BULK_ERRORS, -24381 );
	 V_ERS_CNT			NUMBER;
	 V_ERR_MSG			VARCHAR2(2000);
	 V_ERR_CODE			INTEGER;
	 V_ERR_REFID			NUMBER;
BEGIN
	 SELECT REF_ID
	 BULK	COLLECT INTO V_COL_IFD_ID
	 FROM	AOM@MAIN
	 WHERE	TABLE_CODE = 'IFD'
	 ORDER	BY REF_ID ASC;
	 IF V_COL_IFD_ID.COUNT > 0 THEN
	   FORALL IFDID IN V_COL_IFD_ID.FIRST..V_COL_IFD_ID.LAST 
                                                SAVE EXCEPTIONS
		  	  DELETE FROM IFD
			  WHERE  IFD_ID = V_COL_IFD_ID(IFDID);
	 END IF;
   EXCEPTION
 	 WHEN BULK_ERRORS THEN
	 	  V_ERS_CNT := SQL%BULK_EXCEPTIONS.COUNT;
	 	  FOR ERR_INDX IN 1..V_ERS_CNT
	 	  LOOP
	 	        V_ERR_CODE := SQL%BULK_EXCEPTIONS
                                     (ERR_INDX).ERROR_CODE * -1;
		 	V_ERR_MSG := SQLERRM(V_ERR_CODE);
			V_ERR_MSG := SUBSTR(V_ERR_MSG,1,2000);
		 	V_ERR_REFID := V_COL_IFD_ID(SQL%
                          BULK_EXCEPTIONS(ERR_INDX).ERROR_INDEX);
			DBMS_OUTPUT.PUT_LINE(V_ERR_REFID || '~' 
                          || V_ERR_CODE || '~' || V_ERR_MSG);													
	 	  END LOOP;
		  V_ERR_CODE := 0;
		  V_ERR_MSG := NULL;
		  V_ERR_REFID := 0;
END;