创建同步数据存储过程，循环、判断

create or replace procedure TBSHZL  (
                        VRESULT    IN OUT VARCHAR2,
                        VRESULTDES IN OUT VARCHAR2) IS

  cursor cur_num is     select * from test_a a where  a.b in('1','2','3') ;
  v_row   test_a%rowtype;

   BEGIN

      --如果分局数据增加同步市局
      open  cur_num;
   loop

  --循环开始
  fetch cur_num into v_row;
     -- dbms_output.put_line('v_row行:'||v_row);
      --条件一
    IF cur_num%notfound THEN
      Exit;  ---exit loop, not IF
    elsif  cur_num%found  then  
        INSERT  INTO xczhh.test_a@gddb(
        a,
        b,c
        )values(v_row.a,v_row.b,v_row.c);
     end if;
    --日志表插入
  
  --循环结束

  -- dbms_output.put_line('user_id:'||v_row.a||'name:'||v_row.b);
    VRESULTDES:='成功';

  end loop;
  close cur_num;

  RETURN;

  END TBSHZL;