procedure read_data  is 

  cursor get_data is
    select id,image from picture1;

id1 number;
pic blob;
 begin
   open get_data;
   loop
          fetch get_data into id1,pic;
          exit when get_data%notfound;

          if id1>1000 then
             insert into pic_tab values ( id1,pic );

          end if;
   end loop;
   commit;
   close get_data;
  end;

INSERT INTO pic_tab SELECT id, image FROM picture1 where id > 1000;