PIC_TABLE
---------
PIC_ID      NUMBER
PIC_CONTENT LONG_RAW/BLOB -- whatever suits you

Declare
	filename VARCHAR2(256);
Begin
  filename := GET_FILE_NAME(File_Filter=> 'GIF Files (*.gif)&#124*.gif|');
  READ_IMAGE_FILE(filename, 'GIF', 'pics.pic');
END; 

Begin
	GO_ITEM('pics.pic');
	CLEAR_ITEM;
END; 

DECLARE
  curritem VARCHAR2(20);
  formname  VARCHAR2(20) := :SYSTEM.CURRENT_FORM; 
BEGIN    
  curritem := GET_BLOCK_PROPERTY(:SYSTEM.CURRENT_BLOCK, FIRST_ITEM);
	
  -- create a record to duplicate the items
  create_record ;     
  
  -- disable validation in form     
  SET_FORM_PROPERTY(formname,VALIDATION,PROPERTY_FALSE);           
  
  -- loop through all items in a block and skip image item    
  WHILE curritem IS NOT NULL LOOP        
    IF GET_ITEM_PROPERTY(curritem,ITEM_TYPE)!= 'IMAGE' THEN
      GO_ITEM(curritem);
      DUPLICATE_ITEM;        
    ELSE  -- now, don't 'duplicate' image item           
      null;
    END IF;
    curritem := GET_ITEM_PROPERTY(curritem,NEXTITEM);    
  END LOOP;               
  
  -- delete the original record     
  PREVIOUS_RECORD;    
  delete_record ;        
  
  -- restore validation in form    
  SET_FORM_PROPERTY(formname,VALIDATION,PROPERTY_TRUE); 
END;